1 package krb5;
2 use Exporter;
3 @ISA = qw(Exporter);
4 my @events = (
5 "get_events",
6 "krb5_list_principals",
7 "krb5_list_policies",
8 "krb5_get_principal",
9 "krb5_create_principal",
10 "krb5_modify_principal",
11 "krb5_set_password",
12 "krb5_del_principal",
13 "krb5_get_policy",
14 "krb5_create_policy",
15 "krb5_modify_policy",
16 "krb5_del_policy",
17 "answer_krb5_list_principals",
18 "answer_krb5_list_policies",
19 "answer_krb5_get_principal",
20 "answer_krb5_create_principal",
21 "answer_krb5_modify_principal",
22 "answer_krb5_del_principal",
23 "answer_krb5_get_policy",
24 "answer_krb5_create_policy",
25 "answer_krb5_modify_policy",
26 "answer_krb5_del_policy",
27 "answer_krb5_set_password",
28 );
29 @EXPORT = @events;
31 use strict;
32 use warnings;
33 use GOSA::GosaSupportDaemon;
36 BEGIN {}
38 END {}
40 ### Start ######################################################################
42 sub get_events {
43 return \@events;
44 }
47 sub krb5_list_principals {
48 my ($msg, $msg_hash, $session_id) = @_;
49 $msg =~ s/gosa_krb5/krb5/g;
50 return ( $msg );
51 }
53 sub krb5_set_password {
54 my ($msg, $msg_hash, $session_id) = @_;
55 $msg =~ s/gosa_krb5/krb5/g;
56 return ( $msg );
57 }
60 sub krb5_create_principal {
61 my ($msg, $msg_hash, $session_id) = @_;
62 $msg =~ s/gosa_krb5/krb5/g;
63 return ( $msg );
64 }
67 sub krb5_modify_principal {
68 my ($msg, $msg_hash, $session_id) = @_;
69 $msg =~ s/gosa_krb5/krb5/g;
70 return ( $msg );
71 }
74 sub krb5_get_principal {
75 my ($msg, $msg_hash, $session_id) = @_;
76 $msg =~ s/gosa_krb5/krb5/g;
77 return ( $msg );
78 }
81 sub krb5_del_principal {
82 my ($msg, $msg_hash, $session_id) = @_;
83 $msg =~ s/gosa_krb5/krb5/g;
84 return ( $msg );
85 }
88 sub krb5_list_policies {
89 my ($msg, $msg_hash, $session_id) = @_;
90 $msg =~ s/gosa_krb5/krb5/g;
91 return ( $msg );
92 }
95 sub krb5_get_policy {
96 my ($msg, $msg_hash, $session_id) = @_;
97 $msg =~ s/gosa_krb5/krb5/g;
98 return ( $msg );
99 }
102 sub krb5_create_policy {
103 my ($msg, $msg_hash, $session_id) = @_;
104 $msg =~ s/gosa_krb5/krb5/g;
105 return ( $msg );
106 }
109 sub krb5_modify_policy {
110 my ($msg, $msg_hash, $session_id) = @_;
111 $msg =~ s/gosa_krb5/krb5/g;
112 return ( $msg );
113 }
116 sub krb5_del_policy {
117 my ($msg, $msg_hash, $session_id) = @_;
118 $msg =~ s/gosa_krb5/krb5/g;
119 return ( $msg );
120 }
122 sub answer_krb5_list_principals {
123 my ($msg, $msg_hash, $session_id) = @_ ;
124 $msg =~ s/<target>\S+<\/target>/<target>GOSA<\/target>/g;
125 return ($msg);
126 }
128 sub answer_krb5_get_principal {
129 my ($msg, $msg_hash, $session_id) = @_ ;
130 $msg =~ s/<target>\S+<\/target>/<target>GOSA<\/target>/g;
131 return ($msg);
132 }
134 sub answer_krb5_create_principal {
135 my ($msg, $msg_hash, $session_id) = @_ ;
136 $msg =~ s/<target>\S+<\/target>/<target>GOSA<\/target>/g;
137 return ($msg);
138 }
140 sub answer_krb5_modify_principal {
141 my ($msg, $msg_hash, $session_id) = @_ ;
142 $msg =~ s/<target>\S+<\/target>/<target>GOSA<\/target>/g;
143 return ($msg);
144 }
146 sub answer_krb5_del_principal {
147 my ($msg, $msg_hash, $session_id) = @_ ;
148 $msg =~ s/<target>\S+<\/target>/<target>GOSA<\/target>/g;
149 return ($msg);
150 }
152 sub answer_krb5_list_policies {
153 my ($msg, $msg_hash, $session_id) = @_ ;
154 $msg =~ s/<target>\S+<\/target>/<target>GOSA<\/target>/g;
155 return ($msg);
156 }
158 sub answer_krb5_get_policy {
159 my ($msg, $msg_hash, $session_id) = @_ ;
160 $msg =~ s/<target>\S+<\/target>/<target>GOSA<\/target>/g;
161 return ($msg);
162 }
164 sub answer_krb5_create_policy {
165 my ($msg, $msg_hash, $session_id) = @_ ;
166 $msg =~ s/<target>\S+<\/target>/<target>GOSA<\/target>/g;
167 return ($msg);
168 }
170 sub answer_krb5_modify_policy {
171 my ($msg, $msg_hash, $session_id) = @_ ;
172 $msg =~ s/<target>\S+<\/target>/<target>GOSA<\/target>/g;
173 return ($msg);
174 }
176 sub answer_krb5_del_policy {
177 my ($msg, $msg_hash, $session_id) = @_ ;
178 $msg =~ s/<target>\S+<\/target>/<target>GOSA<\/target>/g;
179 return ($msg);
180 }
182 sub answer_krb5_set_password {
183 my ($msg, $msg_hash, $session_id) = @_ ;
184 $msg =~ s/<target>\S+<\/target>/<target>GOSA<\/target>/g;
185 return ($msg);
186 }
188 1;