mirror of
https://github.com/perlbot/perlbuut
synced 2025-06-07 15:55:42 -04:00
21 lines
523 B
Perl
21 lines
523 B
Perl
use XML::RSS::Parser;
|
|
use strict;
|
|
|
|
no warnings 'void';
|
|
sub {
|
|
my( $said, $pm ) = @_;
|
|
my $feed_uri = $said->{recommended_args}->[0];
|
|
|
|
print "Couldn't find a url to fetch!" and return
|
|
unless $feed_uri;
|
|
|
|
my $parser = XML::RSS::Parser->new;
|
|
my $feed = $parser->parse_uri( $feed_uri ) #TODO check for http:// schema
|
|
or ( print "Couldn't parse $feed_uri because", $parser->errstr and return );
|
|
|
|
print +($feed->query("//item/title"))[0]->text_content;
|
|
|
|
}
|
|
|
|
__DATA__
|
|
Returns the first headline from a specified RSS feed.
|