Francois Gouget : winetest/dissect: Allow linking to the dlls in the version page.

[Alexandre Julliard]

Module: tools
Branch: master
Commit: 598257c40138113b26f3672351f2768d48e4f5fe
URL:    https://source.winehq.org/git/tools.git/?a=commit;h=598257c40138113b26f36723...

Author: Francois Gouget 
Date:   Mon Apr 19 16:53:46 2021 +0200

winetest/dissect: Allow linking to the dlls in the version page.

Signed-off-by: Francois Gouget 
Signed-off-by: Alexandre Julliard

---

winetest/dissect | 15 ++++++++-------
 1 file changed, 8 insertions(+), 7 deletions(-)

diff --git a/winetest/dissect b/winetest/dissect
index d6ce316..80fd6e2 100755
--- a/winetest/dissect
+++ b/winetest/dissect
@@ -859,39 +859,40 @@ mydie "report reached file size limit (runaway test?)" if -s $report >= $maxfile
 $box->{data} .= "<table class="output">\n";
 foreach my $dll (sort keys %dllinfo)
 {
+    $box->{data} .= sprintf "<tr id="%s">", escapeHTML($dll);
     if ($dllinfo{$dll}->{version} =~ /^dll is missing/)
     {
         my $reason = $dllinfo{$dll}->{version};
         $reason =~ s/dll is //;
-        $box->{data} .= sprintf "<tr><td>%s</td><td class="skipped">%s</td></tr>\n", escapeHTML($dll), escapeHTML($reason);
+        $box->{data} .= sprintf "<td>%s</td><td class="skipped">%s</td></tr>\n", escapeHTML($dll), escapeHTML($reason);
     }
     elsif ($dllinfo{$dll}->{version} eq "skipped")
     {
-        $box->{data} .= sprintf "<tr><td>%s</td><td class="skipped">skipped by user request</td></tr>\n", escapeHTML($dll);
+        $box->{data} .= sprintf "<td>%s</td><td class="skipped">skipped by user request</td></tr>\n", escapeHTML($dll);
     }
     elsif ($dllinfo{$dll}->{version} eq "dll is a stub")
     {
-        $box->{data} .= sprintf "<tr><td>%s</td><td class="skipped">stub</td></tr>\n", escapeHTML($dll);
+        $box->{data} .= sprintf "<td>%s</td><td class="skipped">stub</td></tr>\n", escapeHTML($dll);
     }
     elsif ($dllinfo{$dll}->{version} eq "dll is native")
     {
         # There should be no native dll in the Wine tests
-        $box->{data} .= sprintf "<tr><td>%s</td><td class="failed">native</td></tr>\n", escapeHTML($dll);
+        $box->{data} .= sprintf "<td>%s</td><td class="failed">native</td></tr>\n", escapeHTML($dll);
     }
     elsif ($dllinfo{$dll}->{version} =~ /^load error/)
     {
         # Flag unknown errors
-        $box->{data} .= sprintf "<tr><td>%s</td><td class="failed">%s</td></tr>\n",
+        $box->{data} .= sprintf "<td>%s</td><td class="failed">%s</td></tr>\n",
                                    escapeHTML($dll), escapeHTML($dllinfo{$dll}->{version});
     }
     elsif (defined($dllinfo{$dll}->{first}))
     {
-        $box->{data} .= sprintf "<tr><td><a href="report.html#%s">%s</a></td><td>%s</td></tr>\n",
+        $box->{data} .= sprintf "<td><a href="report.html#%s">%s</a></td><td>%s</td></tr>\n",
                                     escapeHTML($dllinfo{$dll}->{first}), escapeHTML($dll), escapeHTML($dllinfo{$dll}->{version});
     }
     else
     {
-        $box->{data} .= sprintf "<tr><td>%s</td><td>%s</td></tr>\n", escapeHTML($dll), escapeHTML($dllinfo{$dll}->{version});
+        $box->{data} .= sprintf "<td>%s</td><td>%s</td></tr>\n", escapeHTML($dll), escapeHTML($dllinfo{$dll}->{version});
     }
 }
 $box->{data} .= "</table>";