#!/usr/bin/perl
#######################################
#######################################
#「長野オリンピック・プレイバック」DB→HTML自動生成スクリプト
#######################################
#######################################

#ファイル名先頭
$GFILENAME = "nagano1";
$GTITLE = "長野オリンピック・プレイバック";

#生成対象インデクス：region, cat, date, update, abc(現在未対応)
@GINDEX_KEY = ("cat","region","update",);

#生成対象インデクスの格納ディレクトリ名
$GINDEX_DATA {"cat"} . = "ja_cat\t分類目次\t分類";
$GINDEX_DATA {"region"} . = "ja_rgn\t地域目次\t地域";
$GINDEX_DATA {"update"} . = "ja_update\t登録日目次\t登録日";

#当該サイトのURL
$GURL = "http://www.informatics.tuad.ac.jp/mmy/popcorn/$GFILENAME/";

#当該サイトのディレクトリへのローカル環境でのパス
$GPATH_LOCAL = "mmdb:mmy:popcorn:$GFILENAME:";

#当該サイトのディレクトリへのサーバ環境でのパス
$GPATH_SERVER = "/home2/www/zao/mmy/popcorn/$GFILENAME/";

#DBソースファイル名
$GDB_FILE = "$GFILENAME.db";

#LISTファイル名
$GLIST_FILE = "$GFILENAME.list";

#HTMLファイルのBODYタグのパラメータ
$GBODY = "bgcolor=\"beige\" text=\"black\" link=\"darkblue\" vlink=\"darkred\"";

#tablequoteで用いるテーブル背景色；省略時は黒
$GTQ_COLOR = "burlywood";

#ホームページ格納ディレクトリ
$GHOMEDIR = "ja";

#HTMLファイルのヘッダに付けるアドレスのデータ
$GADDRESS = "<address>\nContact: <a href=\"mailto:maekawa\@informatics.tuad.ac.jp\">前川道博@東北芸術工科大学</a>\n</address>\n";

#New表示用の画像　※未記入時は黄色TEXTで[New!]と表示
$GTAG_NEW = " <img src=\"../gif/new.gif\" align=\"bottom\">";

#tablequote背景色
$GTQ_COLOR = "";

#ナビゲーションの年月順指定
$GSORT_NAVI = "reverse";

require 'popcorn.pl';
&main;