« フォームからメールを送信(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

TrackBack URL for this entry:
http://app.cocolog-nifty.com/t/trackback/68055/9851799

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

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