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

Timestamp:

May 4, 2007, 3:07:17 PM (19 years ago)

Author:

eugene

Message:

add test lines

File:

• trunk/ippScripts/scripts/ipp_filename.pl (modified) (2 diffs)

trunk/ippScripts/scripts/ipp_filename.pl

@@ -6 +6 @@
 use Getopt::Long qw( GetOptions :config auto_help auto_version gnu_getopt );
 use Pod::Usage qw( pod2usage );
+ 
+# use these to check the apache environment
+# print "$ENV{'PATH'}\n";
+# print "$ENV{'PERL5LIB'}\n";
 
 use PS::IPP::Config;
 my $ipprc = PS::IPP::Config->new();
-
+  
 my ($filerule, $class_id, $basename, $camera);
 
@@ -30 +34 @@
 
 my $filename = $ipprc->filename($filerule, $basename, $class_id);
-
 my $realname = $ipprc->file_resolve( $filename );
 print "$realname\n";