smtp送信時の認証をperlで書きたい

質問

ｓｍｔｐで認証が必要なメールサービスがあり、これをperlで記述しています。
「pop befor smtp」では、駄目でした。
そのた、authでの認証（良く分からず）行って見ましたが、システムでは無視されました。何方かご指導よろしくお願いします。
現状のソースを添付します。

$smtp = Net::SMTP->new("smtp$server");
$smtp->mail($from);
$smtp->to($to);
$smtp->data();
$smtp->datasend("Date:2009/01/10 18:30\n");
$smtp->datasend("From:$from\n");
$smtp->datasend("To:$to\n");
$smtp->datasend("Subject:$Subject\n");
$smtp->datasend("Content-Transfer-Encoding: 7bit\n");
$smtp->datasend("Content-Type: text/plain;charset=\"iso-2022-jp\"\n\n");
$smtp->datasend("\n");
$smtp->datasend("これは、テストです。\n");
$smtp->dataend();
$smtp->quit;

回答No.1

t-okura · ベストアンサー

ググると Authen::SASL が必要というウェブページ
http://yoosee.net/d/archives/2004/08/25/002.html
が見つかります。サーバには Authen::SASL はインストールされて
いるでしょうか。

また、Net::SMTP_auth
http://search.cpan.org/~apleiner/Net-SMTP_auth-0.08/SMTP_auth.pm
というモジュールもありますね。

補足

早速アドバイス有難う御座います。
デバッグを１にして、動作を確認しましたが私には正常に働いて居る様に見えます。途中で終了している事は無いようで、最後にclosingが確認できます。
下記に添付します。また、SMTP_authモジュールは、インストールされて居ない様です。

メーラーの送信時に認証と同じ処理を、perlで書きたいのですがもしかしてAUTHでは、無いのでしょうか？
すみません、素人で判りません。もし宜しければ、ご存知の方ご指導下さい。

Net::SMTP=GLOB()<<< 220 pbsg500.nifty.com ESMTP Nifty Mail Server
Net::SMTP=GLOB()>>> EHLO localhost.localdomain
Net::SMTP=GLOB()<<< 250-pbsg500.nifty.com Hello sv13.ｘxxxxdmein.jp [210.***.***.***], pleased to meet you
Net::SMTP=GLOB()<<< 250-ENHANCEDSTATUSCODES
Net::SMTP=GLOB()<<< 250-PIPELINING
Net::SMTP=GLOB()<<< 250-8BITMIME
Net::SMTP=GLOB()<<< 250-SIZE 20971520
Net::SMTP=GLOB()<<< 250-DSN
Net::SMTP=GLOB()<<< 250-AUTH=PLAIN LOGIN CRAM-MD5
Net::SMTP=GLOB()<<< 250-AUTH PLAIN LOGIN CRAM-MD5
Net::SMTP=GLOB()<<< 250-DELIVERBY
Net::SMTP=GLOB()<<< 250 HELP
Net::SMTP=GLOB()>>> MAIL FROM:
Net::SMTP=GLOB()<<< 250 2.1.0 ... Sender ok
　　：
　　：
Net::SMTP=GLOB()>>> Subject:メールの送信テスト
Net::SMTP=GLOB()>>> Content-Transfer-Encoding: 7bit
Net::SMTP=GLOB()>>> Content-Type: text/plain;charset="iso-2022-jp"
Net::SMTP=GLOB()>>> これは、テストです。
Net::SMTP=GLOB()>>> .
Net::SMTP=GLOB()<<< 250 2.0.0 n0I68aE4016150 Message accepted for delivery
Net::SMTP=GLOB()>>> QUIT
Net::SMTP=GLOB()<<< 221 2.0.0 pbsg500.nifty.com closing connection
以上、有難う御座います。

回答No.3

t-okura

Authen::SASL モジュールがインストールされていないときの動きに
似ていますね。

perl -e 'use Authen::SASL' すると
Can't locate Authen/SASL.pm ... と表示されませんか。
このように表示された場合は、
cpan -i Authen::SASL で CPAN から Authen::SASL モジュールを
インストールすることができます。

お礼

アドバイス有難う御座います。
確かに、エラーが表示されました。
早速レンタルサーバ管理者へ、確認をお願いしてみます。

結果は、改めて報告したいと思います。

ご指導有難う御座います。

回答No.2

t-okura

質問時にあげられているコードには、認証処理のコードが入っていません。

$smtp->auth($user, $passwd) のような認証処理をする部分が
必要ですが、テストされているコードには記述されているのでしょうか。

お礼

回答有難う御座います。
実際には、$smtp->auth($user, $passwd)指摘どおり
ＵｓｅｒＩＤとパスワード引数として渡しております。
エラーは、発生していないようです。

出張で、お礼が遅くなりました（＾＾；；；。済みません。
有難う御座います。何かお気付きの点が有りましたら、よろしくお願いします。