diff options
Diffstat (limited to 'Bonus')
| -rwxr-xr-x | Bonus/2ch.cgi | 6 | 
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", | 
