Changeset c3a3fe3 for fedkit

Timestamp:

Feb 15, 2010 8:51:46 AM (15 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

Location:

fedkit

Files:

• active_config.pl (modified) (1 diff)
• gateway_lib.pm (modified) (1 diff)

fedkit/active_config.pl

@@ -48 +48 @@
 gateway_lib::wait_for_port($peer, 22, 60*60) || 
     die "ssh never came up on $peer\n";
+print "Making sure ssh permissions are reset\n";
+gateway_lib::testcmd_repeat("$ssh -o \"StrictHostKeyChecking no\" " .
+    "-i $ssh_privkey $peer ls", 5*60);
 
 while (<$f>) {

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;