#!/usr/bin/php
<?php
$server = $name = $title = $category = $url = NULL;
$numlistings = 0;
addlisting("comics.com",	"dilbert",	"Dilbert",			"comics");
addlisting("comics.com",	"pearls",	"Pearls Before Swine",		"comics");
addlisting("comics.com",	"luann",	"Luann",			"comics");
addlisting("comics.com",	"grandave",	"Grand Avenue",			"comics");
addlisting("comics.com",	"pickles",	"Pickles",			"wash");
addlisting("comics.com",	"betty",	"Betty",			"comics");
addlisting("comics.com",	"herman",	"Herman",			"comics");
addlisting("comics.com",	"hedge",	"Over The Hedge",		"comics");
addlisting("comics.com",	"reality",	"Reality Check",		"comics");
addlisting("comics.com",	"offthemark",	"Off The Mark",			"comics");
addlisting("comics.com",	"roseisrose",	"Rose Is Rose",			"comics");
addlisting("comics.com",	"othercoast",	"The Other Coast",		"creators");
addlisting("comics.com",	"speedbump",	"Speed Bump",			"creators");
addlisting("ucomics.com","forbetterorforworse", "For Better Or For Worse", 	"fb");
addlisting("ucomics.com",	"adamathome",	"Adam @ Home", 			"ad");
addlisting("ucomics.com",	"calvinandhobbes", "Calvin And Hobbes", 	"ch");
addlisting("ucomics.com",	"foxtrot",	"Foxtrot",			"ft");
addlisting("ucomics.com",	"duplex",	"The Duplex",			"dp");
addlisting("ucomics.com",	"doonesbury",	"Doonesbury",			"db");
addlisting("ucomics.com",	"nonsequitur",	"Non Sequitur",			"nq");
addlisting("ucomics.com",	"overboard",	"Overboard",			"ob");
addlisting("ucomics.com",	"poochcafe",	"Pooch Cafe",			"poc");

/****************** The main body of the script ***************/
fetch_urls();
for($n = 0; $n < $numlistings; $n++){
	$blah = explode(".", $url[$n]);
	$extension = $blah[sizeof($blah) - 1];
	$command = "wget -o /dev/null -O /pub/comics/".$name[$n]."/".date('Y-m-d').".".$extension." ".$url[$n];
	system($command);
}

/*** Comics that require a special hack all their own: ***/
fetch_zits();
fetch_tinasgroove();
fetch_shermanslagoon();

/****************** Function definitions ****************/
function fetch_urls(){
	global $numlistings, $name, $title, $category, $url, $server;
	for($n = 0; $n < $numlistings; $n++){
		switch($server[$n]){
			case "comics.com":
				$url[$n] = fetch_from_comicsdotcom($n);
				break;
			case "ucomics.com":
				$url[$n] = fetch_from_ucomicsdotcom($n);
				break;
			default:
				break;
		}
	}

}

function fetch_zits(){
	$command = "curl -s -e http://seattlepi.nwsource.com/fun/zits.asp http://pst.rbma.com/content/Zits?date=";
	$command .= date('Ymd')." > /pub/comics/zits/".date('Y-m-d').".gif";
	echo $command."\n";
	system($command);
}

function fetch_tinasgroove(){
	$command = "curl -s -e http://seattlepi.nwsource.com/fun/tina.asp http://pst.rbma.com/content/Tinas_Groove?date=";
	$command .= date('Ymd')." > /pub/comics/tinasgroove/".date('Y-m-d').".gif";
	echo $command."\n";
	system($command);
}

function fetch_shermanslagoon(){
	$command = "curl -s -e http://seattlepi.nwsource.com/fun/shermans.asp http://pst.rbma.com/content/Shermans_Lagoon?date=";
	$command .= date('Ymd')." > /pub/comics/shermanslagoon/".date('Y-m-d').".gif";
	echo $command."\n";
	system($command);
}

function fetch_from_ucomicsdotcom($index){
	global $category, $name;
	$commandline = "wget -O - http://www.ucomics.com/";
	$commandline .= $name[$index]." 2> /dev/null | awk '
{
for(n = 1; n < NF; n++){
	if(($"."n ~ \"^src\") && ($"."n ~ \"/comics/".$category[$index]."/\")){
		printf(\"%s\\n\", $"."n);
	}
}
}' | awk -F\\\" '{printf(\"%s\\n\", $2);}'";
	return system($commandline);
}

function fetch_from_comicsdotcom($index){
	global $category, $name;
	$commandline = "wget -O - http://www.comics.com/";
	if($category[$index] != NULL) $commandline .= $category[$index]."/";
	$commandline .= $name[$index]." 2> /dev/null | awk '
/(\/archive\/images\/)/ {
for(n = 1; n < NF; n++){
	if(($"."n ~ \"^SRC\") && ($"."n ~ \"".$name[$index]."\")){
		printf(\"%s\\n\", $"."n);
	}
}
}' | awk -F\\\" '{printf(\"%s\\n\", $2);}'";
	return "http://www.comics.com".system($commandline);
}

function addlisting($newserver, $newname, $newtitle, $newcategory = NULL){
	global $numlistings, $name, $title, $category, $server;

	$server[$numlistings] = $newserver;
	$name[$numlistings] = $newname;
	$title[$numlistings] = $newtitle;
	$category[$numlistings] = $newcategory;
	$numlistings++;
}