#!/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 .= "