#-*-Perl-*-

#Add the name of the subroutines to the hash of functions
#with the number of days from today the comic is available
$hof{"me"} = 0;

sub me {
    my $time = shift;
    my @ltime = localtime($time);
    my @rtime = @ltime;
    my $path = strftime("%y%m/me%y%m%d",@ltime);
    my $rec = {
        'name' => strftime("Madam_and_Eve-${date_fmt}.gif",@rtime),
        'base' => "http://www.mg.co.za/mg/madameve/",
    };

    if ($ltime[6]==6) {
	$rec->{'func'} = sub {
	    return ("${path}a.gif","${path}b.gif");
	}
    } elsif ($ltime[6]==0) {
	return undef; #no sunday comics
    } else {
        $rec->{'page'} = "$path.gif";
    }

    return $rec;
}

1;
