update kerberos modules for client and server

git-svn-id: https://oss.gonicus.de/repositories/gosa/trunk@10633 594d385d-05f5-0310-b6e9-bd551577e9d8

diff --git a/gosa-si/client/events/kerberos.pm b/gosa-si/client/events/kerberos.pm
index 82078ed272c5764d63de6e603a714fa217c5b9c1..81d9193f0324d457a22ab6326a591fe735103584 100644 (file)
--- a/gosa-si/client/events/kerberos.pm
+++ b/gosa-si/client/events/kerberos.pm
@@ -3,7 +3,15 @@ use Exporter;
 @ISA = qw(Exporter);
 my @events = (
     "get_events",
-    "krb5_list_principals",
+    "krb5_list_principals",  
+    "krb5_list_policies",
+    "krb5_get_principal",
+    "krb5_set_principal",
+    "krb5_del_principal",
+    "krb5_get_policy",
+    "krb5_set_policy",
+    "krb5_del_policy",
+
     );
 @EXPORT = @events;
 
@@ -30,11 +38,139 @@ sub krb5_list_principals {
     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');
+    &add_content2xml_hash($out_hash, "principal", 'pollmeier@GONICUS.DE');
+    &add_content2xml_hash($out_hash, "principal", 'hickert@GONICUS.DE');
+    my $out_msg = &create_xml_string($out_hash);
+
+    # return message
+    return $out_msg;
+
+}
+
+
+sub krb5_set_principal {
+    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];
+
+    # build return message with twisted target and source
+    my $out_hash = &main::create_xml_hash("answer_krb5_list_principals", $target, $source);
+    my $out_msg = &create_xml_string($out_hash);
+
+    # return message
+    return $out_msg;
+
+
+}
+
+
+sub krb5_get_principal {
+    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];
+
+    # build return message with twisted target and source
+    my $out_hash = &main::create_xml_hash("answer_krb5_list_principals", $target, $source);
+    my $out_msg = &create_xml_string($out_hash);
+
+    # return message
+    return $out_msg;
+
+
+}
+
+
+sub krb5_del_principal {
+    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];
+
+    # build return message with twisted target and source
+    my $out_hash = &main::create_xml_hash("answer_krb5_list_principals", $target, $source);
+    my $out_msg = &create_xml_string($out_hash);
+
+    # return message
+    return $out_msg;
+
+
+}
+
+
+sub krb5_list_policies {
+    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];
+
+    # build return message with twisted target and source
+    my $out_hash = &main::create_xml_hash("answer_krb5_list_principals", $target, $source);
+    my $out_msg = &create_xml_string($out_hash);
+
+    # return message
+    return $out_msg;
+
+
+}
+
+
+sub krb5_get_policy {
+    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];
+
+    # build return message with twisted target and source
+    my $out_hash = &main::create_xml_hash("answer_krb5_list_principals", $target, $source);
+    my $out_msg = &create_xml_string($out_hash);
+
+    # return message
+    return $out_msg;
+
+
+}
+
+
+sub krb5_set_policy {
+    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];
+
+    # build return message with twisted target and source
+    my $out_hash = &main::create_xml_hash("answer_krb5_list_principals", $target, $source);
     my $out_msg = &create_xml_string($out_hash);
 
+    # return message
     return $out_msg;
 
+
 }
 
 
+sub krb5_del_policy {
+    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];
+
+    # build return message with twisted target and source
+    my $out_hash = &main::create_xml_hash("answer_krb5_list_principals", $target, $source);
+    my $out_msg = &create_xml_string($out_hash);
+
+    # return message
+    return $out_msg;
+
+
+}
+
 1;

diff --git a/gosa-si/server/events/kerberos.pm b/gosa-si/server/events/kerberos.pm
index 0311e261e37b77ec1a313aec019460929d959adb..c1f4847e937a22fe007ba841c3a95ce98328e9cb 100644 (file)
--- a/gosa-si/server/events/kerberos.pm
+++ b/gosa-si/server/events/kerberos.pm
@@ -30,7 +30,7 @@ sub get_events {
     return \@events;
 }
 
-
+    
 sub krb5_list_principals {
         my ($msg, $msg_hash, $session_id) = @_;
         $msg =~ s/gosa_krb5/krb5/g;