/usr/share/perl5/XML/Feed/Format/RSS.pm is in libxml-feed-perl 0.53+dfsg-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 | package XML::Feed::Format::RSS;
use strict;
use warnings;
our $VERSION = '0.53';
use base qw( XML::Feed );
use DateTime::Format::Mail;
use DateTime::Format::W3CDTF;
use XML::Atom::Util qw(iso2dt);
use XML::Feed::Enclosure;
use XML::Feed::Entry::Format::RSS;
our $PREFERRED_PARSER = "XML::RSS";
sub identify {
my $class = shift;
my $xml = shift;
my $tag = $class->_get_first_tag($xml);
return ($tag eq 'rss' || $tag eq 'RDF');
}
sub init_empty {
my ($feed, %args) = @_;
$args{'version'} ||= '2.0';
eval "use $PREFERRED_PARSER"; die $@ if $@;
$feed->{rss} = $PREFERRED_PARSER->new(%args);
$feed->{rss}->add_module(prefix => "content", uri => 'http://purl.org/rss/1.0/modules/content/');
$feed->{rss}->add_module(prefix => "dcterms", uri => 'http://purl.org/dc/terms/');
$feed->{rss}->add_module(prefix => "atom", uri => 'http://www.w3.org/2005/Atom');
$feed->{rss}->add_module(prefix => "geo", uri => 'http://www.w3.org/2003/01/geo/wgs84_pos#');
$feed;
}
sub init_string {
my $feed = shift;
my($str) = @_;
$feed->init_empty;
my $opts = {
hashrefs_instead_of_strings => 1,
};
$opts->{allow_multiple} = [ 'enclosure' ] if $XML::Feed::MULTIPLE_ENCLOSURES;
if ($str) {
$feed->{rss}->parse($$str, $opts );
}
$feed;
}
sub format { 'RSS ' . $_[0]->{rss}->{'version'} }
## The following elements are the same in all versions of RSS.
sub title { shift->{rss}->channel('title', @_) }
sub link {
my $link = shift->{rss}->channel('link', @_);
$link =~ s/^\s+//;
$link =~ s/\s+$//;
return $link;
}
sub description { shift->{rss}->channel('description', @_) }
sub updated { shift->modified(@_) }
# This doesn't exist in RSS
sub id { }
## This is RSS 2.0 only--what's the equivalent in RSS 1.0?
sub copyright { shift->{rss}->channel('copyright', @_) }
sub base {
my $feed = shift;
if (@_) {
$feed->{rss}->{'xml:base'} = $_[0];
} else {
$feed->{rss}->{'xml:base'};
}
}
## The following all work transparently in any RSS version.
sub language {
my $feed = shift;
if (@_) {
$feed->{rss}->channel('language', $_[0]);
$feed->{rss}->channel->{dc}{language} = $_[0];
} else {
$feed->{rss}->channel('language') ||
$feed->{rss}->channel->{dc}{language};
}
}
sub self_link {
my $feed = shift;
if (@_) {
my $uri = shift;
$feed->{rss}->channel->{'atom'}{'link'} =
{
rel => "self",
href => $uri,
type => "application/rss+xml",
};
}
return $feed->{rss}->channel->{'atom'}{'link'};
}
# This doesn't exist in RSS
sub first_link { };
sub last_link { };
sub previous_link { };
sub next_link { };
sub current_link { };
sub prev_archive_link { };
sub next_archive_link { };
sub generator {
my $feed = shift;
if (@_) {
$feed->{rss}->channel('generator', $_[0]);
$feed->{rss}->channel->{'http://webns.net/mvcb/'}{generatorAgent} =
$_[0];
} else {
$feed->{rss}->channel('generator') ||
$feed->{rss}->channel->{'http://webns.net/mvcb/'}{generatorAgent};
}
}
sub author {
my $feed = shift;
if (@_) {
$feed->{rss}->channel('webMaster', $_[0]);
$feed->{rss}->channel->{dc}{creator} = $_[0];
} else {
$feed->{rss}->channel('webMaster') ||
$feed->{rss}->channel->{dc}{creator};
}
}
sub modified {
my $rss = shift->{rss};
if (@_) {
$rss->channel('pubDate',
DateTime::Format::Mail->format_datetime($_[0]));
## XML::RSS is so weird... if I set this, it will try to use
## the value for the lastBuildDate, which I don't want--because
## this date is formatted for an RSS 1.0 feed. So it's commented out.
#$rss->channel->{dc}{date} =
# DateTime::Format::W3CDTF->format_datetime($_[0]);
} else {
my $date;
eval {
if (my $ts = $rss->channel('pubDate')) {
$ts =~ s/^\s+//;
$ts =~ s/\s+$//;
$date = DateTime::Format::Mail->parse_datetime($ts);
} elsif ($ts = $rss->channel->{dc}{date}) {
$ts =~ s/^\s+//;
$ts =~ s/\s+$//;
$date = DateTime::Format::W3CDTF->parse_datetime($ts);
}
};
return $date;
}
}
sub image {
my $self = shift;
my $rss = $self->{rss};
return @_ ? $rss->image(@_) : $rss->image('url');
}
sub entries {
my $rss = $_[0]->{rss};
my @entries;
for my $item (@{ $rss->{items} }) {
push @entries, XML::Feed::Entry::Format::RSS->wrap($item);
$entries[-1]->{_version} = $rss->{'version'};
}
@entries;
}
sub add_entry {
my $feed = shift;
my $entry = shift || return;
$entry = $feed->_convert_entry($entry);
$feed->{rss}->add_item(%{ $entry->unwrap });
}
sub as_xml { $_[0]->{rss}->as_string }
1;
|