# LotR++ for this one
# minor mods by lenzo@cs.cmu.edu

BEGIN {
    eval qq{
        use LWP::UserAgent;
        use XML::RSS;
        use HTTP::Request::Common qw(GET);
    };

    $no_headlines++ if($@);
}

sub get_headlines {
    my ($rdf_loc) = @_;

    my ($rss, $ua, $request, $result, $return);

    if ($no_headlines) {
	return "error: RDF headlines require LWP::UserAgent, XML::RSS, and HTTP::Request... sorry.";
    }

    if ($rdf_loc) {
	&status("getting headlines from $rdf_loc");

	my $ua = new LWP::UserAgent;
        $ua->timeout(10);

	my $request = new HTTP::Request ("GET", $rdf_loc);
	my $result = $ua->request ($request);

	if ($result->is_success) {
	    my ($str);
	    $str = $result->content;
	    $rss = new XML::RSS;
	    eval { $rss->parse($str); };
	    if ($@) {
		return "that gave some error";
	    } else {
		my $return;

		foreach my $item (@{$rss->{"items"}}) {
		    $return .= $item->{"title"} . "; ";
		    last if length($return) > $param{maxDataSize};
		}
		
		$return =~ s/; $//;

		return $return;
	    }
	} else {
	    return "error: $rdf_loc wasn't successful";
	}
    } else {
	return "error: no location stored for $where";
    }
};

1;