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

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)

File:

• config/iris/node/FreeBSD/8.0-RELEASE/wleiden.pl (modified) (1 diff)

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 {