Normalized spaces and tabs.

This commit is contained in:
Christian P. MOMON 2019-05-21 14:27:39 +02:00
parent ce0b6ba592
commit 66ef7112b2

View File

@ -11,9 +11,9 @@ my $meta_data_script = "lav-outils/podcasts/scripts/make-metadata-image-podcast.
my $verbose; my $verbose;
GetOptions ("help" => \$help, GetOptions ("help" => \$help,
"config=s" => \$config, "config=s" => \$config,
"verbose" => \$verbose, "verbose" => \$verbose,
"dryrun" => \$dryrun); "dryrun" => \$dryrun);
if($help) { if($help) {
usage(); usage();
@ -24,8 +24,8 @@ if($help) {
sub usage { sub usage {
print <<EOS print <<EOS
Exec commands to cut and process LAV! podcast with json file containing the timestamps and sections to be cut. Exec commands to cut and process LAV! podcast with json file containing the timestamps and sections to be cut.
Needs JSON perl library (apt install libjson-perl) Needs JSON perl library (apt install libjson-perl)
$0 --config conf_file.json $0 --config conf_file.json
--config conf_file.json the configuration file containing stuff --config conf_file.json the configuration file containing stuff
--help show this message --help show this message
@ -79,7 +79,7 @@ sub process {
print Dumper $data; print Dumper $data;
return 0; return 0;
} }
} }
} }
# putting metadata # putting metadata
@ -96,7 +96,7 @@ sub process {
print Dumper $data; print Dumper $data;
return 0; return 0;
} }
} }
} }
my $command = "mv output.ogg $source_name-$short_chapter_name.ogg"; my $command = "mv output.ogg $source_name-$short_chapter_name.ogg";
@ -111,7 +111,7 @@ sub process {
print Dumper $data; print Dumper $data;
return 0; return 0;
} }
} }
} }
} }
@ -143,7 +143,7 @@ sub process {
print Dumper $data; print Dumper $data;
return 0; return 0;
} }
} }
} }
} }