Index: config/iris/node/FreeBSD/8.0-RELEASE/INSTALL.txt
===================================================================
--- config/iris/node/FreeBSD/8.0-RELEASE/INSTALL.txt	(revision 8614)
+++ config/iris/node/FreeBSD/8.0-RELEASE/INSTALL.txt	(revision 8620)
@@ -4,4 +4,13 @@
 put marvilous code in there, which will potentially ruin your machine
 !!! END WARNING !!!!
+
+XXX: Cleanup to match new reality
+== apache configuration CleanURL ==
+/usr/local/etc/apache22/Includes/something.conf:
+  # WLConfig
+  ScriptAliasMatch /config/iris/freebsd/8.0-RELEASE/(.*) /usr/local/www/wlconfig/freebsd/iris-8.0/g_list.pl
+  <Directory /usr/local/www/wlconfig>
+    Allow from all
+  </Directory>
 
 
Index: config/iris/node/FreeBSD/8.0-RELEASE/g_list.pl
===================================================================
--- config/iris/node/FreeBSD/8.0-RELEASE/g_list.pl	(revision 8614)
+++ config/iris/node/FreeBSD/8.0-RELEASE/g_list.pl	(revision 8620)
@@ -4,7 +4,8 @@
 # Rick van der Zwet
 #
+use File::Basename;
 
 # Config located at other file
-my $conf_file="/usr/local/www/wlconfig/freebsd/iris-8.0/genesis.conf";
+my $conf_file = dirname(__FILE__) . "/genesis.conf";
 do($conf_file) || die("Cann't open $conf_file");
 
@@ -66,5 +67,5 @@
 #REQUEST parsen
 $request=$ENV{'REQUEST_URI'};
-if( $request=~/.*g_list.pl\/(.*)$/) {
+if( $request =~ /$uri(.*)$/) {
   ($node,$file)=split(/\//,$1);
   $title="$node $file";
@@ -85,7 +86,8 @@
 else {
   $HTML=1;
-  printline("<HTML>");
+  printline("<HTML><HEAD>");
   printline("<TITLE>Genesis $title</TITLE>");
-  printline("<BODY BGcolor=white>");
+  printline("<base href='$source'></base>"); 
+  printline("</HEAD><BODY BGcolor=white>");
 };
 
@@ -167,7 +169,7 @@
     }
     else {
-      printline("<TR><TD><A HREF=g_list.pl/$node/config>$node</A></TD>");
+      printline("<TR><TD><A HREF=$node/config>$node</A></TD>");
       foreach $file (sort @filelist) {
-        printline("<TD><A HREF=g_list.pl/$node/$file>$file</A></TD>\n");
+        printline("<TD><A HREF=$node/$file>$file</A></TD>\n");
       };
     };
@@ -313,5 +315,5 @@
 
   if( $HTML) {
-    printline("<H1>Genesis $file voor: $hostname</H1><P>");
+    printline("<H1>Genesis $file voor: $node</H1><P>");
   };
 
Index: config/iris/node/FreeBSD/8.0-RELEASE/genesis.conf
===================================================================
--- config/iris/node/FreeBSD/8.0-RELEASE/genesis.conf	(revision 8614)
+++ config/iris/node/FreeBSD/8.0-RELEASE/genesis.conf	(revision 8620)
@@ -37,6 +37,7 @@
 
 chomp($hostname);
-$cgi_dir="http://$hostname/freebsd/iris-8.0";
-$source="$cgi_dir/g_list.pl";
+$uri='/config/iris/freebsd/8.0-RELEASE/';
+$cgi_dir="http://${hostname}$uri";
+$source="$cgi_dir";
 
 #path variablen
