--- okuchuu/blue-oceans/board-t/board.cgi 2001/12/03 06:23:35 1.1.1.1 +++ 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/ ){ @@ -115,11 +116,12 @@ $defhead = <<"EOH"; + $title - - + + @@ -183,23 +185,23 @@ Content-Style-Type: text/css Content-Script-Type: text/javascript - + - - + + $link_element $title ($sub_title) _EOF_ if($indent eq 'css'){ my($i, $tmp_margin); - $s .= ''; + $s .= ''; } $s .= <<"_EOF_"; @@ -224,10 +226,10 @@ sub ichiran { &set_cookie; - local($s) = &html_header('一覧表示'); + 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 = ;chop($count); @@ -242,7 +244,7 @@ } print $html_info; - print '

記事一覧

'; + print '
'; print "

([全]を選択すると関連記事も含めて一括表示できます。)

\n"; $tree = int($tree/$max_tree) * $max_tree; $end_tree = $tree + $max_tree; @@ -279,7 +281,7 @@ print "[全]"; } elsif ($indent eq 'space') { my($space_width) = $lx * 2 + 2; - print '　' x $space_width; + print ' ' x $space_width; } print ""; if ($no > $count - $new_kiji) { @@ -336,6 +338,7 @@ if (!$children) { $children = 'コメントは投稿されていません。

'; } else{$children = "以下のコメントが投稿されています。

\n
    $children
";} $s .= <<"_EOF_"; +

$parent $children

@@ -845,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'}; } @@ -1024,8 +1027,8 @@ $link_element - - + + (エラー報告) @@ -1048,8 +1051,8 @@ "http://www.w3.org/TR/html4/strict.dtd"> - - + + (エラー報告)