#!/usr/local/bin/perl

#-----------------------------------------------------------
#(C)眠居 陽 All right reversed.
# 2008.01.01 complete.
#-----------------------------------------------------------

#### □DATA_FORMAT□ ####
# ライブラリ
require '_library/_init.cgi';
require '_library/_html.cgi';
require '_library/_data.cgi';

#### ■MAIN_WORK■ ####

&data_DB_Vote; # DB抽出 -- <@db>
&data_Char; # 各キャラデータ -- <%char>
&data_Vote_Card; # 対戦データ -- <%date / %vote>
&data_Vote_Count; # 当日得票データ抽出 -- <%count_vote / @com>

#---- HTMLレイアウト ----

# 対戦ページ
if ($d{'card'}) {
	&data_Voice; # セリフ読み込み

	$html .= "<div id=center>\n";
	$html .= &html_Error if ($d{'error'});
	$html .= &html_Vote_Submit;
	$html .= "</div>\n";

# キャラページ
} elsif ($d{'char'}) {
	&data_Vote_Count_Log;      # 過去の投票データ抽出
	$html .= &html_Char_View;  # キャラページ

# 一覧ページ
} else {
	$html .= "<div id=left>\n";
	$html .= &html_Error2;
	$html .= &html_Vote_View if ($date{$d{'day'}}); # 対戦カード一覧
	&data_Vote_Count_Log;      # 過去の投票データ抽出
	$html .= &html_Class_View; # 過去の投票データ一覧
	$html .= &html_Caution; # 注意書き
	$html .= "</div>\n";

	$html .= "<div id=side>\n";
	$html .= &html_Card_View; # 日程表
	$html .= "</div>\n";
}


&html($html); # HTML表示

exit;

# EOF