2009年6月アーカイブ

前回、postfixのaliasを設定して、rootレベルで自動処理する方法を書いた。

→http://www.igreks.jp/dev/2008/11/postfix2.html
→http://www.igreks.jp/dev/2008/11/post.html

しかし、この方法はpostfixのconfigファイルを書き換えたり、エイリアス設定をしたりしなくてはならないので、root権限を持たないレンタルサーバの1ユーザレベルでは、かなり敷居が高い。

というわけで、少し自動処理の正確性は落ちるけれども、もっと簡単な方法を紹介。

おそらく「N●O」とかはこのやり方じゃないかと思われる。
「N●O」はPHPみたいだけど、私はPHPあまり得意じゃないのでPerlで。


[動作条件]
・perl5以上（確認した環境はは5.10）かつMail::POP3Clientモジュールがインストールされていること。
・POPアクセスにSSLを用いる場合（Gmailなど）は、さらにIO::Socket::SSLモジュール（要コンパイラ）が必要。
・あらかじめエラーメール受信専用のアドレスを作っておいて、メール送信する時にエンペロープFROMをそのアドレスに指定しておく。
・CRONなどで以下のスクリプトを実行する。
-------------------------------------------------------------------
#/usr/bin/perl -w
use strict;
use Mail::POP3Client;

my $log = "POPサーバに接続中・・・\n";

#コンストラクタ　
my $pop = new Mail::POP3Client(
　　USER => 'pop_user', #popサーバのユーザ名
　　PASSWORD => 'pop_pwd', #同パスワード
　　HOST => 'pop.gmail.com', #popサーバ名
　　AUTH_MODE => 'BEST', #認証モード（たいていはBESTでOK）
　　DEBUG => 0, #デバッグ有無（正の整数を指定すると、プロンプトにサーバとのやりとりが表示される）
　　TIMEOUT => 10, #接続タイムアウト秒（デフォルトは60）
　　USESSL => 'true' #SSLを使わない場合は0（Gmailは使う）
　);


if($pop->Count < 0){ #接続に失敗すると-1が返るらしい
　$log .= "POPサーバに接続できませんでした";
}
else{
　$log .= "ID[$id]のエラーメールアドレスを調査中・・・\n";
　　if($pop->Count != 0){
　　　my @err = ();
　　　my $suc = 0;
　　　$log .= $pop->Count."件のエラーメールアドレスを処理中・・・\n";

　　　#サーバにある数だけ読み込む
　　　for(my $i=1; $i <= $pop->Count; $i++){

　　　　#本文を1行ずつ取得
　　　　foreach($pop->Body($i)){

　　　　#予めbase64エンコードしておいて「名前<メールアドレス>」の形にしておくとToヘッダのパースが楽ちん。
　　　　if($_ =~ /To:\s=\?iso-2022-jp\?B\?.+?\?=<(.+\@.+(\..+)+)>/i){
　　　　　push(@err,$1);
　　　　　$suc++;

　　　　　#パースに成功したらサーバのメッセージ削除フラグを立てる
　　　　　$pop->Delete($i);
　　　　　last;
　　　　}
　　　}
　　}
　　if(@err){

　　　####ここらでエラーアドレスをDBから削除する処理など
　　　foreach(@err){
　　　　&db::query("DELETE FROM usertable WHERE email='$_'");
　　　}
　　　$log .= "$suc件のエラーメールアドレスをデータベースから削除しました\n";
　　}

　　#相手先MTAによっては、パースに失敗することもあるでしょう。
　　if($pop->Count - $suc > 0){
　　　$log .= "※".$pop->Count - $suc."件のエラーメールアドレスを削除できませんでした\n";
　　}
　}
　else{
　　$log .= "エラーメールアドレスはありませんでした\n";
　}
}

#接続終了（このときメールがサーバから削除される）
$pop->Close;

print $log;

------------------------------------------------------------------------

※Mail::POP3ClientモジュールはPurePerlなのでなければCPANからダウンロードして、同じフォルダに置けば使える。
※IO::Socket::SSLが使えなければ、POPサーバをYahooとかの110番を使えばOK。
※SSL未対応でもよければNet::POP3モジュールとか使ってもOK。

追記：このスクリプトの発展形はこちら→http://www.igreks.jp/dev/2010/04/post-6.html

恥ずかしながら、最近までCGIモジュールにVarsメソッド（パラメータをハッシュで受け取れる）があるのを知らなくて、いちいち、

my $par1 = $cgi->param('par1');
my $par2 = $cgi->param('par2');
my $par3 = $cgi->param('par3');
　　　　　　　　・
　　　　　　　　・
　　　　　　　　・

みたいに延々とやってしまっていた。

cgi-lib.plにVars関数があるのはわかっていた（といってほとんど使ったことはない）が、perlで大量にパラメータを送ったりすることがなく、この存在を思いっきり無視していた。

