/*
    HR-Converter: Convert The Church of the Heavenly Rest's Media and Communications  
	Page into an RSS feed with enclosures. 
    Copyright (C) 2008  Sean P. Reiser

    This program is free software: you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
    the Free Software Foundation, either version 3 of the License, or
    (at your option) any later version.

    This program is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    GNU General Public License for more details.

   The GNU Public LIcense is available here: http://www.gnu.org/licenses/.
*/

<?PHP

$SourceFile = "http://heavenlyrest.org/comm/index.html";
$TempFile = 'heavenlyrest.htm';
$TargetFile = 'heavenlyrest.xml';

$ch = curl_init($SourceFile);
$input = fopen($TempFile, "w");

curl_setopt($ch, CURLOPT_FILE, $input);
curl_setopt($ch, CURLOPT_HEADER, 0);

curl_exec($ch);
curl_close($ch);
fclose($input);

$output = fopen($TargetFile,"w+");

$items = builditems($TempFile);

fwriteln ($output,'<?xml version="1.0" encoding="utf-8"?>');
fwriteln ($output,'<rss version="2.0" xmlns:itunes="http://www.itunes.com/dtds/podcast-1.0.dtd" xmlns:media="http://search.yahoo.com/mrss/" xmlns:dc="http://purl.org/dc/elements/1.1/" xmlns:atom="http://www.w3.org/2005/Atom">');
fwriteln($output,'<channel>');
fwriteln($output,'<atom:link href="http://seanreiser.com/hr/heavenlyrest.xml" rel="self" type="application/rss+xml" />');
fwriteln($output,'<title>Church of Heavenly Rest,  Media and Communications</title>');
fwriteln($output,'<link>http://heavenlyrest.org/</link>');
fwriteln($output,'<description>Church of Heavenly Rest, Media and Communications</description>');
fwriteln($output,'<language>en-us</language>');
fwriteln($output,'<itunes:image href="http://heavenlyrest.org/img/CelticCrossSmall.jpg"/>');
fwriteln($output,'<itunes:explicit>clean</itunes:explicit>');
fwriteln($output,'<itunes:owner><itunes:email>kflannery@heavenlyrest.org</itunes:email></itunes:owner>');
fwriteln($output,'<itunes:subtitle>Church of Heavenly Rest,  Media and Communications</itunes:subtitle>');
fwriteln($output,'<itunes:category text="Religion &amp; Spirituality">');
fwriteln($output,'<itunes:category text="Christianity" />');
fwriteln($output,'</itunes:category>');

foreach ($items as $item){
	
		if (!(empty($item['mp3']))){
			fwriteln($output,"<item>");
			fwriteln($output,"<title>".$item['title']."</title>");
			fwriteln($output,"<link>".$item['link']."</link>");
			fwriteln($output,"<description>".strip_tags($item['description'])."</description>");
			//fwriteln($output,"<guid>".$item['title']."</guid>");
			fwriteln($output,'<enclosure url="'.$item['mp3'] .'" type= "audio/mpeg" />');
			fwriteln($output,'<itunes:explicit>clean</itunes:explicit>');
		    fwriteln($output,'<itunes:author></itunes:author>');
		    fwriteln($output,'<itunes:summary>'.$item['title'].' Sermon for '.$item['date'].'</itunes:summary>');
			fwriteln($output,"</item>");
					
		}
		
		if (!(empty($item['pdf']))){
			fwriteln($output,"<item>");
			fwriteln($output,"<title>".$item['title']."</title>");
			fwriteln($output,"<link>".$item['link']."</link>");
			fwriteln($output,"<description>".strip_tags($item['description'])."</description>");
			fwriteln($output,'<enclosure url="'.$item['pdf'] .'" type= "application/pdf" />');
			fwriteln($output,"</item>");
				
		}
		
	
		

}

fwriteln($output,'</channel>');
fwriteln($output,'</rss>');

fclose($output);



