さくらのサーバ でお問合わせWEBページなど、CGIからメール送信したい場合、簡単な方法としてはunixのsendmailコマンドで用いることができます。当方では一旦fileに生成してsendmailにリダイレクトしていました。言語は Perl です。
use Fcntl;
use File::Basename;
use Jcode;
$my_email='自社メールアドレス';
$email_tmp="mailtmp.txt";
sysopen(MTMP, $email_tmp, O_CREAT|O_WRONLY, 0666)||die print "エラーが発生しました。(1)"||exit;
# 同時送信された場合のためのfile排他ロック
flock MTMP,LOCK_EX || die print "エラーが発生しました。(2)"||exit;
$subject_jis = Jcode::convert($user_subject, "utf8");
# mail編集
print MTMP "Content-Type: text/plain; charset=Shift_JIS\n";
print MTMP "From: $my_email\n";
print MTMP "To: $my_email\n";
print MTMP "Subject: $subject_jis\n";
print MTMP "\n"; # blank (必須)
print MTMP "送信したいメッセージ\n";
# ロック解除
flock MTMP, LOCK_UN || die print "エラーが発生しました。(3)"||exit;
close MTMP;
# mail実行
$cmd = "cat $email_tmp | /usr/sbin/sendmail $my_email";
system $cmd;
しかしこれでは平文で送信されてしまいます。ステータスなどの自動送信ならこれで良いですが、個人情報を扱う場合はまずいです。問合せユーザに写しを送りたい場合、gmail にも弾かれてしまいます。
そこで SSL(STARTLS) のメール送信を Perl CGIに仕込もうと記事1 、記事2 のサイトを参考にさせていただきました。しかし、投稿時期の違いか、契約プランの違いなのかうまくいきません。調査を開始しました。
【課題1】SMTPSパッケージが入っていない/入れられない
さくらのサーバ では、STARTLSを送信するためのパッケージ Net::SMTPS を use 文を書くと実行エラーとなります。当パッケージは入っていないようです。 さくらのサーバに Teraterm から ssh でログインして、Perlの cpan ユーティリティでインストールしてみると以下のように root権限無しでエラーになってしまいます。
cpan[8]> install Net::SMTPS
Running install for module 'Net::SMTPS'
Checksum for /home/motoplus4/.cpan/sources/authors/id/T/TO/TOMO/src/Net-SMTPS-0.10.tar.gz ok
Scanning cache /home/motoplus4/.cpan/build for sizes
............................................................................DONE
Configuring T/TO/TOMO/src/Net-SMTPS-0.10.tar.gz with Makefile.PL
:
中略
:
/usr/bin/make test -- OK
Running make install for TOMO/src/Net-SMTPS-0.10.tar.gz
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
ERROR: Can't create '/usr/local/perl/5.26/lib/perl5/site_perl/5.26/Net'
Do not have write permissions on '/usr/local/perl/5.26/lib/perl5/site_perl/5.26/Net'
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
at -e line 1.
*** Error code 13
しかし、sudo、su はスタンダードプランでは未対応で、VPSプランからのようです。usergrp コマンドもとおりません。そこで以下のようにしました。
- cpanユーティリティで、Getコマンドで Net::SNTPS をdonwload。
- Net-SMTPS-0.10.tar.gz を解凍し /Net/Lib/Net を丸ごと /hom/ドメイン/www/cgi-bin の下にコピー。
- Net::SMTP も SMTPS の基底クラスなので同様にコピー。
- Net::Cmd、Net::Config も SMTPS から引用しているので同様にコピー。
- 対象.cgiに ローカルlibのパスを以下のように追記。
use lib "/home/ドメイン/www/cgi-bin/lib/"; #追記
use Net::SMTP;
use Net::SMTPS;
- STMPS.pm、 STMP.pm にも ローカルlibのパスを以下のように追記。
use lib "/home/ドメイン/www/cgi-bin/lib/"; #追記
use Net::Cmd;
use Net::Config;これで Net::SMTPS を使用可能になりました。
【課題2】SMTPインスタンス生成エラー
SMTPS内の new() から SMTPの new() をcallしてるので、先に基底クラスの Net::SMTP から順当に試そうとしましたが、new時点でインスタンスが空になりました。STMP.pm もローカルに置いたのでいじりやすくなってるので、print文を入れて追ってみましたが分からず。諦めて Net::SMTPS から直接やってみると上手くいきました。 不思議です。以下コードです。
# ここはメールサーバのホスト名。メアドではない。
# 独自ドメインでもとっちでもOK
#my $svr_name='www???.sakura.ne.jp';
my $svr_name='独自ドメイン.com';
my $smtps = Net::SMTPS->new( $svr_name, Port => '587', doSSL => 'starttls',
# Debug => 1
);
unless($smtps) {
die print "<br>メールサーバの検索に失敗しました。<br></body>\n";
}【課題3】auth()メソッドでログインエラー
SMTPSの インスタンス生成後、auth() メソッドでfalseが返ります。これもSTMPS.pm、 STMP.pm にprint文を入れて追ってみました。基底クラスのSMTPの auth() メソッドにて パスワードをメールサーバに送ったところで、応答コード 535 でが返ってます。ユーザ名にドメイン名を付与すると通りました。メールサーバはユーザ名だけで通っていた記憶があったのですが、、、コードは以下のとおりです。
# usernameは、ドメイン名の付与も必要。
$smtps->auth( ユーザ名@ドメイン.sakura.ne.jp, 'パスワード', 'LOGIN' ) ||
die print "<br>メールサーバとの認証に失敗しました。<br></body>";
応答コードがSMTPS パッケージから見えにくいので状況判断しにくいです。STMP.pm の内部にて一通りチェックしてみると以下のとおりでした。
| 応答コード | 状態 |
| 220 | 通常コマンド受付 |
| 221 | 接続断 |
| 250 | 通常コマンド受付 |
| 334 | ユーザ名受付、認証方式受付 |
| 535 | ユーザ名 もしくは パスワード 不一致 |
あとはすんなり突破しました。以下コードです。Perlの文字連結は + は効かないんすね。
$subject_jis = Jcode::convert(メールタイトル, "utf8"); # sjisのでもOK
my $my_message = "";
$my_message .= "Content-Type: text/plain; charset=Shift_JIS\n";
$my_message .= "From: 送信元メアド\n";
$my_message .= "To: 送信先メアド\n";
$my_message .= "Subject: $subject_jis\n";
$my_message .= "\n";
$my_message .= メール本文";
$smtps->mail( 送信元メアド );
$smtps->to( 送信先メアド );
$smtps->data();
$smtps->datasend( $my_message );
$smtps->quit;下図のようにgmailの受信もOKでした。
