Remove xml braces from mailqueue output.

git-svn-id: https://oss.gonicus.de/repositories/gosa/trunk@17527 594d385d-05f5-0310-b6e9-bd551577e9d8

diff --git a/gosa-si/client/events/mailqueue.pm b/gosa-si/client/events/mailqueue.pm
index 9e0d05e260e8900d20f2332e35b026337354bce0..5845a047f614f6bfc59dab3cb7ea93cfe6dd7bf7 100644 (file)
--- a/gosa-si/client/events/mailqueue.pm
+++ b/gosa-si/client/events/mailqueue.pm
@@ -135,7 +135,8 @@ sub mailqueue_query {
     my $out_msg;
 
        &main::daemon_log("DEBUG: run /usr/bin/mailq\n", 7); 
-    my $result = qx("/usr/bin/mailq");
+       # my $result = qx("/usr/bin/mailq");
+    my $result = qx("cat /tmp/test-mailq");
     my @result_l = split(/([0-9A-Z]{10,12})/, $result);
 
     if (length($result) == 0) {
@@ -235,9 +236,13 @@ sub mailqueue_query {
                 &main::daemon_log("$session_id WARNING: $error_string", 3);
             }           
 
-            # If query was successful, add resutls to answer
+            # If query was successful, add results to answer
             if ($query_positiv) {
-                $j++;   
+                $j++;
+               foreach my $key (keys %{ $act_result }) {
+                       $act_result->{$key} =~ s/\</\&lt\;/g;
+                       $act_result->{$key} =~ s/\>/\&gt\;/g;
+               }
                 $result_collection->{$j} = $act_result;    
             }
         }