Francois Gouget : testbot/WineRunTask: Make it possible to use the standard 'Name <address>' syntax for the administrator.

[Alexandre Julliard]

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

Author: Francois Gouget <fgouget at codeweavers.com>
Date:   Sun Mar 24 23:39:29 2013 +0100

testbot/WineRunTask: Make it possible to use the standard 'Name <address>' syntax for the administrator.

---

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

diff --git a/testbot/bin/WineRunTask.pl b/testbot/bin/WineRunTask.pl
index 57a4537..bcfda06 100755
--- a/testbot/bin/WineRunTask.pl
+++ b/testbot/bin/WineRunTask.pl
@@ -278,11 +278,15 @@ elsif ($Step->Type eq "suite")
       $Info .= ": " if ($Info ne "");
       $Info .=  $VM->Details;
   }
-  # Escape the info argument for cmd's command interpreter
-  $Info =~ s/\\/\\\\/g;
+  # Escape the arguments for cmd's command interpreter
+  my $EMail = $AdminEMail;
+  $EMail =~ s/"/\\"/g;
+  $EMail =~ s/%/%%/g;
+  $EMail =~ s/%/%%/g;
   $Info =~ s/"/\\"/g;
   $Info =~ s/%/%%/g;
-  $Script .= "-q -o $RptFileName -t $Tag -m $AdminEMail -i \"$Info\"\r\n" .
+  $Info =~ s/%/%%/g;
+  $Script .= "-q -o $RptFileName -t $Tag -m \"$EMail\" -i \"$Info\"\r\n" .
              "$FileName -q -s $RptFileName\r\n";
 }
 if (!$TA->SendFileFromString($Script, "script.bat", $TestAgent::SENDFILE_EXE))