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 }
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;