From: opensides <opensides@594d385d-05f5-0310-b6e9-bd551577e9d8>
Date: Sat, 27 Mar 2010 23:54:38 +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=1856ca6701cbbcdc82399bb733049b41c6c45c2d;p=gosa.git

- 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 6c1e05460..f4f749ada 100644
--- 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);