another attempt to avoid "uninitialized value" warnings in nuvinfo

audio_bits_per_sample is not ID_AUDIO_BITRATE -- just default to 16 for now.
update timestamps.

Author: ex-nerd

trunk/mythtv/nuvinfo.pm

@@ -1,5 +1,8 @@
 #!/usr/bin/perl -w
-#Last Updated: 2005.02.11 (xris)
+#
+# $Date$
+# $Revision$
+# $Author$
 #
 #  mythtv::nuvinfo.pm
 #
@@ -131,7 +134,9 @@ package mythtv::nuvinfo;
         ($info{'height'})                = $data =~ m/^ID_VIDEO_HEIGHT=(\d+)/m;
         ($info{'fps'})                   = $data =~ m/^ID_VIDEO_FPS=(\d+(?:\.\d*)?)/m;
         ($info{'audio_sample_rate'})     = $data =~ m/^ID_AUDIO_RATE=(\d+)/m;
-        ($info{'audio_bits_per_sample'}) = $data =~ m/^ID_AUDIO_BITRATE=(\d+)/m;
+        # this is a different kind of "bits" than transcode and other programs expect
+        #($info{'audio_bits_per_sample'}) = $data =~ m/^ID_AUDIO_BITRATE=(\d+)/m;
+        $info{'audio_bits_per_sample'} = 16;
         ($info{'audio_channels'})        = $data =~ m/^ID_AUDIO_NCH=(\d+)/m;
         ($info{'mpeg_stream_type'})      = $data =~ m/^ID_VIDEO_FPS=(\d+(?:\.\d*)?)/m;
         ($info{'aspect'})                = $data =~ m/^ID_VIDEO_ASPECT=(\d+(?:[\.\,]\d*)?)/m;

trunk/nuvexport

@@ -2,7 +2,7 @@
 # Last Updated: 2005.02.28 (xris)
 
 # Version
-    $VERSION = '0.2 0.20050428.cvs';
+    $VERSION = '0.2 0.20050511.cvs';
 
 # Autoflush buffers
     $|++;

trunk/nuvexport.spec

@@ -4,7 +4,7 @@
 
 Name:       nuvexport
 Version:    0.2
-Release:    0.20050428.cvs
+Release:    0.20050511.cvs
 License:    GPL
 Summary:    mythtv nuv video file conversion script
 URL:        http://forevermore.net/nuvexport/

trunk/nuvinfo

@@ -19,7 +19,7 @@
 # Print the info
     print "\ninfo for: $file\n\n";
     foreach $key (sort keys %info) {
-        next unless defined $info{$key};
+        next unless ($key && defined $info{$key});
         print ' ' x (23 - length($key)) if (length($key) < 23);
         print "$key:  $info{$key}\n";
     }