#!/usr/bin/perl

#  $Id: search.cgi,v 2.0 2004/03/14 11:12:27 naohito Exp $
#
# ＪＰＳ イベント検索スクリプト 検索部
#     http://planetarium.jp
#
# スクリプト開発: 福原直人  (http://news.local-group.jp/)
# ＪＰＳ用に改変：渡部義弥  (http://planetarium.jp/
# 2005 年火星用にさらに改変：渡部義弥  (http://planetarium.jp/

$datafile = 'mars2005.csv';

@regiontable = (
		'全て',
		'北海道',
		'東北',
		'関東',
		'中部',
		'近畿',
		'中国',
		'四国',
		'九州'
		);

@areatable = (
		'全て',
		'北海道',
		'青森県',
		'岩手県',
		'秋田県',
		'山形県',
		'宮城県',
		'福島県',
		'栃木県',
		'埼玉県',
		'茨城県',
		'群馬県',
		'千葉県',
		'東京都',
		'神奈川県',
		'新潟県',
		'富山県',
		'長野県',
		'山梨県',
		'静岡県',
		'石川県',
		'岐阜県',
		'愛知県',
		'福井県',
		'滋賀県',
		'三重県',
		'京都府',
		'大阪府',
		'奈良県',
		'和歌山県',
		'兵庫県',
		'鳥取県',
		'岡山県',
		'島根県',
		'広島県',
		'山口県',
		'徳島県',
		'愛媛県',
		'香川県',
		'高知県',
		'福岡県',
		'大分県',
		'佐賀県',
		'長崎県',
		'熊本県',
		'宮崎県',
		'鹿児島県',
		'沖縄県'
		);

@categorytable = (
		'全て',
		'プラネタリウム',
		'天体観望会',
		'講座・教室',
		'講演会',
		'展示',
		'その他'
		);

sub sanitize {
	local ($item) = @_;

	$item =~ s/&/&/g;
	$item =~ s/"/"/g;
	$item =~ s/</&lt;/g;
	$item =~ s/>/&gt;/g;

	return $item;
}

require 'jcode.pl';
use CGI;
$cgi = new CGI;

@selectedRegion = $cgi->param("region");
@selectedArea = $cgi->param("area");

$selectedCategory = $cgi->param('category');
$selectedTime = $cgi->param('time');
$startTimeYY  = $cgi->param('startyear');
$startTimeMM  = $cgi->param('startmonth');
$startTimeDD  = $cgi->param('startday');
$endTimeYY    = $cgi->param('endyear');
$endTimeMM    = $cgi->param('endmonth');
$endTimeDD    = $cgi->param('endday');

$selectedStartTime = "$startTimeYY$startTimeMM$startTimeDD";
$selectedEndTime = "$endTimeYY$endTimeMM$endTimeDD";

$sbmt = $cgi->param('submit');

if ($sbmt eq ''){
	my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
	$mon++;
	$year += 1900;
	$startTimeYY = sprintf("%04d", $year);
	$startTimeMM = sprintf("%02d", $mon);
	$startTimeDD = sprintf("%02d", $mday);
}

$regionlist = '';
foreach $item (@regiontable){
	if (grep (/$item/, @selectedRegion)){
		$regionlist .= qq|<option selected>$item</option>\n|;
	} else {
		$regionlist .= qq|<option>$item</option>\n|;
	}
}

$arealist = '';
foreach $item (@areatable){
	if (grep (/$item/, @selectedArea)){
		$arealist .= qq|<option selected>全て</option>\n|;
	} else {
		$arealist .= qq|<option>$item</option>\n|;
	}
}

$categorylist = '';
foreach $item (@categorytable){
	if ($item eq $selectedCategory){
		$categorylist .= "<option selected>$item</option>\n";
	} else {
		$categorylist .= "<option>$item</option>\n";
	}
}

if ($startTimeYY eq '0000'){
	$startYYlist = qq|<option value="0000" selected>2005</option>\n|;
} else {
	$startYYlist = qq|<option value="0000">2005</option>\n|;
}
for($i=2005; $i<2005; $i++){
	$year = sprintf("%04d", $i);
	if ($startTimeYY eq $year){
		$startYYlist .= "<option selected>$year</option>\n";
	} else {
		$startYYlist .= "<option>$year</option>\n";
	}
}

