gosa-si/client/events/installation.pm

   1 package installation;
   2 use Exporter;
   3 @ISA = qw(Exporter);
   4 my @events = qw(get_events set_activated_for_installation);
   5 @EXPORT = @events;
   6
   7 use strict;
   8 use warnings;
   9 use Data::Dumper;
  10 use Fcntl;
  11 use utf8;
  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(DATEI, ">$Datei");
  32     print DATEI "$msg\n";
  33     close DATEI;
  34
  35     return;
  36 }
  37
  38
  39
  40 1;