#!/usr/local/bin/perl
# チャチャターミナル用 Cgi side include 機構クライアント
#### 環境設定（グローバルだよん）
BEGIN{
# CSI サーバのディレクトリを入れてね（末尾スラッシュ無）
$CONFIG{CSI_DIR} = "../bin/csi";
# HTML テンプレートとなるディレクトリを入れてね（末尾スラッシュ無）
$CONFIG{TEMPLATE_DIR} = "../link_html";
# HTML テンプレートのファイル名を入れてね
$CONFIG{HTML_FILE} = "reflink.html";
$CONFIG{HTML_FILE_eng} = "reflink.html";
}
#### 初期起動
push (@HTTP_HEADER, "Content-type: text/html\n");
eval {
&main();
exit;
};
{
print "Content-type: text/html\n";
print "\n";
print "";
print "システムエラー。プログラムの誤りです。
$@ $!
";
}
#### メイン
sub main{
#### CGI 初期設定
select STDOUT; $| = 1;
open (STDERR, ">&STDOUT");
$ENV{'TZ'} = 'JST-9';
#### CSI サーバをロードする
require "$CONFIG{CSI_DIR}/csiserver.cgi";
#### CSI の実行
&csi_main();
exit;
}
1;