Alexandre Julliard : winetest: Properly format the new URL field.

[Alexandre Julliard]

Module: tools
Branch: master
Commit: f675b2738fb9a0d215d02d9cfd035cb8e83f13ff
URL:    http://source.winehq.org/git/tools.git/?a=commit;h=f675b2738fb9a0d215d02d9cf...

Author: Alexandre Julliard 
Date:   Tue Nov 23 17:46:07 2010 +0100

winetest: Properly format the new URL field.

---

winetest/dissect |    6 +++++-
 1 files changed, 5 insertions(+), 1 deletions(-)

diff --git a/winetest/dissect b/winetest/dissect
index 83254fe..00edcc5 100755
--- a/winetest/dissect
+++ b/winetest/dissect
@@ -129,7 +129,11 @@ my ($wine, $wine_build, $version, $major, $minor, $plid, $product);
 $box->{data} .= "<h2>Operating system version</h2>\n";
 $box->{data} .= "<table class="output">\n";
 while (($_ = <IN>) =~ /^\s*([0-9a-zA-Z ]+)=(.*?)\r?$/) {
-    $box->{data} .= sprintf "<tr><td>$1</td><td>%s</td></tr>\n", escapeHTML($2);
+    if ($1 eq "URL") {
+        $box->{data} .= sprintf "<tr><td>$1</td><td><a href="%s">%s</a></td></tr>\n", escapeHTML($2), escapeHTML($2);
+    } else {
+        $box->{data} .= sprintf "<tr><td>$1</td><td>%s</td></tr>\n", escapeHTML($2);
+    }
     if      ($1 eq "bRunningUnderWine") {
         $wine = $2;
     } elsif ($1 eq "dwMajorVersion") {