« フォームからメールを送信(1) | Main | メール送受信テストシステム(1) »

May 01, 2006

フォームからメールを送信 (2)

メールを送るためのCGIです。

sendMail.cgi
----
#!/usr/local/bin/perl

use CGI;
use Jcode;

# 引数を取得する
$input_data = new CGI;

$name = $input_data->param('name');
$subject = $input_data->param('subject');
$address = $input_data->param('address');
$body = $input_data->param('body');

# 送信先を指定する
$to = 'hoge@loripop.jp';


# 送信前処理
$mailname = jcode($name)->jis;
$mailbody = jcode($body)->jis;
$mailsubject = jcode($subject)->jis;


# メール送信

open (MAIL, "| /usr/lib/sendmail -t");

print MAIL "To: $to \n";
print MAIL "Subject: $mailsubject \n";
print MAIL "Content-Type: text/plain; \n\n";
print MAIL "名前: $mailname \n";
print MAIL "e-mail: $mailname \n";
print MAIL "$mailbody \n";

close(MAIL);


# 送信内容
$body =~ s/[\r\n,\n]/< br \/ > /g;


# 画面表示
print "Content-type: text/html \n\n";
print "< html > \n";
print "< head > < title > Test send mail< /title > < /head > \n";
print "< body > \n";
print "< h1 > Test send mail< /h1 > \n";
print "< hr / > ";
print "以下のメールを送信しました \n";
print "Name: $name< br / > \n";
print "Subject: $subject< br / > \n";
print "email: $address< br / > \n";
print "Body: $body \n < br / > ";
print "< /body > < /html > \n";

exit;
----

--参考図書
CGI/Perlハンドブック 第3版


←クリック一票

|

« フォームからメールを送信(1) | Main | メール送受信テストシステム(1) »

CGI Perl」カテゴリの記事

Comments

Post a comment



(Not displayed with comment.)


Comments are moderated, and will not appear on this weblog until the author has approved them.



TrackBack


Listed below are links to weblogs that reference フォームからメールを送信 (2):

« フォームからメールを送信(1) | Main | メール送受信テストシステム(1) »