#-*-Perl-*-

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

#Doonesbury http://www.doonesbury.com/dailydose/
sub doon {
    my @ltime = localtime(shift(@_));
    my $rec = {
	'name' => strftime("Doonesbury-${date_fmt}.gif",@ltime),
	'base' => "http://www.doonesbury.com/dailydose/strips",
	'page' => strftime("/%Y/%m/db%y%m%d.gif",@ltime)
    };
    return $rec;
}

1;
