/[suikacvs]/webroot/search/2004/www/ietf-html.cgi
Suika

Contents of /webroot/search/2004/www/ietf-html.cgi

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (show annotations) (download)
Sat Dec 11 11:06:02 2004 UTC (20 years, 6 months ago) by wakaba
Branch: MAIN
CVS Tags: HEAD
Error occurred while calculating annotation data.
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