Changeset 8209faa for fedkit

Timestamp:

May 27, 2010 1:40:03 AM (14 years ago)

Author:

Ted Faber <faber@…>

Branches:

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

Children:

88dd6cc

Parents:

b3227fd

Message:

hiding IP addresses. Committed to transfer. Untested.

File:

• fedkit/federate.pl (modified) (4 diffs)

fedkit/federate.pl

@@ -25 +25 @@
 my %aliases;
 my %added;
+my @hide;
 my $perl;
 
@@ -96 +97 @@
     /PortalAlias:\s+(.*)/i && do { $aliases{$1}++;};
     /AddedNode:\s+(.*)/i && do { $added{$1}++; };
+    /Hide:\s+(.*)/i && do { push(@hide, split(",", $1));};
 }
 $client->close();
@@ -115 +117 @@
 $hosts->close();
 while (<$config_hosts>) {
+    # Trim out hosts that were hidden by their home testbeds
+    for my $h (@hide) {
+        next if /^\d+\.\d+\.\d+\.\d+\s+$h-/;
+    }
     print $new_hosts $_;
 }
@@ -127 +133 @@
     my $ip = gateway_lib::get_ip($added{$k} ? $lname : $gateway);
     if ($ip) { 
-        # We have an IP.  Make a hosts entry for teh key and the key plus the
+        # We have an IP.  Make a hosts entry for the key and the key plus the
         # first two subdomains (which is an emulab setup)
         my @x = split(/\./, $lname);