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;
GetOptions ("help" => \$help,
"config=s" => \$config,
"verbose" => \$verbose,
"dryrun" => \$dryrun);
"config=s" => \$config,
"verbose" => \$verbose,
"dryrun" => \$dryrun);
if($help) {
usage();
@ -24,8 +24,8 @@ if($help) {
sub usage {
print <<EOS
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)
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)
$0 --config conf_file.json
--config conf_file.json the configuration file containing stuff
--help show this message
@ -79,7 +79,7 @@ sub process {
print Dumper $data;
return 0;
}
}
}
}
# putting metadata
@ -96,7 +96,7 @@ sub process {
print Dumper $data;
return 0;
}
}
}
}
my $command = "mv output.ogg $source_name-$short_chapter_name.ogg";
@ -111,7 +111,7 @@ sub process {
print Dumper $data;
return 0;
}
}
}
}
}
@ -143,7 +143,7 @@ sub process {
print Dumper $data;
return 0;
}
}
}
}
}