#!/usr/bin/perl
#######################################
#######################################
#「長野オリンピック追体験」DB→HTML自動生成スクリプト
#######################################
#######################################

#ファイル名先頭
$GFILENAME = "nagano9";
$GTITLE = "長野オリンピック追体験";

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

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

#日本語コード：sj, euc, jis
$GLANG_CODE = "sj";

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

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

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

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

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

#HTMLファイルへのURL表示の有無：url_non, url_yes
$GURL_DISP = "url_non";

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

#索引ページへのheadlineの記述方法の指定
# "no"なら、ページタイトルと同じ行に続けてheadlineを記述
#"yes"なら、ページタイトルの次行にheadlineを記述
$G_DD_ON = "no";

#検索ページの指定　※未記入はなし
#$GSEARCH = "page/search.html	検索";
$GSEARCH = "";

#ホームページ格納ディレクトリ
$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\">";

#おすすめスター
$GSTAR = "<img src=\"../gif/star.gif\" align=\"bottom\" border=0 alt=\"☆\">";

#tablequote背景色
$GTQ_COLOR = "#333333";

#リンク行色指定
$GLINE = "on";
$GLINE_COLOR_HEAD = "#666666";
$GLINE_COLOR = "#333333";

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

#プルダウンメニュー設定
$GPULLDOWN = "on";

#映像クリップ先頭マーク
$GCLIP_MARK = "<font color\=\"orange\">▼</font>"; #映像クリップ先頭マーク

#ミニチュア画像目次
$GIMAGECLIP = "on";


require 'popcorn.pl';
&main;