--- okuchuu/blue-oceans/board-t/board.cgi	2002/02/10 00:48:06	1.2
+++ okuchuu/blue-oceans/board-t/board.cgi	2003/08/17 05:35:26	1.3
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 ## This file is euc-jisx0213 encoding.
 
-use Suika::CGI;
+#use Suika::CGI;
 $myvesion = '1.00 (2001-08-22)';
 
 $about_perl = <<"EOH";
@@ -40,6 +40,7 @@
 
 #文字コード
 $mojicode = "euc";
+require 'jcode.pl';
 
 #NN2 で charset=EUC-JP を送ると化けるらしい。
 if( $ENV{'HTTP_USER_AGENT'} =~ /compatible/ ){
@@ -228,7 +229,7 @@
 	local($s) = &html_header('記事一覧');
 
 	#ログ読み出し
-	open(LOG, $logfile) or &Suika::CGI::Error::die('open', file => $logfile);
+	open(LOG, $logfile) or die qq(open: $logfile: $!); #&Suika::CGI::Error::die('open', file => $logfile);
 	print $s;
 	my($count, $last_nj);
 	$count = <LOG>;chop($count);
@@ -847,8 +848,8 @@
 # [ フォームからデータ取得 ]
 
 sub read_form {
-  %OPT = %Suika::CGI::param;
-  return;
+#  %OPT = %Suika::CGI::param;
+#  return;
 	my($pair,$buffer);
 	if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
 	} else { $buffer = $ENV{'QUERY_STRING'}; }