Fix HTTP Content-Type headers and meta tags to enforce UTF-8 encoding on all pages and error screens
This commit is contained in:
+1
-1
@@ -279,7 +279,7 @@ sub member {
|
|||||||
#-------------------------------------------------------------------------------
|
#-------------------------------------------------------------------------------
|
||||||
# HTMLのヘッダー
|
# HTMLのヘッダー
|
||||||
sub header {
|
sub header {
|
||||||
print "Content-type: text/html\n\n";
|
print "Content-type: text/html; charset=UTF-8\n\n";
|
||||||
print <<"EOM";
|
print <<"EOM";
|
||||||
<html>
|
<html>
|
||||||
<head>
|
<head>
|
||||||
|
|||||||
@@ -204,7 +204,7 @@ sub decode_hist {
|
|||||||
#-------------------------------------------------------------------------------
|
#-------------------------------------------------------------------------------
|
||||||
# HTMLのヘッダー
|
# HTMLのヘッダー
|
||||||
sub header {
|
sub header {
|
||||||
print "Content-type: text/html\n\n";
|
print "Content-type: text/html; charset=UTF-8\n\n";
|
||||||
print <<"EOM";
|
print <<"EOM";
|
||||||
<html>
|
<html>
|
||||||
<head>
|
<head>
|
||||||
|
|||||||
@@ -480,8 +480,8 @@ EOM
|
|||||||
|
|
||||||
# エラー表示
|
# エラー表示
|
||||||
sub error{
|
sub error{
|
||||||
print "Content-type: text/html\n\n";
|
print "Content-type: text/html; charset=UTF-8\n\n";
|
||||||
print "<html><head><title>CGI Error</title></head>\n";
|
print "<html><head><meta http-equiv=\"Content-Type\" content=\"text/html; charset=UTF-8\"><title>CGI Error</title></head>\n";
|
||||||
print "<body $body><h1>CGI Error</h1>\n";
|
print "<body $body><h1>CGI Error</h1>\n";
|
||||||
print "<p>This program encountered an internal error.</p>";
|
print "<p>This program encountered an internal error.</p>";
|
||||||
print "<p><b>Error:</b> $_[0]</p>\n";
|
print "<p><b>Error:</b> $_[0]</p>\n";
|
||||||
|
|||||||
+2
-2
@@ -28,7 +28,7 @@ exit;
|
|||||||
|
|
||||||
# キャラファイル追加処理
|
# キャラファイル追加処理
|
||||||
sub regist1{
|
sub regist1{
|
||||||
print "Content-type: text/html\n\n";
|
print "Content-type: text/html; charset=UTF-8\n\n";
|
||||||
|
|
||||||
if($mv_mode eq 'pc'){
|
if($mv_mode eq 'pc'){
|
||||||
print <<"EOM";
|
print <<"EOM";
|
||||||
@@ -179,7 +179,7 @@ sub regist2{
|
|||||||
&dat_write;
|
&dat_write;
|
||||||
chmod($chmod,"$usrdata$id\.cgi");
|
chmod($chmod,"$usrdata$id\.cgi");
|
||||||
|
|
||||||
print "Content-type: text/html\n\n";
|
print "Content-type: text/html; charset=UTF-8\n\n";
|
||||||
|
|
||||||
print <<"EOM";
|
print <<"EOM";
|
||||||
<html>
|
<html>
|
||||||
|
|||||||
@@ -278,7 +278,7 @@ sub member {
|
|||||||
#-------------------------------------------------------------------------------
|
#-------------------------------------------------------------------------------
|
||||||
# HTMLのヘッダー
|
# HTMLのヘッダー
|
||||||
sub header {
|
sub header {
|
||||||
print "Content-type: text/html\n\n";
|
print "Content-type: text/html; charset=UTF-8\n\n";
|
||||||
print <<"EOM";
|
print <<"EOM";
|
||||||
<html>
|
<html>
|
||||||
<head>
|
<head>
|
||||||
|
|||||||
+1
-1
@@ -200,7 +200,7 @@ sub regist {
|
|||||||
#-------------------------------------------------------------------------------
|
#-------------------------------------------------------------------------------
|
||||||
# HTMLのヘッダー
|
# HTMLのヘッダー
|
||||||
sub header {
|
sub header {
|
||||||
print "Content-type: text/html\n\n";
|
print "Content-type: text/html; charset=UTF-8\n\n";
|
||||||
print <<"EOM";
|
print <<"EOM";
|
||||||
<html>
|
<html>
|
||||||
<head>
|
<head>
|
||||||
|
|||||||
Reference in New Issue
Block a user