Made the 'pic2mpg' script of the 'pictures' plugin work with relative paths

This commit is contained in:
Klaus Schmidinger
2008-02-29 14:38:44 +01:00
parent bca18a19c9
commit e2c3582834
4 changed files with 9 additions and 8 deletions

View File

@@ -7,11 +7,12 @@
#
# See the README file for copyright information and how to reach the author.
#
# $Id: pic2mpg 1.3 2008/02/24 22:00:18 kls Exp $
# $Id: pic2mpg 1.4 2008/02/29 14:34:22 kls Exp $
## TODO implement HDTV (1920 x 1080)
use File::Path;
use File::Spec;
use Getopt::Std;
use Image::Size;
@@ -87,8 +88,8 @@ if (-f $ARGV[0]) {
die "$0: mixed directory and file ('$ARGV[0]' <-> '$ARGV[1]')\n" unless !-e $ARGV[1] || -d $ARGV[1];
$PICDIR = $ARGV[0];
$MPGDIR = $ARGV[1];
$PICDIR = File::Spec->rel2abs($ARGV[0]);
$MPGDIR = File::Spec->rel2abs($ARGV[1]);
# Convert pictures to mpegs: