#-*-Perl-*-
#Tack on the names of the subroutines to the list of functions
$hof{"slagoon"} = 0;

#Sherman's Lagoon http://www.slagoon.com/
sub slagoon {
    my $today = shift(@_);
    my @ltime = localtime();
    my $rec = {
	'name' => strftime("Shermans_Lagoon-${date_fmt}.gif",@ltime),
	'base' => "http://www.slagoon.com/",
	'page' => strftime("dailies/SL%y.%m.%d.gif",@ltime)
	};
    return $rec;
}

1;
