/[suikacvs]/www/test/charset/singlebyte/charset.cgi
Suika

Contents of /www/test/charset/singlebyte/charset.cgi

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.2 - (show annotations) (download)
Sat Jun 7 06:27:08 2008 UTC (17 years, 1 month ago) by wakaba
Branch: MAIN
CVS Tags: HEAD
Changes since 1.1: +3 -1 lines
New

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;

admin@suikawiki.org
ViewVC Help
Powered by ViewVC 1.1.24