07/03/02 21:53:19
>>377
ありがとうございます。
ちゃんと動いてるみたいです。
行数が自分のエディターだと違ったので少し迷いましたが、
$Toaddr = join(',', @Addrlst);
if($IN{'subject'} eq ''){
$IN{'subject'} = $Defsubject;
}
if(length($IN{'subject'}) > $Maxsubject){
$zen = int($Maxsubject / 2);
&Err("「メール件名」$IN{'subject'} が長すぎます。<br>半角 $Maxsubject 文字 全角 $zen 文字以内にしてください。<br>ブラウザの戻るボタンで前画面にもどってやりなおしてください。");
exit(0);
}
map{if($IN{'toaddr'} =~ /$_/i){&Err("$IN{'toaddr'}は利用出来ません");exit(0);}}split / /,$FILTER;
こんな感じでやって見ました。
ほんとにありがとうございます。