1 package registered;
2 use Exporter;
3 @ISA = qw(Exporter);
4 @EXPORT = qw(get_events registered set_activated_for_installation);
7 use strict;
8 use warnings;
9 use Data::Dumper;
10 use Fcntl;
12 BEGIN {}
14 END {}
16 ### Start ######################################################################
19 sub get_events {
20 my @events = ('registered', 'set_activated_for_installation');
21 return \@events;
22 }
24 sub registered {
25 my ($msg, $msg_hash) = @_ ;
26 my $header = @{$msg_hash->{'header'}}[0];
28 if( $header eq "registered" ) {
29 my $source = @{$msg_hash->{'source'}}[0];
30 &main::daemon_log("registration at $source",1);
31 }
33 # set registration_flag to true
34 return 0;
36 }
39 sub set_activated_for_installation {
40 my ($msg, $msg_hash) = @_ ;
41 my $header = @{$msg_hash->{'header'}}[0];
42 my $target = @{$msg_hash->{'target'}}[0];
43 my $source = @{$msg_hash->{'source'}}[0];
45 my $Datei = "/tmp/set_activated_for_installation";
46 open(DATEI, ">$Datei");
47 print DATEI "set_activated_for_installation\n";
48 close DATEI;
50 return 0;
51 }
55 1;