Changeset c3a3fe3b87f04c0fd9fb3a50bb72b35d7cf88bfd for fedkit

Timestamp:

02/15/10 08:51:46 (2 years ago)

Author:

Ted Faber <faber@…>

Children:

6a8a9ec540145f64bc7f0bdd03940ababd39c500

Parents:

3132419f8fa708f9ae8528f77ace7a936c2989eb

git-committer:

Ted Faber <faber@isi.edu> / 2010-02-15T16:51:46Z+0000

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;