1 files changed, 44 insertions, 44 deletions

diff --git a/src/tool/cgi/addaccount.cgi b/src/tool/cgi/addaccount.cgi
index 7d1788c..009f30f 100644
--- a/src/tool/cgi/addaccount.cgi
+++ b/src/tool/cgi/addaccount.cgi
@@ -2,35 +2,35 @@
 
 #=========================================================================
 # addaccount.cgi  ver.1.00
-#	ladmin‚ðƒ‰ƒbƒv‚µ‚½�AƒAƒJƒEƒ“ƒg‚ð�ì�¬‚·‚éCGI�B
-#	ladmin ver.1.04‚Å‚Ì“®�ì‚ðŠm”F�B
+#	ladminをラップ���アカウントを作��るCGI。
+#	ladmin ver.1.04��動作を確�。
 #
-# ** �Ý’è•û–@ **
+# ** 設定方法 **
 #
-# - ‰º‚Ì$ladmin•Ï�”‚Éladmin‚ւ̃pƒX‚ð�Ý’è‚·‚邱‚Æ�B
-# - UNIXŒnOS‚ÅŽg—p‚·‚é�ê�‡‚Íladmin‚Æ‹¤‚ɉü�sƒR�[ƒh‚ð•ÏŠ·‚·‚邱‚Æ�A‚Ü‚½
-#   ƒtƒ@ƒCƒ‹�擪�s‚ðperl‚Ì�³‚µ‚¢ƒpƒX‚É‚·‚邱‚Æ�B—á> $ which perl
-# - ƒT�[ƒo�[ƒvƒ�ƒOƒ‰ƒ€‚âƒuƒ‰ƒEƒU‚É‚æ‚Á‚Ä‚Í $cgiuri ‚É‚±‚̃tƒ@ƒCƒ‹‚Ö‚Ì
-#   Š®‘S‚ÈURI‚ðƒZƒbƒg‚µ‚È‚¯‚ê‚΂Ȃç‚È‚¢�ê�‡‚à‚ ‚é�B
-# - perl‚ɃpƒX‚ª’Ê‚Á‚Ä‚¢‚È‚¢�ê�‡‚Í $perl ‚ðperl‚Ö‚Ì�³‚µ‚¢ƒpƒX‚É‚·‚邱‚Æ�B
-# - ‘¼‚Í•�’Ê‚ÌCGI‚Æ“¯‚¶‚Å‚·�B�iŽÀ�sŒ ‚âcgi-binƒtƒHƒ‹ƒ_‚È‚Ç�j
+# - 下�$ladmin変数�ladmin��パスを設定�る��。
+# - UNIX系OS�使用�る場��ladmin�共�改行コードを変��る�����
+#   ファイル先頭行をperl�正��パス��る��。例> $ which perl
+# - サー�ープログラムやブラウザ�よ��� $cgiuri ���ファイル��
+#   完全�URIをセット���れ��ら��場�も�る。
+# - perl�パス�通�����場�� $perl をperl��正��パス��る��。
+# - 他�普通�CGI�����。（実行権やcgi-binフォルダ��）
 #
-# ** ‚»‚Ì‘¼ **
-#   addaccount.cgi ‚ðƒuƒ‰ƒEƒU‚ÅŠJ‚­‚ƃTƒ“ƒvƒ‹HTML�i‚»‚Ì‚Ü‚ÜŽg‚¦‚Ü‚·�j‚ª
-#   ŠJ‚«‚Ü‚·�B‚Ü‚½�A‚±‚Ìcgi‚̓uƒ‰ƒEƒU‚©‚ç‘—‚ç‚ê‚éAccept-Language‚ª
-#   ja‚ÅŽn‚Ü‚Á‚Ä‚¢‚ê‚΃�ƒbƒZ�[ƒW‚̈ꕔ‚ð“ú–{Œê‚É•ÏŠ·‚µ‚Ü‚·�B
-#   (IE‚È‚çƒCƒ“ƒ^�[ƒlƒbƒgƒIƒvƒVƒ‡ƒ“‚ÌŒ¾Œê�Ý’è‚ňê”Ô�ã‚É“ú–{Œê‚ð’u‚­)
-#	‚»‚êˆÈŠO‚Ì�ê�‡‚͉pŒê‚Ì‚Ü‚Ü�o—Í‚µ‚Ü‚·�B
+# ** ��他 **
+#   addaccount.cgi をブラウザ�開��サンプルHTML（����使���）�
+#   開���。�����cgi�ブラウザ�ら�られるAccept-Language�
+#   ja�始����れ�メッセージ�一部を日本語�変����。
+#   (IE�らインター�ットオプション�言語設定�一番上�日本語を置�)
+#	�れ以外�場��英語���出力���。
 #-------------------------------------------------------------------------
 
-my($ladmin)	= "../ladmin";			# ladmin‚̃pƒX(‚¨‚»‚ç‚­•Ï�X‚ª•K—v)
+my($ladmin)	= "../ladmin";			# ladmin�パス(��ら�変更�必�)
 
-my($cgiuri)	= "./addaccount.cgi";	# ‚±‚̃tƒ@ƒCƒ‹‚ÌURI
-my($perl)	= "perl";				# perl‚̃Rƒ}ƒ“ƒh–¼
+my($cgiuri)	= "./addaccount.cgi";	# ��ファイル�URI
+my($perl)	= "perl";				# perl�コマンド�
 
 
 
-#--------------------------- �ݒ肱‚±‚Ü‚Å --------------------------------
+#--------------------------- 設定���� --------------------------------
 
 
 
