#!/usr/bin/perl
#
# themedepot2rss - Converts recent themes page from www.themedepot.org to an RSS feed.
#
# For usage with http://www.themedepot.org/recentthemes.php4
#
# Copyright (c) 2004 Christophe Meyer <stombi@gmail.com>
#
# 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 2 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 Library General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.

use strict;

my $html='';
while(<>){$html.=$_;}

print <<EOXML
<?xml version="1.0" encoding="iso-8859-1"?>
<rdf:RDF xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"
	xmlns:dc="http://purl.org/dc/elements/1.1/"
	xmlns="http://purl.org/rss/1.0/">

	<channel rdf:about="http://www.themedepot.org/recentthemes.php4"> 
		<title>Theme Depot - Recent Themes</title>
		<link>http://www.themedepot.org/recentthemes.php4</link>
		<description>Theme Depot - Recent Themes</description>
		<dc:language>en</dc:language>
EOXML
;

print <<EOSEQ
		<items>
			<rdf:Seq>
EOSEQ
;

while ($html=~m/<tr><td\s+valign=top>.*?<a href="(.*?)"\s+class=sidemenu>/smg)
{
	my $seq = 'http://www.themedepot.org'.$1;
	
print <<EOSEQ
				<li rdf:resource="$seq"/>
EOSEQ
;
}

print <<EOSEQ
			</rdf:Seq>
		</items>
	</channel>
EOSEQ
;

while ($html=~m/<tr><td valign=top>.*?<a href="(.*?)"\s+class=sidemenu><img src="(.*?)".*?<a href=".*?"\s+class=sidemenu>.*?height=16>(.*?)<\/a><\/b><br><a href="(.*?)"\s+class=sidemenu>(.*?)<\/a><br>/smg)
{
my $link = 'http://www.themedepot.org'.$1;
my $image = 'http://www.themedepot.org'.$2;
my $area = $5;
my $title = $3.' ('.$area.')';
my $arealink = $4;
my $subject = '<a href="http://www.themedepot.org'.$arealink.'">'.$area.'</a>';
my $description = '<p><strong>'.$title.'</strong> ('.$subject.')</p><p><img src="'.$image.'" width=63 height=48 /></p>';


print <<EOITEM
	<item rdf:about="$link">
		<title>$title</title>
		<link>$link</link>
		<description><![CDATA[$description]]></description>
		<dc:subject><![CDATA[$subject]]></dc:subject>
	</item>
EOITEM
;
}
print <<EOXML
</rdf:RDF>
EOXML
;