1 package installation;
3 use strict;
4 use warnings;
6 use Exporter;
7 use Fcntl;
9 our @ISA = qw(Exporter);
11 my @events = qw(get_events set_activated_for_installation);
13 our @EXPORT = @events;
15 BEGIN {}
17 END {}
19 ### Start ######################################################################
22 sub get_events {
23 return \@events;
24 }
26 sub set_activated_for_installation {
27 my ($msg, $msg_hash) = @_ ;
28 my $header = @{$msg_hash->{'header'}}[0];
29 my $target = @{$msg_hash->{'target'}}[0];
30 my $source = @{$msg_hash->{'source'}}[0];
32 my $Datei = "/var/run/gosa-si-client.activated";
33 open(my $FILE, ">", "$Datei");
34 print $FILE "$msg\n";
35 close($FILE);
37 return;
38 }
42 1;