/[pub]/suikawiki/script/wiki.cgi
Suika

Diff of /suikawiki/script/wiki.cgi

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

revision 1.60 by wakaba, Mon Nov 10 13:49:05 2008 UTC revision 1.62 by wakaba, Wed Jun 16 23:25:26 2010 UTC
# Line 12  my $sw4_url = q<http://suika.fam.cx/~wak Line 12  my $sw4_url = q<http://suika.fam.cx/~wak
12  require Message::CGI::HTTP;  require Message::CGI::HTTP;
13  require Encode::EUCJPSW;  require Encode::EUCJPSW;
14  my $cgi = Message::CGI::HTTP->new;  my $cgi = Message::CGI::HTTP->new;
 $cgi->{decoder}->{'#default'} = sub {  
   return Encode::decode ('euc-jp-sw', $_[1]);  
 };  
15    
16  my $page = $ENV{QUERY_STRING};  my $page = $ENV{QUERY_STRING};
17    $page =~ s/^ru=[^&;]+[&;]//;
18  if ($page =~ /[&;]/) {  if ($page =~ /[&;]/) {
19    $page = $cgi->get_parameter ('mypage') // '';    $page = $cgi->get_parameter ('mypage') // '';
20    
21      my $charset = $cgi->get_parameter ('_charset_') // 'euc-jp-sw';
22      $charset = 'euc-jp-sw' unless $charset eq 'utf-8';
23      $page = Encode::decode ($charset, $page);
24  } else {  } else {
25    $page = Encode::decode ('euc-jp-sw', percent_decode_byte ($page));    $page = Encode::decode ('euc-jp-sw', percent_decode_byte ($page));
26  }  }
Legend:
Removed from v.1.60  
changed lines
  Added in v.1.62
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24