- 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 7e3699cb83a746dbbac5a954daae3ac6a82d46c5..86000d42f38316a3807fab63344fa4cfccbd490e 100644 (file)
--- 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;