七行プログラミング (452レス)
上
下
前
次
1-
新
245
:
7uploader
04/02/19 11:44 ID:???
AA×
>>-
[
240
|
320
|
480
|600|
100%
|
JPG
|
べ
|
レス栞
|
レス消
]
245: 7uploader [sage] 04/02/19 11:44 ID:??? 順番的には先に 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 が必要に。 ファイル名は連番や時刻等にする方が安心且つ楽かな。 http://medaka.5ch.net/test/read.cgi/php/1036141603/245
順番的には先に を何とかしたいけど検証が大変なので後回し 対応 既存ファイルへの上書きを防止但し 後自力 が必要に ファイル名は連番や時刻等にする方が安心且つ楽かな
上
下
前
次
1-
新
書
関
写
板
覧
索
設
栞
歴
あと 207 レスあります
スレ情報
赤レス抽出
画像レス抽出
歴の未読スレ
ぬこの手
ぬこTOP
0.028s