From 53fd97918c2a7085a98dbd7b630010378cc2a1ec Mon Sep 17 00:00:00 2001
From: cajus <cajus@594d385d-05f5-0310-b6e9-bd551577e9d8>
Date: Wed, 23 Apr 2008 14:42:51 +0000
Subject: [PATCH] Added additional functions

git-svn-id: https://oss.gonicus.de/repositories/gosa/trunk@10660 594d385d-05f5-0310-b6e9-bd551577e9d8
---
 gosa-si/server/events/krb5.pm | 29 +++++++++++++++++++++++------
 1 file changed, 23 insertions(+), 6 deletions(-)

diff --git a/gosa-si/server/events/krb5.pm b/gosa-si/server/events/krb5.pm
index 629a2afb7..37a4f922a 100644
--- a/gosa-si/server/events/krb5.pm
+++ b/gosa-si/server/events/krb5.pm
@@ -6,18 +6,23 @@ my @events = (
     "krb5_list_principals",
     "krb5_list_policies",
     "krb5_get_principal",
-    "krb5_set_principal",
+    "krb5_create_principal",
+    "krb5_modify_principal",
+    "krb5_set_password",
     "krb5_del_principal",
     "krb5_get_policy",
-    "krb5_set_policy",
+    "krb5_create_policy",
+    "krb5_modify_policy",
     "krb5_del_policy",
     "answer_krb5_list_principals",
     "answer_krb5_list_policies",
     "answer_krb5_get_principal",
-    "answer_krb5_set_principal",
+    "answer_krb5_create_principal",
+    "answer_krb5_modify_principal",
     "answer_krb5_del_principal",
     "answer_krb5_get_policy",
-    "answer_krb5_set_policy",
+    "answer_krb5_create_policy",
+    "answer_krb5_modify_policy",
     "answer_krb5_del_policy",
    );
 @EXPORT = @events;
@@ -119,7 +124,13 @@ sub answer_krb5_get_principal {
     return ($msg);
 }
 
-sub answer_krb5_set_principal {
+sub answer_krb5_create_principal {
+    my ($msg, $msg_hash, $session_id) = @_ ;
+    $msg =~ s/<target>\S+<\/target>/<target>GOSA<\/target>/g;
+    return ($msg);
+}
+
+sub answer_krb5_modify_principal {
     my ($msg, $msg_hash, $session_id) = @_ ;
     $msg =~ s/<target>\S+<\/target>/<target>GOSA<\/target>/g;
     return ($msg);
@@ -143,7 +154,13 @@ sub answer_krb5_get_policy {
     return ($msg);
 }
 
-sub answer_krb5_set_policy {
+sub answer_krb5_create_policy {
+    my ($msg, $msg_hash, $session_id) = @_ ;
+    $msg =~ s/<target>\S+<\/target>/<target>GOSA<\/target>/g;
+    return ($msg);
+}
+
+sub answer_krb5_modify_policy {
     my ($msg, $msg_hash, $session_id) = @_ ;
     $msg =~ s/<target>\S+<\/target>/<target>GOSA<\/target>/g;
     return ($msg);
-- 
2.30.2