Normalized indent.
This commit is contained in:
parent
a6ee3cff73
commit
0e94130627
@ -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";
|
||||||
|
|
||||||
}
|
}
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user