gosa-si/server/events/krb5.pm

   1 package krb5;
   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     "answer_krb5_list_policies",
  16     "answer_krb5_get_principal",
  17     "answer_krb5_set_principal",
  18     "answer_krb5_del_principal",
  19     "answer_krb5_get_policy",
  20     "answer_krb5_set_policy",
  21     "answer_krb5_del_policy",
  22    );
  23 @EXPORT = @events;
  24
  25 use strict;
  26 use warnings;
  27 use GOSA::GosaSupportDaemon;
  28
  29
  30 BEGIN {}
  31
  32 END {}
  33
  34 ### Start ######################################################################
  35
  36 sub get_events {
  37     return \@events;
  38 }
  39
  40
  41 sub krb5_list_principals {
  42         my ($msg, $msg_hash, $session_id) = @_;
  43         $msg =~ s/gosa_krb5/krb5/g;
  44         return ( $msg );
  45 }
  46
  47
  48 sub krb5_set_principal {
  49         my ($msg, $msg_hash, $session_id) = @_;
  50         $msg =~ s/gosa_krb5/krb5/g;
  51         return ( $msg );
  52 }
  53
  54
  55 sub krb5_get_principal {
  56         my ($msg, $msg_hash, $session_id) = @_;
  57         $msg =~ s/gosa_krb5/krb5/g;
  58         return ( $msg );
  59 }
  60
  61
  62 sub krb5_del_principal {
  63         my ($msg, $msg_hash, $session_id) = @_;
  64         $msg =~ s/gosa_krb5/krb5/g;
  65         return ( $msg );
  66 }
  67
  68
  69 sub krb5_list_policies {
  70         my ($msg, $msg_hash, $session_id) = @_;
  71         $msg =~ s/gosa_krb5/krb5/g;
  72         return ( $msg );
  73 }
  74
  75
  76 sub krb5_get_policy {
  77         my ($msg, $msg_hash, $session_id) = @_;
  78         $msg =~ s/gosa_krb5/krb5/g;
  79         return ( $msg );
  80 }
  81
  82
  83 sub krb5_set_policy {
  84         my ($msg, $msg_hash, $session_id) = @_;
  85         $msg =~ s/gosa_krb5/krb5/g;
  86         return ( $msg );
  87 }
  88
  89
  90 sub krb5_del_policy {
  91         my ($msg, $msg_hash, $session_id) = @_;
  92         $msg =~ s/gosa_krb5/krb5/g;
  93         return ( $msg );
  94 }
  95
  96 sub answer_krb5_list_principals {
  97     my ($msg, $msg_hash, $session_id) = @_ ;
  98     $msg =~ s/<target>\S+<\/target>/<target>GOSA<\/target>/g;
  99     return ($msg);
 100 }
 101
 102 sub answer_krb5_get_principal {
 103     my ($msg, $msg_hash, $session_id) = @_ ;
 104     $msg =~ s/<target>\S+<\/target>/<target>GOSA<\/target>/g;
 105     return ($msg);
 106 }
 107
 108 sub answer_krb5_set_principal {
 109     my ($msg, $msg_hash, $session_id) = @_ ;
 110     $msg =~ s/<target>\S+<\/target>/<target>GOSA<\/target>/g;
 111     return ($msg);
 112 }
 113
 114 sub answer_krb5_del_principal {
 115     my ($msg, $msg_hash, $session_id) = @_ ;
 116     $msg =~ s/<target>\S+<\/target>/<target>GOSA<\/target>/g;
 117     return ($msg);
 118 }
 119
 120 sub answer_krb5_list_policies {
 121     my ($msg, $msg_hash, $session_id) = @_ ;
 122     $msg =~ s/<target>\S+<\/target>/<target>GOSA<\/target>/g;
 123     return ($msg);
 124 }
 125
 126 sub answer_krb5_get_policy {
 127     my ($msg, $msg_hash, $session_id) = @_ ;
 128     $msg =~ s/<target>\S+<\/target>/<target>GOSA<\/target>/g;
 129     return ($msg);
 130 }
 131
 132 sub answer_krb5_set_policy {
 133     my ($msg, $msg_hash, $session_id) = @_ ;
 134     $msg =~ s/<target>\S+<\/target>/<target>GOSA<\/target>/g;
 135     return ($msg);
 136 }
 137
 138 sub answer_krb5_del_policy {
 139     my ($msg, $msg_hash, $session_id) = @_ ;
 140     $msg =~ s/<target>\S+<\/target>/<target>GOSA<\/target>/g;
 141     return ($msg);
 142 }
 143
 144 1;