Normalized spaces and tabs.
This commit is contained in:
parent
ce0b6ba592
commit
66ef7112b2
@ -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;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user