#! /usr/local/bin/perl

#############################################
#BooImageTimer v1.02 / this program is free.#
#(C) BooBooClub 2001-2006                   #
#############################################


#set data

$set = 'bit.dat';
$dir = './';



#time
$ENV{'TZ'}='JST-9';
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$year = ($year + 1900);
$mon++;
if ($sec < 10) {	$sec = "0$sec";}
if ($min < 10) {	$min = "0$min";}
if ($hour < 10){	$hour = "0$hour";}
if ($mon < 10) {	$mon = "0$mon";}
if ($mday < 10){	$mday = "0$mday";}
$time = "$year/$mon/$mday $hour:$min:$sec";


#read
if ($ENV{'REQUEST_METHOD'} eq "POST"){
	read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
}
else{
	$buffer = $ENV{'QUERY_STRING'};
}

@pairs = split(/&/,$buffer);
foreach $pair (@pairs) {
	($name, $value) = split(/=/, $pair);
	$value =~ tr/+/ /;
	$value =~ s/\cM\n//g;
	$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
	$value =~ s/\,//g;
	$value =~ s/</&lt;/ig;
	$value =~ s/>/&gt;/ig;
	&jcode'convert(*value,'sjis');
	$FORM{$name} = $value;
}



#branch

open (DAT,"$set");
@set = <DAT>;
close (DAT);

map{$_ =~ s/#.*?\n//g;}@set;

foreach $sdat(@set){
	next, if $sdat eq "\n";
	@sdat = split(/,/,$sdat);
	@ddat = split(/\-/,$sdat[0]);
	@d1dat = split(/\//,$ddat[0]);
	@d2dat = split(/\//,$ddat[1]);
	@tdat = split(/\-/,$sdat[1]);
	if(
	 ($ddat[1] eq '' || ($ddat[1] ne '' && $d2dat[0] eq '*' || $d2dat[0] >= $year))
	 &&($ddat[1] eq '' || ($ddat[1] ne '' && $d2dat[1] eq '*' || $d2dat[1] >= $mon))
	 &&($ddat[1] eq '' || ($ddat[1] ne '' && $d2dat[2] eq '*' || $d2dat[2] >= $mday))
	 &&($d1dat[0] eq '*' || ($ddat[1] ne '' && $d1dat[0] <= $year) || ($ddat[1] eq '' && $d1dat[0] == $year))
	 &&($d1dat[1] eq '*' || ($ddat[1] ne '' && $d1dat[1] <= $mon) || ($ddat[1] eq '' && $d1dat[1] == $mon))
	 &&($d1dat[2] eq '*' || ($ddat[1] ne '' && $d1dat[2] <= $mday) || ($ddat[1] eq '' && $d1dat[2] == $mday))
	 &&($sdat[1] eq '*' || ($tdat[0] <= $hour && $hour <= $tdat[1]))
	 ){
		chomp $sdat;
		$image = $sdat[2];
		last;
	}
}



#output

open(IMG,"$dir$image");
binmode(IMG);
print "Content-type: image/gif\n\n";
binmode(STDOUT);
while(<IMG>){
	print;
}
close(IMG);

exit 0;