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

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

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

244:nobodyさん
 05/02/09 16:03:27 
【.　 CGI名 　.】アンケート（PHP4以上） 
【配布先URL】http://www.s-zoo.jp/material3.html　　 
【 依頼期限 】２月末 
【. 依頼内容 】アンケートの集計結果ページにパスワードを付けるか、 
特定のページからアクセスした場合のみ閲覧出来るようにしたいのですが 
よく分かりません。よろしくお願い致します。

245:nobodyさん
 05/02/09 21:00:08 
>>242 
#---cgi-lib.pl をダウンロード http://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";

次ページ