enhydraの日記: ポータブルMUA
Perl Power Tools(The Unix Reconstruction Project)という"Unixの一般的なコマンドを全部Perlで実装しちゃおうゼ"な大好きなお馬鹿プロジェクトがあり、結構利用させてもらっている。登録されたコマンドはかなり多岐に渡り、UnixだろうがWindowsだろうがPerlさえインストールされていればどこでも動くコマンド群が手に入る。
# make とかPure Perlな tar も在るのよ。
今回はmailコマンドで遊んでいたのだが、このmailコマンドは外部のMTAを使用してメールの送信を試みると送信できない問題がある。これはSMTPトランザクションの最初に HELOコマンドを送出していないためにその後のコマンドがリジェクトされているだけだったりする。
で、それを修正するpatchを書いてついでに作者に送ったのだが、しばらく更新されていないし反応あるかかなり怪しい。
とりあえず、こんな感じで正しく送信できるようになるナリ。ってか簡単すぎて逆にオイラが何か根本的に勘違いしているんじゃないかと不安になってたりする。
*** mail.org Thu Oct 4 11:09:50 2001
--- mail Thu Oct 4 11:18:09 2001
***************
*** 117,122 ****
--- 117,124 ----
# Ok, here we go.
my $sock=$self->socket;
+ main::debug("Helo ". $self->hostname);
+ print $sock "helo " . $self->hostname. "\n"; $_=;
main::debug("Mailed from " . $self->replyaddr);
print $sock "mail from: " . $self->replyaddr . "\n"; $_=;
{