Changeset 4086 in genesis

Timestamp:

Mar 16, 2005, 11:36:47 PM (20 years ago)

Author:

rick

Message:

Fixed wrong parsing while loading nodelist

File:

• tools/g_list.pl (modified) (4 diffs)

tools/g_list.pl

@@ -22 +22 @@
 
 #path variablen
-my $home="/home/rick/svn/genesis";
+my $home="/home/wleiden/genesis";
 my $ndir="$home/nodes";
 my $toolfile="$home/tools/wleiden.pl";
@@ -30 +30 @@
 
 ######################## END OF CONFIG ##########################
-my $html=1;
+my $HTML=1;
 
 #laden van tool file
@@ -122 +122 @@
 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 +142 @@
       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>");
+    };
+  };
 };