Changeset cc0ffd2 for fedkit

Timestamp:

Feb 28, 2010 11:28:41 AM (15 years ago)

Author:

Ted Faber <faber@…>

Branches:

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

Children:

358e0b8

Parents:

f017447

Message:

Missed a newline

File:

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

fedkit/federate.pl

@@ -7 +7 @@
 use IO::Pipe;
 use File::Copy;
+
+use Net::hostent;
+use Socket;
 
 use gateway_lib;
@@ -24 +27 @@
 my $smbuser;
 my $smbproject;
+my $exp;
+my $proj;
 chomp (my $uname = `uname`);
 my $smbmount = "smbmount.$uname.pl";
@@ -40 +45 @@
 while (<$tmcc_p>) {
     /ALLOCATED=([^\/]+)\/(\S+)/ && do {
-        $shared_config_dir = "/proj/$1/exp/$2/tmp";
+        ($proj, $exp) = ($1, $2);
+        $shared_config_dir = "/proj/$proj/exp/$exp/tmp";
         last;
     };
@@ -68 +74 @@
 my $config_hosts = new IO::File("$shared_config_dir/hosts") || 
     die "Can't open $shared_config_dir/hosts: $!\n";
+my $has_control = 0;
 
 while (<$hosts>) {
     /^127\.0\.0\.1/ && do { print $new_hosts $_; };
+    /control\./ && $has_control++;
 }
 $hosts->close();
@@ -77 +85 @@
 }
 $config_hosts->close();
+
+# If seer is enabled and no local control node in play, alias the gateway to be
+# control
+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";
+    }
+}
 $new_hosts->close();
 copy("/tmp/hosts", "/etc/hosts");