You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
90 lines
1.7 KiB
Perl
90 lines
1.7 KiB
Perl
|
|
# 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) = @_;
|
|
|
|
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;
|
|
if (my $proxy = main::getparam('httpproxy')) { $ua->proxy('http', $proxy) };
|
|
$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;
|
|
|
|
__END__
|
|
|
|
=head1 NAME
|
|
|
|
RDF.pl - Read RDF files into factoids
|
|
|
|
=head1 PREREQUISITES
|
|
|
|
LWP::UserAgent
|
|
XML::RSS
|
|
HTTP::Request::Common
|
|
|
|
=head1 PARAMETERS
|
|
|
|
rss
|
|
|
|
|
|
=head1 PUBLIC INTERFACE
|
|
|
|
<site> is <rss="site.rdf">
|
|
|
|
=head1 DESCRIPTION
|
|
|
|
This allows you to read and parse RSS files; RSS is a format
|
|
for getting news headlines off web news services.
|
|
|
|
=head1 AUTHORS
|
|
|
|
LotR <martijn@earthling.net> and Kevin Lenzo, of course.
|