Fix some fields

This commit is contained in:
Frédéric Couchet 2019-06-19 15:55:51 +02:00 committed by Frédéric Couchet
parent f5449ee6c6
commit a330d7c146

View File

@ -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;