#!/usr/bin/perl
use strict;
use warnings;
use CGI qw(:cgi-lib :standard);
print header(-type=>'text/html; charset=EUC-JP');
# charsetはお客さまの環境に合わせてShift_JISやUTF-8などに変更してください。
my $MAIL_FROM = 'test_from@example.com'; #お客さまの環境に合わせて変更ください
my $MAIL_TO = 'test_to@example.com'; #お客さまの環境に合わせて変更ください
my $MAIL_SUBJECT = 'test mail'; #お客さまの環境に合わせて変更ください
open MAIL, "| /usr/lib/sendmail -i -t -f$MAIL_FROM" or die "failed to open sendmail:$!";
print MAIL &mail_header;
close MAIL;
print '<html><body>success</body></html>';
# Dateフィールドの時刻表記を作るサブルーチン
sub date_rfc2822 {
my @month = ('Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun', 'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec');
my($sec, $min, $hour, $mday, $mon, $year, $wday, $wday, $isdst) = localtime(time);
return sprintf('%02d %s %04d %02d:%02d:%02d +0900', $mday, $month[$mon], $year+1900, $hour, $min, $sec);
}
# メールヘッダを生成するサブルーチン
sub mail_header {
my $dt = &date_rfc2822;
my $HEAD = <<EOD;
From: $MAIL_FROM
To: $MAIL_TO
Subject: $MAIL_SUBJECT
Date: $dt
Mime-Version: 1.0
Content-Type: Text/Plain; charset=iso-2022-jp
Content-Transfer-Encoding: 7bit
EOD
return $HEAD."\n";
}
# メール本文を生成するサブルーチン
sub mail_content {
return <<EOD;
This is test mail. #お客さまの環境に合わせて変更ください
EOD
}
|
