Francois Gouget : testbot/WineRunTask: Send the VM' s description with the WineTest reports.

[Alexandre Julliard]

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

Author: Francois Gouget <fgouget at codeweavers.com>
Date:   Tue Jan 22 04:03:17 2013 +0100

testbot/WineRunTask: Send the VM's description with the WineTest reports.

---

 testbot/bin/WineRunTask.pl |    7 ++++++-
 1 files changed, 6 insertions(+), 1 deletions(-)

diff --git a/testbot/bin/WineRunTask.pl b/testbot/bin/WineRunTask.pl
index c6ca567..ee518b8 100755
--- a/testbot/bin/WineRunTask.pl
+++ b/testbot/bin/WineRunTask.pl
@@ -303,7 +303,12 @@ elsif ($Step->Type eq "suite")
     $Script .= '-u "http://' . $WebHostName . "/JobDetails.pl?Key=" .
                $JobId . "&scrshot_" . $StepTask . "=1#k" . $StepTask . '" ';
   }
-  $Script .= "-q -o $RptFileName -t $Tag -m $AdminEMail\r\n" .
+  my $Info = $VM->Description ? $VM->Description : "";
+  # Escape the info argument for cmd's command interpreter
+  $Info =~ s/\\/\\\\/g;
+  $Info =~ s/"/\\"/g;
+  $Info =~ s/%/%%/g;
+  $Script .= "-q -o $RptFileName -t $Tag -m $AdminEMail -i \"$Info\"\r\n" .
              "$FileName -q -s $RptFileName\r\n";
 }