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

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

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

474:466
 05/03/10 17:12:49 
>469 
そちらへ行ってきます。 
ありがとうございます。

475:461
 05/03/10 18:59:29 3y7dr023
>>445 
配布元の方に、改変等の快諾をいただきましたので、 
以降は通常配布します。

476:nobodyさん
 05/03/11 16:26:02 t4xx8bgO
あげ

477:nobodyさん
 05/03/12 02:08:50 
【CGI名】　 WEB PATIO Ver: 2.01  
【配布先URL】　 http://www.kent-web.com/bbs/patio.html 
【依頼期限】　　一週間  
【依頼内容】投稿者のIP表示、親記事のみが編集・削除可能になるように改造 
をお願いします。

478:nobodyさん
 05/03/12 12:45:11 KkeUvuG+
>>400 
address.datに2形式が混ざったという前提で書いてある。 
追加時はNAME,ADDRESS形式で保存される。新形式の番号は無視されるんでよろしく。 
必ずバックアップを取ってから試してくれ。 
 
bmn.cgiを開いて、sub head1{と書いてある行の一行上にコレをコピペ。 
-------------------------------------ここから 
sub AddressRead{ 
my($AdName,$AdAddr); 
if((index($_[0],"<>") >= 0) && (index($_[0],"<.>") > index($_[0],"<>"))){ 
($AdName,$AdAddr) = (split(/<\.>/ , (split(/<>/,$_[0]))[1]))[0..1]; 
return $AdName . "," . $AdAddr; 
}else{ 
return $_[0]; 
} 
} 
-------------------------------------ここまで 
次に57～140行目にある 
split(/,/,$smails) 
を 
split(/,/,&AddressRead($smails)) 
に置き変える。計6箇所。 
 
これで動く。アドレスの追加と削除は上手くいった。それ以外は知らん。必ずテストしてから。 
Na<>m,eAdd<.>ressとかいった悪意的な行は上手に判定できない。それでもよければ。っていうかこのCGI嫌い。

次ページ