From 9e2988b9d03c37e9366f5285d71282ecb242d744 Mon Sep 17 00:00:00 2001 From: cajus Date: Wed, 23 Apr 2008 07:40:06 +0000 Subject: [PATCH] * Renamed module * Added stubs git-svn-id: https://oss.gonicus.de/repositories/gosa/trunk@10634 594d385d-05f5-0310-b6e9-bd551577e9d8 --- .../client/events/{kerberos.pm => krb5.pm} | 2 +- .../server/events/{kerberos.pm => krb5.pm} | 51 ++++++++++++++++++- 2 files changed, 51 insertions(+), 2 deletions(-) rename gosa-si/client/events/{kerberos.pm => krb5.pm} (99%) rename gosa-si/server/events/{kerberos.pm => krb5.pm} (57%) diff --git a/gosa-si/client/events/kerberos.pm b/gosa-si/client/events/krb5.pm similarity index 99% rename from gosa-si/client/events/kerberos.pm rename to gosa-si/client/events/krb5.pm index 81d9193f0..0ef19fbdd 100644 --- a/gosa-si/client/events/kerberos.pm +++ b/gosa-si/client/events/krb5.pm @@ -1,4 +1,4 @@ -package kerberos; +package krb5; use Exporter; @ISA = qw(Exporter); my @events = ( diff --git a/gosa-si/server/events/kerberos.pm b/gosa-si/server/events/krb5.pm similarity index 57% rename from gosa-si/server/events/kerberos.pm rename to gosa-si/server/events/krb5.pm index c1f4847e9..161cb35a4 100644 --- a/gosa-si/server/events/kerberos.pm +++ b/gosa-si/server/events/krb5.pm @@ -1,4 +1,4 @@ -package kerberos; +package krb5; use Exporter; @ISA = qw(Exporter); my @events = ( @@ -12,6 +12,13 @@ my @events = ( "krb5_set_policy", "krb5_del_policy", "answer_krb5_list_principals", + "answer_krb5_list_policies", + "answer_krb5_get_principal", + "answer_krb5_set_principal", + "answer_krb5_del_principal", + "answer_krb5_get_policy", + "answer_krb5_set_policy", + "answer_krb5_del_policy", ); @EXPORT = @events; @@ -92,4 +99,46 @@ sub answer_krb5_list_principals { return ($msg); } +sub answer_krb5_get_principal { + my ($msg, $msg_hash, $session_id) = @_ ; + $msg =~ s/\S+<\/target>/GOSA<\/target>/g; + return ($msg); +} + +sub answer_krb5_set_principal { + my ($msg, $msg_hash, $session_id) = @_ ; + $msg =~ s/\S+<\/target>/GOSA<\/target>/g; + return ($msg); +} + +sub answer_krb5_del_principal { + my ($msg, $msg_hash, $session_id) = @_ ; + $msg =~ s/\S+<\/target>/GOSA<\/target>/g; + return ($msg); +} + +sub answer_krb5_list_policies { + my ($msg, $msg_hash, $session_id) = @_ ; + $msg =~ s/\S+<\/target>/GOSA<\/target>/g; + return ($msg); +} + +sub answer_krb5_get_policy { + my ($msg, $msg_hash, $session_id) = @_ ; + $msg =~ s/\S+<\/target>/GOSA<\/target>/g; + return ($msg); +} + +sub answer_krb5_set_policy { + my ($msg, $msg_hash, $session_id) = @_ ; + $msg =~ s/\S+<\/target>/GOSA<\/target>/g; + return ($msg); +} + +sub answer_krb5_del_policy { + my ($msg, $msg_hash, $session_id) = @_ ; + $msg =~ s/\S+<\/target>/GOSA<\/target>/g; + return ($msg); +} + 1; -- 2.30.2