#-*-Perl-*-

$hof{"sp"} = 0;

# Superosity : http://www.superosity.com/
# ex : http://www.superosity.com/archives/sup990301.gif
sub sp {
    my $mytime = shift(@_);
    my @ltime = localtime($mytime);
    return undef if ($mytime < 920307600); # No strips before March 1st 1999
    my $rec = {
        'name' => strftime("Superosity-${date_fmt}.gif",@ltime),
        'base' => "http://www.superosity.com/",
        'page' => strftime("/archives/sup%y%m%d.gif",@ltime)
    };
    return $rec;
}

1;
