#!/usr/bin/perl
#============#
# 基本設定 #
#============#
#require "./jcode.pl";
require "./cgi-lib.pl";
&ReadParse;
$starttime = localtime(time);
#表示用テンプレートファイル
$tmpfile = "template_title.html";
#データファイル
$datafile = "xam2019list.dat";
#引数取得
$title = $in{'title'};
if($title eq 'E'){$info1="Xam2019英語";}
if($title eq 'M'){$info1="Xam2019数学";}
if($title eq 'J'){$info1="Xam2019国語";}
if($title eq 'P'){$info1="Xam2019物理";}
if($title eq 'C'){$info1="Xam2019化学";}
if($title eq 'B'){$info1="Xam2019生物";}
if($title eq 'T'){$info1="Xam2019地学・総合";}
if($title eq 'H'){$info1="Xam2019日本史";}
if($title eq 'W'){$info1="Xam2019世界史";}
if($title eq 'G'){$info1="Xam2019地理";}
if($title eq 'V'){$info1="Xam2019公民";}
$info2="収録一覧";
$count = 0;
$list = "
No | 都道府県 | 校種 | 大学名 | 日程・学部 | PDF | ワープロ | 解答例 | FileNo |
";
open (DAT,"<$datafile");
while($line=){
chomp $line;
$color = "#000000";
# ($item_No,$item_Title,$item_Subject,$item_Pref,$item_Kousyu,$item_UnivID,$item_UnivName,$item_FileNo,$item_Date,$item_Nittei,$item_Gakubu,$item_PDF,$item_Word,$item_Answer,$item_Tozai) = split(/\t/,$line);
($item_Title,$item_FileNo,$item_Pref,$item_Kousyu,$item_UnivID,$item_UnivName,$item_Date,$item_Nittei,$item_Gakubu,$item_PDF,$item_Word,$item_Answer,$item_Tozai) = split(/\t/,$line);
$disp_PDF="●";
$disp_Word="●";
$disp_Answer="●";
if($item_PDF eq ""){$disp_PDF="-";}
if($item_PDF eq "ver"){$disp_PDF="未定";}
if($item_PDF eq "ver0.0"){$disp_PDF="-";}
if($item_PDF eq "ver1.0"){$disp_PDF="○";} #製品版
if($item_PDF eq "ver1.1"){$disp_PDF="●";} #7月末アップデート
if($item_PDF eq "ver1.2"){$disp_PDF="●";} #8月末アップデート
if($item_PDF eq "ver1.3"){$disp_PDF="●";}
if($item_PDF eq "ver1.4"){$disp_PDF="未定";}
if($item_Word eq ""){$disp_Word="-";}
if($item_Word eq "ver"){$disp_Word="未定";}
if($item_Word eq "ver0.0"){$disp_Word="-";}
if($item_Word eq "ver1.0"){$disp_Word="○";}
if($item_Word eq "ver1.1"){$disp_Word="●";}
if($item_Word eq "ver1.2"){$disp_Word="●";}
if($item_Word eq "ver1.3"){$disp_Word="●";}
if($item_Word eq "ver1.4"){$disp_Word="未定";}
if($item_Answer eq ""){$disp_Answer="-";}
if($item_Answer eq "ver"){$disp_Answer="未定";}
if($item_Answer eq "ver0.0"){$disp_Answer="-";}
if($item_Answer eq "ver1.0"){$disp_Answer="○";}
if($item_Answer eq "ver1.1"){$disp_Answer="●";}
if($item_Answer eq "ver1.2"){$disp_Answer="●";}
if($item_Answer eq "ver1.3"){$disp_Answer="●";}
# if($item_Answer eq "ver1.4"){$disp_Answer="未定";}
if($item_Title eq "XAM2019".$title){
$count++;
if($item_Word ne ""){$color="#ff0000";}
$list = $list."".$count." | ".$item_Pref." | ".$item_Kousyu." | ".$item_UnivName." | ".$item_Date.",".$item_Nittei.",".$item_Gakubu." | ".$disp_PDF." | ".$disp_Word." | ".$disp_Answer." | ".$item_FileNo." |
";
}
}
$list = $list."
";
close (DAT);
#HTML記述
print "Content-type: text/html\n\n";
open (READ,"<$tmpfile");
while($ln=){
chomp $ln;
$ln =~ s/##info1##/$info1/g;
$ln =~ s/##info2##/$info2/g;
$ln =~ s/##main##/$list/g;
print "$ln\n";
}
close (READ);
exit(0);