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 new_key_for_client detect_hardware);
   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
  25 sub detect_hardware {
  26     my ($msg, $msg_hash) = @_ ;
  27     # just forward msg to client, but dont forget to split off 'gosa_' in header
  28     my $header = @{$msg_hash->{header}}[0];
  29     my $source = @{$msg_hash->{source}}[0];
  30     my $target = @{$msg_hash->{target}}[0];
  31
  32     my $out_hash = &create_xml_hash("detect_hardware", $source, $target);
  33     my $out_msg = &create_xml_string($out_hash);
  34
  35     return $out_msg;
  36 }
  37
  38
  39 sub set_activated_for_installation {
  40     my ($msg, $msg_hash) = @_;
  41
  42     my $header = @{$msg_hash->{header}}[0];
  43     my $source = @{$msg_hash->{source}}[0];
  44     my $target = @{$msg_hash->{target}}[0];
  45
  46     my $out_hash = &create_xml_hash("set_activated_for_installation", $source, $target);
  47     my $out_msg = &create_xml_string($out_hash);
  48
  49     return $out_msg;
  50 }
  51
  52 sub reboot {
  53     my ($msg, $msg_hash) = @_;
  54     $msg =~ s/<header>gosa_reboot<\/header>/<header>reboot<\/header>/;
  55
  56     return $msg;
  57 }
  58
  59
  60 sub halt {
  61     my ($msg, $msg_hash) = @_;
  62     $msg =~ s/<header>gosa_halt<\/header>/<header>halt<\/header>/;
  63
  64     return $msg;
  65 }
  66
  67
  68 sub reinstall {
  69     my ($msg, $msg_hash) = @_;
  70     $msg =~ s/<header>gosa_reinstall<\/header>/<header>reinstall<\/header>/;
  71
  72     return $msg;
  73 }
  74
  75
  76 sub softupdate {
  77     my ($msg, $msg_hash) = @_;
  78     $msg =~ s/<header>gosa_softupdate<\/header>/<header>softupdate<\/header>/;
  79
  80     return $msg;
  81 }
  82
  83
  84 sub new_key_for_client {
  85     my ($msg, $msg_hash) = @_;
  86     $msg =~ s/<header>gosa_new_key_for_client<\/header>/<header>new_key<\/header>/;
  87
  88     return $msg;
  89 }
  90
  91
  92
  93 1;