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嫌い。