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	#!/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