Skip to content

Control log level and then some #1

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
broganross wants to merge 1 commit into
base: master
Choose a base branch
from
Open

Control log level and then some #1

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
2 changes: 2 additions & 0 deletions README.md
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -7,6 +7,8 @@ A simple encoder and decoder that conforms to the [ISDCF Document on Sign Langua

Note: later versions of FFmpeg are known to not work at this time.

Perl's File::Slurp module is required.

## Synopsis

### Encoding
Expand Down
Empty file modified decode-vp9-wav
100644 → 100755
View file
Open in desktop
Empty file.
18 changes: 12 additions & 6 deletions encode-vp9-wav
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -28,6 +28,8 @@ use strict;
use warnings;
use File::Temp qw(tempfile tempdir);
use File::Slurp qw(read_dir read_file);
use File::Path qw(rmtree);
use File::Spec qw(join);
use Getopt::Long;
sub which ($) { scalar grep -x, map "$_/$_[0]", split m/:/, $ENV{PATH} }

Expand All @@ -43,8 +45,10 @@ which "ffmpeg" or die "This utility requires ffmpeg v3.2.4 or greater.\n";
which "ffprobe" or die "This utility requires ffprobe v3.2.4 or greater.\n";

my $chunk_duration_s = 2; # default to what is in the spec
my $log_level = "quiet";

GetOptions("chunk-duration|c=i" => \$chunk_duration_s) or die USAGE;
GetOptions("chunk-duration|c=i" => \$chunk_duration_s,
"log-level=s" => \$log_level) or die USAGE;

my $input = shift or die USAGE;

Expand Down Expand Up @@ -80,7 +84,7 @@ EOF

# segfaults, but works
system 'ffmpeg',
'-loglevel', 'quiet',
'-loglevel', $log_level,
'-hide_banner',
'-i', $input,
'-map', '0:0',
Expand Down Expand Up @@ -109,7 +113,8 @@ my ($fh, $vp9_pcm_file) = tempfile;

print "Adding headers and padding each chunk to $chunk_len_bytes bytes.\n";

for my $file (sort { $a cmp $b } read_dir $build_dir, prefix => 1) {
for my $filename (sort { $a cmp $b } read_dir $build_dir, prefix => 1) {
my $file = File::Spec->catfile($build_dir, $filename);
my $vp9_seg = read_file $file or die;

die "$_ too big: @{[ length $vp9_seg ]} > $chunk_len_bytes. Aborting!\n"
Expand All @@ -135,7 +140,7 @@ print "Generating WAV from raw PCM.\n";

# Wrap the PCM in a WAV
system 'ffmpeg',
'-loglevel', 'quiet',
'-loglevel', $log_level,
'-ac', '1',
'-ar', AUDIO_SAMPLE_RATE,
'-y',
Expand All @@ -144,6 +149,7 @@ system 'ffmpeg',
'-i', $vp9_pcm_file,
'-codec:a', 'copy', $final_wav and die "ffmpeg failed!\n";

print "Success! Wrote to:\n\t$final_wav (use this file for the DCP)\n";

unlink $vp9_pcm_file;
rmtree($build_dir);

print "Success! Wrote to:\n\t$final_wav (use this file for the DCP)\n";