gosa-si/server/events/kerberos.pm

   1 package kerberos;
   2 use Exporter;
   3 @ISA = qw(Exporter);
   4 my @events = (
   5     "get_events",
   6     "krb5_list_principals",
   7     "krb5_list_policies",
   8     "krb5_get_principal",
   9     "krb5_set_principal",
  10     "krb5_del_principal",
  11     "krb5_get_policy",
  12     "krb5_set_policy",
  13     "krb5_del_policy",
  14     "answer_krb5_list_principals",
  15    );
  16 @EXPORT = @events;
  17
  18 use strict;
  19 use warnings;
  20 use GOSA::GosaSupportDaemon;
  21
  22
  23 BEGIN {}
  24
  25 END {}
  26
  27 ### Start ######################################################################
  28
  29 sub get_events {
  30     return \@events;
  31 }
  32
  33
  34 sub krb5_list_principals {
  35         my ($msg, $msg_hash, $session_id) = @_;
  36         $msg =~ s/gosa_krb5/krb5/g;
  37         return ( $msg );
  38 }
  39
  40
  41 sub krb5_set_principal {
  42         my ($msg, $msg_hash, $session_id) = @_;
  43         $msg =~ s/gosa_krb5/krb5/g;
  44         return ( $msg );
  45 }
  46
  47
  48 sub krb5_get_principal {
  49         my ($msg, $msg_hash, $session_id) = @_;
  50         $msg =~ s/gosa_krb5/krb5/g;
  51         return ( $msg );
  52 }
  53
  54
  55 sub krb5_del_principal {
  56         my ($msg, $msg_hash, $session_id) = @_;
  57         $msg =~ s/gosa_krb5/krb5/g;
  58         return ( $msg );
  59 }
  60
  61
  62 sub krb5_list_policies {
  63         my ($msg, $msg_hash, $session_id) = @_;
  64         $msg =~ s/gosa_krb5/krb5/g;
  65         return ( $msg );
  66 }
  67
  68
  69 sub krb5_get_policy {
  70         my ($msg, $msg_hash, $session_id) = @_;
  71         $msg =~ s/gosa_krb5/krb5/g;
  72         return ( $msg );
  73 }
  74
  75
  76 sub krb5_set_policy {
  77         my ($msg, $msg_hash, $session_id) = @_;
  78         $msg =~ s/gosa_krb5/krb5/g;
  79         return ( $msg );
  80 }
  81
  82
  83 sub krb5_del_policy {
  84         my ($msg, $msg_hash, $session_id) = @_;
  85         $msg =~ s/gosa_krb5/krb5/g;
  86         return ( $msg );
  87 }
  88
  89 sub answer_krb5_list_principals {
  90     my ($msg, $msg_hash, $session_id) = @_ ;
  91     $msg =~ s/<target>\S+<\/target>/<target>GOSA<\/target>/g;
  92     return ($msg);
  93 }
  94
  95 1;