Changeset 11518

Timestamp:

Jan 31, 2007, 4:22:31 PM (19 years ago)

Author:

eugene

Message:

multiple tries on NFS timeouts

File:

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

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

@@ -1 +1 @@
 # Copyright (c) 2006  Paul Price, Joshua Hoblitt
 #
-# $Id: Config.pm,v 1.26 2007-02-01 00:52:42 eugene Exp $
+# $Id: Config.pm,v 1.27 2007-02-01 02:22:31 eugene Exp $
 
 package PS::IPP::Config;
@@ -102 +102 @@
     my $found = 0;                      # Found it?
     my $realfile;
-    foreach my $path (@path) {
-        $realfile = File::Spec->rel2abs( $filename, $path );
-        if (-f $realfile) {
-            $found = 1;
-            last;
-        }
-    }
-    if (not $found) {
-        ## try again after a moment?
-        system ("df");
-        select(undef, undef, undef, 0.25);
-
+    my $tries = 0;
+    while (not $found) {
         ## try a second time
         foreach my $path (@path) {
-            print "trying: filename: $filename, path: $path -> ";
             $realfile = File::Spec->rel2abs( $filename, $path );
-            print "test: $realfile\n";
+            if ($tries) {
+                print "re-trying ($tries): filename: $filename, path: $path -> ";
+                print "test: $realfile\n";
+            }
             if (-f $realfile) {
                 $found = 1;
@@ -124 +116 @@
             }
         }
-        croak "Unable to find camera configuration file $filename\n" if not $found;
+        if (not $found) {
+            $tries ++;
+            if ($tries > 4) {
+                croak "Unable to find camera configuration file $filename\n" if not $found;
+            }
+            ## try again after a moment?
+            system ("df");
+            select(undef, undef, undef, 0.25);
+        }
     }