function builditems($File){
	$buffer = file_get_contents($File);
	$items = array();
	
	$temp = strpos($buffer,"Sermon / Homily");
	$start = strrpos(substr($buffer,1,$temp),'TABLE');
	$end = strpos(substr($buffer,$start+20),'/TABLE');
	$buffer=substr($buffer,$start,$end+4);

	$start = strpos($buffer,"TR");
	$end = strpos($buffer,"/TR");
	$buffer=substr($buffer,$end+4); // skip title record
	$start = strpos($buffer,"TR");
	$end = strpos($buffer,"/TR");
// walk html file
	while ($start > 0){
		//$item = array("date" =>$date, "title"=>$title, "description"=>$description, "mp3" => $mp3, "pdf" => $pdf, "link" => $link);
		$date = '';
		$title = '';
		$description = '';
		$mp3 = '';
		$pdf = '';
		$link = '';
		
		
		$itembuffer = substr($buffer,$start,$end);
		if (strpos($itembuffer,"Messenger") > 0){
			$title = "Messenger";
			$description = "Holy Messenger";
			
			// Get date
			$istart = strpos($itembuffer,"TD");
			$iend = strpos($itembuffer,"TD",$istart+5);
			$ibuffer = strip_tags(substr($itembuffer,$istart+3,$iend - $istart));
			$foo = strpos($ibuffer," ");
			$date = substr($ibuffer,0,$foo).' 01, 20'.substr($ibuffer,$foo+1);
			
			//Skip
			$itembuffer=substr($itembuffer,$iend+3);
			$istart = strpos($itembuffer,"TD");
			$iend = strpos($itembuffer,"TD",$istart+5);
			$ibuffer = strip_tags(substr($itembuffer,$istart+3,$iend - $istart));
			
			// Get File URL
			$itembuffer=substr($itembuffer,$iend+3);
			$istart = strpos($itembuffer,"TD");
			$iend = strpos($itembuffer,"TD",$istart+5);
			$ibuffer = substr($itembuffer,$istart+3,$iend - $istart);
			$pstart = strpos($ibuffer,"href");
			$ibuffer = substr($ibuffer,$pstart+6);
			$pend = strpos($ibuffer,'"');
			$pdf = 'http://heavenlyrest.org/'.substr($ibuffer,1,$pend-1);
			$link = $pdf;
			$pdftitle = $title.' for '.$date;
			$pdfdescription = $description.' for '.$date;
			
			
			//echo $ibuffer;
			
			
			
		}
		else{
			// Get date
			$istart = strpos($itembuffer,"<TD");
			$iend = strpos($itembuffer,"TD",$istart+5);
			$ibuffer = strip_tags(substr($itembuffer,$istart,$iend - $istart));
			$foo = strpos($ibuffer," ");
			$bar = strrpos(trim($ibuffer)," "); 
			$day = substr($ibuffer,0,$foo);
			$month = substr($ibuffer,$foo,$bar-$foo);
			$year = trim(substr($ibuffer,$bar));
			$date = $month. ' '.trim($day).", 20".$year;
			
			//Skip
			$itembuffer=substr($itembuffer,$iend+3);
			$istart = strpos($itembuffer,"TD");
			$iend = strpos($itembuffer,"TD",$istart+5);
			$ibuffer = strip_tags(substr($itembuffer,$istart+3,$iend - $istart));
			
			//Title
			$itembuffer=substr($itembuffer,$iend+3);
			$istart = strpos($itembuffer,"<TD");
			$iend = strpos($itembuffer,"TD",$istart+5);
			$title = strip_tags(substr($itembuffer,$istart,$iend - $istart));
			
			//Description
			$itembuffer=substr($itembuffer,$iend+3);
			
			$istart = strpos($itembuffer,"<TD");
			$iend = strpos($itembuffer,"TD",$istart+5);
			$ibuffer = substr($itembuffer,$istart,$iend - $istart);
			if (strpos($ibuffer,".mp3") == 0 ){
				$description = strip_tags($ibuffer);
			
			//mp3
				$itembuffer=substr($itembuffer,$iend+3);
			}
			else
			{
				$description = $title;
			}
			$istart = strpos($itembuffer,"TD");
			$iend = strpos($itembuffer,"TD",$istart+5);
			$ibuffer = substr($itembuffer,$istart+3,$iend - $istart);
			if (strpos($ibuffer,".mp3") > 0 ){
				$pstart = strpos($ibuffer,"href");
				$ibuffer = substr($ibuffer,$pstart+6);
				$pend = strpos($ibuffer,'"');
				$mp3 = 'http://heavenlyrest.org/'.substr($ibuffer,1,$pend-1);
				if (strpos($title,"Rev") > 0){
					$mp3title =  "Sermon for ".$title;
				}
				else{
					$mp3title = $title;
				}
				
				$mp3description = $description;
			}
			
			//pdf
			$itembuffer=substr($itembuffer,$iend+3);
			$istart = strpos($itembuffer,"TD");
			$iend = strpos($itembuffer,"TD",$istart+5);
			$ibuffer = substr($itembuffer,$istart+3,$iend - $istart);
			if (strpos($ibuffer,".pdf") > 0 ){
				$pstart = strpos($ibuffer,"href");
				$ibuffer = substr($ibuffer,$pstart+6);
				$pend = strpos($ibuffer,'"');
				$pdf = 'http://heavenlyrest.org/'.substr($ibuffer,1,$pend-1);
				$pdftitle = 'Leaflet for '.$date;
				$pdfdescription = 'Leaflet for '.$date;
			
			}
			
			//link
			$itembuffer=substr($itembuffer,$iend+3);
			$istart = strpos($itembuffer,"TD");
			$iend = strpos($itembuffer,"TD",$istart+5);
			$ibuffer = substr($itembuffer,$istart+3,$iend - $istart);
			if (strpos($ibuffer,".htm") > 0 ){
				$pstart = strpos($ibuffer,"href");
				$ibuffer = substr($ibuffer,$pstart+6);
				$pend = strpos($ibuffer,'"');
				$link = 'http://heavenlyrest.org/'.substr($ibuffer,1,$pend-1);
			}
			
			if (strlen($link) == 0){
				$link = 'http://heavenlyrest.org/comm/index.html';
			}
			
			
			
		}
		
		$item = array("date" =>$date, "title"=>$mp3title, "description"=>$mp3description, "mp3" => $mp3, "pdf" => '', "link" => $link);
		array_push($items,$item);
		$item = array("date" =>$date, "title"=>$pdftitle, "description"=>$pdfdescription, "mp3" => '', "pdf" => $pdf, "link" => $link);
		array_push($items,$item);
		$buffer=substr($buffer,$end+4);
		$start = strpos($buffer,"TR");
		$end = strpos($buffer,"/TR");
		
	}
	
	return $items;


}




function fwriteln($output,$String){
	fwrite($output,$String."\r\n");
}
?>