#!/usr/bin/perl -w

use strict;

my $V = 2;

system("rm blag.txt*");
system("wget -q -O blag.txt http://mumble.net/~campbell/blag.txt");
open(BLAG, "blag.txt");
open(A, ">../HTML/blag.xml");

print A "<feed xmlns='http://www.w3.org/2005/Atom'>\n";
print A "<author><name>Taylor R. Campbell</name></author>\n";
print A "<title type='text'>This is Taylor R. Campbell's blag.</title>\n";
my $year = (localtime)[5] + 1900;
print A "<rights>All material in this file is © 2006-$year Taylor R. Campbell.  All rights reserved.</rights>\n";
print A "<generator>John Cowan's stupid Perl script</generator>\n";
print A "<subtitle type='text'>Send comments to the email address with a host of the little-endian order of the domain net.mumble and with a username of campbell.  Before reading this, please take a grain of salt and hold it in your mouth with your tongue against your cheek for several minutes; also, send in your sarcas-o-meter in for a tune-up just in case.  Subtleties of sarcasm abound.  (Some of the entries are serious, though.  I think it is pretty obvious which ones are serious and which ones are not, but your mileage may vary.)</subtitle>\n";
print A "<link href='http://mumble.net/~campbell/blag.txt'/>\n";
print A "<id>http://www.ccil.org/~cowan/riastradh-$V</id>\n";
print A "<link rel='self' href='http://www.ccil.org/~cowan/blag.xml'/>\n";

my $inentry = 0;
my $intitle = 0;
my $firstentry = 1;
while (<BLAG>) {
	if (/^2/) {
		chomp;
		print A "<updated>", substr($_, 0, 10), "T00:00:00Z</updated>\n" if $firstentry;
		$firstentry = 0;
		print A "</content></entry>\n" if $inentry;
		print A "<entry>\n";
		print A "<updated>", substr($_, 0, 10), "T00:00:00Z</updated>\n";
		print A "<id>http://www.ccil.org/~cowan/riastradh-$V/", substr($_, 0, 10), "</id>\n";
		$_ = substr($_, 0, 10) . ":[No title]" if length($_) <= 10;
		print A "<title type='text'>", esc(substr($_, 11, 1000)), "\n";
		$intitle = 1;
		}
	elsif ($intitle && /^$/) {
		print A "</title>\n";
		print A "<content type='text'>";
		$intitle = 0;
		$inentry = 1;
		}
	elsif ($intitle || $inentry) {
		print A esc($_);
		}
	}
print A "</content></entry></feed>\n";

sub esc {
	my ($x) = @_;
	$x =~ s/^ *//;
	$x =~ s/&/\&amp;/g;
	$x =~ s/</\&lt;/g;
	return $x;
	}