1 package installation;
2 use Exporter;
3 @ISA = qw(Exporter);
4 my @events = qw(get_events set_activated_for_installation);
5 @EXPORT = @events;
7 use strict;
8 use warnings;
9 use Data::Dumper;
10 use Fcntl;
11 use utf8;
13 BEGIN {}
15 END {}
17 ### Start ######################################################################
20 sub get_events {
21 return \@events;
22 }
24 sub set_activated_for_installation {
25 my ($msg, $msg_hash) = @_ ;
26 my $header = @{$msg_hash->{'header'}}[0];
27 my $target = @{$msg_hash->{'target'}}[0];
28 my $source = @{$msg_hash->{'source'}}[0];
30 my $Datei = "/var/run/gosa-si-client.activated";
31 open(DATEI, ">$Datei");
32 print DATEI "$msg\n";
33 close DATEI;
35 return;
36 }
40 1;