Net::SMTP::TLSの修正

<a href="http://blog.livedoor.jp/nec69/archives/52009186.html" target="_blank">http://blog.livedoor.jp/nec69/archives/52009186.html</a>

ネットの海に書いてあったのだが、消えると困るので自分でもメモ。

Net::SMTP::TLS
の下記を
SSL_version => "TLSv1"
に書き換える。

お名前.comでの送信はこんな感じでできた。

my $smtp_server = 'smtp.hogehoge.com';
my $smtp_port = 587;
my $account = 'user@hogehoge.com';
my $password = 'xxxxx';
my $from = $account;

my $smtps = Net::SMTP::TLS->new(
$smtp_server,
Port=>$smtp_port,
SSL=>1,
User=>$account,
Password=>$password
)|| die("SMTP connection failed!!");

$smtps->mail($from);
$smtps->to($to);

$smtps->data();
$smtps->datasend("From: ".$from."\n");
$smtps->datasend("To: ".$to."\n");
$smtps->datasend("Subject: hogehogehoge\n");
$smtps->datasend("\n");
$smtps->datasend($body);
$smtps->dataend();

$smtps->quit;