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

Merge branch 'master' of ssh://agir.cluster.april.org/srv/git/lav-outils

Browse Source
This commit is contained in:
Quentin Gibeaux 2020-02-03 14:06:59 +01:00 committed by root
commit ce9ab58629
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
podcasts/scripts/feed2lav.pl
View File

@ -71,6 +71,8 @@ foreach my $item (@{$rss->{'items'}}) {
# Add current item to items list so new item for each topic goes after this one
push @new_items, $item;
my ($datediffusion) = ($item->{title} =~ /diffusée (.+) sur radio/);
# Parse each topic
while ($topics =~ /<li><a href="([^"]+)">([^>]+)<\/a>/g) {
# Extract ogg url for enclosures
@ -82,11 +84,12 @@ foreach my $item (@{$rss->{'items'}}) {
# Build new item for this topic
my %new_item = %$item;
$new_item{title} = $title;
$new_item{description} = <<"__HTML__";
<p><a href="https://april.org/libre-a-vous"><em>Libre à vous !</em></a>, l'émission pour comprendre et agir avec l'April, chaque mardi de 15h30 à 17h sur la radio <em>Cause commune</em> (93.1 FM en Île-de-France et sur <a href="https://causecommune.fm">Internet</a>.</p>
<p><em>Émission « Libre à vous ! »</em> diffusée $date, partie « $title »</p>
<p><em>Émission « Libre à vous ! »</em> diffusée $datediffusion, partie « $title »</p>
<p>Retrouvez les références citées dans ce podcast sur <a href="$item->{link}">la page dédiée à l'émission</a>.</p>
__HTML__