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;

my $type = $ENV{QUERY_STRING} =~ /;plain\b/ ? 'plain' : 'html';

print "Content-Type: text/$type;  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	wakaba	1.2	my $type = $ENV{QUERY_STRING} =~ /;plain\b/ ? 'plain' : 'html';
13
14			print "Content-Type: text/$type; charset=$name_c
15	wakaba	1.1
16			";
17
18			my $v = 0;
19			if ($ENV{QUERY_STRING} =~ /^(\d+)/) {
20			$v = 0+$1;
21			}
22
23			print pack 'C', $v;