#!/usr/bin/perl

use strict;
use warnings;

#use Data::Dumper;

use HTML::Strip;
use XML::RSS::SimpleGen;

my $url = q<http://www.perl-community.de/>;
my $hs = HTML::Strip->new();

rss_new( $url, "24hours", "recent actions on board.perl-community.de" );
rss_language( 'de' );

my @content;
#my @cleaned;

while(<DATA>) {
    chomp;
    if (/<!-- Begin Topic Entry \d+ -->/ .. /<!-- End Topic Entry \d+ -->/) {
        my $row = $hs->parse( $_ );
        push @content, $1 if m{(http:\/\/board.perl-community.de\/cgi-bin\/ikonboard\/ikonboard.cgi\?s=\w+;act=ST;f=\d+;st=\d+;t=\d+\;\#idx\d+)};
        push @content, $row if $row;
    }
}

$hs->eof;

while(@content){
    my ($h, $i, $j, $k , undef, undef, $l) = splice @content, 0, 7;
    #push @cleaned, [$h, $i, $j, $k, $l];
    rss_item( $h, "[$k]: $i" );
}

#die Dumper \@cleaned;
print "Content-type: application/xml\n\n", rss_as_string();
exit;