#! /usr/local/bin/perl
print "Content-type: text/html\n\n";
#---------------------------------------------------
# 残席ARENAメールのご案内リンクを集計する 2011/11/10 yoshida
#
#---------------------------------------------------
$para =  $ENV{"QUERY_STRING"},"\n";		#パラメータゲット
$para =~ s/%(..)/pack("c",hex($1))/ge;	

#--------頭の一文字目が飛ぶことがあるので、飛んでいたら追加する
$topfn = substr($para,0,1);
if ($topfn ne "/") {
	$para = "/" . "$para";
}

@para = split(/\//,$para);				#パラメータを「/」で分割して分析する

#---------PDFファイルはセキュアDIRに置いてあるので、その時はhttps://とする。それ以外はhttp://。
$lastfn = $para[-1];
if ($lastfn =~ /pdf/) {
	$paratop = "https://www.maitabi.jp";
} else {
	$paratop = "https://www.maitabi.jp/atp/atp.php?";
}

#----------旅行番号かPDFかによって、httpかhttpsかを切り分ける
$para = "$paratop" . "$para";

print "<meta http-equiv=\"REFRESH\" content=\"0;URL=$para\">";
&logout();				#アクセス状況保存、

#========================
sub logout {
	$agent = $ENV{"HTTP_USER_AGENT"};
	$raddr = $ENV{"REMOTE_ADDR"};
	$docroot = $ENV{"DOCUMENT_ROOT"};
	$promei = $ENV{"SCRIPT_FILENAME"};
	 ($sec, $min, $hour, $mday, $mon, $year) = localtime(time);
	$nen = $year + 1900;
	$tuki = $mon + 1;
	$tuki = sprintf("%.2d",$tuki);
	$hi = $mday; $hi = sprintf("%.2d",$hi);

	$logfn = "arena/" . "$nen$tuki$hi" . "perl.log";
	open (OUT,">>$logfn");
		print OUT "$nen/$tuki/$hi $hour:$min:$sec $raddr ($promei,$para)($agent)\n";
#----------ログの後片付け
		($sec, $min, $hour, $mday, $mon, $year) = localtime(time - 60*60*24*365*1);
		$snen = $year + 1900;
		$stuki = $mon + 1;
		$stuki = sprintf("%.2d",$stuki);
		$shi = $mday;
		$hi = sprintf("%.2d",$hi);
		$sakunen = "$snen$stuki$shi";
		while (<./arena/*.log>) {
			$gfn = $_;						#/arena/20140414perl.log
			@gfn = split(/\//,$gfn);
			$lfn = $gfn[-1];
			$logyyyymmdd = substr($lfn,0,8);
#		print OUT "($logyyyymmdd) < ($sakunen)\n";
			if ($logyyyymmdd < $sakunen) {
				unlink "$gfn";
#			print OUT "unlink ($gfn)\n";
			}
		}
	close (OUT);
}