* gosa-si-server-nobus

[gosa.git] / gosa-si / server / events / krb5.pm

diff --git a/gosa-si/server/events/krb5.pm b/gosa-si/server/events/krb5.pm
index 161cb35a458a5498864adc753c6c6e562124bce1..a34847599ac4517768ed26cb0c9bf08ef8759e81 100644 (file)
--- a/gosa-si/server/events/krb5.pm
+++ b/gosa-si/server/events/krb5.pm
@@ -6,19 +6,25 @@ 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",
+    "answer_krb5_set_password",
    );
 @EXPORT = @events;
 
@@ -44,8 +50,21 @@ sub krb5_list_principals {
         return ( $msg );
 }
 
+sub krb5_set_password {
+        my ($msg, $msg_hash, $session_id) = @_;
+        $msg =~ s/gosa_krb5/krb5/g;
+        return ( $msg );
+}
+
+
+sub krb5_create_principal {
+        my ($msg, $msg_hash, $session_id) = @_;
+        $msg =~ s/gosa_krb5/krb5/g;
+        return ( $msg );
+}
 
-sub krb5_set_principal {
+
+sub krb5_modify_principal {
         my ($msg, $msg_hash, $session_id) = @_;
         $msg =~ s/gosa_krb5/krb5/g;
         return ( $msg );
@@ -80,7 +99,14 @@ sub krb5_get_policy {
 }
 
 
-sub krb5_set_policy {
+sub krb5_create_policy {
+        my ($msg, $msg_hash, $session_id) = @_;
+        $msg =~ s/gosa_krb5/krb5/g;
+        return ( $msg );
+}
+
+
+sub krb5_modify_policy {
         my ($msg, $msg_hash, $session_id) = @_;
         $msg =~ s/gosa_krb5/krb5/g;
         return ( $msg );
@@ -105,7 +131,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);
@@ -129,7 +161,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);
@@ -141,4 +179,10 @@ sub answer_krb5_del_policy {
     return ($msg);
 }
 
+sub answer_krb5_set_password {
+    my ($msg, $msg_hash, $session_id) = @_ ;
+    $msg =~ s/<target>\S+<\/target>/<target>GOSA<\/target>/g;
+    return ($msg);
+}
+
 1;