Changeset c3a3fe3 for fedkit/gateway_lib.pm

Timestamp:

Feb 15, 2010 8:51:46 AM (14 years ago)

Author:

Ted Faber <faber@…>

Branches:

axis_example, compt_changes, info-ops, master, version-3.01, version-3.02

Children:

6a8a9ec

Parents:

3132419

Message:

Coordinate parallel starts: wait for remote nodes to configure ssh for access

File:

• fedkit/gateway_lib.pm (modified) (1 diff)

fedkit/gateway_lib.pm

@@ -339 +339 @@
 }
 
+sub testcmd_repeat {
+    my($cmd, $timeout, $sleep) = @_;
+    my $start = time();
+    $sleep = 5 unless $sleep;
+
+    while (1) {
+        system("$cmd");
+        if ($?) {
+            if ($timeout and time() - $start > $timeout) {
+                return undef;
+            }
+            else { sleep($sleep); }
+        }
+        else { return 1; }
+    }
+}
 
 1;