Cleanup

[buildfarm-client.git] / EximBuild / WebTxn.pm

diff --git a/EximBuild/WebTxn.pm b/EximBuild/WebTxn.pm
index f71f55a27074eef87bc64ec396e48b9dafd76dee..27c9cbe5f64eba5201e303d7b081e2e4a8f3befa 100644 (file)
--- a/EximBuild/WebTxn.pm
+++ b/EximBuild/WebTxn.pm
@@ -14,6 +14,7 @@ needed on older Msys installations (i.e. things running perl < 5.8).
 =cut 
 
 use strict;
+use URI::Escape;
 
 use vars qw($VERSION); $VERSION = 'REL_0.1';
 
@@ -99,9 +100,9 @@ sub run_web_txn
     my $content =
         "changed_files=$changed_this_run&"
       . "changed_since_success=$changed_since_success&"
-      ."branch=$branch&res=$status&stage=$stage&animal=$animal&ts=$ts"
+      . 'branch=' . uri_escape($branch) . "&res=$status&stage=$stage&animal=$animal&ts=$ts"
       ."&log=$log_data&conf=$confsum";
-    my $sig= sha1_hex($content,$secret);
+    my $sig = sha1_hex($content,$secret);
 
     $content .= "&frozen_sconf=$frozen_sconf";