#!/usr/bin/perl -w
use strict;
$| = 1;
################################
# rss_2_0.pl
################################

use XML::GDOME;

# -- GLOBAL
my $DEBUG = 0;
my $doc = XML::GDOME->createDocFromURI($ARGV[0]);
my @nodes = $doc->findnodes("//*");
my $do = my $i = 0;

foreach my $node (@nodes) {
        my @childs = $node->childNodes;

        foreach my $child (@childs) {
                if($child->nodeType == ELEMENT_NODE) {
                        my $data = defined $child->firstChild() ? 
                               $child->firstChild()->data : 'NULL';
			if ($child->nodeName eq 'title') {
				$i++;
				$do = 1 if $i > 1;
			}
			next unless $do;
			chomp $data;

                        print "[DEBUG] node = '",  $child->nodeName, "'\n" if $DEBUG;
			if ($child->nodeName eq 'title') {
				print '<b>', $data, '</b>', "\n";
			}
			elsif ($child->nodeName eq 'link') {
				print '<a href="', $data, '">', $data, '"</a>', "\n";
			}
			elsif ($child->nodeName eq 'description') {
				print $data, '<br />', "\n";
			}
			elsif ($child->nodeName eq 'pubDate') {
				print '<i>(', $data, ')<br /></i>';
				print "<hr noshade>\n\n";
			}
			else {
				print $data, '<br />';
			}
                }
        }
}

__END__