Index: config/iris/node/FreeBSD/8.0-RELEASE/genesis.conf
===================================================================
--- config/iris/node/FreeBSD/8.0-RELEASE/genesis.conf	(revision 8783)
+++ config/iris/node/FreeBSD/8.0-RELEASE/genesis.conf	(revision 8802)
@@ -21,4 +21,6 @@
 $filelist[5]="authorized_keys";
 $filelist[6]="dnsmasq.conf";
+$filelist[7]="wleiden.conf";
+
 
 #Ignore this node diretories
@@ -44,5 +46,5 @@
 #path variablen
 $home=getcwd;
-$ndir="$home/../../../../../nodes";
+$ndir="/usr/local/www/wlconfig/nodes/";
 $toolfile="$home/wleiden.pl";
 
Index: config/iris/node/FreeBSD/8.0-RELEASE/wleiden.pl
===================================================================
--- config/iris/node/FreeBSD/8.0-RELEASE/wleiden.pl	(revision 8783)
+++ config/iris/node/FreeBSD/8.0-RELEASE/wleiden.pl	(revision 8802)
@@ -209,5 +209,32 @@
 };
 
-
+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 {