#!/usr/bin/perl
# rss-feed für ruthe.de (liferea feed source "command")
use strict;
use LWP::Simple;
use XML::RSS;
use DateTime;
use DateTime::Format::W3CDTF;
my $f = DateTime::Format::W3CDTF->new();
my $rss = XML::RSS->new(version => '1.0');
$rss->channel(
title => "Ruthe.de",
link => "http://www.ruthe.de",
description => "Cartoons",
);
$_ = get("http://ruthe.de/frontend/archiv.php");
while (m#format_datetime(DateTime->from_epoch(epoch => $modified_time));
$rss->add_item(
title => "Comic Nr. $picid",
link => $pagurl,
description => " ",
dc => { date => $date },
);
}
print $rss->as_string;