#!/usr/local/bin/perl # emioji_form.cgi # 最終更新 2007/08/16 # http://vvv.ciao.jp/yy/emoji_form.htm # パラメータ受け取り my $qs = $ENV{'QUERY_STRING'}; # ファイル定義 my $htmlfile; if ($qs eq 'i' || $qs eq 'j1' || $qs eq 'j2' || $qs eq 'e1' || $qs eq 'e2') { my $htmlfile = './' . $qs . '.htm'; } else { &error("ファイルの指定が不正です"); } print "Content-type: text/html\n\n"; open(IN,"$htmlfile") || &error("$htmlfileが見つかりません"); while () { print "$_"; } close(IN); exit; sub error { print < ERROR!

ERROR !

$_[0]
EOM exit; } 1;