aboutsummaryrefslogtreecommitdiffstats
path: root/Bonus
diff options
context:
space:
mode:
Diffstat (limited to '')
-rwxr-xr-xBonus/2ch.cgi6
1 files changed, 3 insertions, 3 deletions
diff --git a/Bonus/2ch.cgi b/Bonus/2ch.cgi
index 998c202..c52ad8d 100755
--- a/Bonus/2ch.cgi
+++ b/Bonus/2ch.cgi
@@ -63,7 +63,7 @@ for (0 .. ($lines - 1) / 100) {
}
$head .= "<a href=\"$cgi/l50\">ŐV50</a>\n";
print <<EOF;
-Content-Type: text/html
+Content-Type: text/html; charset=Shift_JIS
EOF
$i = 1;
@@ -128,7 +128,7 @@ sub subback {
$cmd = "mkdir -p $dir; $WGET -O $tmp $dat >/dev/null 2>&1";
system $cmd;
print <<EOF;
-Content-Type: text/html
+Content-Type: text/html; charset=Shift_JIS
EOF
@ARGV = ($tmp);
@@ -153,7 +153,7 @@ sub post {
my $host = $1;
my $sock = IO::Socket::INET->new("$host:80") or die;
# retrieve posting cookie; this may not work
- print "Content-Type: text/html\n\n";
+ print "Content-Type: text/html; charset=Shift_JIS\n\n";
print $sock
"HEAD /test/bbs.cgi HTTP/1.1\n",
"Host: $host\n",