#! c:/perl/bin/perl #! /usr/local/bin/perl # use POSIX; $lang = 0; $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 < ※アップ後のファイル名は半角英数、アンダースコア(_)、ドット(.)のみ受け付けます。
※アップできる最大ファイルサイズは１０Ｍバイトです。
※アップロードはファイルサイズ、通信速度によってそれなりに時間がかかりますので、アップロード中はこのページが再表\\示されるまで根気よくお待ちください。
NOTICE print "

"; print ""; print < ※削除はサーバーから完全にファイルを削除します。復帰はできません。
NOTICE &ending; sub beginning { print ""; print < Download HEADPRINT print "\n"; } sub ending { my $mysite = ('http://www.hidekik.com/','http://www.hidekik.com/en/')[$lang]; print "

"; print "

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

ダウンロード

\n"; print "Last Update : $date_str
\n"; print "戻る\n"; print "

\n"; }

タイトル
アップファイル
アップ後のファイル名