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_create_principal",
  10     "krb5_modify_principal",
  11     "krb5_set_password",
  12     "krb5_del_principal",
  13     "krb5_get_policy",
  14     "krb5_create_policy",
  15     "krb5_modify_policy",
  16     "krb5_del_policy",
  17     "answer_krb5_list_principals",
  18     "answer_krb5_list_policies",
  19     "answer_krb5_get_principal",
  20     "answer_krb5_create_principal",
  21     "answer_krb5_modify_principal",
  22     "answer_krb5_del_principal",
  23     "answer_krb5_get_policy",
  24     "answer_krb5_create_policy",
  25     "answer_krb5_modify_policy",
  26     "answer_krb5_del_policy",
  27     "answer_krb5_set_password",
  28    );
  29 @EXPORT = @events;
  30
  31 use strict;
  32 use warnings;
  33 use GOSA::GosaSupportDaemon;
  34
  35
  36 BEGIN {}
  37
  38 END {}
  39
  40 ### Start ######################################################################
  41
  42 sub get_events {
  43     return \@events;
  44 }
  45
  46
  47 sub krb5_list_principals {
  48         my ($msg, $msg_hash, $session_id) = @_;
  49         $msg =~ s/gosa_krb5/krb5/g;
  50         return ( $msg );
  51 }
  52
  53 sub krb5_set_password {
  54         my ($msg, $msg_hash, $session_id) = @_;
  55         $msg =~ s/gosa_krb5/krb5/g;
  56         return ( $msg );
  57 }
  58
  59
  60 sub krb5_create_principal {
  61         my ($msg, $msg_hash, $session_id) = @_;
  62         $msg =~ s/gosa_krb5/krb5/g;
  63         return ( $msg );
  64 }
  65
  66
  67 sub krb5_modify_principal {
  68         my ($msg, $msg_hash, $session_id) = @_;
  69         $msg =~ s/gosa_krb5/krb5/g;
  70         return ( $msg );
  71 }
  72
  73
  74 sub krb5_get_principal {
  75         my ($msg, $msg_hash, $session_id) = @_;
  76         $msg =~ s/gosa_krb5/krb5/g;
  77         return ( $msg );
  78 }
  79
  80
  81 sub krb5_del_principal {
  82         my ($msg, $msg_hash, $session_id) = @_;
  83         $msg =~ s/gosa_krb5/krb5/g;
  84         return ( $msg );
  85 }
  86
  87
  88 sub krb5_list_policies {
  89         my ($msg, $msg_hash, $session_id) = @_;
  90         $msg =~ s/gosa_krb5/krb5/g;
  91         return ( $msg );
  92 }
  93
  94
  95 sub krb5_get_policy {
  96         my ($msg, $msg_hash, $session_id) = @_;
  97         $msg =~ s/gosa_krb5/krb5/g;
  98         return ( $msg );
  99 }
 100
 101
 102 sub krb5_create_policy {
 103         my ($msg, $msg_hash, $session_id) = @_;
 104         $msg =~ s/gosa_krb5/krb5/g;
 105         return ( $msg );
 106 }
 107
 108
 109 sub krb5_modify_policy {
 110         my ($msg, $msg_hash, $session_id) = @_;
 111         $msg =~ s/gosa_krb5/krb5/g;
 112         return ( $msg );
 113 }
 114
 115
 116 sub krb5_del_policy {
 117         my ($msg, $msg_hash, $session_id) = @_;
 118         $msg =~ s/gosa_krb5/krb5/g;
 119         return ( $msg );
 120 }
 121
 122 sub answer_krb5_list_principals {
 123     my ($msg, $msg_hash, $session_id) = @_ ;
 124     $msg =~ s/<target>\S+<\/target>/<target>GOSA<\/target>/g;
 125     return ($msg);
 126 }
 127
 128 sub answer_krb5_get_principal {
 129     my ($msg, $msg_hash, $session_id) = @_ ;
 130     $msg =~ s/<target>\S+<\/target>/<target>GOSA<\/target>/g;
 131     return ($msg);
 132 }
 133
 134 sub answer_krb5_create_principal {
 135     my ($msg, $msg_hash, $session_id) = @_ ;
 136     $msg =~ s/<target>\S+<\/target>/<target>GOSA<\/target>/g;
 137     return ($msg);
 138 }
 139
 140 sub answer_krb5_modify_principal {
 141     my ($msg, $msg_hash, $session_id) = @_ ;
 142     $msg =~ s/<target>\S+<\/target>/<target>GOSA<\/target>/g;
 143     return ($msg);
 144 }
 145
 146 sub answer_krb5_del_principal {
 147     my ($msg, $msg_hash, $session_id) = @_ ;
 148     $msg =~ s/<target>\S+<\/target>/<target>GOSA<\/target>/g;
 149     return ($msg);
 150 }
 151
 152 sub answer_krb5_list_policies {
 153     my ($msg, $msg_hash, $session_id) = @_ ;
 154     $msg =~ s/<target>\S+<\/target>/<target>GOSA<\/target>/g;
 155     return ($msg);
 156 }
 157
 158 sub answer_krb5_get_policy {
 159     my ($msg, $msg_hash, $session_id) = @_ ;
 160     $msg =~ s/<target>\S+<\/target>/<target>GOSA<\/target>/g;
 161     return ($msg);
 162 }
 163
 164 sub answer_krb5_create_policy {
 165     my ($msg, $msg_hash, $session_id) = @_ ;
 166     $msg =~ s/<target>\S+<\/target>/<target>GOSA<\/target>/g;
 167     return ($msg);
 168 }
 169
 170 sub answer_krb5_modify_policy {
 171     my ($msg, $msg_hash, $session_id) = @_ ;
 172     $msg =~ s/<target>\S+<\/target>/<target>GOSA<\/target>/g;
 173     return ($msg);
 174 }
 175
 176 sub answer_krb5_del_policy {
 177     my ($msg, $msg_hash, $session_id) = @_ ;
 178     $msg =~ s/<target>\S+<\/target>/<target>GOSA<\/target>/g;
 179     return ($msg);
 180 }
 181
 182 sub answer_krb5_set_password {
 183     my ($msg, $msg_hash, $session_id) = @_ ;
 184     $msg =~ s/<target>\S+<\/target>/<target>GOSA<\/target>/g;
 185     return ($msg);
 186 }
 187
 188 1;