Changeset 40431 for trunk

Timestamp:

May 15, 2018, 11:04:31 AM (8 years ago)

Author:

eugene

Message:

if NEB_SERVER is missing from the environment, report an error and exit

File:

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

trunk/ippScripts/scripts/ipp_filename.pl

@@ -10 +10 @@
 #print "$ENV{'PATH'}\n";
 #print "$ENV{'PERL5LIB'}\n";
+#print "NEB_SERVER: $ENV{'NEB_SERVER'}<br>\n";
 
-# CZW: This is a horrible hack, but I don't want to have to debug all of ippMonitor to figure out why it's not working.
+# EAM: check for missing NEB_SERVER and exit with an error
 unless (defined($ENV{'NEB_SERVER'})) {
-    $ENV{'NEB_SERVER'} = 'http://nebserver.ipp.ifa.hawaii.edu:80/nebulous';
+    print "NEB_SERVER not defined in ipp_filename.pl\n";
+    exit (5);
 }
-
+if ($ENV{'NEB_SERVER'} eq "") {
+    print "NEB_SERVER not set in ipp_filename.pl\n";
+    exit (6);
+}
 
 use PS::IPP::Config;
@@ -52 +57 @@
 
 my $realname = $ipprc->file_resolve( $filename, $touch );
+if (not defined $realname) {
+    print "nebulous file $filename not found\n";
+    exit (1);
+}
+
 print "$realname\n";