Changeset 13237 for trunk/ippScripts/scripts/ipp_filename.pl

Timestamp:

May 4, 2007, 9:40:16 AM (19 years ago)

Author:

eugene

Message:

modified ipp_filename to correctly use the camera filerules

File:

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

trunk/ippScripts/scripts/ipp_filename.pl

@@ -4 +4 @@
 use strict;
 
+use Getopt::Long qw( GetOptions :config auto_help auto_version gnu_getopt );
+use Pod::Usage qw( pod2usage );
+
 use PS::IPP::Config;
 my $ipprc = PS::IPP::Config->new();
 
-die "USAGE: ipp_filename.pl (filerule) (output) (classID)\n" if scalar @ARGV != 3;
+my ($filerule, $class_id, $basename, $camera);
 
-my $filerule = $ARGV[0];
-my $output = $ARGV[1];
-my $classID = $ARGV[2];
+GetOptions('filerule=s'    => \$filerule,
+           'class_id=s'    => \$class_id,
+           'basename=s'    => \$basename,
+           'camera|c=s'    => \$camera,
+           ) or pod2usage( 2 );
 
-print $ipprc->convert_filename_absolute($filerule, $output, $classID) . "\n";
+pod2usage( -msg => "Unknown option: @ARGV", -exitval => 2 ) if @ARGV;
+pod2usage(
+    -msg => "Required options: --filerule --class_id --basename --camera",
+    -exitval => 3,
+) unless defined $basename
+    and defined $filerule 
+    and defined $class_id 
+    and defined $camera;
+
+$ipprc->define_camera($camera);
+
+my $filename = $ipprc->filename($filerule, $basename, $class_id);
+
+my $realname = $ipprc->convert_filename_absolute( $filename );
+
+print "$realname\n";
 
 1;