#! c:/perl/bin/perl
#! /usr/local/bin/perl
#
$dldir = "../files";
@filelist = `ls $dldir`;
$update_year = "2006";
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分",$year+1900,$mon+1,$mday,$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";
print "解説ページへ
\n";
print "
\n";
}
sub ending {
$lang = 0;
$mysite = ('http://www.hidekik.com/','http://www.hidekik.com/en/')[$lang];
print "
";
print "\n";
print "";
print "