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