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 reboot halt softupdate reinstall);
   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 }
  36
  37 sub reboot {
  38     my ($msg, $msg_hash) = @_;
  39     $msg =~ s/<header>gosa_reboot<\/header>/<header>reboot<\/header>/;
  40
  41     return $msg;
  42 }
  43
  44
  45 sub halt {
  46     my ($msg, $msg_hash) = @_;
  47     $msg =~ s/<header>gosa_halt<\/header>/<header>halt<\/header>/;
  48
  49     return $msg;
  50 }
  51
  52
  53 sub reinstall {
  54     my ($msg, $msg_hash) = @_;
  55     $msg =~ s/<header>gosa_reinstall<\/header>/<header>reinstall<\/header>/;
  56
  57     return $msg;
  58 }
  59
  60
  61 sub softupdate {
  62     my ($msg, $msg_hash) = @_;
  63     $msg =~ s/<header>gosa_softupdate<\/header>/<header>softupdate<\/header>/;
  64
  65     return $msg;
  66 }
  67
  68 1;