#!/usr/bin/perl
#print "Content-type: text/html;\n\n";print "
";
use utf8;
chdir('./cgi_system/admin/');
if(Windows_check()) {
chdir(GetScriptPath($0));
}
sub Windows_check
{
# IIS,PWS(NT/95)対策
$www_server_os = $^O;
# Win98 & NT(SP4)対策
if($www_server_os eq "") {
$www_server_os= $ENV{'OS'};
}
# AnHTTPd/Omni/IIS 対策
if($ENV{'SERVER_SOFTWARE'} =~ /AnWeb|Omni|IIS\//i) {
$www_server_os= 'win';
}
# Win Apache 対策
if($ENV{'WINDIR'} ne "") {
$www_server_os= 'win';
}
if($www_server_os=~ /win/i) {
return(1);
}
return(0);
}
sub GetScriptPath {
local($path) = @_;
if($path =~ /[\:\/\\]/){
$path =~ s/(.*?)[\/\\][^\/\\]+$/$1/;
} else {
$path = '.';
}
$path;
}
# 入力画面でのエラー表示。
$ERROR_DISPMODE = 1;
#=============================================================================
# ツリー
#
# ----+--[common]
# | jcode.pl
# | lib.pl
# | record.pl
# |
# +--[sessions]
# |
# +--[data]
# |
# +--[files]
# +--[sys_image]
# +--[item_image]
# +--[item_image]
# |
# +--[adminreg]--[map]
# adminreg.cgi
# +--[新しく作るcgi]
#=============================================================================
%File_NameList = (
"errormsg" => "", # □
"nonname" => "", # □
);
#
# テンプレートファイルマトリクス
#
# mode テンプレートファイル
%temp_file = (
"errormsg" => "../../supporter_map/error.html", #
"top" => "../../supporter_map/map.html", #
"supporter_map" => "../../supporter_map/index.html", #
"search_list" => "../../supporter_map/index.html", #
"banner_link" => "", #
);
%MODE = (
# モード名 関数名 関数日本語 管理者区別(1:管理者 0:一般) 次モード
"top" => [\&item_disp1 ,'FORM' ,0 ,'search_list' ], #
# "supporter_map" => [\&item_disp1 ,'FORM' ,0 ,'search_list' ], #
"search_list" => [\&item_disp2 ,'FORM' ,0 ,'search_list' ], #
"banner_link" => [\&banner_link ,'FORM' ,0 ,'search' ], #
);
#=============================================================================
#
#=============================================================================
$TEMPHTML_OUT = 1; # 1:データ置き換えモード 0:テンプレート吐き出しモード [[--]]を生出力
# チェック方式
# telhandy,tel,handyphone,fax,zip,ascii,kana,hira,minus,strnumeric,numeric,float,comma,alphanumeric,email,url,date,time,upfile,length,range,
# 指定無しでなし
# 複数は<>区切り
# 入力文字数最小
# チェック方式のlength指定のとき有効
# 入力文字数最大
# チェック方式のlength指定のとき有効
# 未記入
# 0;未記入可能 1:未記入不可
# 変換方式
# ||区切りでパラメータ
# zip||郵便番号3名||郵便番号4名||郵便番号3-郵便番号4名 郵便番号3,郵便番号4から郵便番号3-郵便番号4の相互変換
# date||年名||月名||日名||年/月/日名 年,月,日から年/月/日の相互変換
# tel||tel1名||tel2名||tel3名||tel1-tel2-tel3名 tel1,tel2,tel3からtel1-tel2-tel3の相互変換
# time||時名||分名||時:分名 時,分から時:分の相互変換
# br-lf
からLFの相互変換
# lfdel 改行コード削除
# tabdel タブコード削除
# xss xss対策html<>&"'を無効化 xssは順番で xss<>br-lfで順番で記述してください反対になると
まで変換されます
# z2h 全角英数字を半角に
# h2z 半角を全角英数字に
# kz2h 全角カナを半角に
# kh2z 半角カナを全角に
# 指定無しでなし
# 複数は<>区切り
# htmlタイプ(オプション定義しておいてHTML生成に通すと雛形を作るために・・)
# text
# radio
# checkbox
# select
# textarea
# ||区切りでhtmlパラメータ
# text||20||30 入力幅||最大入力値
# radio||表示名1\t値1||表示名2\t値2 選択1\t値||選択2\t値
# checkbox||表示名1\t値1||表示名2\t値2 選択1\t値||選択2\t値
# textarea||4||30 縦幅||入力幅
# select1||指定なし||../data/file.txt||hensu1||hensu2||xxx_RECORD 指定なしのときの表記||ファイル名||表示名を定義している変数名 $なし||値を定義している変数名 $なし||値を定義している構造体名 @なし
# radio1||指定なし||../data/file.txt||hensu1||hensu2||xxx_RECORD 指定なしのときの表記||ファイル名||表示名を定義している変数名 $なし||値を定義している変数名 $なし||値を定義している構造体名 @なし
# checkbox1||指定なし||../data/file.txt||hensu1||hensu2||xxx_RECORD 指定なしのときの表記||ファイル名||表示名を定義している変数名 $なし||値を定義している変数名 $なし||値を定義している構造体名 @なし
# select2||指定なし||array変数名 指定なしのときの表記||選択リストの配列変数名 $なし "表示名\t値"で定義
# 生成しない
# フォーマット "000000"
# ||||||
# ++++++---
# 前から1番目:新規入力 0:生成する 1:しない 2:修正入力時確認表示
# 前から2番目:新規確認表示
# 前から3番目:修正入力
# 前から4番目:修正確認表示
# 前から5番目:削除確認表示
# 前から6番目:確認表示
# JavaScriptチェック
# 1でJavaScript補助入力を行う 0:でしない
#####2006
# 横並で項目表示
# 1で項目を横並びで出力する
# コメント制御
# 生成しないフォーマットと同じ 0でコメント出力 1でコメント出力しない
# 前コメント
# 入力エリアの前にコメントを出す
# 後コメント
# 入力エリアの後にコメントを出す
#\―ソЫⅨ噂浬欺圭構蚕十申曾箪貼能表暴予禄兔喀媾彌拿杤歃濬畚秉綵臀藹觸軆鐔饅鷭偆砡
#↑の文字を使う場合 \を頭に入れてください
#
# メインマスタ
#
%MAIN_REQUIRED = (
# input name= 入力順位 日本語名 未記入 横並 コメント制御 前コメント 後コメント
"_create_member_id" ,["10" ,"登録者ID" ,"0" ,"" ,"" ,"" ,"" ], # 登録者ID
"_create_datetime" ,["20" ,"登録日時" ,"0" ,"" ,"" ,"" ,"" ], # 登録日時
"_update_member_id" ,["30" ,"更新者ID" ,"0" ,"" ,"" ,"" ,"" ], # 更新者ID
"_update_datetime" ,["40" ,"更新日時" ,"0" ,"" ,"" ,"" ,"" ], # 更新日時
"_delete_flag" ,["50" ,"削除フラグ" ,"0" ,"" ,"" ,"" ,"" ], # 削除フラグ
);
#
# メインマスタ
#
%MAIN_CHECKED = (
# チェック方式 入力文字数最小 入力文字数最大 変換方式 htmlタイプ 生成しない JavaScriptチェック
"_create_member_id" ,["numeric" ,"0" ,"0" ,"xss<>lfdel<>tabdel" ,"text||20||30" ,"111111" ,"0" ], # 登録者ID
"_create_datetime" ,["length" ,"0" ,"0" ,"xss<>lfdel<>tabdel" ,"text||20||30" ,"111111" ,"0" ], # 登録日時
"_update_member_id" ,["numeric" ,"0" ,"0" ,"xss<>lfdel<>tabdel" ,"text||20||30" ,"111111" ,"0" ], # 更新者ID
"_update_datetime" ,["length" ,"0" ,"0" ,"xss<>lfdel<>tabdel" ,"text||20||30" ,"111111" ,"0" ], # 更新日時
"_delete_flag" ,["numeric" ,"0" ,"0" ,"xss<>lfdel<>tabdel" ,"text||20||30" ,"111111" ,"0" ], # 削除フラグ
);
%MAIN_OPTION = (
# 入力説明文 オプションタグ、コメント
"holiday" ,[ "", qq| | ] ,#"郵便番号",
);
%MAIN_OPTION_EX = (
# 入力タグ制御文(disabled style) checkbox,radio改行指定
# "holiday_year" ,[ " class=\"w10\" onChange=\"return day_dispctl(document.mform.holiday_year,document.mform.holiday_month,document.mform.holiday_day)\">