Updated locales

[gosa.git] / gosa-si / client / events / gosaTriggered.pm

diff --git a/gosa-si/client/events/gosaTriggered.pm b/gosa-si/client/events/gosaTriggered.pm
index 3b6f9678a23f141028684689f622d4b3d828451c..4a304eb9304d70b99dacfe85499e0cc500b97b43 100644 (file)
--- a/gosa-si/client/events/gosaTriggered.pm
+++ b/gosa-si/client/events/gosaTriggered.pm
@@ -25,18 +25,19 @@ Andreas Rettenberger <rettenberger at gonicus dot de>
 
 =cut
 
-
 package gosaTriggered;
 
 use strict;
 use warnings;
-use Exporter;
 
-use GOSA::GosaSupportDaemon;
 use MIME::Base64;
 use File::Temp qw/ tempfile/;
+use GOsaSI::GosaSupportDaemon;
+
+use Exporter;
+
+our @ISA = qw(Exporter);
 
-@ISA = qw(Exporter);
 my @events = (
     "get_events",
     "usr_msg",
@@ -49,7 +50,8 @@ my @events = (
     "trigger_action_instant_update",
     "trigger_goto_settings_reload",
     );
-@EXPORT = @events;
+    
+our @EXPORT = @events;
 
 BEGIN {}
 
@@ -193,7 +195,7 @@ sub trigger_action_localboot {
                # Check logged in user
                my @user_list = &get_logged_in_users;
                if( @user_list >= 1 ) {
-                       open($FILE, ">", "/etc/gosa-si/event");
+                       open(my $FILE, ">", "/etc/gosa-si/event");
                        print $FILE "trigger_action_localboot\n";
                        close($FILE);
                }
@@ -293,7 +295,7 @@ sub trigger_action_reboot {
                my @user_list = &get_logged_in_users;
                if( @user_list >= 1 ) {
                        system( "/usr/bin/goto-notify reboot" );
-                       open($FILE, ">", "/etc/gosa-si/event");
+                       open(my $FILE, ">", "/etc/gosa-si/event");
                        print $FILE "reboot\n";
                        close($FILE);
                }
@@ -355,7 +357,7 @@ sub trigger_action_halt {
                my @user_list = &get_logged_in_users;
                if( @user_list >= 1 ) {
                        system( "/usr/bin/goto-notify halt" );
-                       open($FILE, ">", "/etc/gosa-si/event");
+                       open(my $FILE, ">", "/etc/gosa-si/event");
                        print $FILE "halt\n";
                        close($FILE);
                }
@@ -407,7 +409,7 @@ sub trigger_action_reinstall {
                my @user_list = &get_logged_in_users;
                if( @user_list >= 1 ) {
                        system( "/usr/bin/goto-notify install" );
-                       open($FILE, ">", "/etc/gosa-si/event");
+                       open(my $FILE, ">", "/etc/gosa-si/event");
                        print $FILE "install\n";
                        close($FILE);
                }