#!/usr/local/bin/perl require './jcode.pl'; @pairs = split(/&/,$ENV{'QUERY_STRING'}); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $value =~ s/\n//g; $value =~ s/\,//g; &jcode'convert(*value,'sjis'); $FORM{$name} = $value; } #メッセージ送信ページを生成 print "Content-type: text/html\n\n"; print "Visual Basic Magazine 2000/09 Sample Web Page\n"; print "\n"; print "\n"; print "

Visual Basic Magazine 2000年9月号特集のサンプル

\n"; print "

メッセージ送信

\n"; print "\n"; print "
\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
ID
自分のメールアドレス
\n"; print "IDとメールアドレスで本人かどうかを認証しています。
メッセージ
\n"; print "
\n"; print "\n"; print "

\n"; print "

\n"; print "
\n"; print "
\n"; print "本サンプルは、2000年9月1日までの限定公開サンプルです。
\n"; print "\n"; print "\n"; exit;