#!/usr/bin/perl #-----------------------------------------------------------# # 罪と罰++ 二律背反 # # Copyright(C) 2001-2002 by Vivid Studio. BLANK BOARD # # Vivid Studio.[ http://www17.big.or.jp/~obochan/vivid/ ] # # BLANK BOARD [ http://pom.to/ ] # #-----------------------------------------------------------# # ユーザデータ修正 Version 1.0 # Arranged by あくあ # Aqure's Web Page [http://www.aqure.net/] #--- [注意事項] --------------------------------------------# # ・このスクリプトは以下の利用規程に従って配布しています。 # # http://www24.big.or.jp/~obo/game/ore_/gild/ # #-----------------------------------------------------------# # 2007.08.21 prototype # #------------------------------------ # $showkeys = "test,cnt,"; # 表示のみする項目の一覧 $readkeys = "id,soko,"; %dispname = ('sei'=>'性別',); #------------------------------------ require './ore_config.cgi'; require './inc/ore_sub-param.cgi'; &decode1; #&axs_check; &error("アクセス権限がありません") if($in{'administrator'} ne $admin_pass); &rewrite_hash if($in{'mode'} eq 'write'); &header; &user_detail; &footer; exit; sub header { print <<"EOM"; Content-type:text/html
EOM } sub footer { print <<"EOM"; EOM } sub printvalue { $ret = ''; my $d; my ($key,$value)=@_; $d = (exists $dispname{$key}) ? $dispname{$key} : $key; # 項目別の表示 if($key eq ""){ }elsif($showkeys =~ $key){ # print " * $key : [$value]