Commit | Line | Data |
---|---|---|
6855525e JL |
1 | <?php |
2 | /* | |
3 | * Copyright (C) 2003-2005 Polytechnique.org | |
4 | * http://opensource.polytechnique.org/ | |
5 | * | |
6 | * This program is free software; you can redistribute it and/or modify | |
7 | * it under the terms of the GNU General Public License as published by | |
8 | * the Free Software Foundation; either version 2 of the License, or | |
9 | * (at your option) any later version. | |
10 | * | |
11 | * This program is distributed in the hope that it will be useful, | |
12 | * but WITHOUT ANY WARRANTY; without even the implied warranty of | |
13 | * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
14 | * GNU General Public License for more details. | |
15 | * | |
16 | * You should have received a copy of the GNU General Public License | |
17 | * along with this program; if not, write to the Free Software | |
18 | * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA | |
19 | */ | |
20 | ||
0f9303fd | 21 | require_once 'Plugin/Skel/Filter.php'; |
6855525e JL |
22 | require_once 'diogenes.icons.inc.php'; |
23 | ||
24 | ||
25 | /** This plugin allows you to insert a directory listing with icons | |
26 | * and modification date. | |
27 | * | |
28 | * To make use of this plugin, insert {FileList} in your page where | |
29 | * the file list should appear. | |
30 | */ | |
0f9303fd | 31 | class FileList extends Diogenes_Plugin_Skel_Filter { |
6855525e JL |
32 | /** Plugin name */ |
33 | var $name = "FileList"; | |
34 | ||
35 | /** Plugin description */ | |
36 | var $description = "This plugin allows you to insert a directory listing with icons and modification date. To make use of this plugin, insert <b>{FileList}</b> in your page where the file list should appear."; | |
37 | ||
b2c16bf3 JL |
38 | |
39 | /** Constructor. | |
40 | */ | |
41 | function FileList() | |
42 | { | |
43 | global $page; | |
44 | $this->declareParam('dirbase', ''); | |
45 | $this->declareParam('urlbase', ''); | |
46 | $this->declareParam('match', ''); | |
47 | } | |
48 | ||
6855525e JL |
49 | |
50 | /** Prepare the output for a single file of the list. | |
51 | * | |
52 | * @param $file | |
53 | * @param $title | |
54 | * @param $url | |
55 | */ | |
56 | function list_file($file,$title,$url="") { | |
57 | if (empty($url)) $url = $file; | |
58 | global $globals; | |
59 | ||
60 | /* get modification date / time */ | |
61 | $modified = date ("d M Y H:m:s", filemtime($file)); | |
62 | ||
63 | /* get file icon */ | |
64 | $icon = $globals->icons->get_mime_icon($file); | |
65 | ||
66 | /* calculate file size */ | |
67 | $size = filesize($file); | |
68 | if ($size < 1000) | |
69 | $size = "$size B"; | |
70 | elseif ($size < 1000000) | |
71 | $size = floor($size/1000)." kB"; | |
72 | else | |
73 | $size = floor($size/1000000)." MB"; | |
74 | ||
75 | /* figure out description */ | |
76 | $show = 1; | |
77 | if (preg_match("/(i386\.changes|\.dsc)$/",$file)) | |
78 | $show = 0; | |
79 | elseif (preg_match("/\.tar\.gz$/",$file)) | |
80 | $desc = "source tarball"; | |
81 | elseif (preg_match("/_(all|i386)\.deb$/",$file,$matches)) | |
82 | { | |
83 | $type = $matches[1]; | |
84 | $desc = "Debian package"; | |
85 | if ($type == "all") | |
86 | $desc .= " [platform independant]"; | |
87 | else | |
88 | $desc .= " [$type specific]"; | |
89 | } | |
90 | elseif (preg_match("/\.diff\.gz$/",$file)) | |
91 | $desc = "Debian diff"; | |
92 | else $desc = " "; | |
93 | ||
94 | /* display the link */ | |
95 | if ($show) | |
8d31b5f1 | 96 | return "<tr><td><img alt=\"file\" class=\"fileicon\" src=\"$icon\" /><a href=\"$url\">$title</a></td><td><small>$modified</small></td><td>$size</td><td>$desc</td></tr>\n"; |
6855525e JL |
97 | } |
98 | ||
99 | ||
100 | /** Show an instance of the FileList plugin. | |
101 | * | |
102 | * @param $args | |
103 | */ | |
104 | function show($args) | |
105 | { | |
106 | global $page; | |
107 | $bbarel = $page->barrel; | |
b2c16bf3 | 108 | |
6855525e | 109 | // process arguments |
b2c16bf3 JL |
110 | $instance_vals = array(); |
111 | foreach($this->getParamNames() as $key) { | |
112 | $instance_vals[$key] = isset($args[$key]) ? $args[key] : $this->getParamValue($key); | |
6855525e JL |
113 | } |
114 | ||
b2c16bf3 JL |
115 | //print_r($instance_vals); |
116 | if (empty($instance_vals['dirbase'])) { | |
117 | $instance_vals['dirbase'] = $bbarel->spool->spoolPath($page->curpage->props['PID']); | |
6855525e JL |
118 | } |
119 | ||
120 | // process parameters | |
121 | $output = ''; | |
b2c16bf3 | 122 | $dir = $instance_vals['dirbase']; |
6855525e JL |
123 | if (is_dir($dir) && ($dh = opendir($dir))) { |
124 | $output .= | |
125 | '<table class="light"> | |
126 | <tr> | |
127 | <th>'.__("file").'</th> | |
128 | <th>'.__("date").'</th> | |
129 | <th>'.__("size").'</th> | |
130 | <th>'.__("description").'</th> | |
131 | </tr>'; | |
132 | ||
133 | /* get the matching files */ | |
134 | while (($fname = readdir($dh)) !== false) { | |
135 | if ( is_file("$dir/$fname") | |
b2c16bf3 | 136 | && preg_match('/^'.$instance_vals['match'].'/',$fname) ) |
6855525e JL |
137 | $filelist[] = $fname; |
138 | } | |
139 | closedir($dh); | |
140 | ||
141 | /* order and display */ | |
142 | if (is_array($filelist)) { | |
143 | rsort($filelist); | |
144 | while(list ($key,$val) = each($filelist)) { | |
b2c16bf3 | 145 | $output .= $this->list_file("$dir/$val",$val,$instance_vals['urlbase'].$val); |
6855525e JL |
146 | } |
147 | } else { | |
148 | $output .= '<tr><td colspan="4"><i>'.__("no files").'</i></td></tr>'; | |
149 | } | |
150 | $output .= '</table>'; | |
151 | } | |
152 | return $output; | |
153 | } | |
154 | } | |
155 | ||
156 | ?> |