#!/usr/bin/perl -w
use strict;
use XML::RSS;
use CGI qw/:standard/;
require LWP::UserAgent;

my $rssContentType = 'text/xml';
my $q = new CGI;
print $q->header( $rssContentType );

my $rss = new XML::RSS (version => '2.0');

my $frontPageURL = 'http://fafblog.blogspot.com/';

my $userAgent =
	'Mozilla/5.0 (Windows; U; Win98; en-US; rv:1.5) Gecko/20031007 Firebird/0.7';

#set up the HTTP request, and grab the front page
my $frontPage = LWP::UserAgent->new;
my $frontPageText = '';

$frontPage->agent( $userAgent );
my $frontPageGetRequestStatus = $frontPage->get($frontPageURL);
if( $frontPageGetRequestStatus->is_success ) {
	$frontPageText = $frontPageGetRequestStatus->content;
}
else {
	die "Failed to grab front page. Quitting.\n";
}

$rss->channel(
	title	=>	'Fafblog!',
	link	=>	'http://fafblog.blogspot.com/',
	description	=>	'Fafblog!',
	syn => {
		updatePeriod     => "hourly",
		updateFrequency  => "1",
		updateBase       => "1901-01-01T00:00+00:00"
   },
	language => 'en-us'
);

my @posts = ($frontPageText =~ m{<div class="Post">(.*?)</div>}gs);

my $storyNum = 0;
foreach(@posts) {
	#print $_;
	m{<span class="style10">(.*?)</span>}s;
	my $story = $1;
	$story =~ m{\s*<strong>(.*?)</strong>(.*)}s;
	my $title = $1;
	$story = $2;
	$story =~ s{<br>&nbsp;$}{};
	$story = "<![CDATA[" . $story . "]]>";
	m{<span class="style11">(.*?)</span>}s;
	my $byline = $1;
	$byline =~ m{posted by <strong>(.*?)</strong>\s+at\s+<a href="(.*?)" title="permanent link">.*?</a>}si;
	my $author = $1;
	my $permalink = $2;

	$rss->add_item(
		title	=>	"$title",
		link	=>	$permalink,
		description => $story,
		author => $author );
}

my $rssFinal = $rss->as_string;
print textSubstitutions($rssFinal);

sub textSubstitutions {
	my $inText = $_[0];
	$inText =~ s/\&/\&amp;/g;
	$inText =~ s/—/--/g;
	$inText =~ s/è/&egrave;/g;
	$inText =~ s/î/&icirc;/g;
	$inText =~ s/é/&eacute;/g;
	$inText =~ s/á/&aacute;/g;
	$inText =~ s/à/&agrave;/g;
	$inText =~ s/ä/&auml;/g;
	$inText =~ s/ô/&ocirc;/g;
	$inText =~ s/ö/&ouml;/g;
	$inText =~ s/  //g;
	$inText =~ s/•/<li>/g;
	return $inText;
}