"table.dirlist td.d { font-weight: bold; }
table.dirlist td.s, table.dirlist td.t { text-align: right; }
table.dirlist { border: 1px solid #dddddd; }
table.dirlist td { border: 1px outset #dddddd; padding: 0px 2px; margin:2px; } ",
));
SDVA($HandleActions, array( 'dirlistget' => 'HandleDirListGet' ));
SDVA($DirList, array(
'Root' => "$FarmD/pub",
'dirline' => '| %1$s | %2$s | %3$s |
',
'fileline' => '| %1$s | %2$s | %3$s |
',
'listwrap' => '',
'defaultfilter' => "-*~,-*.bak",
'parent' => '..',
'TimeFmt' => $TimeFmt,
'EncodeFn' => 'rawurlencode',
'NFormatFn' => 'dirlist_nformat',
));
function FmtDirList($pagename, $args) {
global $DirList;
$defn = $DirList['EncodeFn'];
$dnfn = $DirList['NFormatFn'];
$opt = ParseArgs($args);
$Root = (@$opt[''][0]>'')? "{$DirList['Root']}/{$opt[''][0]}" : $DirList['Root'];
$Ddir = preg_replace('!^\\/+!', '', stripmagic(@$_GET['dir']));
$dir = ($Ddir>'')? "$Root/$Ddir" : $Root;
$Fdir = substr($dir, strlen($DirList['Root'])+1);
$dir = str_replace(array('..', '//'), array('', '/'), $dir);
$filelist = $dirlist = array();
$dirp = @opendir($dir);
if($dirp) {
while (($file=readdir($dirp)) !== false) {
if ($file{0} == '.') continue;
$f = "$dir/$file";
if(@$opt['dirfilter']>'' && is_dir($f)) {
$a = MatchNames(array($file), $opt['dirfilter']);
if(count($a)!=1) continue;
}
elseif(@$opt['filter']>'' && !is_dir($f)) {
$a = MatchNames(array($file), $opt['filter']);
if(count($a)!=1) continue;
}
if(intval(@$opt['nodefaultfilter'])==0) {
$a = MatchNames(array($file), $DirList['defaultfilter']);
if(count($a)!=1) continue;
}
$utime = intval(@filemtime($f));
$time = strftime($DirList['TimeFmt'], $utime);
$usize = intval(@filesize($f));
$size = $dnfn($usize);
if(is_dir($f) ) $dirlist[$file] = array( $size, $time, $usize, $utime);
else $filelist[$file] = array( $size, $time, $usize, $utime);
}
closedir($dirp);
ksort($dirlist, SORT_LOCALE_STRING);
ksort($filelist, SORT_LOCALE_STRING);
}
else return "Failed to open '$dir'.";
$dirup = implode('/', array_slice(explode('/', $Ddir), 0, -1));
$html = "";
if( ! IsEnabled($opt['nodirs'], 0)) {
if($Ddir>'') $html .= sprintf($DirList['dirline'], $DirList['parent'], '', '', $dirup);
foreach($dirlist as $name=>$a) {
$url = $defn(preg_replace('!^\\/+!', '', "$Ddir/$name"));
$html .= sprintf($DirList['dirline'], $name, $a[0], $a[1], $url, $a[2], $a[3]);
}
}
if( ! IsEnabled($opt['nofiles'], 0)) {
foreach($filelist as $name=>$a) {
$url = $defn(preg_replace('!^\\/+!', '',"$Fdir/$name"));
$html .= sprintf($DirList['fileline'], $name, $a[0], $a[1], $url, $a[2], $a[3]);
}
}
$wrap = sprintf($DirList['listwrap'], $html, $dir);
return FmtPageName($wrap, $pagename);
}
function dirlist_nformat($x) {
if($x<1024) return $x;
if($x<1024*1024) return round($x/1024, 1). ' k';
if($x<1024*1024*1024) return round($x/1024/1024, 1). ' M';
return round($x/1024/1024/1024, 1).' G';
}
if(!function_exists('MatchNames')){function MatchNames($l,$p){return MatchPageNames($l,$p);}}
function HandleDirListGet($pagename, $auth = 'read') {
global $DirList, $DownloadDisposition, $UploadExts;
SDV($DownloadDisposition, "inline");
$page = RetrieveAuthPage($pagename, $auth, true, READPAGE_CURRENT);
if (!$page) Abort("?cannot read $pagename");
$f = str_replace(array('..', '/.'), array('', ''), @$_REQUEST['f']);
$f = preg_replace('/^\\/+/', '', $f);
$filepath = $DirList['Root'].'/'.$f;
if (!$f || !file_exists($filepath)) {
header("HTTP/1.0 404 Not Found");
Abort("?requested file not found");
exit();
}
preg_match('/\\.([^.]+)$/',$filepath,$match);
if ($UploadExts[@$match[1]])
header("Content-Type: {$UploadExts[@$match[1]]}");
else header("Content-Type: text/plain");
header("Content-Length: ".filesize($filepath));
$upname = preg_replace("/^.*?\\/+/", '', $f);
header("Content-disposition: $DownloadDisposition; filename=\"$upname\"");
$fp = fopen($filepath, "r");
if ($fp) {
while (!feof($fp)) echo fread($fp, 4096);
fclose($fp);
}
exit();
}