感想をどうぞ

　お名前（ハンドル可）
　

　メールアドレス（半角英数）
　

　感　想
　

　#!/usr/bin/perl ####################################################################### # formml.cgi # 1999,08 by 良寛 ####################################################################### require './jcode.pl'; # ----------------------------------------------------------------- # requireは'ファイル名'で指定した、サブルーチンライブラリ # を、このプログラムの中に取り込む命令です。この場合、本プ # ログラムと同じディレクトリにある、jcode.pl（フリーソフト） # という日本語コード変換プログラムを取り込んで（結合して） # 普通のサブルーチンのように使います。 # ----------------------------------------------------------------- #===　初期設定　======================================================= $sendmail = '/lib/sendmail'; # ----------------------------------------------------------------- # サーバーのメールプログラムのある場所です。プロバイダによ # り少し異なりますので、プロバイダに聞いて確かめてください。 # 上記は、ミンク（鹿児島のプロバイダ）の場合です。 # ----------------------------------------------------------------- $mailto = 'ryokan@po.minc.ne.jp'; # ----------------------------------------------------------------- # フォームに入力されたデータを送る送信先アドレスです。この # 場合、良寛宛に送られてきます。 # ----------------------------------------------------------------- #===　時刻の取得　===================================================== ($sec,$min,$hour,$day,$mon,$year,$wday) = localtime(time); $mon++; @week = ("日","月","火","水","木","金","土"); $yobi = $week[$wday]; # ----------------------------------------------------------------- # 送信時の時刻を取得します。（perl4.htmlで解説済み） # ----------------------------------------------------------------- #===　フォームデータの受信　=========================================== if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); } else { $buffer = $ENV{'QUERY_STRING'}; } # ----------------------------------------------------------------- # データの送信の方法には、POSTとGETがあります。POSTかGETか # を知るには、環境変数$ENV{'REQUEST_METHOD'}という特殊な変 # 数を用います。 # POSTの場合、 # read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); # とすると、$bufferに$ENV{'CONTENT_LENGTH'}で得られる # 長さのデータがSTDINから代入されます。 # GETの場合、 # $ENV{'QUERY_STRING'}から$bufferに代入されます。 # ----------------------------------------------------------------- #===　受信データの編集　=============================================== @buffer = split(/&/, $buffer); # ----------------------------------------------------------------- # $bufferの内容を文字「&」で分離し、配列@bufferに代入します。 # ----------------------------------------------------------------- foreach $pair (@buffer) { # ----------------------------------------------------------------- # 配列@bufferの要素を一つずつ$pairに代入します。 # ----------------------------------------------------------------- local($name, $value) = split(/=/, $pair); # ----------------------------------------------------------------- # $pairの内容を文字「=」で分離し、ローカル変数$nameと$value # に代入します。 # ローカル変数というのは、そのブロック内だけで有効な変数で、 # ブロックの外で同じ変数名を用いても全く別なものになります。 # 通常、宣言しない変数はグローバル変数（全ての範囲で有効な # 変数）になります。 # ----------------------------------------------------------------- $name =~ tr/+/ /; $name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; # ----------------------------------------------------------------- # +をスペースに置き換え%のついた２桁のデータを１６進に変換 # します。 # ----------------------------------------------------------------- &jcode'convert(*name,'sjis'); &jcode'convert(*value,'sjis'); # ----------------------------------------------------------------- # name、valueが付く変数すべて（$name、@name、%nameなど）を # sjisコードに変換します。 # ----------------------------------------------------------------- $FORM{$name} = $value; # ----------------------------------------------------------------- # 連想配列%FORMに値を代入します。 # ----------------------------------------------------------------- } #===　データエラーの検出　============================================= if ($FORM{'name'} eq "") { &error("名前の記入がありません。"); } if ($FORM{'mail'} eq "") { &error("アドレスの記入がありません。"); } if ($FORM{'message'} eq "") { &error("感想の記入がありません。"); } # ----------------------------------------------------------------- # 各データが空白の場合サブルーチンerrorを実行します。 # ----------------------------------------------------------------- #===　改行コード復帰コードを\nにする　================================= $FORM{'message'} =~ s/\r\n/\n/g; $FORM{'message'} =~ s/\r/\n/g; #===　メール送信　===================================================== open (OUT,"|$sendmail -t"); # ----------------------------------------------------------------- # ハンドルOUTでメールプログラムをオープンします。（パイプ # など、もっと詳しく説明しなければなりませんが）ここではメ # ール送信するときはこのように記述するものだと思ってくださ # い。$sendmailには、 '/lib/sendmail'が代入されています。 # ----------------------------------------------------------------- $send = ""; # 送信データ変数クリア $send .= "To: $mailto\n"; # 送信先 $send .= "From: $FORM{'mail'}\n"; # 送信者のアドレス $send .= "Subject: $FORM{'subject'}\n"; # 件名 $send .= "-------------------------------------------\n\n"; $send .= "送信者：$FORM{'name'}（$FORM{'mail'}）\n"; $send .= "送信日：$year/$mon/$day/（$yobi）$hour:$min:$sec\n\n"; $send .= "感想：\n"; $send .= "$FORM{'message'}\n\n"; $send .= "-------------------------------------------\n"; # ----------------------------------------------------------------- # $sendに送信内容を代入します。 # ----------------------------------------------------------------- &jcode'convert(*send,'jis'); # ----------------------------------------------------------------- # メール送信のコードはjisに決められていますので、jcode.pl # を使って$sendをjisに変換します。*sendは$send、@send、 # %sendなどsendがつく変数すべてをさします。もちろん、ここ # では$sendだけになりますが。 # ----------------------------------------------------------------- print OUT $send; # ----------------------------------------------------------------- # メールプログラムにデータを渡します。 # ----------------------------------------------------------------- close (OUT); # ----------------------------------------------------------------- # メールプログラムをクローズします。 # ----------------------------------------------------------------- #===　送信後の画面表示とプログラムの終了　============================= print "Content-type: text/html\n\n"; print "<html><head><title>お礼</title></head>\n"; print "<body>\n"; print "<center>$mailtoへ送信しました。</center><br>\n"; print "<center>ありがとうございました。</center>\n"; print "</body></html>\n"; exit; #===　エラー表示サブルーチン　========================================= sub error { print "Content-type: text/html\n\n"; print "<html><head><title>エラー</title></head>\n"; print "<body>\n"; print "<center><b>ERROR</b>\n"; print "<p><b>$_[0]</b>\n"; print "</center>\n"; print "</body></html>\n"; exit; } # ----------------------------------------------------------------- # サブルーチンへの引数は特殊変数@_に渡されるので、その中の # 一番目の要素$_[0]（一つの要素を指定するときは配列@でなく、 # スカラー$になります。）を表示します。 # exitで終了。 # ----------------------------------------------------------------- #======================================================================