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

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
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
podcasts/scripts/feed2lav.pl
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;