Changeset 301e941
- Timestamp:
- May 24, 2010 9:56:00 AM (15 years ago)
- Branches:
- axis_example, compt_changes, info-ops, master, version-3.01, version-3.02
- Children:
- aa9a417
- Parents:
- d56b168
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
fedkit/federate.pl
rd56b168 r301e941 95 95 /Service:\s+(.*)/i && do { $services{$1}++;}; 96 96 /PortalAlias:\s+(.*)/i && do { $aliases{$1}++;}; 97 /AddedNode:\s+(.*)/i && do { push(@added, $1) }++;};97 /AddedNode:\s+(.*)/i && do { push(@added, $1); }; 98 98 } 99 99 … … 126 126 127 127 # Add gateway aliases 128 if ( $services{'seer'} && !$has_control) {128 if (%aliases) { 129 129 if ( my $hent = gethostbyname($gateway) ) { 130 130 my $gwip = inet_ntoa($hent->addr_list->[0]); 131 131 132 132 for my $k (keys %aliases) { 133 print $new_hosts "\n$gwip\t$k.$exp.$proj\n"; 133 if ($exp && $proj) { 134 print $new_hosts "\n$gwip\t$k.$exp.$proj $k\n"; 135 } 136 else { 137 print $new_hosts "\n$gwip\t$k\n"; 138 } 134 139 } 135 140 }
Note: See TracChangeset
for help on using the changeset viewer.