sendmailからblatjへ

初めまして。
今cgiフォームメールがあるのですが、sendmail用で使われています。これをBlatjにソースを変えることはできるのでしょうか？cgi,perlは難しく、誰か教えて頂けないでしょうか？宜しくお願いします。
ソースは以下です。

sub _Send_mail {

my ($fromaddress, $toaddress, $subject, $body) = @_;

$fromaddress =~ s/\n//g; $fromaddress =~ s/\r//g;
$toaddress =~ s/\n//g; $toaddress =~ s/\r//g;
$toname =~ s/\n//g; $toname =~ s/\r//g;
$subject =~ s/\n//g; $subject =~ s/\r//g;


#$subject = encode("cp932", decode("utf-8", $subject));
#$body = encode("cp932", decode("utf-8", $body));
if($moji_code eq "UTF-8"){
$subject = Unicode::Japanese->new($subject)->sjis;
$body = Unicode::Japanese->new($body)->sjis;
$toaddress = Unicode::Japanese->new($toaddress)->sjis;
}

open(SENDMAIL, "|/usr/sbin/sendmail -t");
my $str = Jcode->new("From: $fromaddress\n")->mime_encode;
$str .= Jcode->new("To: $toaddress\n")->mime_encode;
$str .= Jcode->new("Subject: $subject\n")->mime_encode;
$str .= "MIME-Version: 1.0\n";
$str .= "Content-Type: text/plain;charset=\"ISO-2022-JP\"\n";

print SENDMAIL $str;
print SENDMAIL Jcode->new("$body")->jis;

close(SENDMAIL);

}


__END__

No.1 回答者： necomimi 回答日時： 2006/06/13 10:06

私には良くわからなかったのですが(^^;

http://www.kent-web.com/data/postmail.html
↑
２つのものに対応したソースを見て参考にしてはどうでしょう。

この回答へのお礼

早速の返答有難うございます。
参考にしてやってみたのですが、送信してくれなくて・・。自宅にサーバーがあるのですがエラーが出て、エラーログを見てもよくわからないんですよ・・。

お礼日時：2006/06/13 10:24

No.2 回答者： necomimi 回答日時： 2006/06/13 11:17

もちろん、blatj単体でのメール送信の確認はしてありますよね？

エラーログがあるのならば、私にはわからなくとも
他の人が見れば判るかもしれませんよ