gosa-si/client/events/registered.pm

   1 package registered;
   2 use Exporter;
   3 @ISA = qw(Exporter);
   4 @EXPORT = qw(get_events registered set_activated_for_installation);
   5
   6
   7 use strict;
   8 use warnings;
   9 use Data::Dumper;
  10 use Fcntl;
  11
  12 BEGIN {}
  13
  14 END {}
  15
  16 ### Start ######################################################################
  17
  18
  19 sub get_events {
  20     my @events = ('registered', 'set_activated_for_installation');
  21     return \@events;
  22 }
  23
  24 sub registered {
  25     my ($msg, $msg_hash) = @_ ;
  26     my $header = @{$msg_hash->{'header'}}[0];
  27
  28     if( $header eq "registered" ) {
  29         my $source = @{$msg_hash->{'source'}}[0];
  30         &main::daemon_log("registration at $source",1);
  31     }
  32
  33     # set registration_flag to true
  34     return 0;
  35
  36 }
  37
  38
  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];
  44
  45     my $Datei = "/tmp/set_activated_for_installation";
  46     open(DATEI, ">$Datei");
  47     print DATEI "set_activated_for_installation\n";
  48     close DATEI;
  49
  50     return 0;
  51 }
  52
  53
  54
  55 1;