#!/usr/bin/perl
# 基本構成ディレクトリ
$BASE_DIR = './atmailform_data/';
# 画像基本ディレクトリ(初期値)
$DEF_IMGDIR = './atmailform_img/';
my $boot = $BASE_DIR. 'bin/admin_pl.cgi';
# 読み込み検査
unless( -e $boot ){
&start_error();
exit;
}
require $boot;
exit;
sub start_error {
print <<'END';
Content-type: text/html
Error
基本構成ディレクトリの指定に誤りがあります。
END
exit;
}