Why is not SMTP available ?

[K.Sakamoto]

SMTPのコマンドを直接使ってＥメールを送るプログラムを、Perl5で作ろうとし
ています。
sendmailは使っていますが、直接SMTPを使えばより効率良く処理できるのではな
いかと思い、「情報管理」発行の本を買って、それに書いてある通りに作ってみ
たのです。
しかしプログラムを実行したところ、SMTPサーバにconnectした直後に
421(Service not available)を返されてしまい、門前払いをくらってしまいまし
た。
SMTPサーバの指定は、メールソフトと同じにしています。（sendmailが使ってい
るサーバとは違います。）メールソフトと同じことをしたいだけなのですが、な
ぜサーバは受け付けてくれないのでしょうか？
やはり、誰でも起動できるCGI経由の接続なので、パーミッションでひっかかっ
ているのでしょうか？
参考にした本では、エラーが発生した場合の対処法までは説明していません。
RFC821も一応ざっと読んでみましたが、解決のためのヒントは得られませんでし
た。

もし、上記の問題の解決方法などがお分かりでしたら、ぜひアドバイスをお願い
致します。
よろしくお願い致します。

[Hiroaki Sengoku]

仙石です。

<36E332...@mvc.biglobe.ne.jp> において
Sun, 07 Mar 1999 18:16:21 -0800 に K Sakamoto さんは書きました:

K> SMTPのコマンドを直接使ってＥメールを送るプログラムを、Perl5で作ろうと
K> しています。

Net::SMTP を使うと簡単です。

| #!/usr/local/bin/perl -w
|
| use Net::SMTP;
|
| $smtp = Net::SMTP->new('mailhost');
|
| $smtp->mail($ENV{USER});
| $smtp->to('postmaster');
|
| $smtp->data();
| $smtp->datasend("To: postmaster\n");
| $smtp->datasend("\n");
| $smtp->datasend("A simple test message\n");
| $smtp->dataend();
| $smtp->quit;

みたいな感じ。

K> しかしプログラムを実行したところ、SMTPサーバにconnectした直後に
K> 421(Service not available)を返されてしまい、門前払いをくらってしまい
K> ました。

これだけでは何とも...

K> SMTPサーバの指定は、メールソフトと同じにしています。（sendmailが使っ
K> ているサーバとは違います。）メールソフトと同じことをしたいだけなので
K> すが、なぜサーバは受け付けてくれないのでしょうか？

こーいう質問をするときは、もっと詳しい状況説明をつけましょうね。せめてど
んなプログラムを書いたかくらいは書かないと、答えようがありません。telnet
で connect したときはどんな応答が返りますか ?

仙石 浩明 @ 川崎市
#4013. sen...@gcd.forus.or.jp
http://www.gcd.forus.or.jp/sengoku/ Hiroaki Sengoku @ Kawasaki City