#!/usr/bin/perl

# water2rss.pl - create an RSS feed from my water collection

# Eric Lease Morgan <eric_morgan@infomotions.com>
# May 25, 2011 - first cut


# configure
use constant DSN      => 'dbi:mysql:water:localhost';
use constant USERNAME => 'nobody';
use constant PASSWORD => 'nobody';

# require
use strict;
use DBI;
use DateTime;

# start the output
print '<?xml version="1.0"?>';
print '<rss version="2.0" xmlns:atom="http://www.w3.org/2005/Atom"><channel>';
print '<atom:link href="http://infomotions.com/water/waters.rss" rel="self" type="application/rss+xml" />';
print "<title>Water de Jour</title>";
print '<link>http://infomotions.com/water/index.xml</link>';
print '<description>A randomly selected water from the collection</description>';
print '<language>en-us</language>';
print '<copyright>Copyright '. DateTime->now->year . ', Eric Lease Morgan</copyright>';
print '<generator>make-rss.pl</generator>';
print '<category>water</category>';
print '<managingEditor>eric_morgan@infomotions.com (Eric Lease Morgan)</managingEditor>';
print '<webMaster>eric_morgan@infomotions.com (Eric Lease Morgan)</webMaster>';
print '<lastBuildDate>' . &buildDate( DateTime->now->ymd ) . '</lastBuildDate>';

# search
my $dbh    = DBI->connect( DSN, USERNAME, PASSWORD );
my $sql    = 'SELECT * FROM waters';
my $waters = $dbh->selectall_arrayref( $sql, { Slice => {} } );

# process each result
foreach my $water ( @$waters ) {

	# extract
	my $id          = $water->{ 'water_id' };
	my $name        = $water->{ 'name' };
	my $year        = $water->{ 'year' };
	my $month       = $water->{ 'month' };
	my $day         = $water->{ 'day' };
	if ( ! $day ) { $day = '01' }
	my $description = $water->{ 'description' };
	my $lat         = $water->{ 'lat' };
	my $lng         = $water->{ 'lng' };
	
	# thumbnail
	my $thumbnail =  $name;
	$thumbnail    =~ /^(\w+) /;
	$thumbnail    =  "http://infomotions.com/water/thumbnails/$1-$id.jpg";
	
	# google map 
	my $map = "<a href='http://maps.google.com/maps?q=$lat+$lng'>Map it</a>";
	
	# echo/debug
	#print "           id = $id\n";
	#print "         name = $name\n";
	#print "         year = $year\n";
	#print "        month = $month\n";
	#print "          day = $day\n";
	#print "  description = $description\n";
	#print "     latitude = $lat\n";
	#print "    longitude = $lng\n";
	#print "    thumbnail = $thumbnail\n";
	#print "          map = $map\n";
	#print "\n";

	# build the rss item
	print '<item>';
	print "<title>$name</title>";
	print "<link>http://infomotions.com/water/index.xml?cmd=getwater&amp;id=$id</link>";
	print "<description><![CDATA[<p><table align='right'><tr align='center'><td><img src='$thumbnail' /><br /><span style='font-size: small'>$map</span></td></tr></table>$description</p>]]></description>";
	print '<pubDate>' . &buildDate( $year . '-' . $month . '-' . $day ) . '</pubDate>';
	print "<guid>http://infomotions.com/water/index.xml?cmd=getwater&amp;id=$id</guid>";
	print '</item>';

}

# done
print '</channel></rss>';
exit;


sub buildDate {

	my $date = shift;
	my ($year, $month, $day) = split('-', $date);
	my $dt = DateTime->new(year => $year, month => $month, day => $day, time_zone => 'America/Indianapolis');
	my $rv = $dt->strftime("%a, %d %b %Y %H:%M:%S %z");
	return $rv;
	
}