From: cajus <cajus@594d385d-05f5-0310-b6e9-bd551577e9d8>
Date: Wed, 23 Apr 2008 07:40:06 +0000 (+0000)
Subject: * Renamed module
X-Git-Url: https://git.tokkee.org/?a=commitdiff_plain;h=9e2988b9d03c37e9366f5285d71282ecb242d744;p=gosa.git

* Renamed module
* Added stubs


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

diff --git a/gosa-si/client/events/kerberos.pm b/gosa-si/client/events/kerberos.pm
deleted file mode 100644
index 81d9193f0..000000000
--- a/gosa-si/client/events/kerberos.pm
+++ /dev/null
@@ -1,176 +0,0 @@
-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",
-
-    );
-@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');
-    &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/client/events/krb5.pm b/gosa-si/client/events/krb5.pm
new file mode 100644
index 000000000..0ef19fbdd
--- /dev/null
+++ b/gosa-si/client/events/krb5.pm
@@ -0,0 +1,176 @@
+package krb5;
+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",
+
+    );
+@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');
+    &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
deleted file mode 100644
index c1f4847e9..000000000
--- a/gosa-si/server/events/kerberos.pm
+++ /dev/null
@@ -1,95 +0,0 @@
-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;
diff --git a/gosa-si/server/events/krb5.pm b/gosa-si/server/events/krb5.pm
new file mode 100644
index 000000000..161cb35a4
--- /dev/null
+++ b/gosa-si/server/events/krb5.pm
@@ -0,0 +1,144 @@
+package krb5;
+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",
+    "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;
+
+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);
+}
+
+sub answer_krb5_get_principal {
+    my ($msg, $msg_hash, $session_id) = @_ ;
+    $msg =~ s/<target>\S+<\/target>/<target>GOSA<\/target>/g;
+    return ($msg);
+}
+
+sub answer_krb5_set_principal {
+    my ($msg, $msg_hash, $session_id) = @_ ;
+    $msg =~ s/<target>\S+<\/target>/<target>GOSA<\/target>/g;
+    return ($msg);
+}
+
+sub answer_krb5_del_principal {
+    my ($msg, $msg_hash, $session_id) = @_ ;
+    $msg =~ s/<target>\S+<\/target>/<target>GOSA<\/target>/g;
+    return ($msg);
+}
+
+sub answer_krb5_list_policies {
+    my ($msg, $msg_hash, $session_id) = @_ ;
+    $msg =~ s/<target>\S+<\/target>/<target>GOSA<\/target>/g;
+    return ($msg);
+}
+
+sub answer_krb5_get_policy {
+    my ($msg, $msg_hash, $session_id) = @_ ;
+    $msg =~ s/<target>\S+<\/target>/<target>GOSA<\/target>/g;
+    return ($msg);
+}
+
+sub answer_krb5_set_policy {
+    my ($msg, $msg_hash, $session_id) = @_ ;
+    $msg =~ s/<target>\S+<\/target>/<target>GOSA<\/target>/g;
+    return ($msg);
+}
+
+sub answer_krb5_del_policy {
+    my ($msg, $msg_hash, $session_id) = @_ ;
+    $msg =~ s/<target>\S+<\/target>/<target>GOSA<\/target>/g;
+    return ($msg);
+}
+
+1;