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 our @ISA = qw(Exporter);
  10
  11 my @events = qw(get_events set_activated_for_installation);
  12
  13 our @EXPORT = @events;
  14
  15 BEGIN {}
  16
  17 END {}
  18
  19 ### Start ######################################################################
  20
  21
  22 sub get_events {
  23     return \@events;
  24 }
  25
  26 sub set_activated_for_installation {
  27     my ($msg, $msg_hash) = @_ ;
  28     my $header = @{$msg_hash->{'header'}}[0];
  29     my $target = @{$msg_hash->{'target'}}[0];
  30     my $source = @{$msg_hash->{'source'}}[0];
  31
  32     my $Datei = "/var/run/gosa-si-client.activated";
  33     open(my $FILE, ">", "$Datei");
  34     print $FILE "$msg\n";
  35     close($FILE);
  36
  37     return;
  38 }
  39
  40
  41
  42 1;