now with a legend, and multiple lines work.

git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@22153 91177308-0d34-0410-b5e6-96231b3b80d8

2 files changed, 10 insertions, 6 deletions

diff --git a/utils/cgiplotNLT.pl b/utils/cgiplotNLT.pl
index d9b61d813f..0360e4120d 100755
--- a/utils/cgiplotNLT.pl
+++ b/utils/cgiplotNLT.pl
@@ -27,6 +27,7 @@ $| = 1;
 print "Content-type: image/png", "\n\n";
 
 open CMDSTREAM, "|gnuplot";
+#open CMDSTREAM, "|echo";
 
 print CMDSTREAM "set terminal png\n";
 print CMDSTREAM "set output\n";
@@ -36,7 +37,7 @@ print CMDSTREAM "\nplot";
 for ($iter = 0; $iter < $count; $iter++) {
   if ($iter)
     { print CMDSTREAM ","; }
-  print CMDSTREAM " '-' using 1:2 with lines";
+  print CMDSTREAM " '-' using 1:2 title \"" . $q->param('t' . $iter) . "," . $q->param('n' . $iter) . "\"with lines";
 }
 
 print CMDSTREAM "\n";
diff --git a/utils/webNLT.pl b/utils/webNLT.pl
index 7f55b60187..fb29fd292e 100755
--- a/utils/webNLT.pl
+++ b/utils/webNLT.pl
@@ -61,15 +61,18 @@ else
       {
         my @names = $q->param('name');
         my @tests = $q->param('test');
+        print "<P>";
+        print join "<BR>", @names;
+        print "<P>";
+        print join "<BR>", @tests;
+        print "<P>";
         $str = "pwd=" . $q->param('pwd');
         $count = 0;
-        while (@names)
+        foreach $n (@names)
           {
-            $n = pop @names;
-            while (@tests)
+            foreach $t (@tests)
               {
-                $t = pop @tests;
-                $str .= "&t$count=$t&n$count=$n";
+                $str = "$str&t$count=$t&n$count=$n";
                 $count++;
               }
           }