Parent Directory
| 
Revision Log
| 
Patch
| revision 1.61 by wakaba, Mon Nov 10 15:05:30 2008 UTC | revision 1.62 by wakaba, Wed Jun 16 23:25:26 2010 UTC | |
|---|---|---|
| # | Line 14 require Encode::EUCJPSW; | Line 14 require Encode::EUCJPSW; |
| 14 | my $cgi = Message::CGI::HTTP->new; | my $cgi = Message::CGI::HTTP->new; |
| 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 |
|
||||||||
| admin@suikawiki.org | ViewVC Help |
| Powered by ViewVC 1.1.24 |