From 9914a3312fa02f83e00a4a8cf03e0cd69322a8de Mon Sep 17 00:00:00 2001
From: Tatsuya Kinoshita <tats@debian.org>
Date: Thu, 12 Nov 2020 21:01:16 +0900
Subject: Add charset=Shift_JIS to 2ch.cgi

---
 Bonus/2ch.cgi | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'Bonus')

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",
-- 
cgit v1.2.3