#!/usr/local/bin/perl
print "Content-type: text/html\n\n";
require 'cgi-lib.pl';
require 'jcode.pl';
&ReadParse(*data);
$h_kubun = $data{'h_kubun'};
$h_name = $data{'h_name'};
$h_yubinno = $data{'h_yubinno'};
$h_jusho1 = $data{'h_jusho1'};
$h_jusho2 = $data{'h_jusho2'};
$h_telno = $data{'h_telno'};
$h_kaisha = $data{'h_kaisha'};
$h_busho = $data{'h_busho'};
$h_mail = $data{'h_mail'};
$work_body = "区分:" . $h_kubun . "\n" . "名前:" . $h_name . "\n" . "郵便番号:" . $h_yubinno . "\n" . "住所1:" . $h_jusho1 . "\n" . "住所2:" . $h_jusho2 . "\n" . "電話番号:" . $h_telno . "\n" . "会社名:" . $h_kaisha . "\n" . "部署:" . $h_busho . "\n" . "電子メール:" . $h_mail;
$filename = "./result.html";
open FL, ">$filename";
print FL "<HEAD>\n";
print FL "<META HTTP-EQUIV='Pragma' CONTENT='no-cache'>\n";
print FL "<TITLE>\n";
print FL "入力フォーム内容</TITLE>\n";
print FL "</HEAD>\n";
print FL "<BODY>\n";
print FL "<H2>\n";
print FL "ありがとうございます。</H2>\n";
print FL "<P>\n";
print FL "以下の内容にて承りました。<P>\n";
print FL "----------------------------------------------------------<BR>\n";
print FL "<P><PRE>\n";
print FL "■申込区分:$h_kubun<P>\n";
print FL "■お名前 :$h_name<P>\n";
print FL "■郵便番号:$h_yubinno<P>\n";
print FL "■ご住所1:$h_jusho1<P>\n";
print FL "■ご住所2:$h_jusho2<P>\n";
print FL "■電話番号:$h_telno<P>\n";
print FL "■メ−ルアドレス:$h_mail<P>\n";
print FL "■会社名(法人):$h_kaisha<P>\n";
print FL "■部署名(法人):$h_busho<P>\n";
print FL "■メ−ルアドレス:$h_mail<P>\n";
print FL "----------------------------------------------------------<BR>\n";
print FL "</BODY>\n";
close FL;
print "<HEAD>\n";
print "<TITLE>\n";
print "入力フォーム内容確認</TITLE>\n";
print "</HEAD>\n";
print "<BODY>\n";
print "<FORM ACTION='http://FTPサーバ名/cgi-bin/mail.cgi' METHOD='POST'>\n";
print "<INPUT TYPE='hidden' NAME='sub' VALUE='フォーム入力テスト'>\n";
print "<INPUT TYPE='hidden' NAME='from' VALUE='hogehoge\@hogehoge.jp'>\n";
print "<INPUT TYPE='hidden' NAME='to' VALUE='hogehoge\@hogehoge.jp'>\n";
print "<INPUT TYPE='hidden' NAME='after_page' VALUE='http://www2.u-netsurf.ne.jp/~sample/result.html'>\n";
print "<INPUT TYPE='hidden' NAME='body' VALUE='$work_body'>\n";
print "<P><PRE><H3>\n";
print "以下の内容でよろしければ実行ボタンを押してください。<P>\n";
print "</H3><HR>\n";
print "<P>\n";
print "■登録区分:$h_kubun\n";
print "<P>\n";
print "■お名前 :$h_name\n";
print "<P>\n";
print "■郵便番号:$h_yubinno\n";
print "<P>\n";
print "■ご住所 :$h_jusho1\n";
print " :$h_jusho2\n";
print "<P>\n";
print "■電話番号:$h_telno\n";
print "<P>\n";
print "■メ−ルアドレス:$h_mail\n";
print "<P>\n";
print "■会社名(法人):$h_kaisha\n";
print "<P>\n";
print "■部署名(法人):$h_busho\n";
print "<P>\n";
print "<TR></PRE>\n";
print "<HR>\n";
print "<TD><INPUT TYPE='submit' VALUE='実行'></TD>\n";
print "</TR>\n"; |