#-*-Perl-*-

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

sub touche {
    my @ltime = localtime(shift(@_));
    return undef if $ltime[6]==0; #no sunday comics
    my $rec = {
	'name' => strftime("Touche-${date_fmt}.gif",@ltime),
	'base' => "http://www.taz.de/tpl/",
	'page' => strftime("%Y/%m/%d/tom.gif.fr/img",@ltime)
	};
    return $rec;
}

1;
