gosa-si/client/events/installation.pm

   1 package installation;
   2
   3 use strict;
   4 use warnings;
   5
   6 use Exporter;
   7 use Fcntl;
   8
   9 @ISA = qw(Exporter);
  10 my @events = qw(get_events set_activated_for_installation);
  11 @EXPORT = @events;
  12
  13 BEGIN {}
  14
  15 END {}
  16
  17 ### Start ######################################################################
  18
  19
  20 sub get_events {
  21     return \@events;
  22 }
  23
  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];
  29
  30     my $Datei = "/var/run/gosa-si-client.activated";
  31     open(my $FILE, ">", "$Datei");
  32     print $FILE "$msg\n";
  33     close($FILE);
  34
  35     return;
  36 }
  37
  38
  39
  40 1;