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;
12 BEGIN {}
14 END {}
16 ### Start ######################################################################
19 sub get_events {
20 return \@events;
21 }
23 sub set_activated_for_installation {
24 my ($msg, $msg_hash) = @_ ;
25 my $header = @{$msg_hash->{'header'}}[0];
26 my $target = @{$msg_hash->{'target'}}[0];
27 my $source = @{$msg_hash->{'source'}}[0];
29 my $Datei = "/tmp/set_activated_for_installation";
30 open(DATEI, ">$Datei");
31 print DATEI "$msg\n";
32 close DATEI;
34 return;
35 }
39 1;