gosa-si/server/events/opsi.pm

   1 package opsi;
   2 use Exporter;
   3 @ISA = qw(Exporter);
   4 my @events = (
   5     "get_events",
   6     "opsi_get_netboot_products",
   7     "opsi_get_local_products",
   8     "opsi_get_product_properties",
   9     "opsi_get_client_hardware",
  10     "opsi_get_client_software",
  11     "answer_opsi_get_netboot_products",
  12     "answer_opsi_get_local_products",
  13     "answer_opsi_get_product_properties",
  14     "answer_opsi_set_product_properties",
  15     "answer_opsi_get_client_hardware",
  16     "answer_opsi_get_client_software",
  17    );
  18 @EXPORT = @events;
  19
  20 use strict;
  21 use warnings;
  22 use GOSA::GosaSupportDaemon;
  23
  24
  25 BEGIN {}
  26
  27 END {}
  28
  29 ### Start ######################################################################
  30
  31 sub get_events {
  32     return \@events;
  33 }
  34
  35
  36 sub opsi_get_netboot_products {
  37         my ($msg, $msg_hash, $session_id) = @_;
  38         $msg =~ s/gosa_opsi/opsi/g;
  39         return ( $msg );
  40 }
  41
  42
  43 sub opsi_set_product_properties {
  44         my ($msg, $msg_hash, $session_id) = @_;
  45         $msg =~ s/gosa_opsi/opsi/g;
  46         return ( $msg );
  47 }
  48
  49
  50 sub opsi_get_product_properties {
  51         my ($msg, $msg_hash, $session_id) = @_;
  52         $msg =~ s/gosa_opsi/opsi/g;
  53         return ( $msg );
  54 }
  55
  56
  57 sub opsi_get_local_products {
  58         my ($msg, $msg_hash, $session_id) = @_;
  59         $msg =~ s/gosa_opsi/opsi/g;
  60         return ( $msg );
  61 }
  62
  63 sub opsi_get_client_hardware {
  64         my ($msg, $msg_hash, $session_id) = @_;
  65         $msg =~ s/gosa_opsi/opsi/g;
  66         return ( $msg );
  67 }
  68
  69 sub opsi_get_client_software {
  70         my ($msg, $msg_hash, $session_id) = @_;
  71         $msg =~ s/gosa_opsi/opsi/g;
  72         return ( $msg );
  73 }
  74
  75 sub answer_opsi_get_netboot_products {
  76     my ($msg, $msg_hash, $session_id) = @_ ;
  77     $msg =~ s/<target>\S+<\/target>/<target>GOSA<\/target>/g;
  78     return ($msg);
  79 }
  80
  81 sub answer_opsi_get_product_properties {
  82     my ($msg, $msg_hash, $session_id) = @_ ;
  83     $msg =~ s/<target>\S+<\/target>/<target>GOSA<\/target>/g;
  84     return ($msg);
  85 }
  86
  87 sub answer_opsi_set_product_properties {
  88     my ($msg, $msg_hash, $session_id) = @_ ;
  89     $msg =~ s/<target>\S+<\/target>/<target>GOSA<\/target>/g;
  90     return ($msg);
  91 }
  92
  93 sub answer_opsi_get_local_products {
  94     my ($msg, $msg_hash, $session_id) = @_ ;
  95     $msg =~ s/<target>\S+<\/target>/<target>GOSA<\/target>/g;
  96     return ($msg);
  97 }
  98
  99 sub answer_opsi_get_client_hardware {
 100     my ($msg, $msg_hash, $session_id) = @_ ;
 101     $msg =~ s/<target>\S+<\/target>/<target>GOSA<\/target>/g;
 102     return ($msg);
 103 }
 104
 105 sub answer_opsi_get_client_software {
 106     my ($msg, $msg_hash, $session_id) = @_ ;
 107     $msg =~ s/<target>\S+<\/target>/<target>GOSA<\/target>/g;
 108     return ($msg);
 109 }
 110
 111 1;