Changeset 8209faa for fedkit


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • fedkit/federate.pl

    rb3227fd r8209faa  
    2525my %aliases;
    2626my %added;
     27my @hide;
    2728my $perl;
    2829
     
    9697    /PortalAlias:\s+(.*)/i && do { $aliases{$1}++;};
    9798    /AddedNode:\s+(.*)/i && do { $added{$1}++; };
     99    /Hide:\s+(.*)/i && do { push(@hide, split(",", $1));};
    98100}
    99101$client->close();
     
    115117$hosts->close();
    116118while (<$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    }
    117123    print $new_hosts $_;
    118124}
     
    127133    my $ip = gateway_lib::get_ip($added{$k} ? $lname : $gateway);
    128134    if ($ip) {
    129         # We have an IP.  Make a hosts entry for teh key and the key plus the
     135        # We have an IP.  Make a hosts entry for the key and the key plus the
    130136        # first two subdomains (which is an emulab setup)
    131137        my @x = split(/\./, $lname);
Note: See TracChangeset for help on using the changeset viewer.