#!/usr/bin/perl --
print "Content-type: image/gif\n\n";

#############################################
#BooImageTimer v1.01 / this program is free.#
#(C) BooBooClub 2001-2002                   #
#############################################


#set data

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



#time
($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;
	$value =~ s/\n/<br>/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);
binmode(STDOUT);
while(<IMG>){
	print;
}
close(IMG);

exit 0;