index 42af112bc225f540ebde56dfb24a82ea46b76b1b..9e1f38cd999c7d774973743ecc06d7f5fd4dd7ee 100644 (file)
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",
"get_recent_log_by_mac",
"delete_log_by_date_and_mac",
);
-@EXPORT = @events;
+
+our @EXPORT = @events;
BEGIN {}
# read log file
my $log_content;
- open(my $FILE, "<", "$act_log_file");
+ open(my $FILE, "<$act_log_file");
my @log_lines = <$FILE>;
close($FILE);