diff options
author | Andrew Lenharth <andrewl@lenharth.org> | 2005-05-20 17:50:51 +0000 |
---|---|---|
committer | Andrew Lenharth <andrewl@lenharth.org> | 2005-05-20 17:50:51 +0000 |
commit | edd47f21c5dc7f12fbe537219980ae4050e7e50a (patch) | |
tree | 254ee8c0fdd318f1d5729492eb3db63aee972fe5 /utils/webNLT.pl | |
parent | 24d77506d07d3e69f65ce82d1040231797f4a5dc (diff) | |
download | external_llvm-edd47f21c5dc7f12fbe537219980ae4050e7e50a.zip external_llvm-edd47f21c5dc7f12fbe537219980ae4050e7e50a.tar.gz external_llvm-edd47f21c5dc7f12fbe537219980ae4050e7e50a.tar.bz2 |
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
Diffstat (limited to 'utils/webNLT.pl')
-rwxr-xr-x | utils/webNLT.pl | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/utils/webNLT.pl b/utils/webNLT.pl index 7f55b60..fb29fd2 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++; } } |