Parent Directory
|
Revision Log
New to CVS
1 | #!/usr/bin/perl |
2 | use strict; |
3 | |
4 | my $uri = $ENV{PATH_INFO}; |
5 | $uri =~ s!^/!!; |
6 | $uri =~ s/%([0-9A-F][0-9A-F])/pack 'C', hex $1/ge; |
7 | $uri =~ s/[^\x21-\x7E]//g; |
8 | print <<EOH; |
9 | Status: 301 See Other |
10 | Location: http://listserv.heanet.ie/cgi-bin/wa?$uri |
11 | |
12 | EOH |
13 |
admin@suikawiki.org | ViewVC Help |
Powered by ViewVC 1.1.24 |