[登録システム入り口][使い方][ホームページへ戻る]
"; } else { print "
[Go Top][Usage][back to homepage]
"; } &dirlock; if(!open(IN,"setup.cgi")){ &error_message('config file error','data file access failed.'); } @all=
EOM print ""; } else { #english mastermode print <<"EOM"; EOM } } # #汎用サブ # sub form_read { if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'}); } else { $buffer = $ENV{'QUERY_STRING'}; } @pairs = split(/&/,$buffer); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; &jcode'convert(*value,'sjis'); # $value =~ s//>/g; $value =~ s/\n//g; $value =~ s/\t//g; $value =~ s/\r/
/g; $value =~ s/\,//g; $FORM{$name} = $value; } $pass=$FORM{'pass'}; $function=$FORM{'function'}; $mode=$FORM{'mode'}; if($page eq ""){$page=1;} if($level==1){$level_mode=1;} if($limit eq ""){$limit=$limit_table;} $ENV{'TZ'} = "JST-9"; ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); @wday_array = ('日','月','火','水','木','金','土'); $mon++; $year=$year-100; if($year<10){ $year="0$year"; } if($mon<10){ $mon="0$mon"; } if($mday<10){ $mday="0$mday"; } if($hour<10){ $hour="0$hour"; } if($min<10){ $min="0$min"; } $timenow="$year/$mon/$mday/$hour$min"; $today = "$mon/$mday"; $today2= "$mon/$mday $hour:$min"; } sub header { print "Content-type: text/html\n\n"; print "
"; # print "
Script by senobeya.com
\n";
print 'Original Script by senobeya.com ver.0.05-0.683
';
print 'Update by elder@DaZarvtra ver.0.69-
';
print "FF11 Member Registration System Admin $version
\n";
print "";
}
sub error_message {
print "$_[0]
\n"; print "$_[1]
\n"; if($language ne "English"){ print "ブラウザの[戻る]ボタンを押して前の画面に移動してください.\n"; } else { print "Push back button for former page.
\n"; } &footer; exit; } sub dirlock { if($dirlock eq ""){return;} if((-M $lockdir)>0.001){ #1分半ほどlockdirが存在している場合は強制的に削除 rmdir($lockdir); } for ($i = 0; $i <= 20; $i++) { if (mkdir($lockdir, 0755)) { last; } else { sleep(1); } } $SIG{'TERM'} = $SIG{'PIPE'} = $SIG{'HUP'} = "sigexit"; if($i == 20){&error_message('busy','処理が混雑しています');} } sub sigexit { rmdir($lockdir); exit(1); } sub custom{ #カスタムフィールド編集・入力 #mode list #input 一括入力（入力） #submit 一括入力（登録） #list 項目リスト編集 #insert 項目リスト追加 #delete 項目リスト削除 #custom 編集項目更新 #listedit リスト編集 #listmodify リスト更新 #listinsert リスト追加 #lisetdelete リスト削除 local(@templist); if($language ne "English"){ @templist=('一括入力',' を一括修正しました。','フィールド編集','項目タイトル（空欄でカスタムフィールドなし)','未入力者表示','する','しない','項目名','編集属性','ソート設定','リスト設定','自由編集','マスター編集','リスト式','リスト内容設定','新規項目追加','挿入位置(指定番号の後ろに追加されます)','項目削除','項目削除番号','項目追加処理','項目削除処理','項目編集','更新','追加項目名','追加','削除','リスト編集へ戻る','さらに追加','カスタムメニューへ','マスターモードへ戻る','メンバーリストへ戻る'); } else { @templist=('master input mode',' modified all custom field','CustomField edit','CutomField title','no input members data','View','omit','Column name','attribute','sort','list edit','free','master','pulldown','List Edit','New Field','Insert position','Field Delete','Delete field number','Add Field','Delete Field','Edit Field','modify','New Field Name','Add','delete','back to list edit','more','back to custom menu','back to master mode','back to member list'); } if($pass ne $master_pass){ &header; &error_message('pass error','access failed.'); } &header; if($mode eq "input"){ #一括入力モード(入力画面) print "$templist[0]"; print "
| name | "; for($i=1;$i<$#custom_field+1;$i++){ print "$custom_field[$i] | "; } print "
|---|
"; print " $templist[14]
$templist[15] $templist[17] EOM } elsif($mode eq "insert"){ #項目追加 custom0:項目名 custom1:項目属性 custom2 挿入位置 print "$templist[19]
"; if($FORM{"custom0"} eq ""){print"項目名がありません。(No field name)";return;} @new_customfield=(); @new_customcontrol=(); @new_customsort=(); @new_custompulldown=(); for($i=0;$i<$#custom_field+1;$i++){ push(@new_customfield,$custom_field[$i]); push(@new_customcontrol,$custom_control[$i]); push(@new_customsort,$custom_sort[$i]); push(@new_custompulldown,$custom_pulldown[$i]); if($i == $FORM{"custom2"}){ push(@new_customfield,$FORM{"custom0"}); push(@new_customcontrol,$FORM{"custom1"}); push(@new_customsort,"0"); push(@new_custompulldown,"0"); } } @custom_field=@new_customfield; @custom_control=@new_customcontrol; @custom_sort=@new_customsort; @custom_pulldown=@new_custompulldown; &custom_setup_write; #customlist番号整理 &dirlock; if(!open(IN,"setup.cgi")){ &error_message('config file error','data file access failed.'); } @all=
"; print "New Field [$FORM{'custom0'}] wasa added."; } elsif($mode eq "delete"){ #項目追加 custom0:削除項目番号 if($FORM{"custom0"} == 0){ print "番号が存在しません。(such number does not exist)";return;} print "$templist[20]
"; @new_customfield=(); @new_customcontrol=(); @new_customsort=(); @new_custompulldown=(); for($i=0;$i<$#custom_field+1;$i++){ if($i != $FORM{"custom0"}){ push(@new_customfield,$custom_field[$i]); push(@new_customcontrol,$custom_control[$i]); push(@new_customsort,$custom_sort[$i]); push(@new_custompulldown,$custom_pulldown[$i]); } } @custom_field=@new_customfield; @custom_control=@new_customcontrol; @custom_sort=@new_customsort; @custom_pulldown=@new_custompulldown; &custom_setup_write; #customlist番号整理 &dirlock; if(!open(IN,"setup.cgi")){&error_message('config file error','data file access failed.');} @all=
"; print "Field No. $FORM{'custom0'} was deleted."; } elsif($mode eq "custom"){ #編集項目更新処理 for($i=0;$i<$#custom_field+1;$i++){ $custom_field[$i]=$FORM{"custom$i"}; $custom_control[$i]=$FORM{"customc$i"}; $custom_sort[$i]=$FORM{"customs$i"}; $custom_pulldown[$i]=$FORM{"customp$i"}; } &custom_setup_write; print "編集項目更新処理を行いました。
"; print "Custom field updated."; } elsif($mode eq "listedit"){ #custom0 番項目のリスト編集 $j=$FORM{'custom0'}; if($j eq ""){&header;&error_message('no number1548','illegal number');} print "No.$j ($custom_field[$j])のリスト編集を行います。
"; print "Editing List No.$j ($custom_field[$j])
"; if($#{"custom_list$j"} !=-1){ print "$templist[21] EOM } else { print "現在リストは存在しません。
"; print "No list exists.
"; } print <<"EOM";
$templist[15]
\n"; if($#{"custom_list$j"} != -1){ print <<"EOM"; $templsit[17] EOM } } elsif($mode eq "listmodify"){ #custom0番編集 customlist0-X custom_listへ出力 print "listmodify
"; for($i=0;$i<$#{"custom_list$FORM{'custom0'}"}+1;$i++){ ${"custom_list$FORM{'custom0'}"}[$i]=$FORM{"customlist$i"}; } &custom_list_write; print "項目を編集しました。
"; print "Field was modified."; print <<"EOM"; EOM } elsif($mode eq "listinsert"){ #custom0番編集 custom1をリストに追加 custom2番目に。 @new_list=(); if($FORM{"custom2"}==-1){ push(@new_list,$FORM{"custom1"}) ; } for($i=0;$i<$#{"custom_list$FORM{'custom0'}"}+1;$i++){ push(@new_list,${"custom_list$FORM{'custom0'}"}[$i]); if($i==$FORM{"custom2"}){ push(@new_list,$FORM{"custom1"}); } } @{"custom_list$FORM{'custom0'}"}=@new_list; &custom_list_write; print $FORM{"custom1"}."を追加しました。
"; print $FORM{"custom1"}." was added."; print <<"EOM"; EOM } elsif($mode eq "listdelete"){ #custom0番編集 custom1番目をリストから削除 @new_list=(); for($i=0;$i<$#{"custom_list$FORM{'custom0'}"}+1;$i++){ if($i!=$FORM{"custom1"}){push(@new_list,${"custom_list$FORM{'custom0'}"}[$i]);} } @{"custom_list$FORM{'custom0'}"}=@new_list; if($#{"custom_list$FORM{'custom0'}"} == -1){ &custom_list_delete; } else { &custom_list_write; } print "項目を削除しました。
"; print "Field deleted."; print <<"EOM"; EOM } else { print "mode:$mode"; } print <<"EOM";
$templist[30]
EOM } sub custom_list_write{ &dirlock; if(!open(IN,"setup.cgi")){&error_message('config file error','data file access failed.');} @all=
"; } else { for($j=0;$j<20;$j++){ $lev[$j] =~ s/\n//g; } push(@out,"$no\t$name\t$pass\t$anon\t$race\t$relm\t$mainjob\t$supportjob\t$prof\t$handle\t$polhn\t$mail\t$home\t$comment2\t$point\t$class\t$time\t$comment\t$mrank\t$etc[0]\t$etc[1]\t$etc[2]\t$prod[0]\t$prod[1]\t$prod[2]\t$prod[3]\t$prod[4]\t$prod[5]\t$prod[6]\t$prod[7]\t$prod[8]\t$prod[9]\t$prod[10]\t$prod[11]\t$prod[12]\t$prod[13]\t$prod[14]\t$prod[15]\t$lev[0]\t$lev[1]\t$lev[2]\t$lev[3]\t$lev[4]\t$lev[5]\t$lev[6]\t$lev[7]\t$lev[8]\t$lev[9]\t$lev[10]\t$lev[11]\t$lev[12]\t$lev[13]\t$lev[14]\t$lev[15]\t$lev[16]\t$lev[17]\t$lev[18]\t$lev[19]\t\n"); print "modify $name aht job data
"; } } if(!open(OUT,">$datafile")){&header; &error_message('datafile error/system','data file access failed.');} print OUT @out; close OUT; print "アトルガンジョブ追加による改行補正と空行の削除を行いました。
"; print "Aht Urgan new job data was modified, and blank user data was deleted.
"; } else { print "メンテモード予備
"; } if($language ne "English"){ print ""; print "
[登録システム入り口][使い方][ホームページへ戻る]
"; } else { print "
[Entrance][usage][back to home]
"; } } sub vercheck{ #バージョンチェック。行数決め打ちという危険仕様 #$verにはサブバージョンをカットして格納。 if(!open(IN,"setup.cgi")){&error_message('config file error','data file access failed.');} @all=
Configfile version:$ver
"; } sub verup{ if($pass ne $master_pass){ &header; &error_message('pass error','access failed.'); } &header; &vercheck; #@all取得済 if($mode eq '060' || $mode eq '060a' || $mode eq '067' || $mode eq '0717' ){ print "check version
"; if($mode eq '060a'){$ver="0.5";} if($mode eq '067'){$ver="0.63";} #要設定ファイル変更点 if($ver eq "0.5"){ print "setup config 050 to 052
"; #050->052 RSS・複数画像・keyword・mission menu・icon sort追加 日記入力フラグ push (@all," #日記入力無効化(1:無効) 0.52新設 \$diaryallow=\"0\"; #アップ画像最大数 \$imgmax=\"5\"; #キーワード \$keyfile=\"keyword.dat\"; \$key_avail=\"0\"; \$keydir=\"keyword/\"; \$scriptdir=\"../\"; #\$scriptdir=\"http://\";（フルパス） "); $count=0; foreach $i(@all){ if($i =~ /^\@modelist=/){$all[$count]="\@modelist=('Simple','Job','合成スキル','Status','Full','ALL','Icon','Skill','Icon(Time)','LevelSearch','Mission');\n";} if($i =~ /^\@menu=/){$all[$count]="\@menu=('シンプル','Job','Job(Lv)','合成','','','フル2','アイコン','スキル','アイコン(新着順)','レベルサーチ','ミッション');\n";} $count++; } $ver="0.52"; } if($ver eq "0.52"){ print "setup config 052 to 053
"; #052->053 history 日記フロートフラグ push(@all,' #日記フロート機能(0:無効 1:有効) $sage="1"; #履歴書き込みファイル $historyfile="history.cgi"; #ログ取得の有無 $loghistory="1"; #ログ取得行数 $logmax="50"; '); $ver="0.53"; } if($ver eq "0.53"){ print "setup config 053 to 060
"; print "max_job change
"; print "default joblist change
"; $count=0; foreach $i(@all){ if($i =~ /^\$job_max=/){$all[$count]="\$job_max=18;\n";} if($i =~ /^\@joblist=/){$all[$count]="\@joblist=('戦','モ','白','黒','赤','シ','ナ','暗','狩','吟','獣','竜','召','忍','侍','青','コ','か','？','19');\n";} $count++; } print "msg config set
"; #めせじ設定がない場合はconfigに追記 if($msg_avail eq ""){ push(@all,' #メッセージ関連機能 $mes_avail="1"; $mesdir="message/"; '); } } #0.60a3スキル追加、ミッション追加 #0.61 履歴追加・メリットポイント追加 #メリポ設定がない場合はconfigに追記 if($mpoint eq ""){ push(@all,' #メリポ設定 $mpoint="1"; '); } #カスタム設定がない場合はconfigに追記 if($custom_field[1] eq ""){ push(@all," #カスタムフィールド 0.63beta1(最初のデータはボタン名兼利用フラグ) \@custom_field=('追加項目','チョコボ名前','チョコボ性別','チョコボ色','フェロー名前','フェローレベル','カンパニエ所属','プロマシアM報酬','アトルガンM報酬','世界クエ報酬','神威クエ報酬',); #カスタムフィールドコントロールコード(0:ユーザー自由 1:アドミンのみ) \@custom_control=('0','0','0','0','0','0','0',); #カスタムフィールドソート(0:なし 1:数値 2:逆順 3:数値逆順) \@custom_sort=('','0','0','0','0','0','0',); #カスタムフィールドプルダウン(0:自由編集 1:プルダウン) \@custom_pulldown=('','0','0','0','1','0','1',); \@custom_list4=('','Feliz (Hum♂)','Ferdinand (Hum♂)','Gunnar (Hum♂)','Massimo (Hum♂)','Oldrich (Hum♂)','Siegward (Hum♂)','Theobald (Hum♂)','Zenji (Hum♂)','Amerita (Hum♀)','Beatrice (Hum♀)','Henrietta (Hum♀)','Jesimae (Hum♀)','Karyn (Hum♀)','Nanako (Hum♀)','Sharlene (Hum♀)','Sieghilde (Hum♀)','Chanandit (Elv♂)','Deulmaeux (Elv♂)','Demresinaux (Elv♂)','Ephealgaux (Elv♂)','Gauldeval (Elv♂)','Grauffemart (Elv♂)','Migaifongut (Elv♂)','Romidiant (Elv♂)','Armittie (Elv♀)','Cadepure (Elv♀)','Clearite (Elv♀)','Epilleve (Elv♀)','Liabelle (Elv♀)','Nauthima (Elv♀)','Radille (Elv♀)','Vimechue (Elv♀)','Balu-Falu (Tar♂)','Burg-Ladarg (Tar♂)','Ehgo-Ryuhgo (Tar♂)','Kolui-Pelui (Tar♂)','Nokum-Akkum (Tar♂)','Savul-Kivul (Tar♂)','Vinja-Kanja (Tar♂)','Yarga-Umiga (Tar♂)','Cupapa (Tar♀)','Jajuju (Tar♀)','Kalokoko (Tar♀)','Mahoyaya (Tar♀)','Pakurara (Tar♀)','Ripokeke (Tar♀)','Yawawa (Tar♀)','Yufafa (Tar♀)','Fhig Lahrv (Mit)','Khuma Tagyawhan (Mit)','Pimy Kettihl (Mit)','Raka Maimhov (Mit)','Sahyu Banjyao (Mit)','Sufhi Uchnouma (Mit)','Tsuim Nhomango (Mit)','Yoli Kohlpaka (Mit)','Durib (Gar)','Dzapiwa (Gar)','Jugowa (Gar)','Mugido (Gar)','Voldai (Gar)','Wagwei (Gar)','Zayag (Gar)','Zoldof (Gar)',); \@custom_list6=('未所属','王国軍（サンドリア/王立騎士団）','共和国軍（バストゥーク/第四共和軍団）','連邦軍（ウィンダス/コブラ傭兵団）',); \@custom_list7=('','ラジャスリング','タマスリング','サットヴァリング',); \@custom_list8=('','バルラーンリング','ジャルザーンリング','ウルタラムリング',); \@custom_list9=('','電界の耳','幽界の耳','虚界の耳','磁界の耳',); \@custom_list10=('','素破の耳','武士の耳','獣使の耳','暗黒の耳','騎士の耳',); "); } $count=0; print "modify menu table, skill table...etc.
\n"; # limit table menu model # 0 table_limit シンプル Simple # 1 table_job Job Job # 2 table_prod Job(Lv) 合成スキル # 3 table_stat Status # 4 table_full2 Full # 5 table_full3 フル2 ALL # 6 table_limit2 アイコン Icon # 7 table_skill スキル Skill # 8 table_weaponskill WS WS # 9 table_weaponskill2 利用可能WS WS(Usable) # 10 table_limit3 アイコン(新着順) Icon(Time) # 11 table_level レベルサーチ LevelSearch # 12 table_mission ミッション Mission # 13 table_assault アサルト Assault # 14 table_dynamis デュナミス Dynamis # 15 table_history 履歴 History # 16 table_custom カスタム Custom $keitai_check_done = 0; foreach $i(@all){ if($i =~ /^\@skilllist=/){$all[$count]="\@skilllist=('格闘','短剣','片手剣','両手剣','片手斧','両手斧','両手鎌','両手槍','片手刀','両手刀','片手棍','両手棍','弓術','射撃','投擲','ガード','回避','盾','受流し','神聖','回復','強化','弱体','精霊','暗黒','歌唱','弦楽器','管楽器','忍術','召喚','青魔');\n";} if($i =~ /^\@tablelist=/){$all[$count]="\@tablelist=('table_limit','table_job','table_prod','table_synergy','table_stat','table_full2','table_full3','table_limit2','table_skill','table_weaponskill','table_weaponskill2','table_limit3','table_level','table_mission','table_assault','table_dynamis','table_weapons','table_armor1','table_armor2','table_armor3','table_armor4','table_armor5','table_jade','table_atma','table_sjade','table_satma','table_mmm9','table_history','table_custom');\n";} if($i =~ /^\@tablelimit=/){$all[$count]="\@tablelimit=('0','1','1','2','3','6','6','6','7','8','9','10','11','12','13','14','15','16','17','18','19','20','21','22','23','24','25','26','27','28');\n";} if($i =~ /^\@menu=/){$all[$count]="\@menu=('シンプル','Job','','合成','練成','','','フル2','アイコン','スキル','WS習得','利用可能WS','アイコン(新着順)','レベルサーチ','ミッション','アサルト','デュナミス','取得武器','取得防具１','取得防具２','取得防具３','取得防具４','取得防具５','ジェイド(禁断)','アートマ(禁断)','ジェイド(死闘)','アートマ(死闘)','MMM警備課調練室','履歴','カスタム',);\n";} if($i =~ /^\@modelist=/){$all[$count]="\@modelist=('Simple','Job','Job(LV)','Crafting','Synergy','Status','Full','ALL','Icon','Skill','WS','WS(enbaled)','Icon(Time)','LevelSearch','Mission','Assault','Dynamis','Weapons','Armor1','Armor2','Armor3','Armor4','Armor5','jade','atma','sjade','satma','mmm9','History','Custom',);\n";} $count++; } $ver="0.63"; print "table.pl subroutine configuration modification.
"; #ver0.63 to 0.67 Altana 拡張 if($ver eq "0.63"){ print "setup config 063 to 0697
"; print "max_job change
"; print "default joblist change
"; $count=0; foreach $i(@all){ if($i =~ /^\$job_max=/){$all[$count]="\$job_max=20;\n";} if($i =~ /^\@joblist=/){$all[$count]="\@joblist=('戦','モ','白','黒','赤','シ','ナ','暗','狩','吟','獣','竜','召','忍','侍','青','コ','か','踊','学');\n";} $count++; } } $count=0; foreach $i(@all){ if($i =~ /^\$keitai_check=/){ $keitai_check_done = 1;} if($i =~ /^\$security_mode=/){ $security_mode_done = 1;} if($i =~ /^\$keitai_check = /){ $keitai_check_done = 1;} if($i =~ /^\$triggerfile=/){ $trigger_check_done = 1;} $count++; } print "keitai check done = $keitai_check_done
\n"; if( $keitai_check_done == 0 ){ push( @all, ' #携帯電話でのセッション管理方法 # $keitai_check: 0:チェックしない、1:チェックするかどうかをPC設定に従う $keitai_check="1"; '); } if( $security_mode_done == 0){ push( @all, ' #セキュリティチェック時、閲覧に認証が必要な操作 （rw:読み書きともに必要、w:書き込み時のみ必要） $security_mode="rw"; '); } print "Trigger file check done = $trigger_check_done
\n"; if( $trigger_check_done == 0 ){ push( @all, ' #トリガー一覧管理用ファイル $triggerfile="triggerlist.cgi"; '); } $count=0; foreach $i(@all){ if( $i =~ /^\@prodlist=/){ $all[$count]= "\@prodlist=('鍛','織','錬','木','彫','革','骨','釣','調','成',);\n"; } if( $i =~ /^\$prod_max=/){ $all[$count]= "\$prod_max=10;\n"; } $count++; } # ver cahange $all[2]="# ver. 0.717 (automatically modified)\n"; print "Updated varsion: 0.717
\n"; @out=@all; &check_out; if(!open(OUT,">setup.cgi")){&error_message('config file error','data file access failed.');} print OUT @out; close OUT; ####data.cgi conv (0.60a3 to 0.60a4) if($ver eq "0.60a3"){ print "convert 0.60a3 to 0.60a4(assault rank addition)
"; if(!open(IN,"$datafile")){&header; &error_message('datafile error/system','data file access failed.');} @all=
"; print ""; print "memberlist top"; } } sub login2{ if($pass ne $master_pass){ &header; &error_message('pass error','access failed.'); } &header; &vercheck; if($registed eq "yes"){ if($language ne "English"){ print "設定ファイルを書き換えました。"; print ""; } else { print "Configuration file modified."; } } srand(); $xx = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" . "abcdefghijklmnopqrstuvwxyz" . "0123456789."; $salt = substr($xx, int(rand(63)), 1); $salt .= substr($xx, int(rand(63)), 1); $salt .= substr($xx, int(rand(63)), 1); $salt .= substr($xx, int(rand(63)), 1); if($language ne "English"){ print "
[登録システム入り口][使い方][ホームページへ戻る]
"; } else { print "
[Entrance][usage][back to home]
"; } if($language ne "English"){ @drelmlist=("Sand'Oria",'Bastok','Windurst'); @drelmlist=('
','
','
'); #大
@drelmlistl=("Sand'Oria",'Bastok','Windurst');
#@drelmlist=('
','
','
'); #小
#@dindex=('No.','称号','名前','種族','国','ポイント','ミッションランク','ジョブ','時間','コメント');
@dindex=('No.','class','name','race','realm','point','m_rank','job','time','comment');
@dmenu=('Simple','Job','Job(Lv)','Crafting','Synergy','Status','Full','Full2','Icon','Skill','WS','WS(Enable)','Icon(Time)','LevelSearch','Mission','Assault','Dynamis','Weapons','Armor1','Armor2','Armor3','Armor4','Armor5','jade','atma','mmm9','History','Custom');
@dmenux=('BBS','Home','Manual','Menu: ','Memberlist Top');
#@dmenu=('シンプル','ジョブ1','ジョブ2','スキル','ステータス','フル','フル２','アイコン','掲示板','ホーム','マニュアル','メニュー：','リストトップ');
@dfield=('class','name','pass','anon mode','Race','フェイスタイプ','Realm','MainJob','SupportJob','個人ポイント ','ミッションランク ','comment ','profile 公開','ハンドル','POL内ハンドル ','e-mail','homepage url','プロフィール用コメント','サンプル');
@dmodelist=('Simple','Job','Job(LV)','Crafting','Synergy','Status','Full','Full2','Icon','Skill,','WS','WS(enable)','Icon(Time)','LevelSearch','Mission','Assault','Dynamis','Weapons','Armor1','Armor2','Armor3','Armor4','Armor5','jade','atma','mmm9','History','Custom');
@dranklist=('素人','見習','徒弟','下級職人','名取','目録','印可','高弟','皆伝','師範','Rank10');
@dracelist=('Hume♂','Hume♀','Elvaan♂','Elvaan♀','Tarutaru♂','Tarutaru♀','Mithra♀','Galka♂');
#@djoblist=('WAR','MNK','WHM','BLM','RDM','THF','PLD','DRK','RNG','BRD','BST','DRG','SMN','NIN','SAM','BLU','COR','PAP','DNC','SCH');
@djoblist=('戦','モ','白','黒','赤','シ','ナ','暗','狩','吟','獣','竜','召','忍','侍','青','コ','か','踊','学');
@dprodlist=('鍛冶','裁縫','錬金','木工','彫金','革細工','骨工','釣り','調理','練成');
#@dprodlist=('鍛','織','錬','木','彫','革','骨','釣','調');
@dskilllist=('格闘','短剣','片手剣','両手剣','片手斧','両手斧','両手鎌','両手槍','片手刀','両手刀','片手棍','両手棍','弓術','射撃','投擲','ガード','回避','盾','受流し','神聖','回復','強化','弱体','精霊','暗黒','歌唱','弦楽器','管楽器','忍術','召喚','青魔法');
@buttonlist=('login','writediary','new entry','master mode');
print "表\示項目には国別表\示以外は[']は使えません。どうしても使用したい場合は全角の[’]を利用してください。";
print "
EOM
} else {
@drelmlist=("Sand'Oria",'Bastok','Windurst');
@drelmlist=('','',''); #大
@drelmlistl=("Sand'Oria",'Bastok','Windurst');
@dindex=('No.','class','name','race','realm','point','m_rank','job','time','comment');
@dmenu=('Simple','Job','Job(Lv)','Skill','Status','Full','Full2','Icon','Skill','WS','WS(enable)','','LevelSearch','Mission','Assault','Dynamis','Weapons','Armor1','Armor2','Armor3','Armor4','Armor5','jade','atma','mmm9','History','Custom');
@dmenux=('BBS','Home','Manual','Menu: ','Memberlist Top');
@dfield=('class','name','pass','anon mode','Race','FaceType','Realm','MainJob','SupportJob','Conquest point','MissionRank','comment','profile open','handle','POL handle','e-mail','homepage url','profile comment','sample');
@dmodelist=('Simple','Job','Production','Status','Full','Full2','Icon','Skill,','WS','WS(enable)','Icon(Time)','LevelSearch','Mission','Assault','Dynamis','Weapons','Armor1','Armor2','Armor3','Armor4','Armor5','jade','atma','mmm9','History','Custom');
@dranklist=('Rank0','Rank1','Rank2','Rank3','Rank4','Rank5','Rank6','Rank7','Rank8','Rank9','Rank10');
@dracelist=('HumeMale','HumeFemale','ElvaanMale','ElvaanFemale','TarutaruMale','TarutaruFemale','Mithra','Galka');
@djoblist=('WAR','MNK','WHM','BLM','RDM','THF','PLD','DRK','RNG','BRD','BST','DRG','SMN','NIN','SAM','BLU','COR','PUP','18','19');
@dprodlist=('SMITH','CLOTH','ALCHEMY','WOOD','GOLDSMTH','TANNER','BONEWRK','FISHING','COOKING');
@dskilllist=('Hand-To-Hand','Dagger','Sword','GreatSword','Axe','GreatAxe','Sythe','Spear','Katana','GreatKatana','Club','GreatClub','Archery','Marksmanship','Throwing','Guard','Evasion','Shield','Parrying','DivineMagic','HealingMagic','EnhanceMagic','EnfMagic','ElemantalMagic','DarkMagic','Singing','Strings','WindInstrument','Ninjutsu','Summoning','BlueMagic');
@buttonlist=('login','writediary','new entry','master mode');
print "
EOM
print "";
}
}
sub regist2{
if($pass ne $master_pass){
&header; &error_message('pass error','access failed.');
}
for($j=0;$j<$#index+1;$j++){
$index[$j]=$FORM{"index$j"};
}
for($j=0;$j<$#menu+1;$j++){
$menu[$j]=$FORM{"menu$j"};
}
for($j=0;$j<$#menux+1;$j++){
$menux[$j]=$FORM{"menux$j"};
}
for($j=0;$j<$#field+1;$j++){
$field[$j]=$FORM{"field$j"};
}
for($j=0;$j<$#modelist+1;$j++){
$modelist[$j]=$FORM{"modelist$j"};
}
for($j=0;$j<$#ranklist+1;$j++){
$ranklist[$j]=$FORM{"ranklist$j"};
}
for($j=0;$j<$#racelist+1;$j++){
$racelist[$j]=$FORM{"racelist$j"};
}
for($j=0;$j<$#joblist+1;$j++){
$joblist[$j]=$FORM{"joblist$j"};
}
for($j=0;$j<$#prodlist+1;$j++){
$prodlist[$j]=$FORM{"prodlist$j"};
}
for($j=0;$j<$#relmlistl+1;$j++){
$relmlistl[$j]=$FORM{"relmlistl$j"};
}
for($j=0;$j<$#relmlist+1;$j++){
$relmlist[$j]=$FORM{"relmlist$j"};
$relmlist[$j] =~ s/\"//g;
}
for($j=0;$j<$#skilllist+1;$j++){
$skilllist[$j]=$FORM{"skilllist$j"};
}
for($j=0;$j<$#button+1;$j++){
$button[$j]=$FORM{"button$j"};
}
@list=(
'index',
'menu',
'menux',
'field',
'modelist',
'ranklist',
'racelist',
'joblist',
'prodlist',
'relmlistl',
'relmlist',
'skilllist',
'button'
);
&dirlock;
if(!open(IN,"setup.cgi")){&error_message('config file error','data file access failed.');}
@all=