Code

Added dumb opsi repeater for the server
[gosa.git] / 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_set_product_properties",
10     "answer_opsi_get_netboot_products",
11     "answer_opsi_get_local_products",
12     "answer_opsi_get_product_properties",
13     "answer_opsi_set_product_properties",
14    );
15 @EXPORT = @events;
17 use strict;
18 use warnings;
19 use GOSA::GosaSupportDaemon;
22 BEGIN {}
24 END {}
26 ### Start ######################################################################
28 sub get_events {
29     return \@events;
30 }
32     
33 sub opsi_get_netboot_products {
34         my ($msg, $msg_hash, $session_id) = @_;
35         $msg =~ s/gosa_opsi/opsi/g;
36         return ( $msg );
37 }
40 sub opsi_set_product_properties {
41         my ($msg, $msg_hash, $session_id) = @_;
42         $msg =~ s/gosa_opsi/opsi/g;
43         return ( $msg );
44 }
47 sub opsi_get_product_properties {
48         my ($msg, $msg_hash, $session_id) = @_;
49         $msg =~ s/gosa_opsi/opsi/g;
50         return ( $msg );
51 }
54 sub opsi_get_local_products {
55         my ($msg, $msg_hash, $session_id) = @_;
56         $msg =~ s/gosa_opsi/opsi/g;
57         return ( $msg );
58 }
61 sub answer_opsi_get_netboot_products {
62     my ($msg, $msg_hash, $session_id) = @_ ;
63     $msg =~ s/<target>\S+<\/target>/<target>GOSA<\/target>/g;
64     return ($msg);
65 }
67 sub answer_opsi_get_product_properties {
68     my ($msg, $msg_hash, $session_id) = @_ ;
69     $msg =~ s/<target>\S+<\/target>/<target>GOSA<\/target>/g;
70     return ($msg);
71 }
73 sub answer_opsi_set_product_properties {
74     my ($msg, $msg_hash, $session_id) = @_ ;
75     $msg =~ s/<target>\S+<\/target>/<target>GOSA<\/target>/g;
76     return ($msg);
77 }
79 sub answer_opsi_get_local_products {
80     my ($msg, $msg_hash, $session_id) = @_ ;
81     $msg =~ s/<target>\S+<\/target>/<target>GOSA<\/target>/g;
82     return ($msg);
83 }
85 1;