#-*-Perl-*-

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

#Fox Trot http://www.foxtrot.com/
sub ft {
    my @ltime = localtime(shift(@_));
    my $rec = {
	'name' => strftime("Fox_Trot-${date_fmt}.gif",@ltime),
	'base' => "http://www.foxtrot.com/strips/",
	'page' => strftime("ft%y%m%d.gif",@ltime)
	};
    return $rec;
}

1;


