Index: tools/g_list.pl
===================================================================
--- tools/g_list.pl	(revision 4085)
+++ tools/g_list.pl	(revision 4086)
@@ -22,5 +22,5 @@
 
 #path variablen
-my $home="/home/rick/svn/genesis";
+my $home="/home/wleiden/genesis";
 my $ndir="$home/nodes";
 my $toolfile="$home/tools/wleiden.pl";
@@ -30,5 +30,5 @@
 
 ######################## END OF CONFIG ##########################
-my $html=1;
+my $HTML=1;
 
 #laden van tool file
@@ -122,5 +122,5 @@
 sub g_list {
   if ($HTML) {
-    $svn_version=svn_version("$ndir");
+    my $svn_version=svn_version("$ndir");
     if ($svn_version=~/Last Changed Rev: (\d+)/) {
       $revision=$1;
@@ -142,16 +142,16 @@
       next;
     };
-    $hostname=$dir;
+    my $node = $dir;
     if (! $HTML) {
-      print "$hostname\n";
+      print "$node\n";
     }
     else {
-      printline("<TR><TD><A HREF=g_list.pl/$hostname/config>$hostname</A></TD>");
+      printline("<TR><TD><A HREF=g_list.pl/$node/config>$node</A></TD>");
       foreach $file (sort @filelist) {
-        printline("<TD><A HREF=g_list.pl/$hostname/$file>$file</A></TD>\n");
+        printline("<TD><A HREF=g_list.pl/$node/$file>$file</A></TD>\n");
       };
-    };
-  };
-  printline("</TABLE><P>");
+      printline("</TABLE><P>");
+    };
+  };
 };