#-*-Perl-*-

$hof{"wiley"} = 0;

# Wiley's Non Sequitur
# ex : http://www.wileytoons.com/archive/1999/mar99/030199.jpg
sub wiley {
    my @ltime = localtime(shift(@_));
    my $rec = {
	'name' => strftime("Wiley_Non_Sequitur-${date_fmt}.jpg",@ltime),
	'base' => "http://www.wileytoons.com/archive",
	'page' => lc strftime("/%Y/%b%y/%m%d%y.jpg",@ltime)
    };
    return $rec;
}

1;
