[ 69 ]
 ぽめ mailform8のmail.cgiで間違いかの確認とEncodeモジュールの使用 投稿日時：2010/03/23 21:12:14 ホスト名：KD125028017185.ppp.prin.ne.jp
こんにちは。
mailform8のmail.cgiの63,64行目の「$name2」と「$toname2」は、ひょっとして逆ではないでしょうか？
フォームに入力した人への自動返信のメールがフォーム設置者のアドレスに送られるかと思われます。Perlの理解が不十分なので、こちらの勘違いかもしれませんが、気になったのでコメントします。
それから、mailform8でjcode.pl、mimew.plを使っている部分を、perl5.8から標準モジュールになったEncodeを使えないかと思っていますが、バージョンアップで変更の予定はありますか？
-
ぽめ RE,mailform8のmail.cgiで間違いかの確認とEncodeモジュールの使用 投稿日時：2010/03/25 18:20:42 ホスト名：P061204005200.ppp.prin.ne.jp
こちらの勘違いでした。
mailform8のmail.cgiの57,58行目が34,35行目と異なっているのを見落としていました。
またEncodeモジュールですが、Perl5.8.5の環境で以下の様に修正して使えました。ご報告まで。
9行目
元 require "jcode.pl";
新 use Encode;
10行目
元 require "mimew.pl";
新 use MIME::Base64;
34行目
元 my $name2 = &mimeencode($name);
新 Encode::from_to($name, 'eucJP', 'iso-2022-jp');
my $name2 = encode('MIME-Header-ISO_2022_JP', $name);
35行目
元 my $toname2 = &mimeencode($toname);
新 Encode::from_to($toname, 'eucJP', 'iso-2022-jp');
my $toname2 = encode('MIME-Header-ISO_2022_JP', $toname);
36行目
元 my $subject = &mimeencode($title);
新 Encode::from_to($title, 'eucJP', 'iso-2022-jp');
my $subject = encode('MIME-Header-ISO_2022_JP', $title);
37行目
元 my $body = jcode::jis($message);
新 Encode::from_to($message, 'eucJP', 'iso-2022-jp');
45行目
元 print MAIL $body."\n";
新 print MAIL $message."\n";
57-60行目及び68行目も同様
以上
|
