Francois Gouget : testbot: Show the VM configuration on the Job details page.

[Alexandre Julliard]

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

Author: Francois Gouget 
Date:   Tue Feb 27 02:44:04 2018 +0100

testbot: Show the VM configuration on the Job details page.

This makes it easier to use the VM configuration details when analyzing
the test results.

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

---

testbot/web/JobDetails.pl | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/testbot/web/JobDetails.pl b/testbot/web/JobDetails.pl
index e825da4..7ca7889 100644
--- a/testbot/web/JobDetails.pl
+++ b/testbot/web/JobDetails.pl
@@ -248,6 +248,12 @@ sub GenerateBody($)
     my $VM = $Item->VM;
     print "<h2><a name='k", $self->escapeHTML($Key), "'></a>" ,
           $self->escapeHTML($Item->GetTitle()), "</h2>\n";
+
+    print "<details><summary>",
+          $self->CGI->escapeHTML($VM->Description || $VM->Name), "</summary>",
+          $self->CGI->escapeHTML($VM->Details || "No details!"),
+          "</details>\n";
+
     my $ScreenshotParamName = "scrshot_$Key";
     my $FullLogParamName = "log_$Key";
     my $LogName = "$TaskDir/log";
@@ -321,6 +327,7 @@ sub GenerateBody($)
       }
     }
     print "</div>\n";
+
     if (open LOGFILE, "<$LogName")
     {
       my $HasLogEntries = !1;