Parent Directory | Revision Log
Typo fixed
1 | #!/usr/bin/perl |
2 | my $pt = $ENV{PATH_INFO}; |
3 | $pt =~ s#^/##; |
4 | $pt =~ s#/#//#g; |
5 | $pt =~ s/([^A-Za-z0-9._~-])/sprintf '%%%02X', ord $1/ge; |
6 | print "Location: http://suika.fam.cx/~wakaba/-temp/wiki/wiki?_charset_=utf-8;mypage=$pt\n\n"; |
admin@suikawiki.org | ViewVC Help |
Powered by ViewVC 1.1.24 |