フォームメールでのいたずらメール送信を拒否する方法

2005/02/19 22:42

このQ&Aのポイント

フォームメールでのいたずらメール送信を防ぐためのcgiを探していましたが、ようやく発見しました。これにより、指定されたメールアドレスからの送信を拒否することができます。
以前は数件程度のメールが届いていたのですが、最近はさらに増えてきて、cgiファイルを編集するだけでは対応しきれなくなってきました。そこで、禁止リストを別ファイルで管理し、随時追加することにしました。
禁止リストを外部のファイルでcsv形式で管理する方法を知っている方はいませんか？また、既に禁止リストを管理できるcgiを知っている方は教えていただけると助かります。

ttoottoorroo
お礼率37% (16/43)

CGI
回答数1
ありがとう数0

みんなの回答 （1）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

hikomin
ベストアンサー率63% (40/63)

2005/02/20 23:53 回答No.1

外部ファイルからアドレスを呼んで@errmailに入れるなら、まず外部ファイルを用意します。ここでは例として、１行に１アドレス書くものとします。 -- deny.txt -- nomail@xxx.com xxx@nomail.com account@host ---- あとは、これをプログラム側から読み、配列に代入すればOKです。例えば、 @errmail = ('nomail@xxx.com','xxx@nomail.com'); の部分を、次のように書き換えます。 open FH, '< deny.txt' or die "open : $!"; # ファイルを開く while( my $line = <FH> ){ # 一行ずつ… chomp $line; # 最後の改行を破棄し… push @errmail, $line if $line; # 行内にデータがあれば@errmailに追加 } close FH; # ファイルを閉じる