以下のデータでよろしいですか?
HTML_PREVIEW print &html_escape($comment); print "\n\n"; } print < HTML_PREVIEW my $var=""; foreach $var (@scalars) { printf(' %s', $var, &html_escape(${$var}), "\n"); } print "\n"; foreach (@kamoku) { printf(' %s', &html_escape($_), "\n") if ($_); } print <
資料を送付いたしますので、今しばらくお待ちください。
THANKS } sub http_begin { # HTTP header の出力。 print "Content-Type: text/html; charset=EUC-JP\n\n"; } sub html_footer { # HTML footer の出力。 print <必須の入力項目に入力が欠けています。ブラウザのバック機能で前のページに 戻って、必須項目をすべて埋めてから再度送信してください。
ERROR } elsif ($which eq "empty_kamoku") { print <講師・チューター希望の方は、希望科目を必ず選択してください。 ブラウザのバック機能で前のページに戻り、選択してから再度送信 してください。
ERROR } elsif ($which eq "empty_gakureki") { print <講師・チューター志望の方は、学部・学科を必ず入力してください。 ブラウザのバック機能で前のページに戻り、入力してから再度送信してください。
ERROR } elsif ($which eq "busy") { print <ただいま、システムが混み合っております。しばらく時間を おいてから、再度送信してくださいますようお願いいたします。
なお、しばらくしてからも症状が回復しない場合、大変お手数ですが、 下記の管理者までご連絡ください。
ERROR } else { die "Unknown error type [$which] has occurred. Please report this error to the administrator written below.\n"; } &html_footer(); &release_lock() if ($direct); exit 1; } sub init { # CGI handling routines の利用を宣言。 # これだけで、form 変数の取り込みなどを全部やってくれる。 use CGI ":cgi"; # エラーがブラウザに見えるように。 use CGI::Carp 'fatalsToBrowser'; # Denial of service attack の防御。 $CGI::POST_MAX=1024 * 100; # max 100K posts $CGI::DISABLE_UPLOADS = 1; # no uploads # 日本語コード変換ルーチンの利用を宣言。 require "jcode.pl"; # MIME encoding 用変換ルーチンの利用を宣言(メール送信用)。 require "mimew.pl"; # ディレクトリ移動 chdir($BASE_DIR) or die("Unable to change to base directory $BASE_DIR: $!"); # HTTP header や、HTML header の出力。 &http_begin(); # データ番号ファイル名 $sequence="number"; }