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_create_principal {
  49         my ($msg, $msg_hash, $session_id) = @_;
  50         $msg =~ s/gosa_krb5/krb5/g;
  51         return ( $msg );
  52 }
  53
  54
  55 sub krb5_modify_principal {
  56         my ($msg, $msg_hash, $session_id) = @_;
  57         $msg =~ s/gosa_krb5/krb5/g;
  58         return ( $msg );
  59 }
  60
  61
  62 sub krb5_get_principal {
  63         my ($msg, $msg_hash, $session_id) = @_;
  64         $msg =~ s/gosa_krb5/krb5/g;
  65         return ( $msg );
  66 }
  67
  68
  69 sub krb5_del_principal {
  70         my ($msg, $msg_hash, $session_id) = @_;
  71         $msg =~ s/gosa_krb5/krb5/g;
  72         return ( $msg );
  73 }
  74
  75
  76 sub krb5_list_policies {
  77         my ($msg, $msg_hash, $session_id) = @_;
  78         $msg =~ s/gosa_krb5/krb5/g;
  79         return ( $msg );
  80 }
  81
  82
  83 sub krb5_get_policy {
  84         my ($msg, $msg_hash, $session_id) = @_;
  85         $msg =~ s/gosa_krb5/krb5/g;
  86         return ( $msg );
  87 }
  88
  89
  90 sub krb5_create_policy {
  91         my ($msg, $msg_hash, $session_id) = @_;
  92         $msg =~ s/gosa_krb5/krb5/g;
  93         return ( $msg );
  94 }
  95
  96
  97 sub krb5_modify_policy {
  98         my ($msg, $msg_hash, $session_id) = @_;
  99         $msg =~ s/gosa_krb5/krb5/g;
 100         return ( $msg );
 101 }
 102
 103
 104 sub krb5_del_policy {
 105         my ($msg, $msg_hash, $session_id) = @_;
 106         $msg =~ s/gosa_krb5/krb5/g;
 107         return ( $msg );
 108 }
 109
 110 sub answer_krb5_list_principals {
 111     my ($msg, $msg_hash, $session_id) = @_ ;
 112     $msg =~ s/<target>\S+<\/target>/<target>GOSA<\/target>/g;
 113     return ($msg);
 114 }
 115
 116 sub answer_krb5_get_principal {
 117     my ($msg, $msg_hash, $session_id) = @_ ;
 118     $msg =~ s/<target>\S+<\/target>/<target>GOSA<\/target>/g;
 119     return ($msg);
 120 }
 121
 122 sub answer_krb5_set_principal {
 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_del_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_list_policies {
 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_get_policy {
 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_set_policy {
 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_del_policy {
 153     my ($msg, $msg_hash, $session_id) = @_ ;
 154     $msg =~ s/<target>\S+<\/target>/<target>GOSA<\/target>/g;
 155     return ($msg);
 156 }
 157
 158 1;