From 3a7df5f7069852ce25624d1a4500875d3a6d02a3 Mon Sep 17 00:00:00 2001
From: janw <janw@594d385d-05f5-0310-b6e9-bd551577e9d8>
Date: Wed, 7 Apr 2010 14:58:07 +0000
Subject: [PATCH] Remove xml braces from mailqueue output.

git-svn-id: https://oss.gonicus.de/repositories/gosa/trunk@17527 594d385d-05f5-0310-b6e9-bd551577e9d8
---
 gosa-si/client/events/mailqueue.pm | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/gosa-si/client/events/mailqueue.pm b/gosa-si/client/events/mailqueue.pm
index 9e0d05e26..5845a047f 100644
--- 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;    
             }
         }
-- 
2.30.2