Changeset 18086

Timestamp:

Jun 11, 2008, 3:35:08 PM (18 years ago)

Author:

eugene

Message:

test for undefined neb path

File:

• trunk/PS-IPP-Config/lib/PS/IPP/Config.pm (modified) (5 diffs)

trunk/PS-IPP-Config/lib/PS/IPP/Config.pm

@@ -1 +1 @@
 # Copyright (c) 2006  Paul Price, Joshua Hoblitt
 #
-# $Id: Config.pm,v 1.89 2008-06-07 02:35:39 bills Exp $
+# $Id: Config.pm,v 1.90 2008-06-12 01:35:08 eugene Exp $
 
 package PS::IPP::Config;
@@ -373 +373 @@
     if ($scheme) {
         $scheme = lc($scheme);
+        # print "scheme: $scheme\n";
 
         if ($scheme eq 'neb') {
@@ -379 +380 @@
             if ($create_if_doesnt_exist) {
                 unless ($neb->stat( $name )) {
+                    # print "entry $name not found, creating...\n";
                     my $uri = $neb->create( $name );
                     unless(defined $uri) {
@@ -385 +387 @@
                     }
                     my $path = URI->new( $uri )->path;
+                    # print "created path: $path\n";
                     return $path;
                 }
             }
-            return $neb->find( $name );
-        }
+            my $path = $neb->find( $name );
+            if (not defined $path) { 
+                carp "neb entry $name not found, not created\n"; 
+                exit($PS_EXIT_DATA_ERROR);
+            } 
+            # print "found path: $path\n";
+            return $path;
+        }
+
         if ($scheme eq 'path' or $scheme eq 'file') {
             # guaranteed to have a scheme (path:// or file://)
             $name = $self->convert_filename_absolute( $name );
+            # print "resolved path to $name\n";
         }
     }
@@ -408 +419 @@
         open F, ">$name" or die "failed to create $name";
         close F;
+        # print "created target $name\n";
     }