#-*-Perl-*-

foreach ("ba","bg","bb","be","blondie","fu","gb","hi","hg","hr","lo",
	 "mf","ma","mu","fa","sf","sh","ss","sm","trudy","zt","nm",
	 "pc","rl","ro","zp") {
    $hof{$_} = 21; #three weeks behind
}
    

#King Features http://www.kingfeatures.com/comics
sub kingfeature {
    #get arguments (fp stands for file prefix)
    my ($time,$name,$dir,$fp) = @_;
    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.kingfeatures.com/comics/$dir/",
	'page' => strftime("${fp}t$year%m%d.gif",@ltime)
	};
    return $rec;
}

#Baby Blues http://www.kingfeatures.com/comics/babyblue/
sub ba {
    return kingfeature(shift(@_),"Baby_Blues","babyblue","ba");
}

#Barney Google and Snuffy Smith  http://www.kingfeatures.com/comics/bgoogle/
sub bg {
    return kingfeature(shift(@_),"Barney_Google_and_Snuffy_Smith",
		       "bgoogle","bg");
}

#Beatle Baily http://www.kingfeatures.com/comics/bbailey/
sub bb {
    return kingfeature(shift(@_),"Beatle_Bailey","bbailey","bb");
}

#The Better Half http://www.kingfeatures.com/comics/bet_half/
sub be {
    return kingfeature(shift(@_),"The_Better_Half","bet_half","be");
}

#Blondie http://www.kingfeatures.com/comics/blondie/
sub blondie {
    return kingfeature(shift(@_),"Blondie","blondie","bl");
}

#Funky Winkerbean http://www.kingfeatures.com/comics/fwinker/
sub fu {
    return kingfeature(shift(@_),"Funky_Winkerbean","fwinker","fu");
}

#Grin and Bear It http://www.kingfeatures.com/comics/grinbear/
sub gb {
    return kingfeature(shift(@_),"Grin_and_Bear_It","grinbear","gr");
}

#Hagar the Horrible http://www.kingfeatures.com/comics/hagar/
sub hg {
    return kingfeature(shift(@_),"Hagar_the_Horrible","hagar","hg");
}

#Hi and Lois http://www.kingfeatures.com/comics/hi_lois/
sub hi {
    return kingfeature(shift(@_),"Hi_and_Lois","hi_lois","hi");
}

#Hi and Lois http://www.kingfeatures.com/comics/horrscpe/
sub hr {
    return kingfeature(shift(@_),"Horrorscope","horrscpe","hr");
}

#The Lockhorns http://www.kingfeatures.com/comics/lockhorn/
sub lo {
    return kingfeature(shift(@_),"The_Lockhorns","lockhorn","lo");
}

#Mallard Fillmore http://www.kingfeatures.com/comics/mallard/
sub mf {
    return kingfeature(shift(@_),"Mallard_Fillmore","mallard","mf");
}

#Marvin http://www.kingfeatures.com/comics/marvin/
sub ma {
    return kingfeature(shift(@_),"Marvin","marvin","ma");
}

#Mutts http://www.kingfeatures.com/comics/mutts/
sub mu {
    return kingfeature(shift(@_),"Mutts","mutts","mu");
}

#On The Fastrack http://www.kingfeatures.com/comics/fastrack/
sub fa {
    return kingfeature(shift(@_),"On_The_Fastrack","fastrack","fa");
}

#Sally Forth http://www.kingfeatures.com/comics/sforth/
sub sf {
    return kingfeature(shift(@_),"Sally_Forth","sforth","sf");
}

#Safe Havens http://www.kingfeatures.com/comics/safehavn/
sub sh {
    my $today = shift(@_);
    my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = 
        localtime($today);
    if ($wday != 0) {
	return kingfeature($today,"Safe_Havens","safehavn","sh");
    } else {
	return undef;
    }
}

#Sam & Silo http://www.kingfeatures.com/comics/sam_silo/
sub ss {
    return kingfeature(shift(@_),"Sam_and_Silo","sam_silo","ss");
}

#The Small Society http://www.kingfeatures.com/comics/ssociety/
sub sm {
    return kingfeature(shift(@_),"The_Small_Society","ssociety","sm");
}

#Trudy http://www.kingfeatures.com/comics/trudy/
sub trudy {
    return kingfeature(shift(@_),"Trudy","trudy","tr");
}

#Zits http://www.kingfeatures.com/comics/zits/
sub zt {
    return kingfeature(shift(@_),"Zits","zits","zt");
}

#The Norm http://www.kingfeatures.com/comics/thenorm/
sub nm {
    return kingfeature(shift(@_),"The_Norm","thenorm","no");
}

#The Piranha Club http://www.kingfeatures.com/comics/ernie/
sub pc {
    return kingfeature(shift(@_),"The_Piranha_Club","ernie","er");
}

#Ralph http://www.kingfeatures.com/comics/ralph/
sub rl {
    return kingfeature(shift(@_),"Ralph","ralph","ra");
}

#Rhymes With Orange http://www.kingfeatures.com/comics/orange/
sub ro {
    return kingfeature(shift(@_),"Rhymes_With_Orange","orange","rh");
}

#Zippy http://www.kingfeatures.com/comics/zippy/
sub zp {
    return kingfeature(shift(@_),"Zippy","zippy","zi");
}

1;
