#!/usr/bin/perl -w
#
# tiny browser for podcasts/RSS
# 
# Copyright Jeff R. Allen <jra@nella.org>
# Licensed under the Artistic License

use LWP::Simple qw(!head);
use CGI qw(:standard);
use XML::Simple;
use Data::Dumper;

my $gAud = 0;
my $gVid = 0;

my $url = param('url');

if ($url) {
	print header(-charset=>'utf-8'), start_html();

	my $podcast = get($url);
	my $p = XMLin($podcast);
	my $c = $p->{'channel'};

	print "<h1>$c->{'title'}</h1>\n";
	my @i;
	if (ref($c->{'item'}) eq 'HASH') {
		@i = ( $c->{'item'} );
	} else {
		@i = @{$c->{'item'}}[0 .. 9];
	}

	foreach (@i) {
		print "<h2><a href=\"$_->{'link'}\">$_->{'title'}</a></h2>";
		print "<p>", firstExisting($_, 'itunes:subtitle', 'description');

		if ($_->{'media:group'}) {
			my @c = @{$_->{'media:group'}->{'media:content'}};
			foreach (@c) {
				if ($_->{'type'} eq 'video/x-flv') {
					my $w = $_->{'width'};
					my $h = $_->{'height'};
					my $u = $_->{'url'};
					print vPlayer($u, $w, $h);
				}
			}
		} elsif ($_->{'enclosure'}) {
			if ($_->{'enclosure'}->{'type'} eq 'video/flv') {
				print vPlayer($_->{'enclosure'}->{'url'});
			} elsif ($_->{'enclosure'}->{'type'} eq 'audio/mp3' ||
				$_->{'enclosure'}->{'type'} eq 'audio/mpeg') {
				print "<p>", aPlayer($_->{'enclosure'}->{'url'});
			}
		}
		
		my $dump = param('dump');
		if ($dump) {
			my $x = Dumper($_);
			#$x =~ s/</&lt;/g;
			#$x =~ s/>/&gt;/g;
			#$x =~ s/&/&amp;/g;
			print "<pre>$x</pre>";
		}
	}

	print footer(), end_html;
} else {
	print header(), start_html(),
		start_form(-method=>'get'), "URL of RSS or Podcast: ",
		textfield(-name => 'url'),
		end_form, footer(),
		end_html;
}

sub aPlayer {
	my $x = '';
	if ($gAud == 0) {
		 $x .= "<script src=\"audio-player.js\"></script>";
	}

	$gAud++;
	return "<object type=\"application/x-shockwave-flash\" data=\"player.swf\" id=\"audioplayer$gAud\" height=\"24\" width=\"290\">
<param name=\"movie\" value=\"player.swf\">
<param name=\"FlashVars\" value=\"playerID=$gAud&amp;soundFile=$_[0]\">
<param name=\"quality\" value=\"high\">
<param name=\"menu\" value=\"false\">
<param name=\"wmode\" value=\"transparent\">
</object>";
}

sub vPlayer {
	my($u, $w, $h) = @_;
	$w = $w || 320;
	$h = $h || 200;

	# for the controls
	$h += 55;

	my $x = '';
	if ($gVid == 0) {
		 $x .= "<script type=\"text/javascript\" src=\"swfobject.js\"></script>";
	}

	$gVid++;

	$x .= "<div id=\"flashcontent$gVid\" align=\"center\"><a href=\"javascript:vgo$gVid()\"><img src=\"graphic.jpg\" width=$w border=\"0\"/></a></div>
<script type=\"text/javascript\">
function vgo$gVid () {
var so = new SWFObject(\"flvplayer.swf?theFile=$_[0]&defaultImage=graphic.jpg&theVolume=100&startPlayingOnload=yes&popUpHelp=no&bufferSeconds=2&videoSmoothing=yes\",\"flvplayer\",\"$w\",\"$h\",\"8\",\"#000000\");
so.addParam(\"movie\",\"flvplayer.swf?theFile=$_[0]&defaultImage=graphic.jpg&theVolume=100&startPlayingOnload=yes&popUpHelp=no&bufferSeconds=2&videoSmoothing=yes\");
so.addParam(\"bgcolor\",\"#000000\");
so.write(\"flashcontent$gVid\");
}
</script>
</p>
";
	return $x;
}

sub footer {
	return "<p><hr>World's smallest podcast reader: <a href=\"podcast.txt\">source</a>. By Jeff R. Allen &lt;jra\@nella.org&gt;.";
}

sub firstExisting {
	my $x = shift @_;
	foreach (@_) {
		if (exists($x->{$_})) {
			if (ref($x->{$_}) ne 'HASH') {
				return $x->{$_};
			}
		}
	}
}