#-*-Perl-*-

foreach ("bc","rug","wiz","pen","obh","sb") {
    $hof{$_} = 14;
}

#Creators Syndicate http://www.creators.com/comics/comics.asp
sub creators_syn {
    #get arguments (fp stands for file prefix)
    my ($time,$name,$fp) = @_;
    my @ltime = localtime($time);
    my $rec = {
	'name' => strftime("${name}-${date_fmt}.gif",@ltime),
	'base' => "http://www.creators.com/comics/compage/$fp/",
	'page' => sprintf(strftime("$fp%%d%%d%y.gif",@ltime),
			  $ltime[4]+1,$ltime[3])
	};
    return $rec;
}

#B.C. http://www.creators.com/comics/compage/bc/
sub bc {
    return creators_syn(shift(@_),"B.C.","bc");
}

#Rugrats http://www.creators.com/comics/compage/rug/
sub rug {
    return creators_syn(shift(@_),"Rugrats","rug");
}

#The Wizard of Id http://www.creators.com/comics/compage/wiz/
sub wiz {
    return creators_syn(shift(@_),"The_Wizard_of_Id","wiz");
}

#One Big Happy http://www.creators.com/comics/compage/obh/
sub obh {
    return creators_syn(shift(@_),"One_Big_Happy","obh");
}

#Speed Bump http://www.creators.com/comics/compage/speed/
sub sb {
    return creators_syn(shift(@_),"Speed_Bump","speed");
}

#Penmen http://www.creators.com/comics/compage/pen/
sub pen {
    my $today = shift;
    my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = 
        localtime($today);
    if ($wday == 0) {
	return creators_syn($today,"Penmen","pen");
    } else {
	return undef;
    }
}

1;
