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

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

diff --git a/gosa-si/server/events/clMessages.pm b/gosa-si/server/events/clMessages.pm
index 6c1e0546003c00552f7cacaeac071b4fece9f073..f4f749ada776f71274894745db53e922c84029aa 100644 (file)
--- a/gosa-si/server/events/clMessages.pm
+++ b/gosa-si/server/events/clMessages.pm
@@ -3,7 +3,16 @@
 # @details A GOsa-SI event module containing all functions to handle incoming messages from clients.
 
 package clMessages;
+
+
+use strict;
+use warnings;
+
 use Exporter;
+use Data::Dumper;
+use GOSA::GosaSupportDaemon;
+use MIME::Base64;
+
 @ISA = qw(Exporter);
 my @events = (
     "confirm_usr_msg",
@@ -22,13 +31,6 @@ my @events = (
     );
 @EXPORT = @events;
 
-use strict;
-use warnings;
-use Data::Dumper;
-use GOSA::GosaSupportDaemon;
-use MIME::Base64;
-
-
 BEGIN {}
 
 END {}
@@ -101,7 +103,7 @@ sub save_fai_log {
         my ($log_file, $log_string) = split(":", $log);
         my $client_fai_log_file = File::Spec->catfile( $client_fai_log_dir, $log_file);
 
-               open(my $LOG_FILE, ">$client_fai_log_file"); 
+               open(my $LOG_FILE, ">", "$client_fai_log_file"); 
                print $LOG_FILE &decode_base64($log_string);
                close($LOG_FILE);
                chown($main::root_uid, $main::adm_gid, $client_fai_log_file);