Decode escaped characters in query string

diff --git a/web/htdocs/cts/cts.pl b/web/htdocs/cts/cts.pl
index 23872df487ee212d1825c8bbdeb57e2841b110f0..9f35dff97c6506bb56b4f7861f542595462c5a43 100755 (executable)
--- a/web/htdocs/cts/cts.pl
+++ b/web/htdocs/cts/cts.pl
@@ -104,6 +104,12 @@ my $cts = connectToCTS( );
 
 my $query = $ENV{'QUERY_STRING'};
 
+# escape sequences
+while($query =~ /%([0-9a-fA-F]{2,2})/) {
+  my $chr = chr(hex($1));
+  $query=~ s/%$1/$chr/g;
+}
+
 if ($query eq "init") {
    printHeader;
    print JSON_BIND->new->allow_blessed->convert_blessed->encode({