#!/usr/bin/perl
###############################################################################
# #
# Title :ＴＯＰページ表示用ＣＧＩ #
# Owner :T.Y #
# Create:2000/02/16 Update:2000/02/16 #
# #
###############################################################################
require '/home/mailux/lib/jcode.pl';
require '/home/mailux/lib/mylib.pl';
#-----------------------------------------------------------------------------#
# 変数の初期化
#-----------------------------------------------------------------------------#
%MYENV = (
cssfile => "$mylib::COMON{cssfile}",
msgfile => "$mylib::COMON{msgfile}",
presentpg => "$mylib::COMON{webhost}$mylib::COMON{htmlpath}index.cgi",
next1pg => "$mylib::COMON{webhost}$mylib::COMON{htmlpath}menu.shtml",
next2pg => "$mylib::COMON{webhost}$mylib::COMON{htmlpath}index.php",
sitettl => "$mylib::COMON{sitettl}",
text => "$mylib::COMON{text}",
link => "$mylib::COMON{link}",
vlink => "$mylib::COMON{vlink}",
alink => "$mylib::COMON{alink}",
topmargin => "$mylib::COMON{topmargin}",
bgcolor => "$mylib::COMON{bgcolor}",
ttlimg => "$mylib::COMON{ttlimg}",
ttlwsize => "$mylib::COMON{ttlwsize}",
ttlhsize => "$mylib::COMON{ttlhsize}",
bgimg => "$mylib::COMON{bgimg}",
errmail => "$mylib::COMON{errmail}",
email => "$mylib::COMON{mail}",
cginame => "index.cgi",
);
#-----------------------------------------------------------------------------#
# ＨＴＭＬ結果画面出力
#-----------------------------------------------------------------------------#
if($ENV{HTTP_USER_AGENT} =~ /MSIE 3\.0/){
&mylib::cnvprn(*STDOUT,'jis',"Content-type: text/html\n\n");
}else{
&mylib::cnvprn(*STDOUT,'jis',"Content-type: text/html; charset=iso-2022-jp\n\n");
}
unless(-s $MYENV{msgfile}){
#/////////////////////////////////////////////////////////////////////////////#
&mylib::cnvprn(*STDOUT,'jis',<<"HTML1");
$MYENV{sitettl}
HTML1
#/////////////////////////////////////////////////////////////////////////////#
}else{
unless(open(MSGF,"<$MYENV{msgfile}")){
$msg = 'I/O error!!';
}else{
$msg = ;
}
close(MSGF);
#/////////////////////////////////////////////////////////////////////////////#
&mylib::cnvprn(*STDOUT,'jis',<<"HTML2");
$MYENV{sitettl} メンテナンス中・・・・
HTML2
#/////////////////////////////////////////////////////////////////////////////#
}
exit();