diff options
| -rwxr-xr-x | tools/gen_frikanalen_video.pl | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/tools/gen_frikanalen_video.pl b/tools/gen_frikanalen_video.pl index 99a7179..c3b540c 100755 --- a/tools/gen_frikanalen_video.pl +++ b/tools/gen_frikanalen_video.pl @@ -114,6 +114,11 @@ sub usage { sub read_meta { my $ret; + + # Set some default values + $ret->{'url'} = 'http://www.nuug.no/'; + $ret->{'email'} = 'sekretariat@nuug.no'; + open M, "$metafile" or die "Cannot open $metafile for read :$!"; while (<M>) { chomp; @@ -239,14 +244,14 @@ sub normalize_sound { $f = "$normalize_cmd -a $soundlevel_dbfs $workdir/sound.wav"; if ( !runcmd($f) ) { die "Failed to execute system command in" . (caller(0))[3] ."\n"; } $f = "ffmpeg -i $workdir/sound.wav -ac 2 -acodec copy -i $dvfile -vcodec copy -map 1:0 -map 0.0 -f dv -y $new_dvfile"; - if ( !runcmd($f) ) { + if ( !runcmd($f) ) { if ( -f "$workdir/_normAAAAAA" ) { print "$normalize_cmd was not able to move $workdir/_normAAAAAA to $workdir/sound.wav.\n"; print "Forcing by deleting $workdir/sound.wav first.\n"; - if ( !runcmd("rm $workdir/sound.wav") ) { die "Failed to execute system command in" . (caller(0))[3] ."\n"; } - if ( !runcmd("mv $workdir/_normAAAAAA $workdir/sound.wav") ) { die "Failed to execute system command in" . (caller(0))[3] ."\n"; } + if ( !runcmd("rm $workdir/sound.wav") ) { die "Failed to execute system command in" . (caller(0))[3] ."\n"; } + if ( !runcmd("mv $workdir/_normAAAAAA $workdir/sound.wav") ) { die "Failed to execute system command in" . (caller(0))[3] ."\n"; } } else { - die "Failed to execute system command in" . (caller(0))[3] ."\n"; + die "Failed to execute system command in" . (caller(0))[3] ."\n"; } } return $new_dvfile; |