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

This commit is contained in:
Quentin Gibeaux 2020-01-13 12:31:02 +01:00 committed by root
commit 1e5122b925
3 changed files with 78 additions and 4 deletions

View File

@ -0,0 +1,32 @@
{
"short_date" : "20191126",
"long_date" : "26 novembre 2019",
"ffmpeg_bin" : "../FFmpeg/ffmpeg",
"short_description" : "Legal design et Legal Tech - MAIF et Enercoop - Obsolescence programmée - Annonces",
"chapters" : [
{
"start_timestamp" : "00:01:50.500",
"end_timestamp" : "00:12:27.200",
"short_chapter_name" : "chronique-noemie-bergez-sur-legal-design-et-legal-tech",
"chapter_title" : "Chronique « In code we trust » de Noémie Bergez, avocate au cabinet Dune, sur le legal design et la legal tech"
},
{
"start_timestamp" : "00:16:01.200",
"end_timestamp" : "01:03:20.400",
"short_chapter_name" : "maif-et-enercoop",
"chapter_title" : "La stratégie logiciel libre de la MAIF et d'Enercoop"
},
{
"start_timestamp" : "01:07:13.200",
"end_timestamp" : "01:20:27.700",
"short_chapter_name" : "chronique-xavier-berne-obsolescence-programmee",
"chapter_title" : "Chronique « Parole libre » de Xavier Berne, journaliste à Next INpact sur le projet de loi relatif à la lutte contre le gaspillage et économie circulaire, et plus particulièrement sur la partie consacrée à l'obsolescence programmée"
},
{
"start_timestamp" : "01:20:40.410",
"end_timestamp" : "01:30:00.000",
"short_chapter_name" : "annonces",
"chapter_title" : "Annonces"
}
]
}

View File

@ -0,0 +1,32 @@
{
"short_date" : "20191203",
"long_date" : "3 décembre 2019",
"ffmpeg_bin" : "../FFmpeg/ffmpeg",
"short_description" : "ANSSI - eTHiX - Polices libres - Annonces",
"chapters" : [
{
"start_timestamp" : "00:01:44.900",
"end_timestamp" : "00:13:39.000",
"short_chapter_name" : "chronique-isabella-vanni-interview-ethix",
"chapter_title" : "Chronique « Le libre fait sa comm' » d'Isabella Vanni, avec l'interview de Nicolas Barteau président d'eTHiX"
},
{
"start_timestamp" : "00:16:46.400",
"end_timestamp" : "01:08:51.400",
"short_chapter_name" : "anssi-guillaume-poupard",
"chapter_title" : "L'ANSSI (Agence nationale de la sécurité des systèmes d'information) avec l'interview de son directeur général Guillaume Poupard"
},
{
"start_timestamp" : "01:14:05.100",
"end_timestamp" : "01:19:50.100",
"short_chapter_name" : "chronique-jean-christophe-becquet-polices-libres",
"chapter_title" : "Chronique « Pépites libres » de Jean-Christophe Becquet sur le thème « Les polices libres n'ont pas mauvais caractères »"
},
{
"start_timestamp" : "01:19:56.900",
"end_timestamp" : "01:30:00.000",
"short_chapter_name" : "annonces",
"chapter_title" : "Annonces"
}
]
}

View File

@ -25,7 +25,8 @@ use DateTime;
use DateTime::Format::DateParse;
# 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/1918/all";
my $urlfeed = "https://www.april.org/taxonomy_all_items/term/1918/all/feed";
my $filename = "/usr/share/drupal6/lav.xml";
my $linkurl = "https://april.org/libre-a-vous";
my $feedurl = "https://april.org/lav.xml";
@ -34,8 +35,8 @@ my $feedurl = "https://april.org/lav.xml";
my $rss = XML::RSS->new;
# Fetch Drupal feed
my $in_file = get($url);
die "Couldn't get $url\n!" unless defined $in_file;
my $in_file = get($urlfeed);
die "Couldn't get $urlfeed\n!" unless defined $in_file;
# Parse RSS
open(my $fh, '>:encoding(UTF-8)', $filename) or die "Could not open file '$filename' $!";
@ -86,6 +87,8 @@ foreach my $item (@{$rss->{'items'}}) {
<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>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__
$new_item{category} = 'Podcast Libre à vous !';
$new_item{enclosure} = [{length => 0, type => 'audio/ogg', url => $ogg_url}, {length => 0, type => 'audio/mpeg', url => $mp3_url}];
@ -105,7 +108,14 @@ $rss->{items} = \@new_items;
# Output RSS
my $rsscontent = $rss->as_string;
$rsscontent =~s#https://www.april.org/taxonomy_all_items/term/1917/all#$feedurl#g;
# Add stuff for iTunes
$rsscontent =~s#</description>#</description>\n<itunes:category text="Technology" />\n<itunes:author>April et Radio Cause Commune</itunes:author>\n<itunes:summary>Libre à vous ! L'émission de l'April, l'association de promotion et de défense du logiciel libre, sur radio Cause Commune. Prenez le contrôle de vos libertés informatiques, découvrez les enjeux et lactualité du Libre.</itunes:summary>\n<itunes:owner>\n<itunes:name>April</itunes:name>\n<itunes:email>libre-a-vous\@april.org</itunes:email>\n</itunes:owner>\n<itunes:explicit>no</itunes:explicit>\n<itunes:image href="https://media.april.org/audio/radio-cause-commune/libre-a-vous/visuels/banniere-libre-a-vous-flux-rss-3000x3000.png"></itunes:image>#;
$rsscontent =~s#xmlns:taxo="http://purl.org/rss/1.0/modules/taxonomy/"#xmlns:taxo="http://purl.org/rss/1.0/modules/taxonomy/"\n xmlns:itunes="http://www.itunes.com/dtds/podcast-1.0.dtd"\n#;
#$rsscontent =~s#https://www.april.org/taxonomy_all_items/term/1918/all#$feedurl#g;
$rsscontent =~s#${url}#$feedurl#g;
print $fh $rsscontent;