Changeset d56b168 for fedkit

Timestamp:

May 24, 2010 9:23:51 AM (14 years ago)

Author:

Ted Faber <faber@…>

Branches:

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

Children:

301e941

Parents:

8fc0606

Message:

more general namespace manipulation

File:

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

fedkit/federate.pl

@@ -23 +23 @@
 my $local_config_dir = "/usr/local/federation/etc";
 my %services;
+my %aliases;
+my @added;
 my $perl;
 
@@ -92 +94 @@
     /ProjectName:\s+(.*)/i && do { $smbproject = $1; };
     /Service:\s+(.*)/i && do { $services{$1}++;};
+    /PortalAlias:\s+(.*)/i && do { $aliases{$1}++;};
+    /AddedNode:\s+(.*)/i && do { push(@added, $1)}++;};
+}
+
+# If nodes have been added with this name, do not alias the name to the portal
+for my $a (@added) {
+    chomp $a;
+    delete $aliases{$a} if $aliases{$a};
 }
 $client->close();
@@ -103 +113 @@
 while (<$hosts>) {
     /^127\.0\.0\.1/ && do { print $new_hosts $_; };
-    /control\./ && $has_control++;
+    # If aliases conflict with existing nodes, delete the alias
+    for my $n (split($_)) {
+        chomp $n;
+        delete $aliases{$n} if $aliases{$n};
+    }
 }
 $hosts->close();
@@ -111 +125 @@
 $config_hosts->close();
 
-# If seer is enabled and no local control node in play, alias the gateway to be
-# control
+# Add gateway aliases
 if ($services{'seer'} && !$has_control ) {
     if ( my $hent = gethostbyname($gateway) ) {
         my $gwip = inet_ntoa($hent->addr_list->[0]);
 
-        print $new_hosts "\n$gwip\tcontrol.$exp.$proj\n";
+        for my $k (keys %aliases) {
+            print $new_hosts "\n$gwip\t$k.$exp.$proj\n";
+        }
     }
 }