Changeset 17663 for trunk/ippScripts/scripts

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

Location:

trunk/ippScripts/scripts

Files:

• ipp_datapath.pl (modified) (1 diff)
• ipp_filename.pl (modified) (3 diffs)
• ipp_image_path.pl (added)

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;

trunk/ippScripts/scripts/ipp_filename.pl

@@ -14 +14 @@
 my $ipprc = PS::IPP::Config->new();
   
-my ($filerule, $class_id, $basename, $camera);
+my ($filerule, $class_id, $basename, $camera, $touch);
 
 GetOptions('filerule=s'    => \$filerule,
@@ -20 +20 @@
            'basename=s'    => \$basename,
            'camera|c=s'    => \$camera,
+           'touch'         => \$touch,
            ) or pod2usage( 2 );
 
@@ -41 +42 @@
 #print "$filename\n";
 
-my $realname = $ipprc->file_resolve( $filename );
+my $realname = $ipprc->file_resolve( $filename, $touch );
 print "$realname\n";