#-*-Perl-*-

foreach ("zenon","alex") {
    $hof{$_} = 0;
}

#Nando Comics http://www.nando.net/nt/comics
sub NandoComics {
    my ($time, $name, $dir, $file) = @_;
    my @ltime = localtime($time);
    #set the year to one digit
    my $year = $ltime[5] % 10;
    my $rec = {
	'name' => strftime("${name}-${date_fmt}.gif",@ltime),
	'base' => "http://www.nandotimes.com/nt/comics/$dir",
	'page' => strftime("/archive/%m.%d.%y/$file",@ltime)
	};
    return $rec;
}

#Zenon http://www.nandotimes.com/nt/comics/zenon/
# ex : http://www.nando.net/nt/comics/zenon/archive/05.04.98/zenon.gif
sub zenon {
    my $time = shift @_;
    my @ltime = localtime($time);
    return undef if $ltime[6] == 0; #no sunday comics
    
    return NandoComics($time,"Zenon","zenon","zenon.gif");
}

#Alex http://www.nandotimes.com/nt/comics/alex/
# ex : http://www.nando.net/nt/comics/zenon/archive/08.11.97/full.gif
sub alex {
    return NandoComics(shift(@_),"Alex_Restaurant","alex","full.gif");
}

1;

