Translate application to Korean and convert encodings to UTF-8
This commit is contained in:
sanjeok77
Regular → Executable
+253
-253
@@ -1,253 +1,253 @@
|
||||
#!/usr/local/bin/perl
|
||||
# サーバーの環境に合わせて変更して下さい。
|
||||
require './ore_config.cgi'; # ore_config.cgiのパス
|
||||
#-----------------------------------------------------------#
|
||||
# 罪と罰++ 二律背反 #
|
||||
# Copyright(C) 2001-2002 by Vivid Studio. BLANK BOARD #
|
||||
# Vivid Studio.[ http://www17.big.or.jp/~obochan/vivid/ ] #
|
||||
# BLANK BOARD [ http://pom.to/ ] #
|
||||
#-----------------------------------------------------------#
|
||||
$ver = '新規登録 v1.1'; # バージョン情報(変更不可)
|
||||
#--- [注意事項] --------------------------------------------#
|
||||
# 1.このスクリプトは以下の利用規程に従って配布しています。 #
|
||||
# http://www24.big.or.jp/~obo/game/ore_/gild/ #
|
||||
#-----------------------------------------------------------#
|
||||
# 以下処理 基本的にこれ以下はいじらないように。
|
||||
&error("現在メンテナンス中。しばらくお待ち下さい(約 $ertm 分間)<br>内訳：$erni") if $er;
|
||||
&error("現在登録不可") if $kisei;
|
||||
|
||||
&get_time; # 日時取得
|
||||
&safetime; # プレイ規制
|
||||
&decode; # フォームデコード
|
||||
&axs_check; # アクセスチェック
|
||||
($mode eq 'regist2') ? ®ist2 : ®ist1 ;
|
||||
exit;
|
||||
|
||||
#-------------------------------------------------------------------------------
|
||||
# 以下サブルーチン
|
||||
|
||||
# キャラファイル追加処理
|
||||
sub regist1{
|
||||
print "Content-type: text/html\n\n";
|
||||
|
||||
if($mv_mode eq 'pc'){
|
||||
print <<"EOM";
|
||||
<html>
|
||||
<head>
|
||||
<META HTTP-EQUIV="Content-type" CONTENT="text/html; charset=Shift_JIS">
|
||||
<title>罪と罰++ 新規登録</title>
|
||||
<style type="text/css">
|
||||
<!--
|
||||
.button1{
|
||||
font-family: "ＭＳ Ｐゴシック", "Osaka"; font-size: 12px; font-weight: 400; color: #bbbbcc;
|
||||
border: 2px #666699 ridge; cursor: hand; background-color: #222244;
|
||||
width:100px;
|
||||
}
|
||||
body,td { font-size: 10px; color: #aaaab9; cursor: crosshair}
|
||||
-->
|
||||
</style>
|
||||
</head>
|
||||
<body $body>
|
||||
<center>
|
||||
|
||||
<table border="0" cellspacing="0" cellpadding="0" align="center" width="100%" height="100%">
|
||||
<tr>
|
||||
<td align="center" valign="middle">
|
||||
|
||||
<table border="0" cellspacing="0" cellpadding="0" align="center" width="480" height="360">
|
||||
<tr>
|
||||
<form action="$ore_reg" method="$method" name="ore_reg">
|
||||
<input type="hidden" name="mode" value="regist2">
|
||||
<td align="center" valign="middle">
|
||||
<tt style="font-size:10pt;color:#aaaaaa">
|
||||
<b style="color:#ffeeee;font-size:11pt">$title<br><br>新 規 登 録</b><br><br>
|
||||
ユーザーID : <input type="text" size="8" name="id" maxlength="12" style="width:100px" class="button1"><br>
|
||||
プレイヤ名 : <input type="text" size="16" name="nm" style="width:100px" class="button1"><br>
|
||||
パスワード : <input type="password" size="8" maxlength="8" name="pw" style="width:100px" class="button1"><br>
|
||||
性別 : 男<input type="radio" name="sei" value="1"> 女<input type="radio" name="sei" value="2"><br>
|
||||
<br>
|
||||
<input type="submit" value="登録" style="width:120px" class="button1">
|
||||
<input type="reset" value="リセット" style="width:60px" class="button1">
|
||||
<br><br>
|
||||
</tt>
|
||||
|
||||
<table border="0" cellspacing="4" cellpadding="4" align="center" bgcolor="#222222">
|
||||
<tr>
|
||||
<td align="left" valign="middle">
|
||||
<tt style="font-size:10pt;color:#aaaabb">
|
||||
<li>ユーザーIDは <span style="color:#eebbdd">半角英数字4～12文字</span> です。
|
||||
<li>プレイヤ名は <span style="color:#eebbdd">全角8(半角16)文字以内</span> です。
|
||||
<li>パスワードは <span style="color:#eebbdd">半角英数字4～8文字</span> です。
|
||||
<hr color=#444466 size=4 hoshade>
|
||||
<li>重複登録は禁止です。発見次第削除します。
|
||||
<li><span style="color:#eebbdd">$del_limit</span> 日間放置するとキャラが抹消されます。
|
||||
<li>最大<span style="color:#eebbdd">$sanka</span>人まで登録\可\能\です。
|
||||
</tt>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
|
||||
</td>
|
||||
</form>
|
||||
</tr>
|
||||
</table>
|
||||
|
||||
<form>
|
||||
<input type="button" value="タイトルへ戻る" style="width:120px" class="button1" onClick="top.location.href='$index'">
|
||||
</form>
|
||||
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
|
||||
EOM
|
||||
}
|
||||
else{
|
||||
print <<"EOM";
|
||||
<html>
|
||||
<head>
|
||||
<meta http-equiv="Content-Type" content="text/html; charset=x-sjis">
|
||||
<title>新規登録</title>
|
||||
</head>
|
||||
<body $body>
|
||||
<center>
|
||||
新規登録
|
||||
<form action="$ore_reg" method="$method" name="ore_reg">
|
||||
<input type="hidden" name="mode" value="regist2">
|
||||
ﾌﾟﾚｲﾔｰ名:<input type="text" size="6" name="nm">(全角4～8文字)<br>
|
||||
ID:<input type="text" size="6" name="id">(半角英数4～12文字)<br>
|
||||
ﾊﾟｽﾜｰﾄﾞ:<input type="text" size="6" maxlength="8" name="pw">(半角英数4～8文字)<br>
|
||||
性別:男<input type="radio" name="sei" value="1"> 女<input type="radio" name="sei" value="2"><br>
|
||||
<input type="submit" value="OK">
|
||||
</form>
|
||||
<a href="$index">INDEXへ</a>
|
||||
</body>
|
||||
</html>
|
||||
EOM
|
||||
|
||||
}
|
||||
©right;
|
||||
exit;
|
||||
}
|
||||
|
||||
# キャラファイル追加処理
|
||||
sub regist2{
|
||||
|
||||
&form_check; # フォーム情報チェック
|
||||
|
||||
&usrdata_read;
|
||||
&usrdata_open;
|
||||
&cdata_open;
|
||||
require './inc/ore_sub-members-p1.cgi';&member_list;
|
||||
|
||||
foreach (0 .. $#tdat){
|
||||
%DAT = '';
|
||||
my @pairs = split(/,/,$tdat[$_]);
|
||||
foreach (0 .. $#pairs){
|
||||
my($key,$v) = split(/;/,$pairs[$_]);
|
||||
$DAT{$key} = $v;
|
||||
}
|
||||
if($in{'nm'} eq $DAT{'nm'}){&error("同じﾌﾟﾚｲﾔｰ名が既に使われています");}
|
||||
if($id eq $DAT{'id'}){&error("同じﾕｰｻﾞｰIDが既に使われています");}
|
||||
|
||||
# 期限切れ及び レベル2以内で3日間無アクセス(見物人排除) のファイル削除
|
||||
if(($del_limit*3600*24<$time-$DAT{'la'}) || (3*3600*24<$time-$DAT{'la'} && $DAT{'lv'}<=2)){
|
||||
unlink("$usrdata$DAT{'id'}\.cgi");
|
||||
}
|
||||
}
|
||||
|
||||
# 参加人数は最大でも400人ほど。リロード量がこわいので。
|
||||
&error("現在定員の為、新規受付できません") if $#tdat+1>=$sanka;
|
||||
|
||||
local($hp,$max_hp,$mp,$max_mp,$ua,$ud,$lr,$ag);
|
||||
|
||||
$hp = $max_hp = int(rand(5)+10);
|
||||
$mp = $max_mp = int(rand(5)+10);
|
||||
|
||||
$ua = int(rand(3)+1);
|
||||
$ud = int(rand(3)+1);
|
||||
$lr = int(rand(3)+1);
|
||||
$ag = int(rand(3)+1);
|
||||
|
||||
$gold = int(rand(500)+500);
|
||||
|
||||
$nm = $in{'nm'};
|
||||
$sei= $in{'sei'};
|
||||
|
||||
$camp=0;
|
||||
|
||||
&dat_write;
|
||||
chmod($chmod,"$usrdata$id\.cgi");
|
||||
|
||||
print "Content-type: text/html\n\n";
|
||||
|
||||
print <<"EOM";
|
||||
<html>
|
||||
<head>
|
||||
<META HTTP-EQUIV="Content-type" CONTENT="text/html; charset=Shift_JIS">
|
||||
<title>罪と罰++ 新規登録</title>
|
||||
</head>
|
||||
<body $body>
|
||||
<center>
|
||||
<table border=0>
|
||||
<tr>
|
||||
<td align=left>
|
||||
<tt style="font-size:12pt">新規登録完了<br>
|
||||
<br><br>
|
||||
NAME $in{'nm'}<br>
|
||||
I D $id<br>
|
||||
PASS $pw<br>
|
||||
<br>
|
||||
HP $hp<br>
|
||||
MP $mp<br>
|
||||
UA $ua<br>
|
||||
UD $ud<br>
|
||||
LR $lr<br>
|
||||
<br>
|
||||
<form action=$script method=$method>
|
||||
<input type=hidden name=id value=$id>
|
||||
<input type=hidden name=pw value=$pw>
|
||||
<input type=submit value=ゲーム開始>
|
||||
</form>
|
||||
<br>
|
||||
<a href="$index">タイトルに戻る</a>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
</center>
|
||||
EOM
|
||||
©right;
|
||||
exit;
|
||||
}
|
||||
|
||||
# フォームデータチェック
|
||||
sub form_check{
|
||||
if(!$in{'nm'}){ &error("名前が入力されていません｡",1); }
|
||||
if(!$pw){ &error("ﾊﾟｽﾜｰﾄﾞが入力されていません｡",1); }
|
||||
if(!$id){ &error("ﾕｰｻﾞｰIDが入力されていません｡",1); }
|
||||
if(!$in{'sei'}){ &error("性別が入力されていません｡",1); }
|
||||
|
||||
if($in{'sei'}=~ m/[^12]/){ &error("性別が異常です。",1); }
|
||||
|
||||
if($in{'nm'} =~ /</){ &error("名前に不正な文字( < )が含まれています｡",1); }
|
||||
if($in{'nm'} =~ />/){ &error("名前に不正な文字( > )が含まれています｡",1); }
|
||||
if($in{'nm'} =~ /:/){ &error("名前に不正な文字( : )が含まれています｡",1); }
|
||||
if($in{'nm'} =~ /;/){ &error("名前に不正な文字( ; )が含まれています｡",1); }
|
||||
if($in{'nm'} =~ /,/){ &error("名前に不正な文字( , )が含まれています｡",1); }
|
||||
if($in{'nm'} =~ /"/){ &error("名前に不正な文字( \" )が含まれています｡",1); }
|
||||
if($in{'nm'} =~ /'/){ &error("名前に不正な文字( ' )が含まれています｡",1); }
|
||||
if($in{'nm'} =~ /\//){ &error("名前に不正な文字( / )が含まれています｡",1); }
|
||||
if($in{'nm'} =~ /\\/){ &error("名前に不正な文字( \ )が含まれています｡",1); }
|
||||
if($in{'nm'} =~ /\s/){ &error("名前に不正な文字( ` )が含まれています｡",1); }
|
||||
if($in{'nm'} =~ /`/){ &error("名前に不正な文字(全角ｽﾍﾟｰｽ)が含まれています｡",1); }
|
||||
if($in{'nm'} =~ / /){ &error("名前に不正な文字(全角ｽﾍﾟｰｽ)が含まれています｡",1); }
|
||||
|
||||
if($id =~ m/[^0-9a-zA-Z]/){ &error("ﾕｰｻﾞｰIDは半角英数字で入力して下さい。",1); }
|
||||
if($pw =~ m/[^0-9a-zA-Z]/){ &error("ﾊﾟｽﾜｰﾄﾞは半角英数字で入力して下さい。",1); }
|
||||
|
||||
if(length($pw)<4 || length($pw)>8){ &error("ﾊﾟｽﾜｰﾄﾞは半角英数字4～8文字です｡",1); }
|
||||
if(length($in{'nm'})>16){ &error("名前は半角英数字16文字以内です｡",1); }
|
||||
if(length($id)<4 || length($id)>12){ &error("ﾕｰｻﾞｰIDは半角英数字4～12文字以内です｡",1); }
|
||||
if($id eq $pw){ &error("ﾕｰｻﾞｰIDとﾊﾟｽﾜｰﾄﾞが同一文字列です。",1);}
|
||||
|
||||
}
|
||||
#!/usr/bin/perl
|
||||
# サーバーの環境に合わせて変更して下さい。
|
||||
require './ore_config.cgi'; # ore_config.cgi의 패스
|
||||
#-----------------------------------------------------------#
|
||||
# 罪と罰++ 二律背反 #
|
||||
# Copyright(C) 2001-2002 by Vivid Studio. BLANK BOARD #
|
||||
# Vivid Studio.[ http://www17.big.or.jp/~obochan/vivid/ ] #
|
||||
# BLANK BOARD [ http://pom.to/ ] #
|
||||
#-----------------------------------------------------------#
|
||||
$ver = '신규등록 v1.1'; # 버전 정보(변경 불가)
|
||||
#--- [注意事項] --------------------------------------------#
|
||||
# 1.このスクリプトは以下の利用規程に従って配布しています。 #
|
||||
# http://www24.big.or.jp/~obo/game/ore_/gild/ #
|
||||
#-----------------------------------------------------------#
|
||||
# 以下処理 基本的にこれ以下はいじらないように。
|
||||
&error("현재 점검 중입니다. 잠시만 기다려 주십시오(약 $ertm 분간)<br>상세 내역: $erni") if $er;
|
||||
&error("현재 가입이 불가능합니다") if $kisei;
|
||||
|
||||
&get_time; # 日時取得
|
||||
&safetime; # プレイ規制
|
||||
&decode; # フォームデコード
|
||||
&axs_check; # アクセスチェック
|
||||
($mode eq 'regist2') ? ®ist2 : ®ist1 ;
|
||||
exit;
|
||||
|
||||
#-------------------------------------------------------------------------------
|
||||
# 以下サブルーチン
|
||||
|
||||
# キャラファイル追加処理
|
||||
sub regist1{
|
||||
print "Content-type: text/html\n\n";
|
||||
|
||||
if($mv_mode eq 'pc'){
|
||||
print <<"EOM";
|
||||
<html>
|
||||
<head>
|
||||
<META HTTP-EQUIV="Content-type" CONTENT="text/html; charset=UTF-8">
|
||||
<title>죄와 벌++ 신규 등록</title>
|
||||
<style type="text/css">
|
||||
<!--
|
||||
.button1{
|
||||
font-family: "ＭＳ Ｐゴシック", "Osaka"; font-size: 12px; font-weight: 400; color: #bbbbcc;
|
||||
border: 2px #666699 ridge; cursor: hand; background-color: #222244;
|
||||
width:100px;
|
||||
}
|
||||
body,td { font-size: 10px; color: #aaaab9; cursor: crosshair}
|
||||
-->
|
||||
</style>
|
||||
</head>
|
||||
<body $body>
|
||||
<center>
|
||||
|
||||
<table border="0" cellspacing="0" cellpadding="0" align="center" width="100%" height="100%">
|
||||
<tr>
|
||||
<td align="center" valign="middle">
|
||||
|
||||
<table border="0" cellspacing="0" cellpadding="0" align="center" width="480" height="360">
|
||||
<tr>
|
||||
<form action="$ore_reg" method="$method" name="ore_reg">
|
||||
<input type="hidden" name="mode" value="regist2">
|
||||
<td align="center" valign="middle">
|
||||
<tt style="font-size:10pt;color:#aaaaaa">
|
||||
<b style="color:#ffeeee;font-size:11pt">$title<br><br>신 규 등 록</b><br><br>
|
||||
유저 ID : <input type="text" size="8" name="id" maxlength="12" style="width:100px" class="button1"><br>
|
||||
플레이어명 : <input type="text" size="16" name="nm" style="width:100px" class="button1"><br>
|
||||
비밀번호 : <input type="password" size="8" maxlength="8" name="pw" style="width:100px" class="button1"><br>
|
||||
성별 : 남<input type="radio" name="sei" value="1"> 여<input type="radio" name="sei" value="2"><br>
|
||||
<br>
|
||||
<input type="submit" value="등록" style="width:120px" class="button1">
|
||||
<input type="reset" value="초기화" style="width:60px" class="button1">
|
||||
<br><br>
|
||||
</tt>
|
||||
|
||||
<table border="0" cellspacing="4" cellpadding="4" align="center" bgcolor="#222222">
|
||||
<tr>
|
||||
<td align="left" valign="middle">
|
||||
<tt style="font-size:10pt;color:#aaaabb">
|
||||
<li>유저 ID는 <span style="color:#eebbdd">반각 영문/숫자 4~12글자</span>입니다.
|
||||
<li>플레이어명은 <span style="color:#eebbdd">전각 8자(반각 16자) 이내</span>입니다.
|
||||
<li>비밀번호는 <span style="color:#eebbdd">반각 영문/숫자 4~8글자</span>입니다.
|
||||
<hr color=#444466 size=4 hoshade>
|
||||
<li>중복 등록은 금지되어 있습니다. 발견 시 삭제됩니다.
|
||||
<li><span style="color:#eebbdd">$del_limit</span>일 동안 방치하면 캐릭터가 삭제됩니다.
|
||||
<li>최대 <span style="color:#eebbdd">$sanka</span>명까지 등록 가능합니다.
|
||||
</tt>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
|
||||
</td>
|
||||
</form>
|
||||
</tr>
|
||||
</table>
|
||||
|
||||
<form>
|
||||
<input type="button" value="타이틀로 돌아가기" style="width:120px" class="button1" onClick="top.location.href='$index'">
|
||||
</form>
|
||||
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
|
||||
EOM
|
||||
}
|
||||
else{
|
||||
print <<"EOM";
|
||||
<html>
|
||||
<head>
|
||||
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
|
||||
<title>신규 등록</title>
|
||||
</head>
|
||||
<body $body>
|
||||
<center>
|
||||
신규 등록
|
||||
<form action="$ore_reg" method="$method" name="ore_reg">
|
||||
<input type="hidden" name="mode" value="regist2">
|
||||
플레이어명:<input type="text" size="6" name="nm">(전각 4~8자)<br>
|
||||
ID:<input type="text" size="6" name="id">(반각 영문/숫자 4~12자)<br>
|
||||
비밀번호:<input type="text" size="6" maxlength="8" name="pw">(반각 영문/숫자 4~8자)<br>
|
||||
성별:남<input type="radio" name="sei" value="1"> 여<input type="radio" name="sei" value="2"><br>
|
||||
<input type="submit" value="OK">
|
||||
</form>
|
||||
<a href="$index">메인으로</a>
|
||||
</body>
|
||||
</html>
|
||||
EOM
|
||||
|
||||
}
|
||||
©right;
|
||||
exit;
|
||||
}
|
||||
|
||||
# キャラファイル追加処理
|
||||
sub regist2{
|
||||
|
||||
&form_check; # フォーム情報チェック
|
||||
|
||||
&usrdata_read;
|
||||
&usrdata_open;
|
||||
&cdata_open;
|
||||
require './inc/ore_sub-members-p1.cgi';&member_list;
|
||||
|
||||
foreach (0 .. $#tdat){
|
||||
%DAT = '';
|
||||
my @pairs = split(/,/,$tdat[$_]);
|
||||
foreach (0 .. $#pairs){
|
||||
my($key,$v) = split(/;/,$pairs[$_]);
|
||||
$DAT{$key} = $v;
|
||||
}
|
||||
if($in{'nm'} eq $DAT{'nm'}){&error("동일한 플레이어명이 이미 존재합니다.");}
|
||||
if($id eq $DAT{'id'}){&error("동일한 유저 ID가 이미 존재합니다.");}
|
||||
|
||||
# 期限切れ及び レベル2以内で3日間無アクセス(見物人排除) のファイル削除
|
||||
if(($del_limit*3600*24<$time-$DAT{'la'}) || (3*3600*24<$time-$DAT{'la'} && $DAT{'lv'}<=2)){
|
||||
unlink("$usrdata$DAT{'id'}\.cgi");
|
||||
}
|
||||
}
|
||||
|
||||
# 参加人数は最大でも400人ほど。リロード量がこわいので。
|
||||
&error("현재 정원이 초과되어 신규 가입을 할 수 없습니다.") if $#tdat+1>=$sanka;
|
||||
|
||||
local($hp,$max_hp,$mp,$max_mp,$ua,$ud,$lr,$ag);
|
||||
|
||||
$hp = $max_hp = int(rand(5)+10);
|
||||
$mp = $max_mp = int(rand(5)+10);
|
||||
|
||||
$ua = int(rand(3)+1);
|
||||
$ud = int(rand(3)+1);
|
||||
$lr = int(rand(3)+1);
|
||||
$ag = int(rand(3)+1);
|
||||
|
||||
$gold = int(rand(500)+500);
|
||||
|
||||
$nm = $in{'nm'};
|
||||
$sei= $in{'sei'};
|
||||
|
||||
$camp=0;
|
||||
|
||||
&dat_write;
|
||||
chmod($chmod,"$usrdata$id\.cgi");
|
||||
|
||||
print "Content-type: text/html\n\n";
|
||||
|
||||
print <<"EOM";
|
||||
<html>
|
||||
<head>
|
||||
<META HTTP-EQUIV="Content-type" CONTENT="text/html; charset=UTF-8">
|
||||
<title>죄와 벌++ 신규 등록</title>
|
||||
</head>
|
||||
<body $body>
|
||||
<center>
|
||||
<table border=0>
|
||||
<tr>
|
||||
<td align=left>
|
||||
<tt style="font-size:12pt">신규 등록 완료<br>
|
||||
<br><br>
|
||||
NAME $in{'nm'}<br>
|
||||
I D $id<br>
|
||||
PASS $pw<br>
|
||||
<br>
|
||||
HP $hp<br>
|
||||
MP $mp<br>
|
||||
UA $ua<br>
|
||||
UD $ud<br>
|
||||
LR $lr<br>
|
||||
<br>
|
||||
<form action=$script method=$method>
|
||||
<input type=hidden name=id value=$id>
|
||||
<input type=hidden name=pw value=$pw>
|
||||
<input type=submit value="게임 시작">
|
||||
</form>
|
||||
<br>
|
||||
<a href="$index">타이틀로 돌아가기</a>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
</center>
|
||||
EOM
|
||||
©right;
|
||||
exit;
|
||||
}
|
||||
|
||||
# フォームデータチェック
|
||||
sub form_check{
|
||||
if(!$in{'nm'}){ &error("이름이 입력되지 않았습니다.",1); }
|
||||
if(!$pw){ &error("비밀번호가 입력되지 않았습니다.",1); }
|
||||
if(!$id){ &error("유저 ID가 입력되지 않았습니다.",1); }
|
||||
if(!$in{'sei'}){ &error("성별이 입력되지 않았습니다.",1); }
|
||||
|
||||
if($in{'sei'}=~ m/[^12]/){ &error("성별 입력이 올바르지 않습니다.",1); }
|
||||
|
||||
if($in{'nm'} =~ /</){ &error("이름에 올바르지 않은 문자( < )가 포함되어 있습니다.",1); }
|
||||
if($in{'nm'} =~ />/){ &error("이름에 올바르지 않은 문자( > )가 포함되어 있습니다.",1); }
|
||||
if($in{'nm'} =~ /:/){ &error("이름에 올바르지 않은 문자( : )가 포함되어 있습니다.",1); }
|
||||
if($in{'nm'} =~ /;/){ &error("이름에 올바르지 않은 문자( ; )가 포함되어 있습니다.",1); }
|
||||
if($in{'nm'} =~ /,/){ &error("이름에 올바르지 않은 문자( , )가 포함되어 있습니다.",1); }
|
||||
if($in{'nm'} =~ /"/){ &error("이름에 올바르지 않은 문자( \" )가 포함되어 있습니다.",1); }
|
||||
if($in{'nm'} =~ /'/){ &error("이름에 올바르지 않은 문자( ' )가 포함되어 있습니다.",1); }
|
||||
if($in{'nm'} =~ /\//){ &error("이름에 올바르지 않은 문자( / )가 포함되어 있습니다.",1); }
|
||||
if($in{'nm'} =~ /\\/){ &error("이름에 올바르지 않은 문자( \\ )가 포함되어 있습니다.",1); }
|
||||
if($in{'nm'} =~ /\s/){ &error("이름에 올바르지 않은 문자( ` )가 포함되어 있습니다.",1); }
|
||||
if($in{'nm'} =~ /`/){ &error("이름에 올바르지 않은 문자(전각 공백)가 포함되어 있습니다.",1); }
|
||||
if($in{'nm'} =~ / /){ &error("이름에 올바르지 않은 문자(전각 공백)가 포함되어 있습니다.",1); }
|
||||
|
||||
if($id =~ m/[^0-9a-zA-Z]/){ &error("유저 ID는 반각 영문/숫자로 입력해 주세요.",1); }
|
||||
if($pw =~ m/[^0-9a-zA-Z]/){ &error("비밀번호는 반각 영문/숫자로 입력해 주세요.",1); }
|
||||
|
||||
if(length($pw)<4 || length($pw)>8){ &error("비밀번호는 반각 영문/숫자 4~8자여야 합니다.",1); }
|
||||
if(length($in{'nm'})>16){ &error("이름은 반각 16자 이내여야 합니다.",1); }
|
||||
if(length($id)<4 || length($id)>12){ &error("유저 ID는 반각 영문/숫자 4~12자 이내여야 합니다.",1); }
|
||||
if($id eq $pw){ &error("유저 ID와 비밀번호가 동일합니다.",1);}
|
||||
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user