161cb35a458a5498864adc753c6c6e562124bce1
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_set_principal",
10 "krb5_del_principal",
11 "krb5_get_policy",
12 "krb5_set_policy",
13 "krb5_del_policy",
14 "answer_krb5_list_principals",
15 "answer_krb5_list_policies",
16 "answer_krb5_get_principal",
17 "answer_krb5_set_principal",
18 "answer_krb5_del_principal",
19 "answer_krb5_get_policy",
20 "answer_krb5_set_policy",
21 "answer_krb5_del_policy",
22 );
23 @EXPORT = @events;
25 use strict;
26 use warnings;
27 use GOSA::GosaSupportDaemon;
30 BEGIN {}
32 END {}
34 ### Start ######################################################################
36 sub get_events {
37 return \@events;
38 }
41 sub krb5_list_principals {
42 my ($msg, $msg_hash, $session_id) = @_;
43 $msg =~ s/gosa_krb5/krb5/g;
44 return ( $msg );
45 }
48 sub krb5_set_principal {
49 my ($msg, $msg_hash, $session_id) = @_;
50 $msg =~ s/gosa_krb5/krb5/g;
51 return ( $msg );
52 }
55 sub krb5_get_principal {
56 my ($msg, $msg_hash, $session_id) = @_;
57 $msg =~ s/gosa_krb5/krb5/g;
58 return ( $msg );
59 }
62 sub krb5_del_principal {
63 my ($msg, $msg_hash, $session_id) = @_;
64 $msg =~ s/gosa_krb5/krb5/g;
65 return ( $msg );
66 }
69 sub krb5_list_policies {
70 my ($msg, $msg_hash, $session_id) = @_;
71 $msg =~ s/gosa_krb5/krb5/g;
72 return ( $msg );
73 }
76 sub krb5_get_policy {
77 my ($msg, $msg_hash, $session_id) = @_;
78 $msg =~ s/gosa_krb5/krb5/g;
79 return ( $msg );
80 }
83 sub krb5_set_policy {
84 my ($msg, $msg_hash, $session_id) = @_;
85 $msg =~ s/gosa_krb5/krb5/g;
86 return ( $msg );
87 }
90 sub krb5_del_policy {
91 my ($msg, $msg_hash, $session_id) = @_;
92 $msg =~ s/gosa_krb5/krb5/g;
93 return ( $msg );
94 }
96 sub answer_krb5_list_principals {
97 my ($msg, $msg_hash, $session_id) = @_ ;
98 $msg =~ s/<target>\S+<\/target>/<target>GOSA<\/target>/g;
99 return ($msg);
100 }
102 sub answer_krb5_get_principal {
103 my ($msg, $msg_hash, $session_id) = @_ ;
104 $msg =~ s/<target>\S+<\/target>/<target>GOSA<\/target>/g;
105 return ($msg);
106 }
108 sub answer_krb5_set_principal {
109 my ($msg, $msg_hash, $session_id) = @_ ;
110 $msg =~ s/<target>\S+<\/target>/<target>GOSA<\/target>/g;
111 return ($msg);
112 }
114 sub answer_krb5_del_principal {
115 my ($msg, $msg_hash, $session_id) = @_ ;
116 $msg =~ s/<target>\S+<\/target>/<target>GOSA<\/target>/g;
117 return ($msg);
118 }
120 sub answer_krb5_list_policies {
121 my ($msg, $msg_hash, $session_id) = @_ ;
122 $msg =~ s/<target>\S+<\/target>/<target>GOSA<\/target>/g;
123 return ($msg);
124 }
126 sub answer_krb5_get_policy {
127 my ($msg, $msg_hash, $session_id) = @_ ;
128 $msg =~ s/<target>\S+<\/target>/<target>GOSA<\/target>/g;
129 return ($msg);
130 }
132 sub answer_krb5_set_policy {
133 my ($msg, $msg_hash, $session_id) = @_ ;
134 $msg =~ s/<target>\S+<\/target>/<target>GOSA<\/target>/g;
135 return ($msg);
136 }
138 sub answer_krb5_del_policy {
139 my ($msg, $msg_hash, $session_id) = @_ ;
140 $msg =~ s/<target>\S+<\/target>/<target>GOSA<\/target>/g;
141 return ($msg);
142 }
144 1;