#!/usr/bin/perl -wT

# (c)left Algirdas @ perl.lt
# smplrss.pl v1.0 [2006.12.27]
#
# pavizdys (naujausi seach.cpan.org moduliai):
# http://perl.lt/duomenys/testai/smplrss/smplrss.pl

use strict;
use LWP::Simple;

my $rss = get("http://search.cpan.org/rss/search.rss");
die "Klaida!" unless defined $rss;

my @rss = split( /\n/, $rss );
my $pav = 'Paprastas RSS skaitiklis (panaudojant LWP::Simple)';

print "Content-type: text/html;Charset=utf-8\n\n";
print "<h1>$pav</h1>\n";

foreach (@rss) {
    if (/<description>(.*)<\/description>/) { print "<b>- $1</b><br>\n"; }
    if (/<title>(.*)<\/title>/) { $pav = $1; }
    if (/<link>(.*)<\/link>/) {
        print "<br><a href=\"$1\" target=\"_blank\">$pav</a>";
    }
}