X-Git-Url: https://git.tokkee.org/?a=blobdiff_plain;f=gosa-si%2Fserver%2Fevents%2FlogHandling.pm;h=9e1f38cd999c7d774973743ecc06d7f5fd4dd7ee;hb=59ccab6435432d90df6793ea7f8dea06a43b1f50;hp=42af112bc225f540ebde56dfb24a82ea46b76b1b;hpb=99e41791de62318f4a05ab130fa3587dd578e63d;p=gosa.git diff --git a/gosa-si/server/events/logHandling.pm b/gosa-si/server/events/logHandling.pm index 42af112bc..9e1f38cd9 100644 --- a/gosa-si/server/events/logHandling.pm +++ b/gosa-si/server/events/logHandling.pm @@ -4,13 +4,15 @@ package logHandling; use strict; use warnings; -use Exporter; -use GOSA::GosaSupportDaemon; use Data::Dumper; use File::Spec; use MIME::Base64; +use GOsaSI::GosaSupportDaemon; + +use Exporter; + +our @ISA = qw(Exporter); -@ISA = qw(Exporter); my @events = ( "get_events", "show_log_by_mac", @@ -21,7 +23,8 @@ my @events = ( "get_recent_log_by_mac", "delete_log_by_date_and_mac", ); -@EXPORT = @events; + +our @EXPORT = @events; BEGIN {} @@ -304,7 +307,7 @@ sub get_log_file_by_date_and_mac { # read log file my $log_content; - open(my $FILE, "<", "$act_log_file"); + open(my $FILE, "<$act_log_file"); my @log_lines = <$FILE>; close($FILE);