Mercurial > dirlist-php

comparison index.php @ 0:8cba59d07798

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Initial import.
author edogawaconan <me@myconan.net>
date Thu, 16 Oct 2014 21:38:37 +0900
parents
children 9b5884ba214a
comparison
equal deleted inserted replaced
-1:000000000000 0:8cba59d07798
1 <?php
2 //real men use UTC for internets
3 date_default_timezone_set('UTC');
4 $wwwroot = $_ENV["DOCUMENT_ROOT"];
5 $link_prefix = "/";
6 $link_base = rtrim(preg_replace("#/+#", "/", urldecode($_ENV["REQUEST_URI"])),'/');
7 $link_path = substr($link_base,strlen(utf8_decode($link_prefix)));
8 $path = realpath("$wwwroot/".$link_path);
9 if (!$path) { die("fail"); }
10 $dir_handle = @opendir($path);
11 $to_dir = explode('/', trim($link_path,'/'));
12 array_unshift($to_dir, trim($link_prefix,'/'));
13 $files = array();
14 $dirs = array();
15 while ($file = readdir($dir_handle))
16 {
17 if ($file == '.' or $file == '..') { continue; }
18 elseif (is_dir("$path/$file")) { $dirs[] = $file; }
19 else { $files[] = $file; }
20 }
21 sort($files);
22 sort($dirs);
23 function h($string) { return htmlspecialchars($string, ENT_QUOTES, 'UTF-8'); }
24 function a($string) { return preg_replace("#(%2F)+#", "/", rawurlencode($string)); }
25 function link_to($target, $title)
26 {
27 return("<a href=\"".a($target)."\">".h($title)."</a>");
28 }
29 function print_header()
30 {
31 global $link_prefix, $link_base, $to_dir;
32 $path_tree = link_to('/', '[root]') . "/";
33 foreach ($to_dir as $level => $dir)
34 {
35 if($dir)
36 {
37 $link = "/";
38 for ($i = 0; $i <= $level; $i++) { $link .= "$to_dir[$i]/"; }
39 $path_tree .= link_to($link, $dir)."/";
40 }
41 }
42 header('Content-Type: text/html; charset=utf-8');
43 echo "<!doctype html>
44 <meta http-equiv=\"Content-type\" content=\"text/html;charset=UTF-8\">
45 <title>Index of ", h(rtrim($link_base,"/")."/"), "</title>
46 <body>
47 <h1>Index of $path_tree</h1>";
48 }
49 function nice_size($size)
50 {
51 static $unit = array('B', 'KB', 'MB', 'GB', 'TB');
52 for ($i = 0; $size >= 1000 && $i < count($unit); $i++) { $size /= 1000; }
53 if ($i == 0) { return(sprintf("%d %s", $size, $unit[$i])); }
54 else { return(sprintf("%.2f %s", $size, $unit[$i])); }
55 }
56 function file_rows($files, $is_dir)
57 {
58 global $path, $link_base, $link_prefix;
59 static $unit = array('B', 'KB', 'MB', 'GB', 'TB');
60 $file_rows = "";
61 if ($is_dir)
62 {
63 $file_suffix = "/";
64 if($link_base != $link_prefix)
65 {
66 $file_rows .= "<tr><td colspan=3>".link_to(dirname($link_base),"..")."</td></tr>";
67 }
68 } else { $file_suffix = ""; }
69 foreach($files as $file)
70 {
71 $file_stat = stat("$path/".$file);
72 $file_rows .= "<tr><td>".
73 link_to("$link_base/".$file, $file.$file_suffix)."</td><td>".
74 h(strftime("%a %d-%b-%G %H:%M", $file_stat['mtime']))."</td><td>";
75 if ($is_dir) { $file_rows .= "[dir]"; }
76 else { $file_rows .= nice_size($file_stat['size']); }
77 $file_rows .= "</tr>";
78 }
79 return $file_rows;
80 }
81 function print_list()
82 {
83 global $dirs, $files;
84 echo "<table><thead><tr>",
85 "<td>File</td>",
86 "<td>Date</td>",
87 "<td>Size</td>",
88 "</tr></thead>",
89 "<tbody>", file_rows($dirs, true), file_rows($files, false), "</tbody>",
90 "</table>";
91 }
92 function print_footer()
93 {
94 echo "</body>";
95 }
96 print_header();
97 print_list();
98 print_footer();
99 ?>