[mew-dist 21607] Re: add no Messege-ID: by Mew

[Shun-ichi TAHARA ( 田原 俊一 )]

From: Kazu Yamamoto (山本和彦) <kazu at example.com>
Message-Id: <20020903.155953.63228338.kazu at example.com>

> ローカルの Sendmail にキューの管理をしてもらう場合は、後は祈るのみです。

PPxP の IP.UP(接続時に実行するスクリプト)で、POP before SMTP用に POP
認証を通してからキューを叩くようなスクリプトを動かすようにしています。

クリック1発でダイアルアップからメールの送信までできるので結構便利。

現在、ローカルでは Sendmail じゃなくて NoMail が動いてますが、まぁこの
へんはどんなMTAをつかっててもそんなに変わりないでしょう。

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

require '/etc/popauth';
use Net::POP3;

$_ = $account;
($protocol, $_) = split(/\//, $_, 2);
($user, $server) = split(/@/, $_, 2);

($pop = new Net::POP3($server, Timeout => 30)) or die "POP: Can't connect";

if ($protocol eq 'POP3') {
    $pop->login($user, $passwd) or die "POP3: Authentication error";
} elsif ($protocol eq 'APOP') {
    $pop->apop($user, $passwd) or die "APOP: Authentication error";
}
system('/usr/sbin/nosend');
----

# /etc/popauth に POP のパスワードを書かないといけないのが珠に傷です。
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
田原 俊一   jado at example.com, shunichi_tahara at example.com
                                  http://flowernet.gr.jp/jado/
FingerPrint:  16 9E 70 3B 05 86 5D 08  B8 4C 47 3A E7 E9 8E D9
￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