BE/NL TV-Gids op je website

<?
#####################################################################
##		    		Dutch TV-Script For Eggdrop			   		   ##
##							   v1.2				   				   ##
##								   								   ##
##		     		 Created By Flesh [Belgium]			   		   ##
##			     			26-11-2005				   			   ##
##-----------------------------------------------------------------##
##        Many thanks to TVGids.NL for their information           ##
#####################################################################

if(!$_GET['tvall']){
	//Bron openen of foutmelding geven
	$bron = @file("http://www.tvgids.nl/nustraks/index.php?volledig=1");
	$found = 0;
	echo "Klik op de zender om een overzicht van alle programma's tot het einde van de dag op te vragen.<br><br>";
	//Heel de bron doorlopen(regele per regel) te beginnen tijd 0 tot $aantalregels
	for($regel=0;count($bron)>$regel;$regel++) {
		if ((strstr($bron[$regel],'<td width="90"><span>')) && $found < 1){
			//Zender uitlezen
			$zender = trim($bron[$regel]);  
			$p = strpos($zender, '<span>'); 
			$zender = substr($zender,$p+6);
			$p = strpos($zender, '</span>');
			$zender = substr($zender,0,$p);
			//Programmatijd 1 uitlezen
			$tijdprogramma1 = trim($bron[$regel+1]);  
			$p = strpos($tijdprogramma1, '<th width="33">'); 
			$tijdprogramma1 = substr($tijdprogramma1,$p+15);
			$p = strpos($tijdprogramma1, '</th>');
			$tijdprogramma1 = substr($tijdprogramma1,0,$p);
			//Programmatijd 2 uitlezen
			$tijdprogramma2 = trim($bron[$regel+7]);  
			$p = strpos($tijdprogramma2, '<th width="33" class="straks">'); 
			$tijdprogramma2 = substr($tijdprogramma2,$p+30);
			$p = strpos($tijdprogramma2, '</th>');
			$tijdprogramma2 = substr($tijdprogramma2,0,$p);
			//Programmanaam 1 uitlezen
			$programmanaam1 = trim($bron[$regel+2]);  
			$p = strpos($programmanaam1, '?ID='); 
			$programmanaam1 = substr($programmanaam1,$p+13);
			$p = strpos($programmanaam1, '</a>');
			$programmanaam1 = substr($programmanaam1,0,$p);
			//Programmanaam 2 uitlezen
			$programmanaam2 = trim($bron[$regel+8]);  
			$p = strpos($programmanaam2, '?ID='); 
			$programmanaam2 = substr($programmanaam2,$p+13);
			$p = strpos($programmanaam2, '</a>');
			$programmanaam2 = substr($programmanaam2,0,$p);
			//
			if ($zender == 'E&eacute;n') { $zender = 'Een'; }
			if ($tijdprogramma1 == '') $tijdprogramma1 = '__:__';
			if ($tijdprogramma2 == '') $tijdprogramma2 = '__:__';
			if ($programmanaam1 == '') $programmanaam1 = '*Geen uitzendingen*';
			if ($programmanaam2 == '') $programmanaam2 = '*Geen uitzendingen*';
			
			echo "<strong><a href=\"tvguide.php?tvall=".$zender."\" style=\"text-decoration:none\">".$zender."</a></strong>";
			echo "<br>[".$tijdprogramma1."] ".$programmanaam1;
			echo "<br>[".$tijdprogramma2."] ".$programmanaam2;
			echo "<br><br>";
		}
	}
} else {
	$zender = $_GET['tvall'];
	$zender = str_replace(' ', '', $zender);
	$zender = str_replace('é', 'e', $zender);
	$zender = strtolower($zender);
	if (($zender == 'nederland1') || ($zender == 'nederland2') || ($zender == 'nederland3') || ($zender == 'z@ppelin')){ $tabblad = 0; }
	if (($zender == 'rtl4') || ($zender == 'trl5') || ($zender == 'yorin')){ $tabblad = 1; }
	if (($zender == 'sbs6') || ($zender == 'net5') || ($zender == 'veronica')){ $tabblad = 2; }
	if (($zender == 'nickelodeon') || ($zender == 'cartoonnetwork')){ $tabblad = 3; }
	if (($zender == 'bnv') || ($zender == 'een') || ($zender == 'ketnet/canvas')){ $tabblad = 4; }
	if (($zender == 'bbc1') || ($zender == 'bbc2') || ($zender == 'bbcprime')){ $tabblad = 5; }
	if (($zender == 'bbcworld') || ($zender == 'cnn') || ($zender == 'eurosport')){ $tabblad = 6; }
	if (($zender == 'discoverychannel') || ($zender == 'nationalgeographic') || ($zender == 'animalplanet')){ $tabblad = 7; }
	if (($zender == 'tmf') || ($zender == 'mtv') || ($zender == 'thebox')){ $tabblad = 8; }
	if (($zender == 'ard') || ($zender == 'zdf') || ($zender == 'rdl')){ $tabblad = 9; }
	if (($zender == 'ndrfernsehen') || ($zender == 'sudwestfernsehen') || ($zender == 'wdrfernsehen')){ $tabblad = 10; }
	if (($zender == '3sat') || ($zender == 'sat1') || ($zender == 'pro7')){ $tabblad = 11; }
	if (($zender == 'vtm') || ($zender == 'kanaal2') || ($zender == 'vt4')){ $tabblad = 12; }
	if (($zender == 'rtbfla1') || ($zender == 'rtbfla2') || ($zender == 'tv5')){ $tabblad = 13; }
	if (($zender == 'raiuno') || ($zender == 'trtint.') || ($zender == 'tve')){ $tabblad = 14; }
	if (($zender == 'at5') || ($zender == 'tvnoord-holland')){ $tabblad = 15; }
	if (($zender == 'tvwest') || ($zender == 'regiotvutrecht')){ $tabblad = 16; }
	if (($zender == 'arte') || ($zender == 'tcm') || ($zender == 'mezzo')){ $tabblad = 17; }
	if ($zender == 'spiceplatinum'){ $tabblad = 18; }
	if (($zender == 'canal+rood') || ($zender == 'canal+blauw') || ($zender == 'canal+geel')){ $tabblad = 19; }
	
	//Variabelen Declareren
	$gevonden = 0;
	$originalzender = '';
	$programmanaam = array();
	$programmatijd = array();
	
	//Bron uitlezen
	$bron = @file("http://www.tvgids.nl/alleprogrammas/?tab=".$tabblad);
	for($regel=0;count($bron)>$regel;$regel++) {
		if ((eregi('<caption>', $bron[$regel])) && $gevonden == 0){
			//Zenders
			$p=strpos($bron[$regel], 'alt="');
			$p2=strpos($bron[$regel], '" />');
			$zenders=substr($bron[$regel], ($p+5), ($p2-$p-5));
			$zenders = str_replace(' ', '', $zenders);
			$zenders = str_replace('&eacute;', 'e', $zenders);
			$zenders = strtolower($zenders);
			//Indien gevonden, switch verzetten
			if ($zender == $zenders){
				$gevonden = 1;
				if (!$originalzender){
					$originalzender=substr($bron[$regel], ($p+5), ($p2-$p-5));
					$originalzender = str_replace('&eacute;', 'e', $originalzender);
				}
			}
		}
		//Indien begin nieuwe zender gevonden , stoppen met zoeken
		if ((eregi('<caption>', $bron[$regel+1])) && $gevonden == 1){
			$gevonden = 0;
		}
		//Programmagegevens uitlezen
		if ((eregi('<th width="25">', $bron[$regel])) && $gevonden == 1){
			//Tijd
			$p=strpos($bron[$regel], '<th width="25">');
			$p2=strpos($bron[$regel], '</th>');
			$programmatijd[]=substr($bron[$regel], ($p+15), ($p2-$p-15));	
			//Naam
			$bron[$regel+1]=str_replace('<td><div><a href="/programmadetail/', '', $bron[$regel+1]);
			$p=strpos($bron[$regel+1], '>');
			$p2=strpos($bron[$regel+1], '</a></div></td>');
			$programmanaam[]=substr($bron[$regel+1], ($p+1), ($p2-$p-1));			
		}
	}

	if (count($programmatijd) > 0){
		echo "<strong>".$originalzender."</strong><br>";
		for($nr=0;count($programmatijd)>$nr;$nr++) {
			echo "<br>[".$programmatijd[$nr]."] ".$programmanaam[$nr];
		}
	} else {
		echo "Zender niet gevonden!";
	}

                echo "<p>Bron: www.tvgids.nl</p>";

	echo "<br><br><a href=\"tvguide.php\" style=\"text-decoration:none\">Terug naar overzicht</a>";
}
?>