#!/usr/local/bin/perl

#----------------#
#    初期設定    #
#----------------#

#--- 環境に合わせて書き替える項目 --------------------------------------------#
use CGI::Carp qw( fatalsToBrowser );

use lib '../../lib'; # util.libを格納しているディレクトリ 
use commonlib;

#◆日本語コード変換ライブラリ
$jcode = 'jcode.pl';
$cgilib= 'cgi-lib.pl';

 eval{ require $jcode } or  &showErrorPage('ERROR',$ERR_MSG{'load'},"err-no.0001"); 
 eval{ require $cgilib } or  &showErrorPage('ERROR',$ERR_MSG{'load'},"err-no.0002");
 eval{ require '../../lib/main_conf.pl'} or  &showErrorPage('ERROR',$ERR_MSG{'load'},"err-no.0003");
 eval{ require './config.pl'} or  &showErrorPage('ERROR',$ERR_MSG{'load'},"err-no.0004");


# スクリプト名
$reload = $ENV{'SCRIPT_NAME'};


##==========================================
##  本処理
##==========================================
{

#  (基本処理)

 &getkanjicode;
 if($G_ENFLG) { $hcode = "ISO-8859-1"; }

 eval{ require $jcode } or  &showErrorPage('ERROR',$ERR_MSG{'load'},"err-no.0001"); 
 eval{ require $cgilib } or  &showErrorPage('ERROR',$ERR_MSG{'load'},"err-no.0002"); 

if(!$HEADFLG) {
print "Content-type: text/html; charset=utf-8\n\n";
print "\n";
$HEADFLG=1;
}

#temp.pm temp_lib.pmを利用して画面描画
#commonlib.pm内のコードを利用

&printHeader();

&printCategoryHeader();
&printCategoryList();
&printCategoryFooter();

&printDataListHeader();
&printDataList();
&printDataListFooter();

&printFooter();


 exit(0);
}