Normalized indent.

This commit is contained in:
Christian P. MOMON 2019-05-25 22:40:17 +02:00
parent a6ee3cff73
commit 0e94130627

View File

@ -53,7 +53,7 @@ $0 --config conf_file.json
--verbose increase verbosity --verbose increase verbosity
--dryrun print commands without executing them --dryrun print commands without executing them
EOS EOS
; ;
} }
sub read_config { sub read_config {
@ -147,7 +147,6 @@ sub process {
} }
} }
# renaming to target OGG and MP3 # renaming to target OGG and MP3
for my $format ("ogg","mp3") { for my $format ("ogg","mp3") {
my $target_name = "$source_name-$short_chapter_name.$format"; my $target_name = "$source_name-$short_chapter_name.$format";
@ -166,7 +165,6 @@ sub process {
} }
} }
# hashing # hashing
my $command = "sha1sum $target_name > $target_name.sha1"; my $command = "sha1sum $target_name > $target_name.sha1";
if($dryrun) { if($dryrun) {
@ -186,7 +184,6 @@ sub process {
} }
# putting metadata in main podcast # putting metadata in main podcast
my $url = "https://media.april.org/audio/radio-cause-commune/libre-a-vous/emissions/$short_date/$source_name.ogg"; my $url = "https://media.april.org/audio/radio-cause-commune/libre-a-vous/emissions/$short_date/$source_name.ogg";
my $command = "$meta_data_script -s \"$source_name.ogg\" -d \"output\" -u \"$url\" -t \"$title\" -p \"$ffmpeg_bin\" -y \"$year\""; my $command = "$meta_data_script -s \"$source_name.ogg\" -d \"output\" -u \"$url\" -t \"$title\" -p \"$ffmpeg_bin\" -y \"$year\"";
@ -241,8 +238,8 @@ sub process {
$textwebpage = $textwebpage . "</ul>\n\n"; $textwebpage = $textwebpage . "</ul>\n\n";
binmode(STDOUT, ":utf8"); binmode(STDOUT, ":utf8");
print "Pour la page web consacrée à l'émission :\n\n$textwebpage\n\n"; print "Pour la page web consacrée à l'émission :\n\n$textwebpage\n\n";
} }