-# $Id: Feed.pm 942 2004-12-31 23:01:21Z btrott $
+# $Id: Feed.pm 1958 2006-08-14 05:31:27Z btrott $
package XML::Feed;
use strict;
use base qw( Class::ErrorHandler );
use Feed::Find;
use URI::Fetch;
+use LWP::UserAgent;
+use Carp;
-our $VERSION = '0.04';
+our $VERSION = '0.22';
+
+sub new {
+ my $class = shift;
+ my $format = shift || 'Atom';
+ my $format_class = 'XML::Feed::' . $format;
+ eval "use $format_class";
+ Carp::croak("Unsupported format $format: $@") if $@;
+ my $feed = bless {}, join('::', __PACKAGE__, $format);
+ $feed->init_empty(@_) or return $class->error($feed->errstr);
+ $feed;
+}
+
+sub init_empty { 1 }
sub parse {
my $class = shift;
- my($stream) = @_;
+ my($stream, $specified_format) = @_;
return $class->error("Stream parameter is required") unless $stream;
my $feed = bless {}, $class;
my $xml = '';
if (UNIVERSAL::isa($stream, 'URI')) {
- my $res = URI::Fetch->fetch($stream)
+ my $ua = LWP::UserAgent->new;
+ $ua->env_proxy; # force allowing of proxies
+ my $res = URI::Fetch->fetch($stream, UserAgent => $ua)
or return $class->error(URI::Fetch->errstr);
return $class->error("This feed has been permanently removed")
- if $res->status == URI::Fetch::FEED_GONE();
+ if $res->status == URI::Fetch::URI_GONE();
$xml = $res->content;
} elsif (ref($stream) eq 'SCALAR') {
$xml = $$stream;
}
return $class->error("Can't get feed XML content from $stream")
unless $xml;
- my $format = $feed->identify_format(\$xml)
- or return $class->error($feed->errstr);
+ my $format;
+ if ($specified_format) {
+ $format = $specified_format;
+ } else {
+ $format = $feed->identify_format(\$xml) or return $class->error($feed->errstr);
+ }
+
my $format_class = join '::', __PACKAGE__, $format;
eval "use $format_class";
return $class->error("Unsupported format $format: $@") if $@;
@feeds;
}
+sub convert {
+ my $feed = shift;
+ my($format) = @_;
+ my $new = __PACKAGE__->new($format);
+ for my $field (qw( title link description language author copyright modified generator )) {
+ my $val = $feed->$field();
+ next unless defined $val;
+ $new->$field($val);
+ }
+ for my $entry ($feed->entries) {
+ $new->add_entry($entry->convert($format));
+ }
+ $new;
+}
+
+sub splice {
+ my $feed = shift;
+ my($other) = @_;
+ my %ids = map { $_->id => 1 } $feed->entries;
+ for my $entry ($other->entries) {
+ $feed->add_entry($entry) unless $ids{$entry->id}++;
+ }
+}
+
sub format;
sub title;
sub link;
+sub self_link;
sub description;
sub language;
+sub author;
sub copyright;
sub modified;
sub generator;
+sub add_entry;
sub entries;
+sub as_xml;
+sub id;
-sub tagline { $_[0]->description }
+sub tagline { shift->description(@_) }
sub items { $_[0]->entries }
1;
=head1 USAGE
+=head2 XML::Feed->new($format)
+
+Creates a new empty I<XML::Feed> object using the format I<$format>.
+
+ $feed = XML::Feed->new('Atom');
+ $feed = XML::Feed->new('RSS');
+ $feed = XML::Feed->new('RSS', version => '0.91');
+
=head2 XML::Feed->parse($stream)
+=head2 XML::Feed->parse($stream, $format)
+
Parses a syndication feed identified by I<$stream>. I<$stream> can be any
one of the following:
=back
+C<$format> allows you to override format guessing.
+
=head2 XML::Feed->find_feeds($uri)
Given a URI I<$uri>, use auto-discovery to find all of the feeds linked
Returns a list of feed URIs.
+=head2 $feed->convert($format)
+
+Converts the I<XML::Feed> object into the I<$format> format, and returns
+the new object.
+
+=head2 $feed->splice($other_feed)
+
+Splices in all of the entries from the feed I<$other_feed> into I<$feed>,
+skipping posts that are already in I<$feed>.
+
=head2 $feed->format
Returns the format of the feed (C<Atom>, or some version of C<RSS>).
-=head2 $feed->title
+=head2 $feed->title([ $title ])
The title of the feed/channel.
-=head2 $feed->link
+=head2 $feed->link([ $uri ])
The permalink of the feed/channel.
-=head2 $feed->tagline
+=head2 $feed->tagline([ $tagline ])
The description or tagline of the feed/channel.
-=head2 $feed->description
+=head2 $feed->description([ $description ])
Alias for I<$feed-E<gt>tagline>.
-=head2 $feed->language
+=head2 $feed->author([ $author ])
+
+The author of the feed/channel.
+
+=head2 $feed->language([ $language ])
The language of the feed.
-=head2 $feed->copyright
+=head2 $feed->copyright([ $copyright ])
The copyright notice of the feed.
-=head2 $feed->modified
+=head2 $feed->modified([ $modified ])
A I<DateTime> object representing the last-modified date of the feed.
-=head2 $feed->generator
+If present, I<$modified> should be a I<DateTime> object.
+
+=head2 $feed->generator([ $generator ])
The generator of the feed.
+=head2 $feed->self_link ([ $uri ])
+
+The Atom Self-link of the feed:
+
+L<http://validator.w3.org/feed/docs/warning/MissingAtomSelfLink.html>
+
+A string.
+
=head2 $feed->entries
A list of the entries/items in the feed. Returns an array containing
I<XML::Feed::Entry> objects.
+=head2 $feed->add_entry($entry)
+
+Adds an entry to the feed. I<$entry> should be an I<XML::Feed::Entry>
+object in the correct format for the feed.
+
+=head2 $feed->as_xml
+
+Returns an XML representation of the feed, in the format determined by
+the current format of the I<$feed> object.
+
+=head1 PACKAGE VARIABLES
+
+=over 4
+
+=item C<$XML::Feed::RSS::PREFERRED_PARSER>
+
+If you want to use another RSS parser class than XML::RSS (default), you can
+change the class by setting C<$PREFERRED_PARSER> variable in XML::Feed::RSS
+package.
+
+ $XML::Feed::RSS::PREFERRED_PARSER = "XML::RSS::LibXML";
+
+B<Note:> this will only work for parsing feeds, not creating feeds.
+
+=back
+
=head1 LICENSE
I<XML::Feed> is free software; you may redistribute it and/or modify it
=head1 AUTHOR & COPYRIGHT
-Except where otherwise noted, I<XML::Feed> is Copyright 2004 Benjamin
-Trott, ben+cpan@stupidfool.org. All rights reserved.
+Except where otherwise noted, I<XML::Feed> is Copyright 2004-2008
+Six Apart, cpan@sixapart.com. All rights reserved.
+
+=head1 SUBVERSION
+
+The latest version of I<XML::Feed> can be found at
+
+ http://code.sixapart.com/svn/XML-Feed/trunk/
=cut