From: opensides <opensides@594d385d-05f5-0310-b6e9-bd551577e9d8>
Date: Sat, 27 Mar 2010 23:32:37 +0000 (+0000)
Subject: - Corrected open perl function, corrected variable passing to open and close
X-Git-Url: https://git.tokkee.org/?a=commitdiff_plain;h=d1d8af49cfe9959a1ab73a0f6f54b0268f65861b;p=gosa.git

- Corrected open perl function, corrected variable passing to open and close



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

diff --git a/gosa-si/client/events/mailqueue.pm b/gosa-si/client/events/mailqueue.pm
index 7e3699cb8..86000d42f 100644
--- a/gosa-si/client/events/mailqueue.pm
+++ b/gosa-si/client/events/mailqueue.pm
@@ -25,7 +25,15 @@ Andreas Rettenberger <rettenberger at gonicus dot de>
 
 
 package mailqueue;
+
+
+use strict;
+use warnings;
+
 use Exporter;
+use GOSA::GosaSupportDaemon;
+use MIME::Base64;
+
 @ISA = qw(Exporter);
 my @events = (
     "get_events",
@@ -38,11 +46,6 @@ my @events = (
     );
 @EXPORT = @events;
 
-use strict;
-use warnings;
-use GOSA::GosaSupportDaemon;
-use MIME::Base64;
-
 BEGIN {}
 
 END {}
@@ -120,12 +123,12 @@ sub mailqueue_query {
     my $error = 0;
     my $error_string;
     my $msg_id;
-    my $msg_hold;
-    my $msg_size;
-    my $arrival_time;
+#my $msg_hold;
+#my $msg_size;
+#my $arrival_time;
     my $sender;
     my $recipient;
-    my $status_message;
+#my $status_message;
     my $out_hash;
     my $out_msg;