【スクリプト改造依頼スレ】(丸投げ) part3

【スクリプト改造依� ..

245:nobodyさん
05/02/09 21:00:08
>>242
#---cgi-lib.pl をダウンロード URLﾘﾝｸ(cgi-lib.berkeley.edu)

#---mo_diary2.cgi
#---673行目
U::d(sprintf "$log_dir/%04d_%02d_%02d", $s_y, $s_m, $s_d);
#---429行目置換
print qq{<form action="$cgi_f" method=POST enctype="multipart/form-data">\n};
#---346, 341行目
U::w(sprintf "$log_dir/%04d_%02d_%02d", $y, $m, $d);

#---mo_diary2_cfg.cgi
#---469行目
package U;@e=qw/gif jpg png/;$l='./cgi-lib.pl';if(-r$l){require$l;&ReadParse;}
$F=delete$in{file};sub w{my$f=shift||'';my$p=join'|',@e;if($f&&$incfn{file}=~
/^\w+\.($p)$/i){open O,">$f.".lc$1 or return;binmode O;print O $F;close O;}}
sub d{my$f=shift;unlink map"$f.$_",@e;}sub TIESCALAR{bless{b=>join'&',map{my$k
=$_;map{s/&/%26/g;s/=/%3d/g;"$k=$_"}split/\0/,$in{$k}}keys%in}}
AUTOLOAD{shift->{b}}tie $::buffer, 'U';
#---439行目
print map qq{<img src="$_">}, grep -f, map sprintf("$log_dir/%04d_%02d_%02d.$_", $y, $m, $d), @U::e;
#---399行目
print "<br><input type=file name=file>\n";

次ページ