fix: 增加宣告檔案為UTF-8

katelynn620 · Feb 20, 2022 · 565d22c · 565d22c
1 parent 99e9ce7
commit 565d22c
Show file tree

Hide file tree

Showing 162 changed files with 165 additions and 3 deletions.
diff --git a/admin-sub.cgi b/admin-sub.cgi
@@ -1,3 +1,4 @@
+use utf8;
 # 個別ユーザー管理 2005/03/30 由來
 
 require $JCODE_FILE;

diff --git a/admin-sub2.cgi b/admin-sub2.cgi
@@ -1,3 +1,4 @@
+use utf8;
 # 全体管理 2004/01/20 由來
 
 CheckUserPass();

diff --git a/army-s.cgi b/army-s.cgi
@@ -1,3 +1,4 @@
+use utf8;
 # 兵士雇用反乱処理 2005/01/06 由來
 
 $NOMENU=1;

diff --git a/army.cgi b/army.cgi
@@ -1,3 +1,4 @@
+use utf8;
 # 兵士駐屯所 2005/01/06 由來
 
 $image[0]=GetTagImgKao("案内人","army");

diff --git a/balance.cgi b/balance.cgi
@@ -1,3 +1,4 @@
+use utf8;
 # 自店詳細 2004/01/20 由來
 
 DataRead();

diff --git a/bgm.cgi b/bgm.cgi
@@ -1,3 +1,4 @@
+use utf8;
 # BGM 2003/09/25 由來
 
 $NOMENU=1;

