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;
20 use strict;
21 use warnings;
22 use GOSA::GosaSupportDaemon;
25 BEGIN {}
27 END {}
29 ### Start ######################################################################
31 sub get_events {
32 return \@events;
33 }
36 sub opsi_get_netboot_products {
37 my ($msg, $msg_hash, $session_id) = @_;
38 $msg =~ s/gosa_opsi/opsi/g;
39 return ( $msg );
40 }
43 sub opsi_set_product_properties {
44 my ($msg, $msg_hash, $session_id) = @_;
45 $msg =~ s/gosa_opsi/opsi/g;
46 return ( $msg );
47 }
50 sub opsi_get_product_properties {
51 my ($msg, $msg_hash, $session_id) = @_;
52 $msg =~ s/gosa_opsi/opsi/g;
53 return ( $msg );
54 }
57 sub opsi_get_local_products {
58 my ($msg, $msg_hash, $session_id) = @_;
59 $msg =~ s/gosa_opsi/opsi/g;
60 return ( $msg );
61 }
63 sub opsi_get_client_hardware {
64 my ($msg, $msg_hash, $session_id) = @_;
65 $msg =~ s/gosa_opsi/opsi/g;
66 return ( $msg );
67 }
69 sub opsi_get_client_software {
70 my ($msg, $msg_hash, $session_id) = @_;
71 $msg =~ s/gosa_opsi/opsi/g;
72 return ( $msg );
73 }
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 }
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 }
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 }
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 }
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 }
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 }
111 1;