2004/www/ietf-html.cgi

#!/usr/bin/perl
use strict;

my $uri = $ENV{PATH_INFO};
$uri =~ s!^/!!;
$uri =~ s/%([0-9A-F][0-9A-F])/pack 'C', hex $1/ge;
$uri =~ s/[^\x21-\x7E]//g;
print <<EOH;
Status: 301 See Other
Location: http://listserv.heanet.ie/cgi-bin/wa?$uri

EOH

1	wakaba	1.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