2004/www/http.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://$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://$uri
11
12			EOH
13