@@ -46,47 +46,47 @@ my(%langconv)=(
 	'logged on.*' => '',
 );
 
-# ----- “ú–{ŒêŠÂ‹«‚È‚ç•ÏŠ·ƒe�[ƒuƒ‹‚ðƒZƒbƒg -----
+# ----- 日本語環境�ら変�テーブルをセット -----
 if($ENV{'HTTP_ACCEPT_LANGUAGE'}=~/^ja/){
 	my(%tmp)=(
 		'Account \[(.+)\] is successfully created.*'
-			=> 'ƒAƒJƒEƒ“ƒg "$1" ‚ð�ì�¬‚µ‚Ü‚µ‚½.',
+			=> 'アカウント "$1" を作�����.',
 		'Account \[(.+)\] creation failed\. same account exists.*'
-			=> 'ƒAƒJƒEƒ“ƒg "$1" ‚ÍŠù‚É‘¶�Ý‚µ‚Ü‚·.',
+			=> 'アカウント "$1" �既�存在���.',
 		'Illeagal charactor found in UserID.*'
-			=> 'ID‚Ì’†‚É•s�³‚È•¶Žš‚ª‚ ‚è‚Ü‚·.',
+			=> 'ID�中��正�文字��り��.',
 		'Illeagal charactor found in Password.*'
-			=> 'Password‚Ì’†‚É•s�³‚È•¶Žš‚ª‚ ‚è‚Ü‚·.',
+			=> 'Password�中��正�文字��り��.',
 		'input UserID 4-24 bytes.'
-			=> 'ID‚Í”¼Šp4�`24•¶Žš‚Å“ü—Í‚µ‚Ä‚­‚¾‚³‚¢.',
+			=> 'ID��角4〜24文字�入力������.',
 		'input Password 4-24 bytes.'
-			=> 'Password‚Í”¼Šp4�`24•¶Žš‚Å“ü—Í‚µ‚Ä‚­‚¾‚³‚¢.',
+			=> 'Password��角4〜24文字�入力������.',
 		'Illeagal gender.*'
-			=> '�«•Ê‚ª‚¨‚©‚µ‚¢‚Å‚·.',
+			=> '性別�������.',
 		'Cant connect to login server.*'
-			=> 'ƒ�ƒOƒCƒ“ƒT�[ƒo�[‚É�Ú‘±‚Å‚«‚Ü‚¹‚ñ.',
+			=> 'ログインサー�ー�接続����ん.',
 		'login error.*'
-			=> 'ƒ�ƒOƒCƒ“ƒT�[ƒo�[‚Ö‚ÌŠÇ—�ŽÒŒ ŒÀƒ�ƒOƒCƒ“‚ÉŽ¸”s‚µ‚Ü‚µ‚½',
+			=> 'ログインサー�ー��管�者権�ログイン�失敗����',
 		"Can't execute ladmin.*"
-			=> 'ladmin‚ÌŽÀ�s‚ÉŽ¸”s‚µ‚Ü‚µ‚½',
+			=> 'ladmin�実行�失敗����',
 		'UserID "(.+)" is already used.*'
-			=> 'ID "$1" ‚ÍŠù‚ÉŽg—p‚³‚ê‚Ä‚¢‚Ü‚·.',
+			=> 'ID "$1" �既�使用�れ����.',
 		'You can use UserID \"(.+)\".*'
-			=> 'ID "$1" ‚ÍŽg—p‰Â”\‚Å‚·.',
+			=> 'ID "$1" �使用�能��.',
 		
-		'account making'	=>'ƒAƒJƒEƒ“ƒg�ì�¬',
-		'\>UserID'			=>'>‚h‚c',
-		'\>Password'		=>'>ƒpƒXƒ��[ƒh',
-		'\>Gender'			=>'>�«•Ê',
-		'\>Male'			=>'>’j�«',
-		'\>Female'			=>'>�—�«',
-		'\"Make Account\"'	=>'"ƒAƒJƒEƒ“ƒg�ì�¬"',
-		'\"Check UserID\"'	=>'"ID‚̃`ƒFƒbƒN"',
+		'account making'	=>'アカウント作�',
+		'\>UserID'			=>'>ＩＤ',
+		'\>Password'		=>'>パスワード',
+		'\>Gender'			=>'>性別',
+		'\>Male'			=>'>男性',
+		'\>Female'			=>'>女性',
+		'\"Make Account\"'	=>'"アカウント作�"',
+		'\"Check UserID\"'	=>'"ID��ェック"',
 	);
 	map { $langconv{$_}=$tmp{$_}; } keys (%tmp);
 }
 
-# ----- ’ljÁ -----
+# ----- 追加 -----
 if( $cgi->param("addaccount") ){
 	my($userid)= $cgi->param("userid");
 	my($passwd)= $cgi->param("passwd");
@@ -112,7 +112,7 @@ if( $cgi->param("addaccount") ){
 	close PIPE;
 	HttpMsg(@msg);
 }
-# ----- ‘¶�݃`ƒFƒbƒN -----
+# ----- 存在�ェック -----
 elsif( $cgi->param("check") ){
 	my($userid)= $cgi->param("userid");
 	if(length($userid)<4 || length($userid)>24){
@@ -133,7 +133,7 @@ elsif( $cgi->param("check") ){
 	HttpError("ladmin error ?\n---output---\n",@msg);
 }
 
-# ----- ƒtƒH�[ƒ€ -----
+# ----- フォーム -----
 else{
 	print LangConv( <<"EOM" );
 Content-type: text/html\n