frodovdr/vdr
1
0
Fork 0
mirror of https://github.com/VDR4Arch/vdr.git synced 2023-10-10 13:36:52 +02:00
Code Issues Releases Wiki Activity

Added option -x to pic2mpg

Browse Source
This commit is contained in:
Klaus Schmidinger 2013-05-23 10:00:23 +02:00
parent f55aee0fc1
commit 5b76eec1af
2 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
PLUGINS/src/pictures/HISTORY
View File

@ -87,3 +87,7 @@ VDR Plugin 'pictures' Revision History
2013-03-31: Version 2.0.0 2013-03-31: Version 2.0.0
- Official release. - Official release.
2013-07-01:
- Added option -x to pic2mpg.

10
PLUGINS/src/pictures/pic2mpg
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 2.5 2013/02/17 13:17:13 kls Exp $ # $Id: pic2mpg 3.1 2013/05/23 10:00:23 kls Exp $
use File::Path; use File::Path;
use File::Spec; use File::Spec;
@ -23,9 +23,10 @@ Options: -f Force conversion
-o percent overscan in percent -o percent overscan in percent
-s size Screen size (WIDTHxHEIGHT, default is 1920x1080) -s size Screen size (WIDTHxHEIGHT, default is 1920x1080)
-v num Verbose (0=none, 1=list files, 2=detailed) -v num Verbose (0=none, 1=list files, 2=detailed)
-x dir[,...] eXclude the given directories
}; };
getopts("fho:s:v:") || die $Usage; getopts("fho:s:v:x:") || die $Usage;
die $Usage if $opt_h; die $Usage if $opt_h;
@ -33,6 +34,7 @@ $Force = $opt_f;
$Overscan = $opt_o || 0; $Overscan = $opt_o || 0;
$Size = $opt_s || "1920x1080"; $Size = $opt_s || "1920x1080";
$Verbose = $opt_v; $Verbose = $opt_v;
@Exclude = split(',', $opt_x || "");
$ListFiles = $Verbose >= 1; $ListFiles = $Verbose >= 1;
$Detailed = $Verbose >= 2; $Detailed = $Verbose >= 2;
@ -85,7 +87,11 @@ chdir($PICDIR) || die "$PICDIR: $!\n";
@Pictures = `find -type f | sort`; @Pictures = `find -type f | sort`;
chomp(@Pictures); chomp(@Pictures);
PIC:
for $pic (@Pictures) { for $pic (@Pictures) {
for (@Exclude) {
next PIC if ($pic =~ /\/$_\//);
}
my $mpg = "$MPGDIR/$pic.mpg"; my $mpg = "$MPGDIR/$pic.mpg";
if ($Force || !-e $mpg || -M $mpg > -M $pic) { if ($Force || !-e $mpg || -M $mpg > -M $pic) {
(my $dir = $mpg) =~ s/\/[^\/]*$//; (my $dir = $mpg) =~ s/\/[^\/]*$//;