こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

締切り済みの質問

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__

投稿日時 - 2006-06-13 09:18:14

QNo.2212445

暇なときに回答ください

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(2)

ANo.2

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

投稿日時 - 2006-06-13 11:17:45

ANo.1

私には良くわからなかったのですが(^^;
http://www.kent-web.com/data/postmail.html

2つのものに対応したソースを見て参考にしてはどうでしょう。

投稿日時 - 2006-06-13 10:06:51

お礼

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

投稿日時 - 2006-06-13 10:24:35

あなたにオススメの質問