#!/usr/bin/perl

# database settings
$dbhost = "localhost";
$dbname = "tivo2podcast";
$dbuser = "tivo2podcast";
$dbpass = "password";

$outputPath = "/usr/local/apache/htdocs/tivo";

#########################################################################

use DBI;
use File::stat;

$lastid = 0;

$dbh1 = DBI->connect( "dbi:mysql:dbname=$dbname", $dbuser, $dbpass )
    or die "Cannot connect to database: $DBI::errstr";
$dbh2 = DBI->connect( "dbi:mysql:dbname=$dbname", $dbuser, $dbpass )
    or die "Cannot connect to database: $DBI::errstr";

$sth1 = $dbh1->prepare ( "select p.name, p.programid " .
			 "from programs p " .
			 " left join episodes e on p.programid = e.programid " .
			 "where e.grabbed = 't'" )
    or die "Cannot prepare open SQL: $DBI::errstr";
$sth1->execute or die "Cannot execute open SQL: $DBI::errstr";
while ( @row1 = $sth1->fetchrow_array ) {
    $program = $row1[0];
    $programid = $row1[1];
    if ( $programid != $lastid ) {   # because the above select statement will result in multiples
	$lastid = $programid;
	print "making $outputPath/" . fsescape( $program ) . ".rss\n";

	open( F, ">$outputPath/" . fsescape( $program ) . ".rss" ) or die "Can't open rss file\n";
	print F "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n";
	print F "<rss xmlns:itunes=\"http://www.itunes.com/DTDs/Podcast-1.0.dtd\" version=\"2.0\">\n";
	print F " <channel>\n";
	print F "  <title>$program (from TiVo)</title>\n";
	print F "  <link>http://www.anders.com/</link>\n";
	print F "  <description>$program (Downloaded by TiVo 2 Podcast)</description>\n";
	print F "  <itunes:subtitle>$program</itunes:subtitle>\n";
	print F "  <itunes:summary>$program</itunes:summary>\n";
	print F "  <language>en</language>\n";
	print F "  <itunes:author>TiVO 2 Podcast</itunes:author>\n";
	print F "  <itunes:owner>\n";
	print F "   <itunes:name>Anders Brownworth</itunes:name>\n";
	print F "   <itunes:email>tivo2podcast-rss\@example.com</itunes:email>\n";
	print F "  </itunes:owner>\n";
	print F "  <webMaster>tivo2podcast-rss\@example.com</webMaster>\n";
	print F "  <image>\n";
	print F "   <url>http://www.example.com/images/podcast.jpg</url>\n";
	print F "   <title>$program</title>\n";
	print F "   <link>http://www.example.com/</link>\n";
	print F "  </image>\n";
	print F "  <itunes:link rel=\"image\" type=\"video/jpeg\" href=\"http://www.example.com/images/podcast.jpg\">$program</itunes:link>\n";
	print F "  <itunes:category text=\"Entertainment\"/>\n";
	print F "  <itunes:explicit>No</itunes:explicit>\n";
	print F "  <generator>tivo2podcast</generator>\n";
	print F "  <ttl>1440</ttl>\n\n";

	$sth2 = $dbh2->prepare ( "select name, airdate, file, datecreated " .
				 "from episodes e " .
				 "where programid = $programid " .
				 " and grabbed = 't'" .
				 "order by datecreated" )
	    or die "Cannot prepare open SQL: $DBI::errstr";
	$sth2->execute or die "Cannot execute open SQL: $DBI::errstr";
	while ( @row2 = $sth2->fetchrow_array ) {
	    $episode = $row2[0];
	    $airdate = $row2[1];
	    $file = $row2[2];
	    $datecreated = $row2[3];

	    if ( $st = stat( "$outputPath/$file" ) ) {
		my $length = $st->size;

		print F "  <item>\n";
		print F "   <title>$program: $episode</title>\n";
		print F "   <itunes:author>TiVo 2 Podcast</itunes:author>\n";
		print F "   <description>$program: $episode - $airdate</description>\n";
		print F "   <itunes:subtitle>$episode - $airdate</itunes:subtitle>\n";
		print F "   <itunes:summary>$program: $episode - $airdate</itunes:summary>\n";
		print F "   <enclosure url=\"http://1.2.3.4/tivo/$file\" length=\"$length\" type=\"x-vidio/mp4\"/>\n";
		print F "   <guid>http://1.2.3.4/tivo/$file</guid>\n";
		print F "   <pubDate>$datecreated</pubDate>\n";
		print F "   <category>Entertainment</category>\n";
		print F "   <itunes:category text=\"Entertainment\"/>\n";
		print F "   <itunes:explicit>No</itunes:explicit>\n";
		print F "   <itunes:duration>30:00</itunes:duration>\n";
		print F "   <itunes:keywords>tivo2podcast</itunes:keywords>\n";
		print F "  </item>\n\n";

	    }

	}

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

	print "done.\n\n";

	close( F );

    }

}

sub fsescape {
    my $text = pop @_;

    $text =~ s/ /_/g;
    $text =~ s/\W//g;

    return $text;

}