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

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

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

377:nobodyさん
 07/02/28 11:47:01 
>>353>>371 
■ｉｎｄｅｘ.cgi の446行目に下の一行追加 
map{&Err("$IN{'toaddr'}は利用出来ません") if($IN{'toaddr'} =~ /$_/i);}split / /,$FILTER; 
 
http://zetubou.mine.nu/itoshiki/nozomu/zetubou5525.jpg 
 
 
■defvar.pl の何処かに以下３行を追加（設定用） 
##### 制限するメールアドレスの一部。半角スペース区切りで複数追加＆正規表現可。 
##### 例：^[a-z0-9][a-z0-9._\-]+\@ezweb.ne.jp$ 
$FILTER = "ezweb.ne.jp vodafone.ne.jp docomo.ne.jp"; 
 
http://zetubou.mine.nu/itoshiki/nozomu/zetubou5526.jpg 
 
 
チェックしてないけど多分これでいけるはず

378:nobodyさん
 07/02/28 11:52:27 
index.cgiの所間違えた・・ 
上の奴は無視して下でお願い 
 
map{if($IN{'toaddr'} =~ /$_/i){&Err("$IN{'toaddr'}は利用出来ません");exit(0);}}split / /,$FILTER;

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;  
  
こんな感じでやって見ました。 
ほんとにありがとうございます。

次ページ