gosa-si/server/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 GOSA::GosaSupportDaemon;
  10
  11
  12 BEGIN {}
  13
  14 END {}
  15
  16 ### Start ######################################################################
  17
  18 #&main::read_configfile($main::cfg_file, %cfg_defaults);
  19
  20 sub get_events {
  21     return \@events;
  22 }
  23
  24 sub set_activated_for_installation {
  25     my ($msg, $msg_hash) = @_;
  26
  27     my $header = @{$msg_hash->{header}}[0];
  28     my $source = @{$msg_hash->{source}}[0];
  29     my $target = @{$msg_hash->{target}}[0];
  30
  31     my $out_hash = &create_xml_hash("set_activated_for_installation", $source, $target);
  32     my $out_msg = &create_xml_string($out_hash);
  33
  34     return $out_msg;
  35 }