Index: tools/FreeBSD5_x/g_list.pl
===================================================================
--- tools/FreeBSD5_x/g_list.pl	(revision 5157)
+++ tools/FreeBSD5_x/g_list.pl	(revision 5230)
@@ -22,10 +22,50 @@
 };
 
+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
 $request=$ENV{'REQUEST_URI'};
-if( $request=~/cgi-bin\/g_list.pl\/(.*)$/) {
+if( $request=~/.*g_list.pl\/(.*)$/) {
   ($node,$file)=split(/\//,$1);
   $title="$node $file";
+  if ( $debug ) { print "Node: $node\n"; }
+  if ( $debug ) { print "File: $file\n"; }
 }
 else {
@@ -64,17 +104,16 @@
   }
   else {
-    g_list( );
-  };
+   g_list( );
+  }
+}
+elsif( $node eq 'filelist' ) {
+  filelist( );
+}
+elsif( $node eq 'nodelist' ) {
+  nodelist( );
 }
 else {
   if( $file eq '') {
-    foreach $file ( sort @filelist) {
-      if( $HTML) {
-        print "$file<BR>\n";
-      }
-      else {
-        print "$file\n";
-      };
-    };
+      filelist( );
   }
   elsif( $file eq 'config') {
@@ -115,7 +154,5 @@
   };
 
-  opendir(DIR, $ndir) || die "can't opendir $ndir: $!";
-  @dirs = grep { /^[^\.]/ && -d "$ndir/$_" } readdir(DIR);
-  closedir DIR;
+  @dirs = listnodes( );
   foreach $dir (sort @dirs) {
     if( $dir=~/attic/ ) {
Index: tools/FreeBSD5_x/genesis.conf
===================================================================
--- tools/FreeBSD5_x/genesis.conf	(revision 5157)
+++ tools/FreeBSD5_x/genesis.conf	(revision 5230)
@@ -21,4 +21,11 @@
 $filelist[6]="txtconfig";
 $filelist[7]="authorized_keys";
+
+#Ignore this node diretories
+%removefromnodelist = (
+                      'retired' => 'YES',
+                      'obsolete' => 'YES',
+                       );
+
 
 #(inter)net env