Changeset 301e941 for fedkit/federate.pl

Timestamp:

May 24, 2010 9:56:00 AM (14 years ago)

Author:

Ted Faber <faber@…>

Branches:

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

Children:

aa9a417

Parents:

d56b168

Message:

fix aliases

File:

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

fedkit/federate.pl

@@ -95 +95 @@
     /Service:\s+(.*)/i && do { $services{$1}++;};
     /PortalAlias:\s+(.*)/i && do { $aliases{$1}++;};
-    /AddedNode:\s+(.*)/i && do { push(@added, $1)}++;};
+    /AddedNode:\s+(.*)/i && do { push(@added, $1); };
 }
 
@@ -126 +126 @@
 
 # Add gateway aliases
-if ($services{'seer'} && !$has_control ) {
+if (%aliases) {
     if ( my $hent = gethostbyname($gateway) ) {
         my $gwip = inet_ntoa($hent->addr_list->[0]);
 
         for my $k (keys %aliases) {
-            print $new_hosts "\n$gwip\t$k.$exp.$proj\n";
+            if ($exp && $proj) {
+                print $new_hosts "\n$gwip\t$k.$exp.$proj $k\n";
+            }
+            else {
+                print $new_hosts "\n$gwip\t$k\n";
+            }
         }
     }