#!/usr/bin/perl -w
#
# Copyright 2005 - Tony Guntharpe <fusion94@fusion94.org>
# Copyright 2005 - S. Zachariah Sprackett <zac@sprackett.com>
#

use strict;
use LWP::UserAgent;

my $linkblog = "http://del.icio.us/rss/zsprackett";
my $outfile = "/home/zsprackett/linkblog.txt";
my $maxlinks = 5;

my @links;
my $ua = new LWP::UserAgent();
$ua->agent("LinkBlog/0.1");

my $req = HTTP::Request->new(
	GET => $linkblog
);
my $res = $ua->request($req);

die "Unable to fetch $linkblog\n" unless $res->is_success;

my $raw = $res->as_string;
$raw =~ s/\n//g;
$raw =~ s/^.*?(<item\s.*?>.*<\/item>).*/$1/g;
$raw =~ s/<\/item><item/<\/item>\n<item/g;

my $count = 0;
foreach my $x (split("\n",$raw)) {
	$count++;
	if ($x =~ /<item\s.*?><title>(.*?)<\/title><link>(.*?)<\/link>.*?<\/item>/i) {
		push @links, "<li><a href=\"$2\" target=\"_blank\">$1<\/a><\/li>";

		last unless $count < $maxlinks;
	}
}

die "Aborting as no links could be retrieved.\n" if (scalar @links == 0);

open FILE, ">$outfile" || die "Unable to open $outfile for write: $!\n";
print FILE "<!-- Generated on " . localtime(time) . " by $0 -->\n";
print FILE "<ul>\n";
print FILE join "\n", @links;
print FILE "<\/ul>\n";
close FILE;