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