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
  12 BEGIN {}
  13
  14 END {}
  15
  16 ### Start ######################################################################
  17
  18
  19 sub get_events {
  20     return \@events;
  21 }
  22
  23 sub set_activated_for_installation {
  24     my ($msg, $msg_hash) = @_ ;
  25     my $header = @{$msg_hash->{'header'}}[0];
  26     my $target = @{$msg_hash->{'target'}}[0];
  27     my $source = @{$msg_hash->{'source'}}[0];
  28
  29     my $Datei = "/tmp/set_activated_for_installation";
  30     open(DATEI, ">$Datei");
  31     print DATEI "$msg\n";
  32     close DATEI;
  33
  34     return;
  35 }
  36
  37
  38
  39 1;