| 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 |
|---|
