七行プログラミング (452ﾚｽ)
上下前次1-新

---

245: 7uploader 04/02/19 11:44 ID:??? AAS
順番的には先に telnetd を何とかしたいけど、検証が大変なので後回し。

#!/usr/bin/perl
use CGI":all";sub v{open(F,pop)||die;binmode F}$CGI::POST_MAX=1024000;$/=\4096;
chdir D;%f=map{$_,[a({href,"?d=$_"},$_),-s,''.localtime((stat)[9])]}@f=sort{-M$
a<=>-M$b}<*>;$f{$f=upload f}or$f&&do{v">$f";print F$_ while<$f>;close F};$f{$F=
param d}?(v($F),put header(-type=>'application/octet-stream',Content_length,-s
$F,attachment,$F),<F>):put(header,start_html,start_multipart_form,filefield(f),
submit,endform,hr,table({border,1},Tr[th([qw/name size date/]),map{td$f{$_}}@f]
),end_html)

・windows 対応。
・既存ファイルへの上書きを防止。但し upload 後自力 reload が必要に。

ファイル名は連番や時刻等にする方が安心且つ楽かな。

---

上下前次1-新書関写板覧索設栞歴

---

あと 207 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ

---

ぬこの手 ぬこTOP 0.006s