#-*-Perl-*-
#Max Cannon's Red Meat: http://www.redmeat.com

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

sub redmeat {
    my $today = shift(@_);
    my @ltime = localtime($today);
    my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = 
        localtime($today);
    if ($wday == 2) {
	my $rec = {
	    'name' => strftime("Red_Meat-${date_fmt}.gif",@ltime),
	    'base' => "http://www.redmeat.com/redmeat/",
	    'page' => "fresh.html",
	    'expr' => "(comics/rm_\\d+\.gif)\" alt=\"This Week"
	    };
	return $rec;
    } else {
	return undef;
    }
}

1;
