Changeset 43026

Timestamp:

May 19, 2026, 5:06:56 PM (2 months ago)

Author:

eugene

Message:

allow user to supply NEB_SERVER on command-line to enable use in apache / php scripts

File:

• branches/eam_branches/ipp-pstamp-20260421/ippScripts/scripts/ipp_filename.pl (modified) (2 diffs)

branches/eam_branches/ipp-pstamp-20260421/ippScripts/scripts/ipp_filename.pl

@@ -7 +7 @@
 use Pod::Usage qw( pod2usage );
  
+use PS::IPP::Config;
+my $ipprc = PS::IPP::Config->new();
+  
+my ($filerule, $class_id, $basename, $camera, $touch, $neb_server);
+
+GetOptions('filerule=s'    => \$filerule,
+           'class_id=s'    => \$class_id,
+           'basename=s'    => \$basename,
+           'camera|c=s'    => \$camera,
+           'neb-server=s'  => \$neb_server,
+           'touch'         => \$touch,
+           ) or pod2usage( 2 );
+
+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;
+
+if (defined $neb_server) { $ENV{'NEB_SERVER'} = $neb_server; }
+
 # use these to check the apache environment
 #print "$ENV{'PATH'}\n";
@@ -21 +45 @@
     exit (6);
 }
-
-use PS::IPP::Config;
-my $ipprc = PS::IPP::Config->new();
-  
-my ($filerule, $class_id, $basename, $camera, $touch);
-
-GetOptions('filerule=s'    => \$filerule,
-           'class_id=s'    => \$class_id,
-           'basename=s'    => \$basename,
-           'camera|c=s'    => \$camera,
-           'touch'         => \$touch,
-           ) or pod2usage( 2 );
-
-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;
 
 $touch = 0 unless (defined $touch);