* 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 37a4f922a87117d3c799b906aa99d8fb176de02e..a34847599ac4517768ed26cb0c9bf08ef8759e81 100644 (file)
--- a/gosa-si/server/events/krb5.pm
+++ b/gosa-si/server/events/krb5.pm
@@ -24,6 +24,7 @@ my @events = (
     "answer_krb5_create_policy",
     "answer_krb5_modify_policy",
     "answer_krb5_del_policy",
+    "answer_krb5_set_password",
    );
 @EXPORT = @events;
 
@@ -49,6 +50,12 @@ 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) = @_;
@@ -172,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;