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