Show
Ignore:
Timestamp:
05/27/10 01:40:03 (2 years ago)
Author:
Ted Faber <faber@…>
Children:
88dd6cc950a4eec095a6aaec7916038f96f60b99
Parents:
b3227fdd18269e6fa95d6584c1a55908cd23f9a0
git-committer:
Ted Faber <faber@isi.edu> / 2010-05-27T08:40:03Z+0000
Message:

hiding IP addresses. Committed to transfer. Untested.

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • fedkit/federate.pl

    rd38ff56 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);