1 package kerberos;
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 );
16 @EXPORT = @events;
18 use strict;
19 use warnings;
20 use GOSA::GosaSupportDaemon;
23 BEGIN {}
25 END {}
27 ### Start ######################################################################
29 sub get_events {
30 return \@events;
31 }
34 sub krb5_list_principals {
35 my ($msg, $msg_hash, $session_id) = @_;
36 $msg =~ s/gosa_krb5/krb5/g;
37 return ( $msg );
38 }
41 sub krb5_set_principal {
42 my ($msg, $msg_hash, $session_id) = @_;
43 $msg =~ s/gosa_krb5/krb5/g;
44 return ( $msg );
45 }
48 sub krb5_get_principal {
49 my ($msg, $msg_hash, $session_id) = @_;
50 $msg =~ s/gosa_krb5/krb5/g;
51 return ( $msg );
52 }
55 sub krb5_del_principal {
56 my ($msg, $msg_hash, $session_id) = @_;
57 $msg =~ s/gosa_krb5/krb5/g;
58 return ( $msg );
59 }
62 sub krb5_list_policies {
63 my ($msg, $msg_hash, $session_id) = @_;
64 $msg =~ s/gosa_krb5/krb5/g;
65 return ( $msg );
66 }
69 sub krb5_get_policy {
70 my ($msg, $msg_hash, $session_id) = @_;
71 $msg =~ s/gosa_krb5/krb5/g;
72 return ( $msg );
73 }
76 sub krb5_set_policy {
77 my ($msg, $msg_hash, $session_id) = @_;
78 $msg =~ s/gosa_krb5/krb5/g;
79 return ( $msg );
80 }
83 sub krb5_del_policy {
84 my ($msg, $msg_hash, $session_id) = @_;
85 $msg =~ s/gosa_krb5/krb5/g;
86 return ( $msg );
87 }
89 sub answer_krb5_list_principals {
90 my ($msg, $msg_hash, $session_id) = @_ ;
91 $msg =~ s/<target>\S+<\/target>/<target>GOSA<\/target>/g;
92 return ($msg);
93 }
95 1;