charset/singlebyte/charset.cgi

#!/usr/bin/perl
use strict;

my $name = $ENV{PATH_INFO};
$name =~ s!^/!!;
$name =~ s/%([0-9A-Fa-f]{2})/pack 'C', hex $1/ge;
$name =~ s/[\x00-\x1F]/ /g;

my $name_c = $name;
$name_c =~ s/[\\";\x20\x7F-\xFF]//g;

print "Content-Type: text/html; charset=$name_c

";

my $v = 0;
if ($ENV{QUERY_STRING} =~ /^(\d+)/) {
  $v = 0+$1;
}

print pack 'C', $v;
1	wakaba	1.1	#!/usr/bin/perl
2			use strict;
3
4			my $name = $ENV{PATH_INFO};
5			$name =~ s!^/!!;
6			$name =~ s/%([0-9A-Fa-f]{2})/pack 'C', hex $1/ge;
7			$name =~ s/[\x00-\x1F]/ /g;
8
9			my $name_c = $name;
10			$name_c =~ s/[\\";\x20\x7F-\xFF]//g;
11
12			print "Content-Type: text/html; charset=$name_c
13
14			";
15
16			my $v = 0;
17			if ($ENV{QUERY_STRING} =~ /^(\d+)/) {
18			$v = 0+$1;
19			}
20
21			print pack 'C', $v;