From 6a5a8360626ae32f3ebaa8491c5d11f34d7aaf96 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Fr=C3=A9d=C3=A9ric=20Couchet?= Date: Wed, 19 Jun 2019 09:21:10 +0200 Subject: [PATCH] Add url of the web page --- podcasts/scripts/make-all-podcasts.pl | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/podcasts/scripts/make-all-podcasts.pl b/podcasts/scripts/make-all-podcasts.pl index ff0302d..fbc125c 100755 --- a/podcasts/scripts/make-all-podcasts.pl +++ b/podcasts/scripts/make-all-podcasts.pl @@ -256,7 +256,12 @@ sub process { $textwebpage = $textwebpage . "\n\n"; binmode(STDOUT, ":utf8"); - print "\nText for the web page of the radio program :\n\n$textwebpage\n"; + my $url = "https://www.april.org/libre-a-vous-diffusee-mardi-$long_date-sur-radio-cause-commune"; + $url=~s/ /-/g; + + print "\nText for the web page of the radio program : $url\n\n"; + print "$textwebpage\n\n"; + print "Add the html code on $url\n\n"; if(! $mp3) { print "MP3 files not generated, please use --mp3 option to generate them\n";