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

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

379:353
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;

こんな感じでやって見ました。
ほんとにありがとうございます。

次ページ