罪と罰++ 新規登録

#!/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 分間)
内訳：$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"; 罪と罰++ 新規登録

$title 新規登録ユーザーID : プレイヤ名 : パスワード : 性別　　　 :　男　女

ユーザーIDは半角英数字4～12文字です。プレイヤ名は全角8(半角16)文字以内です。パスワードは半角英数字4～8文字です。重複登録は禁止です。発見次第削除します。 $del_limit 日間放置するとキャラが抹消されます。

最大$sanka人まで登録\可\能\です。

EOM } else{ print <<"EOM"; 新規登録新規登録 INDEXへ 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"; 罪と罰++ 新規登録

新規登録完了 NAME $in{'nm'} I D $id PASS $pw HP　 $hp MP　 $mp UA　 $ua UD　 $ud LR　 $lr タイトルに戻る

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'} =~ /\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);} }