<?php
/*
title: rpfeed 
version: .9 (2006-01-14)
author: ADM (thousandrobots.com)

purpose:
this script processes the radio paradise xml feed
and returns a valid rss 2.0 feed

comments:
- this whole thing could probably be done using xslt, but i'll try that another time.
- unusual characters (accents, umlauts, etc) might break this. utf8_encode() or similar should fix. 
- Requirements: PHP5, SimpleXML, XML DOM

support:
visit http://thousandrobots.com/projects/rp/ for support

license:
all code copyright 2005 thousandrobots.com

This code is licensed under the Creative Commons Attribution-NonCommercial-ShareAlike 2.5 License. 
To view a copy of this license, visit http://creativecommons.org/licenses/by-nc-sa/2.5/ or send a letter to:
Creative Commons
543 Howard Street, 5th Floor, 
San Francisco, California, 94105, USA

license exemption: this code may be used commercially at radioparadise.com.

rights over the output of this script revert to radioparadise.com
*/

function unix2rssdate($timestamp){
/*
purpose: translates date from unix timestamp to valid rss format
"1098861960" becomes "Wed, 27 Oct 2004 00:26:00 PST"
accepts: unix timestamp and timezone abbreviation to append
*/

//date comes in as unix time stamp
$rssdate = date('D, d M Y H:i:s', trim($timestamp));
$rssdate = trim($rssdate . " " . $timezone);

return $rssdate;
}

function CreateRSSFeed(){
//purpose: obtain the xml feed from radioparadise, format it as rss, and output it.

//access the xml url and put content into a string
$url = "http://www2.radioparadise.com/playlist.xml"; 
$ch = curl_init($url); 
curl_setopt($ch, CURLOPT_RETURNTRANSFER, 1); 
$source = curl_exec($ch); 
curl_close($ch);
//debug
//die();
$xml = simplexml_load_string($source);

//debug to confirm curl works
//print_r($xml);
//die();

//create the rss xml doc that will be output
$doc = new DOMDocument("1.0");

//create the rss element
$root = $doc->createElement('rss');
$root = $doc->appendChild($root);
$root->setAttribute('version','2.0');

//create the channel element
$channel = $doc->createElement("channel");
$channel = $root->appendChild($channel);

//define the elements of the channel and append them to the rss
$elements = array();
$elements["title"] = "Radio Paradise Playlist -- Last 6 Hours";
$elements["link"] = "http://www.radioparadise.com/content.php?name=Playlist";
$elements["description"] = "The last six hours of music played by radioparadise.com. RSS generated by thousandrobots.com";
$elements["language"] = "en-us";
$elements["copyright"] = "copyright 2005 radioparadise.com";
$elements["docs"] = "http://backend.userland.com/rss";
$elements["generator"] = "thousandrobots.com dom-based rss generator 
(http://thousandrobots.com/projects/rp)";
$elements["managingEditor"] = "email@removethis.thousandrobots.com (ADM)";
$elements["webMaster"] = "email@removethis.thousandrobots.com (ADM)";
$elements["lastBuildDate"] = unix2rssdate(time()) . " PST";

foreach ($elements as $elementname => $elementvalue)
{
	$elementname = $doc->createElement($elementname);
	$elementname = $channel->appendChild($elementname);
	$elementname->appendChild($doc->createTextNode($elementvalue));
} 

//clear the array
unset($elements);

//use simplexml to process the feed
//and construct an element for each song
foreach ($xml->song as $song) {
	$item = $doc->createElement("item");
	$item = $channel->appendChild($item);
	
	//add each node of the rss item
	//title (song title) 
	$element = $doc->createElement("title");
	$element = $item->appendChild($element);
	$element->appendChild($doc->createTextNode($song->artist . ": " . 
$song->title));

	//description
	$element = $doc->createElement("description");
        $element = $item->appendChild($element);
        $element->appendChild($doc->createTextNode("played at: " . unix2rssdate($song->timestamp, "PST")));

	//link
	 $element = $doc->createElement("link");
        $element = $item->appendChild($element);
        $element->appendChild($doc->createTextNode("http://www.radioparadise.com/content.php?name=songinfo&song_id=" . $song->songid));

	//author
	$element = $doc->createElement("author");
        $element = $item->appendChild($element);
        $element->appendChild($doc->createTextNode("info@radioparadise.com (". $song->artist . ")" ));
	
	//pubDate
	$element = $doc->createElement("pubDate");
        $element = $item->appendChild($element);
        $element->appendChild($doc->createTextNode(unix2rssdate($song->timestamp) . " PST"));
        
	//category 
        $element = $doc->createElement("category");
        $element = $item->appendChild($element);
        $element->appendChild($doc->createTextNode("music"));

	//guid
	//technically not supposed to be a valid url, but some rss readers treat them as such.
        $element = $doc->createElement("guid");
        $element = $item->appendChild($element);
	$element->appendChild($doc->createTextNode("http://www.radioparadise.com/content.php?name=songinfo&song_id=" . $song->songid));
}
//output the xml/rss doc
//note: when you want to output xml,
//setting the content-type is mandatory -- even when debugging!
header('Content-Type: text/xml');
echo $doc->saveXML();
}
CreateRSSFeed();
?>