#!/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 = "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;