From a330d7c1468f6f6eba776eb223dd0a0030d2bd03 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Fr=C3=A9d=C3=A9ric=20Couchet?= <fcouchet@april.org>
Date: Wed, 19 Jun 2019 15:55:51 +0200
Subject: [PATCH] Fix some fields

---
 podcasts/scripts/feed2lav.pl | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

diff --git a/podcasts/scripts/feed2lav.pl b/podcasts/scripts/feed2lav.pl
index 97a8d9d..43bfa05 100755
--- a/podcasts/scripts/feed2lav.pl
+++ b/podcasts/scripts/feed2lav.pl
@@ -27,9 +27,10 @@ use DateTime::Format::DateParse;
 # Configuration variables
 my $url = "https://www.april.org/taxonomy_all_items/term/1917/all/feed";
 my $filename = "/usr/share/drupal6/lav.xml";
-my $urlfeed = "https://april.org/lav.xml";
+my $linkurl = "https://april.org/libre-a-vous";
+my $feedurl = "https://april.org/lav.xml";
 
-# Build RSS object
+# build RSS object
 my $rss = XML::RSS->new;
 
 # Fetch Drupal feed
@@ -44,9 +45,9 @@ $rss->parse($in_file);
 $rss->{channel}->{description} = "<p>Chaque mardi de 15 h 30 à 17 h 00, l'April, l'association de promotion et de défense du logiciel libre, propose une émission de radio d'explications et d'échanges concernant les dossiers politiques et juridiques que l'association traite et les actions qu'elle mène : <a href=\"https://april.org/libre-a-vous\">Libre à vous !</a>. Une partie de l'émission est également consacrée aux actualités et actions de type sensibilisation. L'émission est diffusée sur radio Cause Commune sur la bande FM en Île-de-France (93.1) et <a href=\"https://cause-commune.fm\">sur le site web de la radio</a>.</p><p>Donner à chacun et chacune, de manière simple et accessible les clefs pour comprendre les enjeux mais aussi proposer des moyens d'action, tel est l'objectif de l'émission.</p>";
 
 # 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=>$linkurl);
 
-$rss->{channel}->{link} = $urlfeed;
+$rss->{channel}->{link} = $linkurl;
 
 # Parse items
 my @new_items;
@@ -103,6 +104,9 @@ __HTML__
 $rss->{items} = \@new_items;
 
 # Output RSS
-print $fh $rss->as_string;
+my $rsscontent = $rss->as_string;
+$rsscontent =~s#https://www.april.org/taxonomy_all_items/term/1917/all#$feedurl#g;
+    
+print $fh $rsscontent;
 
 close $fh;