#-*-Perl-*-

#Add the name of the subroutines to the hash of functions
#with the number of days from today the comic is available
$hof{"subname"} = 0;

sub subname {
    my @ltime = localtime(shift(@_));
    my $rec = {
	'name' => strftime("Comic_Name-${date_fmt}.gif",@ltime),
	'base' => "http://www.comic-site.com/cartoons/archives/",
	'page' => strftime("%y%m%d.html",@ltime),
	'exprs' => ["\\/cartoons\\/archives\\/(\\d+\\.gif)"]
	};
    return $rec;
}

1;
