#! c:/perl/bin/perl #! /usr/local/bin/perl # use POSIX; $dldir = "../download"; $dllistfile = "$dldir/download.lst"; $backpage = "../download.html"; $update_year = "2005"; open(FILE,"< $dllistfile"); @alldata=; close(FILE); ($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"); @monarray=(Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec); ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime($d_mtime); $date_str = POSIX::strftime("$monarray[$mon] %d, %Y",$sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst); print "Content-Type: text/html\n\n"; &beginning; &header; print "

"; print "$title ($size)"; if ($update ne ''){ print " .......... $update"; } print "

\n"; print "

\n"; print <<"EOM"; EOM print < БжThe file name after uploaded has to be normal characters, _, - and . only.
БжThe maximum upload size is 10MB.
БжUpload may take long if file size is bigger or network is slow. Please wait untile this page is re-displayed.
NOTICE print "

"; print ""; print < БжDelete will remove the file from the server permanentry. Cannot recover after deletion.
NOTICE &ending; sub beginning { print ""; print < Download HEADPRINT print "\n"; } sub ending { print "

"; print "

\n"; print ""; print ""; } sub header { print "

Download

\n"; print "Last Update : $date_str
\n"; print "Back\n"; print "

\n"; }