diff --git a/bride.cgi b/bride.cgi
@@ -1,3 +1,4 @@
+use utf8;
 # 結婚 2004/01/20 由來
 
 @BRIDEnamelist=qw(

diff --git a/buy-s.cgi b/buy-s.cgi
@@ -1,3 +1,4 @@
+use utf8;
 # 購入処理 2005/03/30 由來
 
 $NOMENU=1;

diff --git a/buy.cgi b/buy.cgi
@@ -1,3 +1,4 @@
+use utf8;
 # 仕入れ詳細 2005/01/06 由來
 
 $NOMENU=1;

diff --git a/convert.cgi b/convert.cgi
@@ -1,3 +1,4 @@
+use utf8;
 # 旧版SOLD OUTからのデータ変換 2004/01/20 由來
 
 GetQuery();

diff --git a/dwarf.cgi b/dwarf.cgi
@@ -1,3 +1,4 @@
+use utf8;
 # ドワーフ宅配便 2004/01/20 由來
 
 $image[0]=GetTagImgKao("住み込みドワーフ","dwarf");

diff --git a/gd-b.cgi b/gd-b.cgi
@@ -1,3 +1,4 @@
+use utf8;
 # ギルド設立処理 2004/01/20 由來
 
 CoLock();

diff --git a/gd-bbs.cgi b/gd-bbs.cgi
@@ -1,3 +1,4 @@
+use utf8;
 # ギルド掲示板 2004/02/28 由來
 
 $NOITEM=1;

diff --git a/gd-e.cgi b/gd-e.cgi
@@ -1,3 +1,4 @@
+use utf8;
 # ギルド人事 2004/01/20 由來
 
 Lock(), $Q{mode}=$Q{edit} if $Q{edit};

diff --git a/gd-f.cgi b/gd-f.cgi
@@ -1,3 +1,4 @@
+use utf8;
 # ギルド編集フォーム 2004/01/20 由來
 
 $NOITEM=1;

diff --git a/gd-i.cgi b/gd-i.cgi
@@ -1,3 +1,4 @@
+use utf8;
 # ギルド探偵室 2004/01/20 由來
 
 $NOITEM=1;

diff --git a/gd-m.cgi b/gd-m.cgi
@@ -1,3 +1,4 @@
+use utf8;
 # ギルド入団 2004/01/20 由來
 
 CoLock() if ($Q{edit});

diff --git a/gd-o.cgi b/gd-o.cgi
@@ -1,3 +1,4 @@
+use utf8;
 # ギルド詳細 2004/01/20 由來
 
 DataRead();

diff --git a/gd-s.cgi b/gd-s.cgi
@@ -1,3 +1,4 @@
+use utf8;
 # ギルドコマンド処理 2005/01/06 由來
 
 $NOMENU=1;

diff --git a/gd.cgi b/gd.cgi
@@ -1,3 +1,4 @@
+use utf8;
 # ギルド一覧 2005/01/06 由來
 
 DataRead();

diff --git a/hometown.cgi b/hometown.cgi
@@ -1,3 +1,4 @@
+use utf8;
 # 住宅街 2004/01/20 由來
 
 DataRead();

diff --git a/icon.cgi b/icon.cgi
@@ -1,3 +1,4 @@
+use utf8;
 # アイコンリスト 2004/01/20 由來
 
 $NOMENU=1;

diff --git a/inc-admin-func.cgi b/inc-admin-func.cgi
@@ -1,3 +1,4 @@
+use utf8;
 # 管理機能下請け 2003/09/25 由來
 
 my $functionname=$Q{mode};

diff --git a/inc-admin.cgi b/inc-admin.cgi
@@ -1,3 +1,4 @@
+use utf8;
 # 管理室画面下請け 2003/09/25 由來
 
 if(-e "$DATA_DIR/$LASTTIME_FILE$FILE_EXT")

diff --git a/inc-autoload.cgi b/inc-autoload.cgi
@@ -1,3 +1,4 @@
+use utf8;
 # プラグ認識 2003/07/19 由來
 
 # 排他制御せず。

diff --git a/inc-dec.cgi b/inc-dec.cgi
@@ -1,3 +1,4 @@
+use utf8;
 # 特殊デコード 2003/09/25 由來
 
 OutError("送信サイズが大きすぎます") if ($ENV{'CONTENT_LENGTH'} > 10240);

diff --git a/inc-dr-edit1.cgi b/inc-dr-edit1.cgi
@@ -1,3 +1,4 @@
+use utf8;
 # ドラゴンレース 調教 2005/03/30 由來
 
 my $stflag=0;

diff --git a/inc-dr-edit2.cgi b/inc-dr-edit2.cgi
@@ -1,3 +1,4 @@
+use utf8;
 # ドラゴンレース レース展開 2005/03/30 由來
 
 if ($NOW_TIME > $DRTIME[2]) { $rcode=1; } else { $rcode=0; }

diff --git a/inc-dragon-detail.cgi b/inc-dragon-detail.cgi
@@ -1,3 +1,4 @@
+use utf8;
 # ドラゴンレース ドラゴン詳細表示 2005/03/30 由來
 
 $disp.="<BIG>●ドラゴンレース：牧場</BIG><br><br>";

diff --git a/inc-dragon-info.cgi b/inc-dragon-info.cgi
@@ -1,3 +1,4 @@
+use utf8;
 # ドラゴンレース あきスポ表示 2005/03/30 由來
 
 $disp.="<BIG>●ドラゴンレース：あきスポ</BIG><br><br>";

diff --git a/inc-dragon-jock.cgi b/inc-dragon-jock.cgi
@@ -1,3 +1,4 @@
+use utf8;
 # ドラゴンレース 騎手メニュー表示 2005/03/30 由來
 
 ReadJock();

diff --git a/inc-dragon-pr.cgi b/inc-dragon-pr.cgi
@@ -1,3 +1,4 @@
+use utf8;
 # ドラゴンレース 隠居ドラゴン詳細表示 2005/03/30 由來
 
 $disp.="<BIG>●ドラゴンレース：牧場</BIG><br><br>";

diff --git a/inc-dragon-ranch.cgi b/inc-dragon-ranch.cgi
@@ -1,3 +1,4 @@
+use utf8;
 # ドラゴンレース 牧場メニュー表示 2005/03/30 由來
 
 ReadRanch();

diff --git a/inc-dragon-rd.cgi b/inc-dragon-rd.cgi
@@ -1,3 +1,4 @@
+use utf8;
 # ドラゴンレース レース表示 2005/03/30 由來
 
 my $rcode=$Q{code};

diff --git a/inc-dragon-stable.cgi b/inc-dragon-stable.cgi
@@ -1,3 +1,4 @@
+use utf8;
 # ドラゴンレース 厩舎メニュー表示 2005/03/30 由來
 
 ReadStable();

diff --git a/inc-dragon.cgi b/inc-dragon.cgi
@@ -1,3 +1,4 @@
+use utf8;
 # ドラゴンレース設定 2005/03/30 由來
 
 # -------- 設定部分 ---------

diff --git a/inc-dras-dredit.cgi b/inc-dras-dredit.cgi
@@ -1,3 +1,4 @@
+use utf8;
 # ドラゴンレース ドラゴンメンテ 2005/03/30 由來
 
 ReadDragon();

diff --git a/inc-dras-jkedit.cgi b/inc-dras-jkedit.cgi
@@ -1,3 +1,4 @@
+use utf8;
 # ドラゴンレース 騎手編集 2005/03/30 由來
 
 ReadJock();

diff --git a/inc-dras-predit.cgi b/inc-dras-predit.cgi
@@ -1,3 +1,4 @@
+use utf8;
 # ドラゴンレース ドラゴンメンテ 2005/03/30 由來
 
 ReadDragon();

diff --git a/inc-dras-rcedit.cgi b/inc-dras-rcedit.cgi
@@ -1,3 +1,4 @@
+use utf8;
 # ドラゴンレース 牧場編集表示 2005/03/30 由來
 
 ReadRanch();

diff --git a/inc-dras-stedit.cgi b/inc-dras-stedit.cgi
@@ -1,3 +1,4 @@
+use utf8;
 # ドラゴンレース 厩舎編集 2005/03/30 由來
 
 ReadStable();

diff --git a/inc-dwarf-edit.cgi b/inc-dwarf-edit.cgi
@@ -1,3 +1,4 @@
+use utf8;
 # 宅配便編集 2005/03/30 由來
 
 my $functionname=$Q{mode};

diff --git a/inc-dwarf-form.cgi b/inc-dwarf-form.cgi
@@ -1,3 +1,4 @@
+use utf8;
 # フォーム表示 2005/03/30 由來
 
 $disp.=GetMenuTag('dwarf','[宅配便リスト]')

diff --git a/inc-dwarf-trade.cgi b/inc-dwarf-trade.cgi
@@ -1,3 +1,4 @@
+use utf8;
 # 貿易品リスト表示 2005/01/06 由來
 
 OutError("bad request") unless -e "trade.cgi";

diff --git a/inc-dwarf.cgi b/inc-dwarf.cgi
@@ -1,3 +1,4 @@
+use utf8;
 # 宅配便リスト表示 2005/01/06 由來
 
 $disp.="<b>[宅配便リスト]</b> "

diff --git a/inc-error.cgi b/inc-error.cgi
@@ -1,3 +1,4 @@
+use utf8;
 # エラー分析と安全な終了 2005/03/30 由來
 
 my($msg)=@_;
@@ -71,7 +72,7 @@ sub PrintErr
 {
 print "Cache-Control: no-cache, no-store\n";
 print "Pragma: no-cache\n";
-print "Content-type: text/html; charset=Shift_JIS\n\n";
+print "Content-type: text/html; charset=utf-8\n\n";
 print <<"STR";
 <HTML><HEAD>
 <Style Type="text/css">

diff --git a/inc-event.cgi b/inc-event.cgi
@@ -1,3 +1,4 @@
+use utf8;
 # イベント関数 2005/01/06 由來
 
 package event; #変更不可

diff --git a/inc-func.cgi b/inc-func.cgi
@@ -1,3 +1,4 @@
+use utf8;
 # 基本関数定義 2005/03/30 由來
 
 BEGIN{$SIG{__WARN__}=$SIG{__DIE__}=sub{$incdir=$INCLUDE_DIR; $incdir||="../program"; require "$incdir/inc-error.cgi"; die($_[0]);};}
@@ -127,7 +128,7 @@ sub OutHeader
 {
 	print "Cache-Control: no-cache, no-store\n";
 	print "Pragma: no-cache\n";
-	print "Content-type: text/html; charset=Shift_JIS\n\n";
+	print "Content-type: text/html; charset=utf-8\n\n";
 }
 
 sub OutSkin

diff --git a/inc-gd-bbs.cgi b/inc-gd-bbs.cgi
@@ -1,3 +1,4 @@
+use utf8;
 # ギルド掲示板下請け 2003/09/25 由來
 
 sub WriteGBBS

diff --git a/inc-gd-entry.cgi b/inc-gd-entry.cgi
@@ -1,3 +1,4 @@
+use utf8;
 # ギルド入団処理 2003/11/03 由來
 
 my $functionname=$Q{edit};

diff --git a/inc-gd.cgi b/inc-gd.cgi
@@ -1,3 +1,4 @@
+use utf8;
 # ギルド下請け 2004/02/28 由來
 
 ReadGuild();

diff --git a/inc-guild-cmd.cgi b/inc-guild-cmd.cgi
@@ -1,3 +1,4 @@
+use utf8;
 # ギルドコマンド 2005/01/06 由來
 
 my $usetime=3*60*60;

diff --git a/inc-html-bride-edit.cgi b/inc-html-bride-edit.cgi
@@ -1,3 +1,4 @@
+use utf8;
 # 住宅データ編集 2003/10/08 由來
 
 if ($Q{mode} eq 'new')

diff --git a/inc-html-bride-list.cgi b/inc-html-bride-list.cgi
@@ -1,3 +1,4 @@
+use utf8;
 # 住宅操作 2005/01/06 由來
 
 $i=SearchBride($Q{no});

diff --git a/inc-html-bride.cgi b/inc-html-bride.cgi
@@ -1,3 +1,4 @@
+use utf8;
 # 住宅一覧表示 2005/03/30 由來
 
 if ($Q{form} eq "pro" && !$GUEST_USER)

diff --git a/inc-html-log.cgi b/inc-html-log.cgi
@@ -1,3 +1,4 @@
+use utf8;
 # 新聞下請け 2003/07/19 由來
 
 my $topic=$Q{key} ne "log";

diff --git a/inc-html-ownerinfo.cgi b/inc-html-ownerinfo.cgi
@@ -1,3 +1,4 @@
+use utf8;
 # 店情報表示 2005/01/06 由來
 
 if(!$GUEST_USER && !$MOBILE)

diff --git a/inc-html-ranking-2.cgi b/inc-html-ranking-2.cgi
@@ -1,3 +1,4 @@
+use utf8;
 # 爵位リスト下請け 2003/07/19 由來
 
 $disp.="<BIG>●新聞：爵位リスト</BIG><br><br>";

diff --git a/inc-html-ranking-3.cgi b/inc-html-ranking-3.cgi
@@ -1,3 +1,4 @@
+use utf8;
 # 入賞リスト表示 2005/01/06 由來
 
 $disp.="<BIG>●新聞：入賞リスト</BIG><br><br>";

diff --git a/inc-html-ranking.cgi b/inc-html-ranking.cgi
@@ -1,3 +1,4 @@
+use utf8;
 # 新聞（順位） 2005/01/06 由來
 
 my ($page,$pagestart,$pageend,$pagenext,$pageprev,$pagemax)

diff --git a/inc-html-top.cgi b/inc-html-top.cgi
@@ -1,3 +1,4 @@
+use utf8;
 # 上位表示 2005/01/06 由來
 
 my ($page,$pagestart,$pageend,$pagenext,$pageprev,$pagemax)

diff --git a/inc-info.cgi b/inc-info.cgi
@@ -1,3 +1,4 @@
+use utf8;
 # 店舗情報 2005/01/06 由來
 
 $disp.="<BIG>●店舗情報</BIG><br><br>";

diff --git a/inc-item-show.cgi b/inc-item-show.cgi
@@ -1,3 +1,4 @@
+use utf8;
 # アイテム陳列下請け 2004/01/20 由來
 
 $disp.=<<STR;

diff --git a/inc-item-throw.cgi b/inc-item-throw.cgi
@@ -1,3 +1,4 @@
+use utf8;
 # アイテム破棄下請け 2004/01/20 由來
 
 my $msg1="破棄";

diff --git a/inc-item.cgi b/inc-item.cgi
@@ -1,3 +1,4 @@
+use utf8;
 # アイテム関数 2005/01/06 由來
 
 package item; #変更不可

diff --git a/inc-letter-edit.cgi b/inc-letter-edit.cgi
@@ -1,3 +1,4 @@
+use utf8;
 # 手紙編集 2003/07/19 由來
 
 if ($Q{mode} eq 'new')

diff --git a/inc-letter-form.cgi b/inc-letter-form.cgi
@@ -1,3 +1,4 @@
+use utf8;
 # フォーム表示 2004/01/20 由來
 
 $disp.=GetMenuTag('letter','[受信箱]')

diff --git a/inc-letter.cgi b/inc-letter.cgi
@@ -1,3 +1,4 @@
+use utf8;
 # 受信リスト表示 2004/01/20 由來
 
 if ($Q{old})

diff --git a/inc-main.cgi b/inc-main.cgi
@@ -1,3 +1,4 @@
+use utf8;
 # 店内表示 2005/01/06 由來
 
 ReadLetter();

diff --git a/inc-makeitem.cgi b/inc-makeitem.cgi
@@ -1,3 +1,4 @@
+use utf8;
 # アイテムデータ生成 2005/03/30 由來
 # ** --- makeitem.cgi,v 1.39 2002/12/02 13:05:10 mu Exp $
 

diff --git a/inc-mt.cgi b/inc-mt.cgi
@@ -1,3 +1,4 @@
+use utf8;
 # メンテナンス表示 2005/03/30 由來
 
 my $msg="";
@@ -41,7 +42,7 @@ STR
 
 print "Cache-Control: no-cache, no-store\n";
 print "Pragma: no-cache\n";
-print "Content-type: text/html; charset=Shift_JIS\n\n";
+print "Content-type: text/html; charset=utf-8\n\n";
 print <<"STR";
 <HTML><HEAD>
 <Style Type="text/css">

diff --git a/inc-period.cgi b/inc-period.cgi
@@ -1,3 +1,4 @@
+use utf8;
 # 決算処理 2005/03/30 由來
 
 	foreach(keys(%GUILD))

diff --git a/inc-req.cgi b/inc-req.cgi
@@ -1,3 +1,4 @@
+use utf8;
 # 依頼下請け関数 2003/09/25 由來
 
 $MENUSAY=GetMenuTag('stock',	'[倉庫を確認する]')

diff --git a/inc-sc.cgi b/inc-sc.cgi
@@ -1,3 +1,4 @@
+use utf8;
 # 陳列棚下請け 2005/01/06 由來
 
 my $showcasecount=$DT->{showcasecount};