Parent Directory
| 
Revision Log
| 
Patch
| revision 1.1 by wakaba, Fri Jun 6 14:04:45 2008 UTC | revision 1.2 by wakaba, Sat Jun 7 06:27:08 2008 UTC | |
|---|---|---|
| # | Line 9 $name =~ s/[\x00-\x1F]/ /g; | Line 9 $name =~ s/[\x00-\x1F]/ /g; |
| 9 | my $name_c = $name; | my $name_c = $name; |
| 10 | $name_c =~ s/[\\";\x20\x7F-\xFF]//g; | $name_c =~ s/[\\";\x20\x7F-\xFF]//g; |
| 11 | ||
| 12 | print "Content-Type: text/html; charset=$name_c | my $type = $ENV{QUERY_STRING} =~ /;plain\b/ ? 'plain' : 'html'; |
| 13 | ||
| 14 | print "Content-Type: text/$type; charset=$name_c | |
| 15 | ||
| 16 | "; | "; |
| 17 |
|
||||||||
| admin@suikawiki.org | ViewVC Help |
| Powered by ViewVC 1.1.24 |