if ($startTimeMM eq '00'){
	$startMMlist = qq|<option value="00" selected>全て</option>\n|;
} else {
	$startMMlist = qq|<option value="00">全て</option>\n|;
}
for($i=9; $i<13; $i++){
	$month = sprintf("%02d", $i);
	if ($startTimeMM eq $month){
		$startMMlist .= "<option selected>$month</option>\n";
	} else {
		$startMMlist .= "<option>$month</option>\n";
	}
}

if ($startTimeDD eq '00'){
	$startDDlist = qq|<option value="00" selected>全て</option>\n|;
} else {
	$startDDlist = qq|<option value="00">全て</option>\n|;
}
for($i=1; $i<32; $i++){
	$day = sprintf("%02d", $i);
	if ($startTimeDD eq $day){
		$startDDlist .= "<option selected>$day</option>\n";
	} else {
		$startDDlist .= "<option>$day</option>\n";
	}
}

if ($endTimeYY eq '9999'){
	$endYYlist = qq|<option value="9999" selected>2005</option>\n|;
} else {
	$endYYlist = qq|<option value="9999">2005</option>\n|;
}
for($i=2005; $i<2005; $i++){
	$year = sprintf("%04d", $i);
	if ($endTimeYY eq $year){
		$endYYlist .= "<option selected>$year</option>\n";
	} else {
		$endYYlist .= "<option>$year</option>\n";
	}
}

if ($endTimeMM eq '99'){
	$endMMlist = qq|<option value="99" selected>全て</option>\n|;
} else {
	$endMMlist = qq|<option value="99">全て</option>\n|;
}
for($i=9; $i<13; $i++){
	$month = sprintf("%02d", $i);
	if ($endTimeMM eq $month){
		$endMMlist .= "<option selected>$month</option>\n";
	} else {
		$endMMlist .= "<option>$month</option>\n";
	}
}

if ($endTimeDD eq '99'){
	$endDDlist = qq|<option value="99" selected>全て</option>\n|;
} else {
	$endDDlist = qq|<option value="99">全て</option>\n|;
}
for($i=1; $i<32; $i++){
	$day = sprintf("%02d", $i);
	if ($endTimeDD eq $day){
		$endDDlist .= "<option selected>$day</option>\n";
	} else {
		$endDDlist .= "<option>$day</option>\n";
	}
}


#### ヘッダ出力 #####
print <<EOF;
Content-Type: text/html; charset=euc-jp

<html>
<meta http-equiv="Pragma" content="no-cache">
<meta http-equiv="Cache-Control" content="no-cache">
<title>2005年火星接近関連プラネタリウム・観望会・イベント検索</title>
</head>
<body stylesrc="http://planetarium.jp/index.html" style="line-height: 150%" bgcolor="#FFFCFC" text="#222222" link="#FF3333" vlink="#FF3333" alink="#FF3333">
<h2>2005年火星接近関連プラネタリウム・観望会・イベント検索</h2>
EOF

#### 検索フォーム出力 ####

print <<EOF;
<p>項目を選択して「検索」ボタンを押してください。</p>
<form method="get" action="marsearch.cgi">
<table>
<tr><td align="left" valign="top">地域<font size=-1>（複数選択可能）</font><BR>

<select name="region" size="9" multiple>
$regionlist
</select>

<td align="left" valign="top">ジャンル<BR>
<select name="category" size="7">
$categorylist
</select>
</td>
</tr>

<tr><td align="left" valign="top" colspan="2">時期<BR>
<select name="startyear">
$startYYlist
</select>
年
<select name="startmonth">
$startMMlist
</select>
月
<select name="startday">
$startDDlist
</select>
日から<br>〜
<select name="endyear">
$endYYlist
</select>
年
<select name="endmonth">
$endMMlist
</select>
月
<select name="endday">
$endDDlist
</select>
日まで
</td></tr>
<tr>
<td colspan="2"><input type="submit" name="submit" value=" 検　索 "></td>
</tr>
</table>
</form>
EOF

#### 検索結果出力 ###

