空メールシステムについて

よくメールマガジンサイト（携帯版）で見かけるのですが、空メールを送信して登録、解除できるサイトがあります。このような仕組みを是非CGIで実現してみたいとおもっていますがこのようなものはCGIで実現可能なのでしょうか？今回は、メールが飛んできたらログファイルにそのメールアドレスを書き込むと言うものだけでかんがえています。
もしできるとするならは、
1.空メールが送られてくるたびにCGIを起動させる方法
2.空メールのヘッダーを読み込みそれを送信元アドレス取得する方法
この２点が質問ないようです。またこれ以外にも他の方法はありますか？

ちなみに僕のサーバー環境はrimネットのホスティングサービスを利用していいます。

１の質問でどうやら.forwardのなかに"|exec /home/user/script"を記述して

#!/usr/local/bin/perl
　while (<STDIN>){処理}
とすれば/home/user/scriptはメールを送られてくるたび実行されるらしいのですがうまくいきませんでした。

この山はどうしても越えたいのでどなたかご教授よろしくおねがいします。

No.1 回答者： akino4 回答日時： 2001/06/12 17:17

えっと、それはCGIじゃなくて単なるスクリプトのような

.forwardはsendmail系の設定です。
あなたが書いてる設定だと
メールが送られてくるとパイプを開いて/home/user/scriptていう
プログラムにメールのデータを流し込むって感じになってます。
メールのフォーマットについては・・・覚えてないっす検索してみてくだささい(^^;

No.2 回答者： u1p 回答日時： 2001/06/12 17:19

~/.forward の該当部分と、

それで起動されるスクリプトを見せていただかないと
何ともいえないのですが、該当の処理は可能ですよ。

/etc/aliases などでやるのが私は好きですが、
ホスティングサービスじゃぁしょうがないですね。

あ、~/.forward やスクリプトのパーミッションはOKですよね。
あと、~/ 自体も。
perlのパスなんかは大丈夫でしょうか。
とりあえずそっちは、単体でテストできますよね。
それはどうでしたか？

この回答への補足

早速のお返事有難うございます。
まず/.forwardのパーミッションは644にしています。
~/は755です。
perlのパスは/usr/local/bin/perlで確認OKです。


起動させるスクリプトは、
【mail.cgi】 ---------------------------------------
#!/usr/local/bin/perl

$mail = "./data/mail.log";

print "Content-type:text/html\n\n";

#ここらへんにメールアドレスのヘッターを読み込み送信元メールアドレスを
#取得する記述??

if(!open(OUT,">>$mail"))
{print 'ファイルへの書込みができませんでした。',"\n"; exit;}

print OUT "取得したメールアドレス,￥n";

close(IN);
exit
------------------------------------------------------------------
こんな感じなんですが、~/.forward に関係する記述と、送られてきたメール
内容のヘッターからメールアドレスを取得する方法がわかりません。
とりあえずcgiのパーミッションは705でmail.logは606です。

補足日時：2001/06/12 17:41

No.3 回答者： h-kiku 回答日時： 2001/06/13 14:17

こんな風に記述すれば良いのでは.

ただし、From: が複数行になっている場合は考慮していません

-->
#!/usr/local/bin/perl

# 多分、フルパスで書いたほうが安全だと思います.
$mail = "/..../data/mail.log";

#ここらへんにメールアドレスのヘッターを読み込み送信元メールアドレスを
#取得する記述??

# メール本体
@text = <STDIN>;

$line="junk";
while ((@text) && ($line ne ""))
{
$line = shift(@text);
chomp($line);
if ($line =~ /^From: /)
{
($tmp, $from) = split(":", $line, 2);
}
}
if(!open(OUT,">>$mail"))
{print 'ファイルへの書込みができませんでした。',"\n"; exit;}

print OUT "取得したメールアドレス,$from\n";

close(OUT);
exit;
<--

$from に From: の右側の情報が入ります.

メールアドレス以外の情報(名前など)がある場合は、
そこからメールアドレスのみを抽出する必要がありますね.