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

Correct url of the feed in channel

Browse Source
This commit is contained in:
Frédéric Couchet 2019-06-19 15:14:47 +02:00 committed by Frédéric Couchet
parent 40fe0d6cbd
commit f5449ee6c6
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
podcasts/scripts/feed2lav.pl
View File

@ -27,6 +27,7 @@ use DateTime::Format::DateParse;
# Configuration variables # Configuration variables
my $url = "https://www.april.org/taxonomy_all_items/term/1917/all/feed"; my $url = "https://www.april.org/taxonomy_all_items/term/1917/all/feed";
my $filename = "/usr/share/drupal6/lav.xml"; my $filename = "/usr/share/drupal6/lav.xml";
my $urlfeed = "https://april.org/lav.xml";
# Build RSS object # Build RSS object
my $rss = XML::RSS->new; my $rss = XML::RSS->new;
@ -45,6 +46,8 @@ $rss->{channel}->{description} = "<p>Chaque mardi de 15 h 30 à 17 h 00, l'April
# Add image # Add image
$rss->image(title=>'Libre à vous !', url=>'https://april.org/files/libre-a-vous/banniere-radio-april-rss-200.png', link=>'https://april.org/libre-a-vous'); $rss->image(title=>'Libre à vous !', url=>'https://april.org/files/libre-a-vous/banniere-radio-april-rss-200.png', link=>'https://april.org/libre-a-vous');
$rss->{channel}->{link} = $urlfeed;
# Parse items # Parse items
my @new_items; my @new_items;
foreach my $item (@{$rss->{'items'}}) { foreach my $item (@{$rss->{'items'}}) {