#!/usr/local/bin/perl require 'cgi-lib/jcode.pl'; require 'cgi-lib/perl-lib.pl'; $template = 'zipsample1.htm'; $ENV{'TZ'} = "GMT"; $DATE = time + $INIT{'timelag'} * 3600; $boundary = ''; readparts('QUERY', '<>', 'sjis'); if (-e $template) { open(HTML, $template); @HTML = ; close(HTML); } print "Content-type: text/html\n\n"; foreach $line (@HTML) { if ($line =~ /$boundary/) { # テンプレートのHTMLドキュメント内に$boundary # # を発見すると、CGIがドキュメントを生成 if ($QUERY{'button'} eq 'メールを送信する') { # 送信ボタンが押されればメールを送信して # 完了のメッセージを表示する print "

送信完\了

ありがとうございました。
正常にメールを送信しました。

"; } else { # 最初の表示又は、検索ボタンが押された場合は # フォームを表示 if ($QUERY{'〒'} && $QUERY{'button'} eq '住所検索') { # 郵便番号が指定されていて、[住所検索]ボタンが # 押された場合のみデータベースに接続する @DATA = getzip($QUERY{'〒'}, 0, '', '', '', 'sjis'); ($no, $pre, $prename, $city) = split(/\t/, $DATA[0]); $QUERY{'〒'} = $no; $QUERY{'ご住所'} = "$prename$city"; } print " "; } } else { print $line; } } exit;