Made the 'pic2mpg' script of the 'pictures' plugin work with uppercase filename extensions

This commit is contained in:
Klaus Schmidinger 2008-02-25 18:11:33 +01:00
parent 5a40d9aff2
commit 3a2246a12b
3 changed files with 10 additions and 4 deletions

View File

@ -5671,7 +5671,8 @@ Video Disk Recorder Revision History
- Added the backslash ('\') to the list of characters that need to be escaped - Added the backslash ('\') to the list of characters that need to be escaped
when executing external commands (thanks to Peter Bieringer for reporting this one). when executing external commands (thanks to Peter Bieringer for reporting this one).
2008-02-24: Version 1.5.17 2008-02-25: Version 1.5.17
- Updated the Swedish OSD texts (thanks to Tomas Berglund). - Updated the Swedish OSD texts (thanks to Tomas Berglund).
- Made the 'pic2mpg' script of the 'pictures' plugin work with uppercase filename
extensions (thanks to Stefan Wagner for reporting this one).

View File

@ -24,3 +24,8 @@ VDR Plugin 'pictures' Revision History
- Fixed setting the OSD area. - Fixed setting the OSD area.
- Introduced 'operator const void * ()' in cString to catch cases where operator*() - Introduced 'operator const void * ()' in cString to catch cases where operator*()
should be used. should be used.
2008-02-25:
- Made the 'pic2mpg' script of the 'pictures' plugin work with uppercase filename
extensions (reported by Stefan Wagner <stefanwag@gmx.at>).

View File

@ -7,7 +7,7 @@
# #
# See the README file for copyright information and how to reach the author. # See the README file for copyright information and how to reach the author.
# #
# $Id: pic2mpg 1.2 2008/02/02 11:34:43 kls Exp $ # $Id: pic2mpg 1.3 2008/02/24 22:00:18 kls Exp $
## TODO implement HDTV (1920 x 1080) ## TODO implement HDTV (1920 x 1080)
@ -143,7 +143,7 @@ for ($i = 0; $i < 10; $i++) { # dirs might become empty when removing empty subd
sub ConvertFile sub ConvertFile
{ {
my ($Pict, $Mpeg) = @_; my ($Pict, $Mpeg) = @_;
(my $Type) = $Pict =~ /\.([^\.]*)$/; (my $Type) = lc($Pict) =~ /\.([^\.]*)$/;
if (!defined $PNMCONV{$Type}) { if (!defined $PNMCONV{$Type}) {
return if ($Ignore); return if ($Ignore);
die "unknown file type '$Type': '$Pict'\n"; die "unknown file type '$Type': '$Pict'\n";