#-*-Perl-*-

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

#Bruno http://www.brunostrip.com/bruno.html
# ex : http://www.brunostrip.com/mar0299.gif
sub bruno {
    my @ltime = localtime(shift(@_));
    return undef if $ltime[6] == 0; #no sunday comics
    my @monthconv = ("jan", "feb", "mar", "apr", "may", "june",
                     "july", "aug", "sept", "oct", "nov", "dec");
    my $tmp = $monthconv[$ltime[4]];
    my $rec = {
        'name' => strftime("Bruno-${date_fmt}.gif",@ltime),
        'base' => "http://www.brunostrip.com",
        'page' => strftime("/$tmp%d%y.gif",@ltime)
    };
    return $rec;
}

1;