使い方は簡単で、オブジェクトを生成した後に、Varsを呼ぶだけ。
さすが標準モジュール。

use strict;
use CGI;
my $cgi = CGI->new();

%param = $cgi->Vars;

これで%paramに、すべてのキーにパラメータ名を持つハッシュが返される。

$param = $cgi->Vars;

とすると、ハッシュのリファレンスが返される。

私は参照渡しが大好きなのでこっちのほうが使いそう。


同名のパラメータの場合、それぞれをpackされた\0で接続した文字列が返る。
配列として取り出すには、

my @value = split(/\0/, $$param{'key'});


---以下、http://soft.bko.to/perl/A-E/CGI.html より抜粋---

$cgi = new CGI({'key1'=>'value1', 'key2'=>'value2'},...);
パラメタを直接指定してインスタンスを生成。

@in = $cgi->param;
パラメタ名のリストを返す。

$in = $cgi->param($key);
名前$keyを持つパラメタの値を返す。複数の値を持つパラメタの場合はリストを返す。

$in = $cgi->Vars;
全てのパラメタをキーに持つハッシュリファレンスを返す。

%in = $cgi->Vars;
全てのパラメタをキーに持つハッシュを返す。

$cgi->param(-name=>$key, -value=>$value);
$cgi->param(-name=>$key, -values=>@values);
パラメタに値を設定する。-valuesにリストを渡した場合は、複数の値を持つパラメタを設定できる。

$cgi->delete(@keys);
パラメタを削除する。

$cgi->delete_all();
全てのパラメタを削除する。

$cgi->import_names($name_space);
名前空間$name_spaceを生成して、全てのパラメタをインポートする。例えば、$name_spaceが'IN'であれは、パラメタを$IN::fooとか、@IN::fooで読み出せるようになる。CGI::Liteとの互換性を考えないのであれば、この方法でパラメタ読出しを行った方が便利。

$cgi->cookie($key);
名前$keyを持つクッキーの値を返す。

$cgi->cookie(-name=>$key,-value=$value);
クッキーに値を設定してクッキー文字列を返す。下記のパラメタを指定できる。
-expires=>クッキーの有効期限
-path=>クッキーが有効となるパス
-domain=>クッキーが有効となるドメイン

$cgi->save(FILEHANDLE);
パラメタをFILEHANDLEに保存する。読出しは、new CGI(FILEHANDLE)。

$cgi->cgi_error;
CGIの処理中に発生したエラーを返す。HTTPステータスコード形式でフォーマットされるので、下記のような使い方ができる。
my $result = $cgi->cgi_error;
if ($result) {
print $cgi->header(-status=$error);
$cgi->start_html('ERROR');
$cgi->string($error);
exit;
}

$cgi->header;
HTTPヘッダを返す。日本語のHTMLページを表示するには、charsetパラメタが必須なので、必ず下記のパラメタ付きのメソッドを使う。
$cgi->header(-type=>'text/html',-charset=>$charset);

パラメタには、以下のものも指定できる。
-status=>HTTPステータス
-expires=>ページの有効期間（ブラウザの実装によるので、正しく動くか疑わしい）
-cookie=>$cookie
$cookieは、cookieメソッドによって生成されたcookie文字列。複数のcookieを設定する場合は、配列リファレンスを指定する（-cookie->[$cookie1,$cookie2]）。
-attachment=>添付ファイル名
添付ファイル：ブラウザに依存するが、ページを表示する代りにファイルに保存するためのプロンプトを表示する。-type=>'application/octet-stream' を指定した方が互換性が高いらしい。IE7で確認する限り、ファイル保存のプロンプトだけが表示され、ヘッダの後にHTMLを送信しても無視される。

$cgi->start_html;
HTMLヘッダ（～まで）を返す。下記のパラメタを指定する事によって～内のタグを生成できる（使いそうなものだけ抜粋）。
-title=>$title
-meta=>%metas　　　※例：$metas{'http-equiv'}='Content-Type';
　　　　　　　　　　　　 $metas{'content'}='text/html';
　　　　　　　　　　　　 $metas{'charset'}='shift_jis';
-style=>{'src'=>$css_file}
-script=>$script_source | {-language=>'javascript',-src=$script_file}

$cgi->end_html;
を返す。

その他、内のタグを生成するメソッドが多数あるが、当然のことながらまともなレイアウトを作るのは大変なので、別の手段で生成する事を推奨。下記の関数は使えそう。

redirect(-uri=>$url,-nph=>1,-status=>$stat);
$urlにリダイレクトするHTTPヘッダを出力する。
-nph=>1：no-parse-headerを使用する場合に指定する。IISでは必須。
-status=>$stat：HTTPステータスを指定する。リダイレクトする場合は、下記の3種類のうちどれか。
　　　301 Moved Permanently
　　　302 Found
　　　303 See Other
この関数をインポートするには、use CGI qw/:cgi/