From a0dace285b69f2bd2498f92054635595ac2672ac Mon Sep 17 00:00:00 2001
From: rettenbe <rettenbe@594d385d-05f5-0310-b6e9-bd551577e9d8>
Date: Wed, 23 Apr 2008 07:23:27 +0000
Subject: [PATCH] new event modules for kerberos

git-svn-id: https://oss.gonicus.de/repositories/gosa/trunk@10627 594d385d-05f5-0310-b6e9-bd551577e9d8
---
 gosa-si/client/events/kerberos.pm | 40 +++++++++++++
 gosa-si/server/events/kerberos.pm | 95 +++++++++++++++++++++++++++++++
 2 files changed, 135 insertions(+)
 create mode 100644 gosa-si/client/events/kerberos.pm
 create mode 100644 gosa-si/server/events/kerberos.pm

diff --git a/gosa-si/client/events/kerberos.pm b/gosa-si/client/events/kerberos.pm
new file mode 100644
index 000000000..82078ed27
--- /dev/null
+++ b/gosa-si/client/events/kerberos.pm
@@ -0,0 +1,40 @@
+package kerberos;
+use Exporter;
+@ISA = qw(Exporter);
+my @events = (
+    "get_events",
+    "krb5_list_principals",
+    );
+@EXPORT = @events;
+
+use strict;
+use warnings;
+use GOSA::GosaSupportDaemon;
+
+BEGIN {}
+
+END {}
+sub get_events { return \@events; }
+
+
+sub krb5_list_principals {
+    my ($msg, $msg_hash) = @_;
+    my $header = @{$msg_hash->{'header'}}[0];
+    my $source = @{$msg_hash->{'source'}}[0];
+    my $target = @{$msg_hash->{'target'}}[0];
+    my $session_id = @{$msg_hash->{'session_id'}}[0];
+
+    # do now whatever kerb5_list_pricipals has to do 
+    
+    # build return message with twisted target and source
+    my $out_hash = &main::create_xml_hash("answer_krb5_list_principals", $target, $source);
+    &add_content2xml_hash($out_hash, "session_id", $session_id);
+    &add_content2xml_hash($out_hash, "principal", 'rettenberger@GONICUS.DE');
+    my $out_msg = &create_xml_string($out_hash);
+
+    return $out_msg;
+
+}
+
+
+1;
diff --git a/gosa-si/server/events/kerberos.pm b/gosa-si/server/events/kerberos.pm
new file mode 100644
index 000000000..0311e261e
--- /dev/null
+++ b/gosa-si/server/events/kerberos.pm
@@ -0,0 +1,95 @@
+package kerberos;
+use Exporter;
+@ISA = qw(Exporter);
+my @events = (
+    "get_events",
+    "krb5_list_principals",
+    "krb5_list_policies",
+    "krb5_get_principal",
+    "krb5_set_principal",
+    "krb5_del_principal",
+    "krb5_get_policy",
+    "krb5_set_policy",
+    "krb5_del_policy",
+    "answer_krb5_list_principals",
+   );
+@EXPORT = @events;
+
+use strict;
+use warnings;
+use GOSA::GosaSupportDaemon;
+
+
+BEGIN {}
+
+END {}
+
+### Start ######################################################################
+
+sub get_events {
+    return \@events;
+}
+
+
+sub krb5_list_principals {
+        my ($msg, $msg_hash, $session_id) = @_;
+        $msg =~ s/gosa_krb5/krb5/g;
+        return ( $msg );
+}
+
+
+sub krb5_set_principal {
+        my ($msg, $msg_hash, $session_id) = @_;
+        $msg =~ s/gosa_krb5/krb5/g;
+        return ( $msg );
+}
+
+
+sub krb5_get_principal {
+        my ($msg, $msg_hash, $session_id) = @_;
+        $msg =~ s/gosa_krb5/krb5/g;
+        return ( $msg );
+}
+
+
+sub krb5_del_principal {
+        my ($msg, $msg_hash, $session_id) = @_;
+        $msg =~ s/gosa_krb5/krb5/g;
+        return ( $msg );
+}
+
+
+sub krb5_list_policies {
+        my ($msg, $msg_hash, $session_id) = @_;
+        $msg =~ s/gosa_krb5/krb5/g;
+        return ( $msg );
+}
+
+
+sub krb5_get_policy {
+        my ($msg, $msg_hash, $session_id) = @_;
+        $msg =~ s/gosa_krb5/krb5/g;
+        return ( $msg );
+}
+
+
+sub krb5_set_policy {
+        my ($msg, $msg_hash, $session_id) = @_;
+        $msg =~ s/gosa_krb5/krb5/g;
+        return ( $msg );
+}
+
+
+sub krb5_del_policy {
+        my ($msg, $msg_hash, $session_id) = @_;
+        $msg =~ s/gosa_krb5/krb5/g;
+        return ( $msg );
+}
+
+sub answer_krb5_list_principals {
+    my ($msg, $msg_hash, $session_id) = @_ ;
+    $msg =~ s/<target>\S+<\/target>/<target>GOSA<\/target>/g;
+    return ($msg);
+}
+
+1;
-- 
2.30.2