Index: tools/FreeBSD5_x/g_list.pl
===================================================================
--- tools/FreeBSD5_x/g_list.pl	(revision 5230)
+++ tools/FreeBSD5_x/g_list.pl	(revision 5881)
@@ -22,42 +22,4 @@
 };
 
-sub filelist {
-  foreach $file ( sort @filelist) {
-    if( $HTML) {
-      print "$file<BR>\n";
-    }
-    else {
-      print "$file\n";
-    };
-  };
-}
-
-sub listnodes {
-  opendir(DIR, $ndir) || die "can't opendir $ndir: $!";
-  @tmpdirs = grep { /^[^\.]/ && -d "$ndir/$_" } readdir(DIR);
-  closedir DIR;
-  foreach $dir (sort @tmpdirs) {
-    if( not exists($removefromnodelist{$dir}) )
-    {
-      push(@nodelist, $dir);
-    }
-    else
-    {
-    if ( $debug ) { print "'$dir' removed from list\n"; }
-    }
-  };
-  return @nodelist;
-}
-
-sub nodelist {
-  foreach $node (listnodes( )) {
-    if( $HTML) {
-      print "$node<BR>\n";
-    }
-    else {
-      print "$node\n";
-    };
-  };
-}
 
 #REQUEST parsen
@@ -66,6 +28,4 @@
   ($node,$file)=split(/\//,$1);
   $title="$node $file";
-  if ( $debug ) { print "Node: $node\n"; }
-  if ( $debug ) { print "File: $file\n"; }
 }
 else {
@@ -104,16 +64,17 @@
   }
   else {
-   g_list( );
-  }
-}
-elsif( $node eq 'filelist' ) {
-  filelist( );
-}
-elsif( $node eq 'nodelist' ) {
-  nodelist( );
+    g_list( );
+  };
 }
 else {
   if( $file eq '') {
-      filelist( );
+    foreach $file ( sort @filelist) {
+      if( $HTML) {
+        print "$file<BR>\n";
+      }
+      else {
+        print "$file\n";
+      };
+    };
   }
   elsif( $file eq 'config') {
@@ -145,5 +106,5 @@
       $revision=$1;
     };
-    printline("<H1>Genesis config (revision: $revision):</H1><P>\n<PRE>");
+    printline("<H1>Genesis config - last changed rev $revision</H1><P>\n<PRE>");
     printline("$svn_version");
     printline("</PRE>");
@@ -154,5 +115,7 @@
   };
 
-  @dirs = listnodes( );
+  opendir(DIR, $ndir) || die "can't opendir $ndir: $!";
+  @dirs = grep { /^[^\.]/ && -d "$ndir/$_" } readdir(DIR);
+  closedir DIR;
   foreach $dir (sort @dirs) {
     if( $dir=~/attic/ ) {
Index: tools/FreeBSD5_x/genesis.conf
===================================================================
--- tools/FreeBSD5_x/genesis.conf	(revision 5230)
+++ tools/FreeBSD5_x/genesis.conf	(revision 5881)
@@ -22,11 +22,4 @@
 $filelist[7]="authorized_keys";
 
-#Ignore this node diretories
-%removefromnodelist = (
-                      'retired' => 'YES',
-                      'obsolete' => 'YES',
-                       );
-
-
 #(inter)net env
 if( defined $ENV{'SERVER_NAME'} ) {
@@ -38,13 +31,11 @@
 
 chomp($hostname);
-$cgi_dir="http://$hostname/cgi-bin";
+$cgi_dir="http://$hostname/freebsd/5.0";
 $source="$cgi_dir/g_list.pl";
 
 #path variablen
-$home="/home/genesis";
+$home="/usr/local/www/wlconfig.wirelessleiden.nl";
 $ndir="$home/nodes";
-#$toolfile="$home/tools/wleiden.pl";
-#Temp Svn fix
-$toolfile="$home/tools/FreeBSD5_x/wleiden.pl";
+$toolfile="$home/freebsd/5.0/wleiden.pl";
 
 
@@ -57,13 +48,13 @@
 
 #module IP.pm
-$IP_pmPath='/home/genesis/tools/IP.pm';
+$IP_pmPath="$home/tools/IP.pm";
 
 #dnsheader.conf
-$dnsheader_confPath='/home/genesis/dns/dnsheader.conf';
+$dnsheader_confPath="$home/dns/dnsheader.conf";
 
 
 ## ssh key variablen ##
 #global ssh_keys
-$global_keyPath='/home/genesis/nodes/global_keys';
+$global_keyPath="$home/nodes/global_keys";
 #node specific
 $ssh_file='ssh_key'
Index: tools/FreeBSD5_x/wleiden.pl
===================================================================
--- tools/FreeBSD5_x/wleiden.pl	(revision 5230)
+++ tools/FreeBSD5_x/wleiden.pl	(revision 5881)
@@ -6,5 +6,5 @@
 
 # Config located at other file
-my $conf_file="/home/genesis/tools/FreeBSD5_x/genesis.conf";
+my $conf_file="./genesis.conf";
 do($conf_file) || die("Cann't open $conf_file");
 ################ END OF CONFIG ##########################