[22292] in Kerberos
Re: Perl kadmin interface
daemon@ATHENA.MIT.EDU (David Botsch)
Fri Aug 27 10:22:35 2004
Date: Fri, 27 Aug 2004 10:18:01 -0400
From: David Botsch <dwb7@ccmr.cornell.edu>
To: Jason T Hardy <jthardy@uta.edu>
Message-ID: <20040827141801.GA29906@domino.ccmr.cornell.edu>
Mime-Version: 1.0
Content-Type: text/plain; format=flowed; charset=ISO-8859-1
Content-Disposition: inline
In-Reply-To: <1093577502.4836.8.camel@dionysus.uta.edu>;
from jthardy@uta.edu on Thu, Aug 26, 2004 at 23:32:06 -0400
cc: kerberos@mit.edu
Errors-To: kerberos-bounces@mit.edu
We are using it here to allow users to change their kerberos passwords
via the web:
# Initialization
my $krb5context = Authen::Krb5::init_context();
Authen::Krb5::init_ets();
# Authenticate
my $krb5princ = Authen::Krb5::parse_name($username); my $kadm5
= Authen::Krb5::Admin->init_with_password($username, $oldpw);
if (! defined($kadm5)) {
print "<p>Could not authenticate. Are you sure your Old
Password was cor
rect?</p>";
exit 0;
}
# Change pw
my $errorcode = $kadm5->chpass_principal($krb5princ, $newpw);
if ($errorcode != 1) {
print "<p><b><font color=red>Something went wrong, code
$errorcode</font
> </b></p>";
exit 0;
}
On 2004.08.26 23:32 Jason T Hardy wrote:
> I'm tinkering around with the Authen::Krb5::Admin Perl module but
> stumbling when creating/deleting principals. I may be totally off:
>
> ...
> $principal = Authen::Krb5::Admin::Principal::new($userName) or die
> Authen::Krb5::Admin::error;
> $statusmsg = $kadm5->create_principal($principal, $userPassword) or
> die Authen::Krb5::Admin::error;
> ...
>
> I've been unable to find any useful documentation on the Internet. Has
> anyone on this list had success using this module? I'd be happy to
> share
> my code when finished.
>
> Jason
> --
> Jason T Hardy
> Unix Systems Administrator
> Office of Information Technology
> University of Texas at Arlington
>
> http://www.uta.edu/linux/
>
> ________________________________________________
> Kerberos mailing list Kerberos@mit.edu
> https://mailman.mit.edu/mailman/listinfo/kerberos
>
--
********************************
David William Botsch
Consultant/Advisor II
CCMR Computing Facility
dwb7@ccmr.cornell.edu
********************************
________________________________________________
Kerberos mailing list Kerberos@mit.edu
https://mailman.mit.edu/mailman/listinfo/kerberos
