#!/usr/bin/perl -w
# Copyright (C) 2011 Matthew Wronka <mailto:apg@projects.matt.wronka.org>
# License: AGPLv3 <http://www.gnu.org/license/agpl-3.0.html>

print <<"EOF";
<?xml version="1.0" encoding="utf-8"?>
<rss version="2.0"
	    xmlns:media="http://search.yahoo.com/mrss/"
	    xmlns:dc="http://purl.org/dc/elements/1.1/"
	    xmlns:creativeCommons="http://cyber.law.harvard.edu/rss/creativeCommonsRssModule.html"
	    	    xmlns:flickr="urn:flickr:" >
	<channel>
EOF

my $imageTitle = '';
my %values = ();

sub output_node()
{
	if($imageTitle)
	{
		my $thumb = $values{'thumb'};
		my $url   = $values{'url'};
		print "\t\t<item>\n";
		print "\t\t\t<title>${imageTitle}</title>\n";
		print "\t\t\t<media:title>${imageTitle}</media:title>\n";
		print "\t\t\t<media:thumbnail url=\"${thumb}\" />\n";
		print "\t\t\t<media:content url=\"${url}\" type=\"image/jpeg\" />\n";
		print "\t\t</item>\n";
	}
	else
	{
		my $title  = $values{'title'};
		my $thumb = $values{'icon'};
		my $url   = $values{'link'};
		print "\t\t<title>${title}</title>\n";
		print "\t\t<link>${url}</link>\n";
		print "\t\t<image><title>${title}</title><url>${thumb}</url></image>\n";
	}
}

while(<stdin>)
{
	if(/\[([^\]]*)\]/)
	{
		output_node();
		$imageTitle = $1;
	}
	elsif(/([^:]*):(.*)/)
	{
		$values{$1} = $2;
	}
}

output_node();

print "\t</channel>\n</rss>";