if ($sbmt ne ''){

	$query = $ENV{'QUERY_STRING'};

## 注意書き ##

	print <<EOF;
<hr>
<h3>検索結果</h3>
<p>タイトルをクリックすると各イベントの詳細な情報が表示されます。<br>
<font size=-1>イベントへの参加にあたっては、主催者に電話等でご確認ください。</font></p>
<table border="1" cellpadding="5" cellspacing="0">
<tr>
<td>ジャンル</td>
<td>タイトル</td>
<td>日程</td>
<td>会場</td>
</tr>
EOF

	open(IN,$datafile);

	$dmy = <IN>;     # 先頭行はフィールド名なので読み捨て
	$id = 1;
	$count = 0;
	while(my $line = <IN>){
		$line .= <IN> while ($line =~ tr/"// % 2 and !eof(IN));
		$line = jcode'euc($line);
		$line =~ s/(?:\x0D\x0A|[\x0D\x0A])?$/,/;
		@values = map {/^"(.*)"$/s ? scalar($_ = $1, s/""/"/g, $_) : $_}
  	              ($line =~ /("[^"]*(?:""[^"]*)*"|[^,]*),/g);
		($category,
		 $source,
		 $title,
		 $gaiyo,
		 $startdate,
		 $enddate,
		 $starttime,
		 $kaijo{'name'},
		 $region,
		 $kaijo{'zip'},
		 $area,
		 $kaijo{'address'},
		 $mousikomi,
		 $houto,
		 $payment,
		 $ninzu,
		 $tanto{'name'},
		 $tanto{'tel'},
		 $url,
		 $remark,
		 $serial,
		 ) = @values;

		$categoryMatch = 'no';
		$regionMatch = 'no';
		$timeMatch = 'no';

		if ($selectedRegion[0] eq '') {
			$reagionMatch = 'yes';
		} elsif (grep(/全て/,@selectedRegion)) {
			$regionMatch = 'yes';
		} elsif (grep (/$region/, @selectedRegion)) {
			$regionMatch = 'yes'
		}

		if ($selectedCategory eq '' || $selectedCategory eq '全て' || $category eq $selectedCategory){
			$categoryMatch = 'yes';
		}

		$timeMatch = 'no';

		if ($enddate eq ''){
			$enddate = $startdate;
		}

		'0000年00月00日' =~ /([0-9]+)年([0-9]+)月([0-9]+)日/;
		$startdate =~ /([0-9]+)年([0-9]+)月([0-9]+)日/;
		$sdate = sprintf("%04d%02d%02d", $1, $2, $3);
		
		'9999年99月99日' =~ /([0-9]+)年([0-9]+)月([0-9]+)日/;
		$enddate   =~ /([0-9]+)年([0-9]+)月([0-9]+)日/;
		$edate     = sprintf("%04d%02d%02d", $1, $2, $3);


		if ($sdate <= $selectedEndTime && $edate >= $selectedStartTime){
			$timeMatch = 'yes';
		}

		if ($regionMatch eq 'yes' && $categoryMatch eq 'yes' && $timeMatch eq 'yes'){
			$count++;
			if ($startdate eq $enddate){
				$date = "$startdate";
			} else {
				$date = "$startdate-$enddate";
			}

			$title     = sanitize($title);
			$category  = sanitize($category);
			$region     = sanitize($region);
			$date      = sanitize($date);
			$starttime = sanitize($starttime);
			$endtime   = $starttime;
			$kaijo{'name'} = sanitize($kaijo{'name'});

			print <<EOF;
<tr>
<td align="left" valign="top"><font size=-1>$category</font></td>
<td align="left" valign="top"><a href="detail.cgi?id=$id&$query">$title</a></td>
<td align="left" valign="top">$date</td>
<td><b>$kaijo{'name'}</b><font size=-2><br>$area$kaijo{'address'}</font></td>
</tr>
EOF
		}
	$id++;
	}
}

if ($count eq ''){
	$msg = q|<p></p>
|;
} elsif ($count == 0){
	$msg = '<p><font color=red>該当するイベント情報はありませんでした。<br>地域・ジャンル・時期を選びなおして下さい</font></p>';
} else {
	$msg = qq|<p>全$count件のイベントを検索しました。</p><hr><p><a href="http://planetarium.jp/">日本プラネタリウム協会</p>|;
}

### フッタ出力 ### 
print <<EOF
</table>
$msg
<hr>
<p style="line-height: 75%" align=right><font size=1>プログラム提供   福原直人 (<a target="_top" href="http://news.local-group.jp">星が好きな人のための新着情報)</a><br>日本プラネタリウム協会にて改変)</font></p>
</body>
</html>
EOF