エラー

#!/usr/bin/perl #----------------------------------------------------------- # 高機能ショッピングカート(フリー版) 商品一覧表示 #----------------------------------------------------------- #------------------- # ▼ 設定 START #------------------- #日本語コード処理ライブラリ require '../module/jcode.pl'; #スタイルシートファイル $css = '../../css.css'; #基本設定データファイル $foundations_file = "./manage/save_data/foundations.csv"; #------------------- # ▲ 設定 END #------------------- ################################################################################ # # - ご注意 - # これより下はプログラムです。 # 改造はご自由にされてもかまいませんが、改造によって発生した不具合に関しては # サポート外になりますので、あらかじめご了承下さい。 # ################################################################################ #------------------------------------------------- # 入力 #------------------------------------------------- if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); } else { $buffer = $ENV{'QUERY_STRING'}; } #if ($buffer eq "") { &error( search ); } @pairs = split(/&/,$buffer); foreach $pair (@pairs) { ($name,$value) = split(/=/, $pair); $name2 = $name; $value2 = $value; $FORM2{$name} = $value; $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; &jcode'convert(*value,'euc'); $value =~ s//>/g; $value =~ s/\n//g; $value =~ s/\r//g; $value =~ s/\t//g; $value =~ s/\,//g; #フォーム変数へ $FORM{$name} = $value; } #------------------------------------------------- # 基本設定ファイルの読み込み #------------------------------------------------- if (!open(IN,"$foundations_file")) { &error( read_error ); } $FOUNDATIONS_DATA = ; close(IN); ($DATE_FOUNDATIONS,$STORENAME,$PAGE,$NEWMARK,$FRAME,$ZEIRITU,$SORYO,$NOS,$NOSORYO,$CLASS1,$CLASS2,$CLASS3,$CLASS4,$CLASS5,$CLASS6,$CLASS7,$CLASS8,$CLASS9,$CLASS10,$CLASS11,$CLASS12,$TLINK,$TOPURL,$COPYRIGHT,) = split(/\,/,$FOUNDATIONS_DATA); if( $FRAME eq "1" ){ &FRAME_IT; } if( $FRAME eq "2" ){ &FRAME_NO; } #------------------------------------------------------------------------------- # フレーム有り #------------------------------------------------------------------------------- sub FRAME_IT { print "Location: ./frame.cgi?class=all&word=\n\n"; exit; } #------------------------------------------------------------------------------- # フレーム無し #------------------------------------------------------------------------------- sub FRAME_NO { print "Location: ./main.cgi?class=all&word=\n\n"; exit; } #------------------------------------------------- # エラー表示 #------------------------------------------------- sub error { $error = $_[0]; if ($error eq "read_error") { $msg = "データベースファイルの読み込みに失敗しました。"; } if ($error eq "search") { $msg = "検索データがありません。"; } print "Content-type: text/html\n\n"; print <<"EOF"; エラー

エラーが発生しました！

$msg

ブラウザの「戻る」ボタンで戻って下さい。

EOF exit; }