#!/usr/bin/perl -w

use strict;
use LWP::Simple;
use XML::Atom::Feed;
use XML::Atom::Entry;
use XML::Atom::Link;
use Date::Format;

# These regexes taken from Dailystrips
my $patternpre = "<img.+?src=\"(http://www\.userfriendly\.org/cartoons/archives/%y.+?/uf.+?\.gif)\"";
my $urlpre = "http://ars.userfriendly.org/cartoons/?id=%Y%m%d&mode=classic";

my $pattern = time2str ($patternpre, time);
my $url = time2str ($urlpre, time);

my $page = get($url);

my $atom = XML::Atom::Feed->new;
my $entry = XML::Atom::Entry->new;

$atom->title('User Friendly');
my $link = XML::Atom::Link->new;
$link->type('text/html');
$link->rel('alternate');
$link->href('http://userfriendly.org/');
$atom->add_link($link);
      
if ($page =~ /$pattern/ig)
{
	$entry->title(time2str("CARTOON FOR %a %b, %Y",time));
	my $itemlink = XML::Atom::Link->new;
	$itemlink->type('text/html');
	$itemlink->rel('alternate');
	$itemlink->href($url);
	$entry->add_link($itemlink);
	$atom->add_entry($entry);
}
	
print $atom->as_xml;
