| 1 | 6,9c6,9
|
|---|
| 2 | < # @url $URL$
|
|---|
| 3 | < # @date $Date$
|
|---|
| 4 | < # @version $Revision$
|
|---|
| 5 | < # @author $Author$
|
|---|
| 6 | ---
|
|---|
| 7 | > # @url $URL: http://svn.mythtv.org/svn/trunk/mythtv/bindings/perl/MythTV/Recording.pm $
|
|---|
| 8 | > # @date $Date: 2009-04-11 00:04:30 +0000 (Sat, 11 Apr 2009) $
|
|---|
| 9 | > # @version $Revision: 20349 $
|
|---|
| 10 | > # @author $Author: xris $
|
|---|
| 11 | 312c312
|
|---|
| 12 | < ($info{'video_type'}) = $data =~ m/^VIDEO:\s*(MPEG[12])/m;
|
|---|
| 13 | ---
|
|---|
| 14 | > ($info{'video_type'}) = $data =~ m/^VIDEO:?\s*(MPEG[12]|H264)/m;
|
|---|
| 15 | 324c324,331
|
|---|
| 16 | < # Stream type
|
|---|
| 17 | ---
|
|---|
| 18 | > if ($info{'width'}==0)
|
|---|
| 19 | > {
|
|---|
| 20 | > my $altdata = `$program -v -v -v -v -nolirc -nojoystick -vo null -ao null -frames 1 -identify -demuxer lavf '$file' 2>/dev/null`;
|
|---|
| 21 | > study $altdata;
|
|---|
| 22 | > ($info{'width'}) = $altdata =~ m/^ID_VIDEO_WIDTH=0*([1-9]\d*)/m;
|
|---|
| 23 | > ($info{'height'}) = $altdata =~ m/^ID_VIDEO_HEIGHT=0*([1-9]\d*)/m;
|
|---|
| 24 | > }
|
|---|
| 25 | > # Stream type
|
|---|
