Changeset 8802 in genesis for config/iris/node/FreeBSD/8.0-RELEASE

Timestamp:

Feb 11, 2011, 6:53:59 PM (14 years ago)

Author:

richardvm

Message:

New file which prints all proxies in a variable (needed for lvrouted)

Location:

config/iris/node/FreeBSD/8.0-RELEASE

Files:

• genesis.conf (modified) (2 diffs)
• wleiden.pl (modified) (1 diff)

config/iris/node/FreeBSD/8.0-RELEASE/genesis.conf

@@ -21 +21 @@
 $filelist[5]="authorized_keys";
 $filelist[6]="dnsmasq.conf";
+$filelist[7]="wleiden.conf";
+
 
 #Ignore this node diretories
@@ -44 +46 @@
 #path variablen
 $home=getcwd;
-$ndir="$home/../../../../../nodes";
+$ndir="/usr/local/www/wlconfig/nodes/";
 $toolfile="$home/wleiden.pl";
 

config/iris/node/FreeBSD/8.0-RELEASE/wleiden.pl

@@ -209 +209 @@
 };
 
-
+sub wleiden_conf {
+  # Generate our header
+  my $output = genHeader("#");
+
+  # Get al proxies
+  opendir(BIN, $ndir) or die "Can't open $dir: $!";
+  @proxyfiles = grep(/proxy/, readdir(BIN));
+  closedir(BIN);
+
+  # Walk through all our config files and get master_ip (and are up)
+  @proxies = ();
+  foreach $file (@proxyfiles) {
+    $nfile = "$ndir/$file/wleiden.conf";
+    parse_config($nfile);
+    if ($status == "up") {
+      $proxies[$proxyid] = $master_ip;
+    }
+  }
+
+  # Print the Ip's in shell variable script format
+  $output .= "PROXIES=`cat <<EOF\n";
+  foreach $ip (@proxies) {
+    if ($ip) {
+      $output .= "$ip\n";
+    }
+  }
+  $output .= "`\n";
+}
 
 sub rc_conf_local {