#!/usr/bin/perl

use Template;

my $tt = Template->new();

my $n = shift;
my $img = shift;

my %d = (
	name => $n,
	image => $img,
);
chomp($d{builddate} = `date -R`);

my @episodes;

$ENV{TZ} = 'US/Eastern';
foreach $audio (@ARGV) {
	my %ep;

	my ($y, $m, $d) = ($audio =~ /(\d\d)-(\d\d)-(\d\d)/);
	$y+=1900;
	$ep{ymd} = sprintf('%04d-%02d-%02d', $y, $m, $d);
	chomp($ep{date} = `date -d '$ep{ymd} 18:00' -R`);
	$ep{seconds} = `mp3info -p '%S' $audio`;
	my $dur = $ep{seconds};

	$ep{duration} = sprintf('%d:%02d:%02d', $dur / 60 / 60, ($dur / 60) % 60, $dur % 60);
	chomp($ep{size} = `stat -c '%s' $audio`);
	$ep{path} = $audio;
	chomp($ep{audio} = `basename $audio`);
	if ($ep{audio} eq 'TheShadow37-10-17MurderByTheDead.mp3') {
		$ep{title} = 'Murder by the Dead';
	} else {
		$ep{title} = `mp3info -p '%t' $audio`;
	}
	$ep{description} = "Episode from $ep{ymd}";
	$ep{shortdesc} = "Episode from $ep{ymd}";

	push @episodes, \%ep;
}

@episodes = sort { $b->{ymd} cmp $a->{ymd} } @episodes;

$d{episodes} = \@episodes;

$tt->process('rss.tmpl', \%d);