Francois Gouget : testbot/web: Show the VM name for failure matches.

[Alexandre Julliard]

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

Author: Francois Gouget <fgouget at codeweavers.com>
Date:   Mon Jun 27 19:59:52 2022 +0200

testbot/web: Show the VM name for failure matches.

Signed-off-by: Francois Gouget <fgouget at codeweavers.com>
Signed-off-by: Alexandre Julliard <julliard at winehq.org>

---

 testbot/web/FailureDetails.pl | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/testbot/web/FailureDetails.pl b/testbot/web/FailureDetails.pl
index ae4ccb40..02803ed2 100644
--- a/testbot/web/FailureDetails.pl
+++ b/testbot/web/FailureDetails.pl
@@ -45,7 +45,9 @@ sub GetPropertyDescriptors($)
     push @PropertyDescriptors, $PropertyDescriptor;
     if ($PropertyName eq "TaskLog")
     {
-      push @PropertyDescriptors, CreateBasicPropertyDescriptor("Date", "Date", !1, !1, "DT", 19);
+      push @PropertyDescriptors,
+           CreateBasicPropertyDescriptor("VM", "VM", !1, !1, "A", 20),
+           CreateBasicPropertyDescriptor("Date", "Date", !1, !1, "DT", 19);
     }
   }
   push @PropertyDescriptors, CreateBasicPropertyDescriptor("Remarks", "Remarks", !1, !1, "A", 128);
@@ -89,6 +91,10 @@ sub GenerateDataView($$$)
     print "<a href='", $self->escapeHTML($URL), "'>",
           $self->escapeHTML($Row->{Item}->TaskLog), "</a>";
   }
+  elsif ($PropertyName eq "VM")
+  {
+    print $self->escapeHTML($Row->{Item}->Task->VMName);
+  }
   elsif ($PropertyName eq "Date")
   {
     # The enclosing page already pulled in the datetime JavaScript code