Changeset 17663 for trunk/ippScripts/scripts/ipp_datapath.pl

Timestamp:

May 13, 2008, 3:51:22 PM (18 years ago)

Author:

bills

Message:

Added touch parameter to ipp_datapath.pl and ipp_filename.pl
new script to print out the resolved path to a raw image

File:

• trunk/ippScripts/scripts/ipp_datapath.pl (modified) (1 diff)

trunk/ippScripts/scripts/ipp_datapath.pl

@@ -3 +3 @@
 use warnings;
 use strict;
+use Getopt::Long qw( GetOptions :config auto_help auto_version gnu_getopt );
 
 use PS::IPP::Config;
 my $ipprc = PS::IPP::Config->new();
 
+my $touch;
+
+GetOptions(
+    'touch'     => \$touch,
+);
+
 die "No filename specified.\n" if scalar @ARGV != 1;
 
-print $ipprc->file_resolve(shift @ARGV) . "\n";
+my $filename = shift @ARGV;
+
+print $ipprc->file_resolve($filename, $touch) . "\n";
 
 1;