#-*-Perl-*-

$hof{"spooner"} = 1;

#Spooner  http://home.earthlink.net/~dawsoncomics/
#Trying to get this  one was tricky. Happily, it seems there is one
#common point on each web page. 
sub spooner {
    my @ltime = localtime(shift(@_));
    my $rec = {
        'name' => strftime("Spooner-${date_fmt}.jpg",@ltime),
        'base' => "http://home.earthlink.net/~dawsoncomics/",
        'page' => lc strftime("%m%d_frame.html",@ltime),
        'exprs' => ["IMG SRC=\"(\\w+\\.[Jj][Pp][Ee]?[Gg])\""]
        };
    return $rec;
}

1;

