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

Add url of the web page

Browse Source
This commit is contained in:
Frédéric Couchet 2019-06-19 09:21:10 +02:00 committed by Frédéric Couchet
parent 6ace738b9b
commit 6a5a836062
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
podcasts/scripts/make-all-podcasts.pl
View File

@ -256,7 +256,12 @@ sub process {
$textwebpage = $textwebpage . "</ul>\n\n"; $textwebpage = $textwebpage . "</ul>\n\n";
binmode(STDOUT, ":utf8"); 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) { if(! $mp3) {
print "MP3 files not generated, please use --mp3 option to generate them\n"; print "MP3 files not generated, please use --mp3 option to generate them\n";