Changeset 87b1a06

Timestamp:

Jul 12, 2012 6:00:41 PM (12 years ago)

Author:

Ted Faber <faber@…>

Branches:

compt_changes, master

Children:

b745876

Parents:

4ffa6f8

Message:

Some minimal changes for nat_portal

Location:

fedkit

Files:

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

fedkit/active_config.pl

@@ -48 +48 @@
 
 print "Waiting for ssh on $peer\n";
+# XXX: should be $ssh_port?
 gateway_lib::wait_for_port($peer, 22, 60*60) || 
     die "ssh never came up on $peer\n";

fedkit/gateway_lib.pm

@@ -79 +79 @@
     $sleep = 5 unless $sleep;
     my $rv;
+
+    # If the name is an IP address, skip this.
+    return if $name =~ /^[\d\.]+$/;
 
     while (!$rv) {