[PATCH] testbot/web: Show the mission in the arguments column for Wine VMs.

[Francois Gouget]

When handling a patch Wine VMs don't take arguments except for the
mission which specifies what they should do. Also a Wine VM may run
multiple tasks only differing in their mission. So this helps
identify what each task does.

Signed-off-by: Francois Gouget 
---
 testbot/web/JobDetails.pl   | 25 ++++++++++++++++++++++++-
 testbot/web/WineTestBot.css | 12 ++++++++++++
 2 files changed, 36 insertions(+), 1 deletion(-)

diff --git a/testbot/web/JobDetails.pl b/testbot/web/JobDetails.pl
index 92f9d19721..1f77804be7 100644
--- a/testbot/web/JobDetails.pl
+++ b/testbot/web/JobDetails.pl
@@ -32,6 +32,7 @@ use URI::Escape;
 use WineTestBot::Config;
 use WineTestBot::Jobs;
 use WineTestBot::LogUtils;
+use WineTestBot::Missions;
 use WineTestBot::StepsTasks;
 use WineTestBot::Utils;
 use WineTestBot::Engine::Notify;
@@ -92,7 +93,11 @@ sub GenerateHeaderCell($$$)
   my ($self, $CollectionBlock, $PropertyDescriptor) = @_;

my $PropertyName = $PropertyDescriptor->GetName();
-  if ($PropertyName eq "Ended")
+  if ($PropertyName eq "CmdLineArg")
+  {
+    print "<th>Arguments / <span class='MissionHeader'>Missions</span></th>\n";
+  }
+  elsif ($PropertyName eq "Ended")
   {
     print "<th><a class='title' title='Execution ended'>Time</a></th>\n";
   }
@@ -589,6 +594,24 @@ sub GenerateDataCell($$$$$)
       $self->SUPER::GenerateDataCell($CollectionBlock, $StepTask, $PropertyDescriptor, $DetailsPage);
     }
   }
+  elsif ($PropertyName eq "CmdLineArg")
+  {
+    my $Args = $self->escapeHTML($StepTask->CmdLineArg);
+    if ($Args eq "" or $StepTask->VM->Type eq "wine")
+    {
+      $Args .= "<br>" if ($Args ne "");
+      my ($ErrMessage, $Missions) = ParseMissionStatement($StepTask->Missions);
+      if (defined $ErrMessage)
+      {
+        $Args .= "<span class='Mission'>$ErrMessage</span>";
+      }
+      else
+      {
+        $Args .= "<span class='Mission'>". $self->escapeHTML(GetTaskMissionDescription($Missions->[0], $StepTask->VM->Type)) ."</span>";
+      }
+    }
+    print "<td>$Args</td>\n";
+  }
   elsif ($PropertyName eq "Ended")
   {
     if (defined $StepTask->Ended)
diff --git a/testbot/web/WineTestBot.css b/testbot/web/WineTestBot.css
index df683f863e..1456036c03 100644
--- a/testbot/web/WineTestBot.css
+++ b/testbot/web/WineTestBot.css
@@ -290,6 +290,18 @@ h2
   font-style: italic;
 }

+.MissionHeader
+{
+  font-size: small;
+  font-style: italic;
+}
+
+.Mission
+{
+  font-size: small;
+  font-style: italic;
+  color: navy;
+}

.Screenshot
 {