POPｻｰﾊﾞｰに送信したメールをCGIから読み込む

**名無しさん＠お腹いっぱい。** · 01/11/21 15:23

サーバーにメールを送信すると、自動的にCGIが動作して
出力結果が返信される、という類のスクリプトの書き方を
研究、というか作る必要性にせまられています。

.forwardを使って、特定のCGIに受け渡す部分までは
わかるのですがそこから先、届いたメール形式のデータを
分割して、プログラムとして扱う、という部分がかなりちんぷんかんぷんです。

CGIからsendmailを起動させて送信するプログラムはそこらじゅうにあるので
まだ勉強できるのですが、逆のもの、すなわち、届いたメールから
CGIが起動し、アクションを起こす、というものがなかなか見つかりません｡

なんちやって文系プログラマーな私にアドバイスをいただける方は
いらっしゃないのでしょうか。まじ困ってます。

**名無しさん＠お腹いっぱい。** · 01/11/21 15:48

つーかサーバー側でメール受信用の常駐プログラムを
起動させておく。
（或いはcrontab）

Ｐｅｒｌでやるなら、NET::POP3 あたりを利用する。

**名無しさん＠お腹いっぱい。** · 01/11/21 16:09

スレ立てんな。

-------------------天文学的駄スレ---------------------

**名無しさん＠お腹いっぱい。** · 01/11/21 16:13

1=[cgi:41752]

**名無しさん＠お腹いっぱい。** · 01/11/21 18:23

そんな事より１よ、ちょいと聞いてくれよ。スレとあんま関係ないけどさ。
昨日、鏡見たんです。鏡。
そしたらなんかめちゃくちゃ不細工な奴がっ映ってるんです。
で、よく見たら、いや、よく見なくても、それ俺なんです。
もうね、アホかと。馬鹿かと。
俺な、不細工にも程があるだろうが、ボケが。
超不細工だよ、超絶不細工。
なんか頭も薄くなってるし。デブ、ハゲ、オクメ、ニジュウアゴの４重苦か。死にて―よ。
子供が見たら泣き出すの。もう生きてらんない。
俺な、こりゃ人間の顔じゃねえぞ。猿だぞ。
顔ってのはな、もっと人間っぽくしてるべきなんだよ。
Ｕの字テーブルの向かいに座った奴がいつ気分悪くなってもおかしくない、
吐くか殴られるか、そんな顔じゃねーか俺は。女子供は、すっとんで逃げる。
で、やっと落ちついたかと思ったら、俺、鏡にむかって、ファイト、とか言ってるんです。
そこでまた自己嫌悪ですよ。
あのな、キャンディキャンディか俺は。ボケが。
二目と見られぬ顔して何が、ファイト、だ。
俺は本当に人間なのかと問いたい。問い詰めたい。小１時間問い詰めたい。
俺、進化の歴史から取り残されてるんちゃうんかと。
クロマニョン人の俺から言わせてもらえば今、俺の間での最新流行はやっぱり、
整形、これだね。
整形失敗ギョクサイ。これが俺の生きる道。
整形っては金がかかる。そん代わり成功率が少なめ。これ。
で、それに韓国エステ（ぼたくり）。これ最強。
しかしこれをやっちまうと人間でないことを完全に認めてしまう、諸刃の剣。
真人間にはお薦めできない。
まあお前ら真人間は、俺のぶんまで幸せになってくださいってこった。

**名無しさん＠お腹いっぱい。** · 01/11/21 18:36

くだらんこと書くな

**名無しさん＠お腹いっぱい。** · 01/11/21 18:44

>>6
ageんなボケ

**名無しさん＠お腹いっぱい。** · 01/11/21 23:37

>>4
[cgi:41752] の奴っていろんなMLで見るけど、答えてもらっても
それに対しての返信は滅多に見ない。
2ちゃんねるでいえば、スレッド立て逃げのボケ。

**名無しさん＠お腹いっぱい。** · 01/11/22 05:44

.forwardとかから起動するんだったらSTDINを処理するだけじゃん。
procmailとか、FMLとか見れば？

ま、いいや。

perlだったら、
my @line = <>;
すりゃ@lineにはいるよ。

@lineの解析にはMail::Internetあたりを使おう。

**JAPU** · 01/11/22 07:00

/FYI/
それの高機能版っぽい MIME::Parser ってのもあります。
さんぷる。

#! /usr/bin/perl -w
use strict;
use MIME::Parser;
use Jcode;
my $parser = new MIME::Parser;
my $entity = $parser->read(\*STDIN);
parse($entity);
sub parse
{
my $entity = shift;
my $ilv = shift || 0;
local $_;
print indent($ilv), "--------\n" if $ilv;
print indent($ilv), "[", $entity->head->mime_type("Content-Type"), "]\n";
my $type = $entity->head->mime_type("Content-Type");
if($type =~ /^multipart/i or
$type =~ /^message/i) {
foreach my $p ($entity->parts()) {
parse($p, $ilv + 1);
}
} else {
my $body = $entity->bodyhandle->as_string();
$body =~ s/^/indent($ilv)/egm;
print $body;
}
}
sub indent { " " x shift }
__END__

どうでもいいけど、2chって80番ポートがopenになっているだけでもダメなのね...
ipfwで蹴っちゃうか。

# 改行削ったので見辛いかも。

**名無しさん＠お腹いっぱい。** · 01/11/28 02:08

なんでそんなに駄スレ呼ばわりされてるんだ？
俺的には十分参考になったぞ。

あ、俺は1じゃないからな（ｗ

**名無しさん＠お腹いっぱい。** · 01/11/28 13:34

>>11
板違いだからだろ。.forwardからプログラム起動して
なんらかの返信を返すなんてののどこにWWWやCGIがからむんじゃ。
さらに2なんか質問すら理解してない。
＃ほんとにCGIの質問だったとしても単発スレは困るけどね。

**名無しさん＠お腹いっぱい。** · 01/12/23 11:04

http://www.comm.ics.tut.ac.jp/tomo/cgi-bin/memo.cgi/junk/1

ここ見たらどう、すでにあるよ。
おいら、これがややこしくて設置もできない厨房なので、
１の方がKENT-WEBなみに設置のしやすいcgi作成してくれること
希望。よろしくです。

**hage** · 01/12/23 15:51

hage