まさはる's Weblog

　表には、「メールで送信するCGIを設定しています」といとも簡単に設定したような書き方をしていますが、これまでPerlで日本語のメールを送ったことがなかったので、えらく苦労しましたｗ。
　苦労した原因は、Encode（和訳）を使ってiso-2022-jpのメールを送ろうとしたことと添付ファイルの扱いで、Encodeの方はPerl/Unicodeを、添付ファイルはMIMEの基礎を参考にしてなんとか送信できるようになりました。
　それにしても、Perlのバージョンが5.8.8未満でUTF-8ソースの場合はuse utf8;をしないといけないとは...てっきりそのまま使えるものだと思っていましたｗ。

　以下は、UTF-8ソースからiso-2022-jpでメールを送信する場合のテストプログラムです。このプログラムを試す場合は、1行目のPerlのパス、$mailerのsendmailのパス、$emailの値及び最終ヘッダー（Subject: $subject）の後の「（ここは改行だけの行）」を空行に修正して、ブラウザで呼び出してください。正常に送信できれば「mailtest ok」と表示されるようになっています。

・メール送信テストCGIのサンプル

#!/usr/local/bin/perl -wT
use strict;
use Encode;
use utf8; # Encode使用＆Perl 5.8.8未満＆UTF-8ソースの場合は指定する
use MIME::Base64;
BEGIN {
    $ENV{PATH} = "/bin:/usr/bin";                # 環境のクリーンナップ
}
 
# 設定
my $mailer  = '/usr/sbin/sendmail';
my $email   = 'aaa@bbb.com';
my $name    = 'mailtest';
my $subject = 'メール送信テストabc123のタイトル';
my $message = 'メール送信テストabc123の本文です。';
 
# タイトルのエンコード
$subject = encode('iso-2022-jp', $subject);      # iso-2022-jpにエンコード
$subject = encode_base64($subject, '');          # Base64にエンコード
$subject = '=?iso-2022-jp?B?' . $subject . '?='; # ヘッダー文字列の追加
 
# 本文のエンコード
$message = encode('iso-2022-jp', $message);      # iso-2022-jpにエンコード
 
# メール送信
open MAIL, "| $mailer -t -f'$email'" or die "Cannot open sendmail: $!";
print MAIL <<END_OF_MESSAGE;
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Content-Type: text/plain; charset=iso-2022-jp
From: $name <$email>
To: $email
Subject: $subject
（ここは改行だけの行）
$message
END_OF_MESSAGE
close MAIL or die "Cannot close sendmail: $!";
 
# 結果表示
print "Content-type: text/plain; charset=UTF-8\n\n";
print "$name ok\n";

　新しいハードディスク設置後のOSの再インストール時に、試しに「移行アシスタント」を使ってみました。これまでは、こういうものの使用は不具合の元になると思い、ハードディスクを移行する度にアプリケーションを一からインストールし直していたのですが、OSのメジャーバージョンは変わってないし、それ以上にインストールし直すのは面倒だし...ということで、ダメもとで使ってみました。

　うげっ！完璧ｗ。メールの履歴やSafariのブックマークはもちろん、インストールするのに時間と手間のかかる60GBもあるX-Plane 8やThe Sims 2などのゲームまで、設定ファイルと共に忠実に再現してくれました。（もちろん、迷惑メールやゴミファイルもですが...）
　こりゃ便利。まんま移したい時にはオススメです。ちなみに、通常の使用で変更しないようなディレクトリの中は移行しません。例えば、/etc/httpd/httpd.confなどを書き換えている場合は、再度書き換え直すか個別にコピーする必要があります。