/[suikacvs]/okuchuu/blue-oceans/board-t/board.cgi
Suika

Diff of /okuchuu/blue-oceans/board-t/board.cgi

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by wakaba, Sun Feb 10 00:48:06 2002 UTC revision 1.3 by wakaba, Sun Aug 17 05:35:26 2003 UTC
# Line 1  Line 1 
1  #!/usr/bin/perl  #!/usr/bin/perl
2  ## This file is euc-jisx0213 encoding.  ## This file is euc-jisx0213 encoding.
3    
4  use Suika::CGI;  #use Suika::CGI;
5  $myvesion = '1.00 (2001-08-22)';  $myvesion = '1.00 (2001-08-22)';
6    
7  $about_perl = <<"EOH";  $about_perl = <<"EOH";
# Line 40  $retry = 3; Line 40  $retry = 3;
40    
41  #文字コード  #文字コード
42  $mojicode = "euc";  $mojicode = "euc";
43    require 'jcode.pl';
44    
45  #NN2 で charset=EUC-JP を送ると化けるらしい。  #NN2 で charset=EUC-JP を送ると化けるらしい。
46  if( $ENV{'HTTP_USER_AGENT'} =~ /compatible/ ){  if( $ENV{'HTTP_USER_AGENT'} =~ /compatible/ ){
# Line 228  sub ichiran { Line 229  sub ichiran {
229          local($s) = &html_header('記事一覧');          local($s) = &html_header('記事一覧');
230    
231          #ログ読み出し          #ログ読み出し
232          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);
233          print $s;          print $s;
234          my($count, $last_nj);          my($count, $last_nj);
235          $count = <LOG>;chop($count);          $count = <LOG>;chop($count);
# Line 847  sub search_tree { Line 848  sub search_tree {
848  # [ フォームからデータ取得 ]  # [ フォームからデータ取得 ]
849    
850  sub read_form {  sub read_form {
851    %OPT = %Suika::CGI::param;  #  %OPT = %Suika::CGI::param;
852    return;  #  return;
853          my($pair,$buffer);          my($pair,$buffer);
854          if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});          if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
855          } else { $buffer = $ENV{'QUERY_STRING'}; }          } else { $buffer = $ENV{'QUERY_STRING'}; }
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24