#-*-Perl-*-

#Tack on the names of the subroutines to the list of functions
$hof{"ga"} = 14;

#Garfield http://www.garfield.com/comics/pages/
sub ga {
    my @ltime = localtime(shift(@_));
    my $rec = {
	'name' => strftime("Garfield-${date_fmt}.gif",@ltime),
	'base' => "http://www.garfield.com/comics/strips/",
	'page' => strftime("ga%y%m%d.gif",@ltime)
	};
    return $rec;
}

1;

