- Timestamp:
- May 27, 2010 1:40:03 AM (15 years ago)
- Branches:
- axis_example, compt_changes, info-ops, master, version-3.01, version-3.02
- Children:
- 88dd6cc
- Parents:
- b3227fd
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
fedkit/federate.pl
rb3227fd r8209faa 25 25 my %aliases; 26 26 my %added; 27 my @hide; 27 28 my $perl; 28 29 … … 96 97 /PortalAlias:\s+(.*)/i && do { $aliases{$1}++;}; 97 98 /AddedNode:\s+(.*)/i && do { $added{$1}++; }; 99 /Hide:\s+(.*)/i && do { push(@hide, split(",", $1));}; 98 100 } 99 101 $client->close(); … … 115 117 $hosts->close(); 116 118 while (<$config_hosts>) { 119 # Trim out hosts that were hidden by their home testbeds 120 for my $h (@hide) { 121 next if /^\d+\.\d+\.\d+\.\d+\s+$h-/; 122 } 117 123 print $new_hosts $_; 118 124 } … … 127 133 my $ip = gateway_lib::get_ip($added{$k} ? $lname : $gateway); 128 134 if ($ip) { 129 # We have an IP. Make a hosts entry for t ehkey and the key plus the135 # We have an IP. Make a hosts entry for the key and the key plus the 130 136 # first two subdomains (which is an emulab setup) 131 137 my @x = split(/\./, $lname);
Note: See TracChangeset
for help on using the changeset viewer.