#-*-Perl-*-

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

#General Protection Fault http://www.gpf-comics.com/
# ex : http://www.gpf-comics.com/archive/images/gpf11021998.gif
sub gpf {
    my @ltime = localtime(shift(@_));
    return undef if $ltime[6] == 0; #no sunday seen so far
    my $rec = {
        'name' => strftime("GPF_%y%m%d.gif",@ltime),
        'base' => "http://www.gpf-comics.com/archive/images",
        'page' => strftime("/gpf%m%d%Y.gif",@ltime)
    };
    return $rec;
}

1;

