www.pudn.com > NETv2.0.rar > entry.cgi

#!/usr/bin/perl 
 
################################################################# 
#   【免責事項】                                                # 
#    このスクリプトはフリーソフトです。このスクリプトを使用した # 
#    いかなる損害に対して作者は一切の責任を負いません。         # 
#    また設置に関する質問はサポート掲示板にお願いいたします。   # 
#    直接メールによる質問は一切お受けいたしておりません。       # 
################################################################# 
 
require 'jcode.pl'; 
require './ini_file/index.ini'; 
require 'suport.pl'; 
 
if($MENTE) { &ERR2("ﾎｬｻ､ﾖﾐ."); } 
&DECODE; 
 
if($mode eq "") {require 'entry/entry.pl'; &ENTRY; } 
elsif($mode eq 'NEW_CHARA') { require 'entry/new_chara.pl';require 'entry/data_send.pl';&NEW_CHARA; } 
elsif($mode eq 'DATA_SEND') { require 'entry/data_send.pl';&DATA_SEND; } 
elsif($mode eq 'RESISDENTS') { require 'entry/resisdents.pl';&RESISDENTS; } 
elsif($mode eq 'ATTESTATION') { require 'entry/attestation.pl';&ATTESTATION; } 
elsif($mode eq 'SET_ENTRY') { require 'entry/attestation.pl';&SET_ENTRY; } 
else{require 'entry/entry.pl';&ENTRY;}