|
お問い合わせ
|
武蔵境商店会連合会スタンプ事務局 |
180-0023 東京都武蔵野市境南町2−10−24 地図はこちら |
0422−32-6554(月曜日・火曜日・木曜日・金曜日11:00〜16:00 土・日・祝・水曜日は休業です) |
|
※ リンクはトップページにお願いします当ページの画像・文章等を許可無く複製・転載することを禁止します ※
|
|
); $SIG{INT}=$SIG{HUP}=$SIG{QUIT}=$SIG{TERM}=$SIG{__WARN__}=\&SIGExit;
$DomainName=!$ENV{REMOTE_HOST}||$ENV{REMOTE_HOST}eq$ENV{REMOTE_ADDR}?gethostbyaddr(pack('C4',split(/\./,$ENV{REMOTE_ADDR})),2)||$ENV{REMOTE_ADDR}:$ENV{REMOTE_HOST};
%REC=( 'User'=>{ 'UserNum'=>0,'UserType'=>1,'Pass'=>2,'Mail'=>3,'Rtime'=>4,'UpTime'=>5
}, 'Data'=>{ 'DataNum'=>0,'UserNum'=>1,'Count'=>2,'Mark1'=>3,'Mark2'=>4,'Rtime'=>5,'UpTime'=>6,'Ip'=>7
}, 'UJudge'=>{ 'JudgeNum'=>0,'JudgeType'=>1,'UserNum'=>2,'UserType'=>3,'Pass'=>4,'Mail'=>5,'JDate'=>6,'UpFlag'=>7
}, 'DJudge'=>{ 'JudgeNum'=>0,'JudgeType'=>1,'DataNum'=>2,'UserNum'=>3,'JDate'=>4,'UpFlag'=>5
}); $i=5; foreach(sort keys%{$CNF{UserItem}{Save}}){ ($REC{User}{$_} ne
'') and next; $i++; $REC{User}{$_}=$i; $REC{UJudge}{$_}=$i+2; } $i=7; foreach(sort
keys%{$CNF{DataItem}{Save}}){ ($REC{Data}{$_} ne '') and next; $i++; $REC{Data}{$_}=$i;
$REC{DJudge}{$_}=$i-2; } &GetFormData; @cmd{'ac','ar','c','ca','uj','uja','dj','dja','ia','iaa','id','ida','ur','ura','uc','uro','pc',
'pca','ue','uea','uda','dr','dra','de','dep','dea','dda','j','v','s','dp','fm','fma','pr','pra',
'js','b','bd','lt','rs','rsa','cr','cra','ci','cia','ce','cea','dl','lo','loa','aul','adl'}='';
($FORM{cmd} eq '') and $FORM{cmd}='ur'; !exists$cmd{$FORM{cmd}}?&Error('コマンドが不正です。'):&{$FORM{cmd}};
sub ac { &Lrequire('./lib/db-admin.cgi'); &AdminCertify } sub ar
{ &Lrequire('./lib/db-admin.cgi'); &AdminRoom } sub hs { &Lrequire('./lib/db-admin.cgi');
&HtmlSet } sub hsa{ &Lrequire('./lib/db-admin.cgi'); &HtmlSetAct
} sub c { &Lrequire('./lib/db-admin.cgi'); &Config } sub ca { &Lrequire('./lib/db-admin.cgi');
&ConfigAct } sub uj { &Lrequire('./lib/db-admin.cgi'); &UserJudge
} sub uja{ &Lrequire('./lib/db-admin.cgi'); &UserJudgeAct } sub
dj { &Lrequire('./lib/db-admin.cgi'); &DataJudge } sub dja{ &Lrequire('./lib/db-admin.cgi');
&DataJudgeAct } sub ia { &Lrequire('./lib/db-admin.cgi'); &ItemAdd
} sub iaa{ &Lrequire('./lib/db-admin.cgi'); &ItemAddAct } sub id
{ &Lrequire('./lib/db-admin.cgi'); &ItemDelete } sub ida{ &Lrequire('./lib/db-admin.cgi');
&ItemDeleteAct } sub js { &Lrequire('./lib/db-admin.cgi'); &JsSet
} sub b { &Lrequire('./lib/db-admin.cgi'); &Backup } sub bd { &Lrequire('./lib/db-admin.cgi');
&BackupDelete } sub rs { &Lrequire('./lib/db-admin.cgi'); &ResetSet
} sub rsa{ &Lrequire('./lib/db-admin.cgi'); &ResetSetAct } sub
cr { &Lrequire('./lib/db-admin.cgi'); &CountReset } sub cra{ &Lrequire('./lib/db-admin.cgi');
&CountResetAct } sub ci { &Lrequire('./lib/db-admin.cgi'); &CsvImport
} sub cia{ &Lrequire('./lib/db-admin.cgi'); &CsvImportAct } sub
ce { &Lrequire('./lib/db-admin.cgi'); &CsvExport } sub cea{ &Lrequire('./lib/db-admin.cgi');
&CsvExportAct } sub loa{ &Lrequire('./lib/db-admin.cgi'); &LogOutAdmin
} sub ur { &Lrequire('./lib/db-data.cgi'); &UserRegist } sub ura{
&Lrequire('./lib/db-data.cgi'); &UserRegistAct } sub uc { &Lrequire('./lib/db-data.cgi');
&UserCertify } sub uro{ &Lrequire('./lib/db-data.cgi'); &UserRoom
} sub pc { &Lrequire('./lib/db-data.cgi'); &PassChange } sub pca{
&Lrequire('./lib/db-data.cgi'); &PassChangeAct } sub ue { &Lrequire('./lib/db-data.cgi');
&UserEdit } sub uea{ &Lrequire('./lib/db-data.cgi'); &UserEditAct
} sub uda{ &Lrequire('./lib/db-data.cgi'); &UserDeleteAct } sub
dr { &Lrequire('./lib/db-data.cgi'); &DataRegist } sub dra{ &Lrequire('./lib/db-data.cgi');
&DataRegistAct } sub de { &Lrequire('./lib/db-data.cgi'); &DataEdit
} sub dep{ &Lrequire('./lib/db-data.cgi'); &DataEditPart } sub
dea{ &Lrequire('./lib/db-data.cgi'); &DataEditAct } sub dda{ &Lrequire('./lib/db-data.cgi');
&DataDeleteAct } sub j { &Lrequire('./lib/db-data.cgi'); &Jump
} sub v { &Lrequire('./lib/db-data.cgi'); &Vote } sub pr { &Lrequire('./lib/db-data.cgi');
&PassReissue } sub pra{ &Lrequire('./lib/db-data.cgi'); &PassReissueAct
} sub lo { &Lrequire('./lib/db-data.cgi'); &LogOut } sub s { &Lrequire('./lib/db-view.cgi');
&Search } sub dp { &Lrequire('./lib/db-view.cgi'); &DataPart
} sub dl { &Lrequire('./lib/db-view.cgi'); &DataList } sub aul{
&Lrequire('./lib/db-view.cgi'); &AdminUserList } sub adl{ &Lrequire('./lib/db-view.cgi');
&AdminDataList } sub fm { &Lrequire('./lib/db-fm.cgi'); &FormMail
} sub fma{ &Lrequire('./lib/db-fm.cgi'); &FormMailAct } sub lt
{ &LockTest } ##########################################################
################ # Lrequire # ################ sub Lrequire{ my$lib=shift;
my$name=(split/\//,$lib)[-1]; eval{ require"$lib" } or &Die("$nameを呼び出せません。");}
########################################################## ################
# Location # ################ sub Location{ my$url=shift; if(!$LocationType){
print"Location: $url\n\n" } else{ print"Content-type: text/html\n\n";
print qq(); }exit;} ##########################################################
############## # Myglob # ############## sub Myglob{ my($dir,$type)=@_;
my($file,@list); opendir(DIR,$dir) or &Error('ディレクトリOPENに失敗しました。');
while(defined($file=readdir DIR)){ $file=~/^\.{1,2}$/ and next; ($type
ne '' and $file!~/$type$/) and next; push(@list,$file); }closedir(DIR);
return@list;} ##########################################################
################ # FileOpen # ################ sub FileOpen{ my($handle,$file,$name)=@_;
if(!open($handle,$file)){ ($name eq '') and $name=(split/\//,$file)[-1];
&Error("$nameが開けません。"); }} ################ # FileRead
# ################ sub FileRead{ local($file,*line,$type,$name)=@_; if(!open(FILE,$file)){
($name eq '') and $name=(split/\//,$file)[-1]; &Error("$nameが開けません。");
}if($type){ $line=