#-*-Perl-*-

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

#Lily Wong : http://www.reuben.org/lilywong/
# ex : http://www.reuben.org/lilywong/archive/strips/971103.gif
sub lily {
    my @ltime = localtime(shift(@_));
    return undef if $ltime[6] == 0; #no sunday comics
    my $rec = {
        'name' => strftime("Lily_Wong-${date_fmt}.gif",@ltime),
        'base' => "http://www.reuben.org/lilywong/archive/strips",
        'page' => strftime("/%y%m%d.gif",@ltime)
    };
    return $rec;
}

1;

