sub KERB_del_principal {
my ( $kadm5, $uid ) = @_;
# get valid kerb5 principal from uid
my $krb5_princ = Authen::Krb5::parse_name($uid)
# if principal exists, blast it away!
if ( $kadm5-get_principal($krb5_princ) ) {
$kadm5-delete_principal(
Hello,
Do you have example to manage kerberos db using perl
I create a simple test script :
$handle =
Authen::Krb5::Admin-init_with_password($ADMINPRINC,$adminpass);
$kp=Authen::krb5::get_default_realm();
print $kp;
but I received :
Undefined subroutine Authen::krb5::get_default_realm
I'd like
In regard to: authen::krb5::admin : create principal, FM said (at 2:56pm on...:
$handle = Authen::Krb5::Admin-init_with_password($ADMINPRINC,$adminpass);
$kp=Authen::krb5::get_default_realm();
print $kp;
but I received :
Undefined subroutine Authen::krb5::get_default_realm
Perhaps if you called
Thank you !
Base on you script, I'll try to create a KERB_del_principal and a
KERB_update_password subs
reg,
Jason T Hardy wrote:
This is a simple adduser script that authenticates the admin principal
with a keytab. You should search CPAN for Krb5:Admin; there are plenty
of useful examples