mirror of
https://github.com/perlbot/perlbuut
synced 2025-06-07 17:55:42 -04:00
23 lines
567 B
Perl
23 lines
567 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 );
|
|
|
|
for( $feed->query("//item/title") ) {
|
|
print $_->text_content;
|
|
}
|
|
|
|
}
|
|
|
|
__DATA__
|
|
Returns small list of headlines from an RSS feed. Syntax, fetch_rss http://example/rss
|