#-*-Perl-*-

#first strip was November 18, 1985.
#Add the name of the subroutines to the hash of functions
#with the number of days from today the comic is available
$hof{"ch"} = (365*11) + 3; #11 years, 2 of which were leap years & 1 day behind

#Calvin & Hobbes http://www.calvinandhobbes.com/strips/
sub ch {
    my @ltime = localtime(shift(@_));
    my $rec = {
	'name' => strftime("Calvin_and_Hobbes-${date_fmt}.gif",@ltime),
	'base' => "http://www.calvinandhobbes.com",
	'page' => strftime("/strips/%y/%m/ch%y%m%d.html",@ltime),
	'exprs' => [strftime("(\/strips\/%y\/%m\/ch\\d+\.gif)",@ltime)]
	};
    return $rec;
}

1;
