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

[Francois Gouget]

Signed-off-by: Francois Gouget <fgouget at codeweavers.com>
---
 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 ae4ccb4041..02803ed27a 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
-- 
2.30.2