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.2

necomimi

もちろん、blatj単体でのメール送信の確認はしてありますよね？
エラーログがあるのならば、私にはわからなくとも
他の人が見れば判るかもしれませんよ

回答No.1

necomimi

私には良くわからなかったのですが(^^;
http://www.kent-web.com/data/postmail.html
↑
２つのものに対応したソースを見て参考にしてはどうでしょう。

お礼

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