Added lot of junk laying around on harvie.cz

[mirrors/Programs.git] / php / skripty / find_recursive.php

diff --git a/php/skripty/find_recursive.php b/php/skripty/find_recursive.php
new file mode 100644 (file)
index 0000000..28bace3
--- /dev/null
+++ b/php/skripty/find_recursive.php
@@ -0,0 +1,29 @@
+<pre>\r
+<?php\r
+\r
+//\r
+function dir_scan($directory, $slash="/") {\r
+\r
+       if($GLOBALS["num"] == 0) echo("<title>$directory</title>\n<h1><a href=\"file:///$directory\">$directory</a></h1>\n");\r
+       $files=opendir ($directory); \r
+               while (false!==($file = readdir($files))) \r
+               { \r
+                               if ($file != "." && $file != "..") \r
+                               { \r
+                                               if(is_dir($directory.$file)) echo("[DIR] ");\r
+                                               //echo "$directory$file\n"; \r
+                                               echo "<a href=\"file:///$directory$file\">$directory$file</a>\n"; \r
+            $GLOBALS["num"] = ($GLOBALS["num"] + 1);\r
+                                               if(is_dir($directory.$file)) dir_scan($directory.$file.$slash,$slash);\r
+                               } \r
+               }\r
+               closedir($files); \r
+\r
+}\r
+\r
+///CODE////////////////////////\r
+$num = "0";\r
+dir_scan("x:\\", "\\");\r
+echo("\nTotal: $num\n");\r
+?>\r
+</pre>\r