#! c:/perl/bin/perl
#! /usr/local/bin/perl
#
$dldir = "../files";
@filelist = `ls $dldir`;
print "Content-Type: text/html\n\n";
&beginning;
print "";
foreach $dlfile (@filelist){
$dlfile =~ s/[\r\n]*$//; # instead of a chop
$dllistfile = "$dldir/$dlfile";
($d_dev,$d_ino,$d_mode,$d_nlink,$d_uid,$d_gid,$d_rdev,$d_size,$d_atime,$d_mtime,$d_ctime,$d_blksize,$d_blocks)=stat("$dllistfile");
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime($d_mtime);
$update = sprintf("%s/%s/%s %02s:%02s",$mon+1,$mday,$year+1900,$hour,$min);
if ($d_size > 1048576){
$size = sprintf("%.1fMB",$d_size/1048576);
} elsif ($d_size > 1024){
$size = sprintf("%.1fkB",$d_size/1024);
} else {
$size = sprintf("%dB",$d_size);
}
print "- ";
print "$dlfile ($size)";
print " .......... $update";
print "
\n";
}
print "
\n";
&ending;
sub beginning {
print "";
print <
File list
HEADPRINT
print "\n";
}
sub ending {
print "
";
print "";
print "