#!/usr/bin/perl
use Data::Dumper;
use LWP::Simple;
use URI;
use strict;

my $allOutfile = "braindamage.atom.xml";
my $ericOutfile = "braindamage-ericOnly.atom.xml";
my $mattOutfile = "braindamage-mattOnly.atom.xml";
my $outServer = "http://www.modtwo.com/braindamage/";

my @urls;
my %entries;

open(ALL, ">$allOutfile") or die "Unable to open $allOutfile: $!";
open(ERIC, ">$ericOutfile") or die "Unable to open $ericOutfile: $!";
open(MATT, ">$mattOutfile") or die "Unable to open $mattOutfile: $!";
my $content = get("http://www.2600.com/braindamage/matt/") . get("http://www.2600.com/braindamage/");
foreach(split /\n/, $content)
{
	chomp;
	next unless(/<option value="\.\.\/braindamage\/(((matt)|([0-9]{4}))\/[0-9]{4}\.html)/);
	print "pushing $1\n";
	push @urls, $1;
}

my $header = <<"EOF";
<?xml version="1.0" encoding="utf-8"?>
<feed xmlns="http://www.w3.org/2005/Atom">
	<title>Brain Damage</title>
	<subtitle>A two hour call-in show hosted by Emmanuel (using the name Eric Corley) which aired from 1988 to 1995</subtitle>
	<link rel="self" href="%s%s"/>
	<updated>2002-06-30T00:00:00-05:00</updated>
	<author>
		<name>Emmanuel Goldstein</name>
		<uri>http://www.2600.com</uri>
	</author>
	<id>http://www.2600.com/braindamage/</id>
	<icon>http://www.2600.com/favicon.ico</icon>
	<logo>http://www.2600.com/braindamage/images/lightning-gr.jpg</logo>

EOF

foreach my $url (@urls)
{
	$url = "http://www.2600.com/braindamage/$url";
	$content = get($url) or die "$!";
	my $eric = ($url !~ /matt/) + 0;
	print "$url\n";
	while($content =~ m#<font face="Comic Sans MS" size="\+1">- ([0-9]{2}) / ([0-9]{2}) / ([0-9]{2}) -</font>.*?<!--description here-->\n(.*?)\n.*?<a href="(.*?\1\2\3\.mp3)"#sg)
	{
		my ($month, $day, $year, $desc, $link) = ($1, $2, $3, $4, $5);
		my $longyear = $year + (($year >= 70) ? 1900 : 2000);
		print "$longyear $month $day $eric\n";
		$desc =~ s/&/&amp;/g;
		my $mp3uri = URI->new($link)->abs($url);
		print "$longyear$month$day$eric\n";
		$entries{"$longyear$month$day$eric"} = <<"EOF"
	<entry>
		<title>Brain Damage show for $longyear-$month-$day</title>
		<id>$url#$day</id>
		<updated>$longyear-$month-${day}T00:00:00-05:00</updated>
		<link rel="alternate" href="$url"/>
		<link rel="enclosure" href="$mp3uri" type="audio/mpeg"/>
		<content type="xhtml">
			<div xmlns="http://www.w3.org/1999/xhtml">$desc</div>
		</content>
	</entry>

EOF
	}
}

printf ALL $header, $outServer, $allOutfile;
printf ERIC $header, $outServer, $ericOutfile;
printf MATT $header, $outServer, $mattOutfile;
for my $key (sort keys %entries)
{
	print ALL $entries{$key};
	if($key & 1)
	{
		print ERIC $entries{$key};
	} else {
		print MATT $entries{$key};
	}
}
print ALL "\n</feed>\n";
print ERIC "\n</feed>\n";
print MATT "\n</feed>\n";