libreavous/lav-outils
libreavous/lav-outils
4
3
Fork 0
Code Issues Pull Requests Releases Activity

Overwrite output of enclosures to have attributes in fixed order

Browse Source
This commit is contained in:
gibus 2020-02-10 23:03:34 +01:00
parent 92a2c299df
commit 14403676c7
1 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
podcasts/scripts/feed2lav.pl
View File

@ -24,6 +24,23 @@ use XML::RSS;
use DateTime;
use DateTime::Format::DateParse;
{
# Overwrite output of enclosures to have attributes in fixed order
no warnings qw(redefine);
sub XML::RSS::Private::Output::Base::_out_single_item_enclosure {
my ($self, $item, $enc) = @_;
return
$self->_out(
"<enclosure " .
join(' ',
map { "$_=\"" . $self->_encode($enc->{$_}) . '"' } sort keys(%$enc)
) .
" />\n"
);
}
}
# Configuration variables
my $url = "https://www.april.org/taxonomy_all_items/term/1918/all";
my $urlfeed = "https://www.april.org/taxonomy_all_items/term/1918/all/feed";