Perl kadmin interface

[Jason T Hardy]

Paul,

Thanks! Your code give me the proper nudge. It's working now.

Jason

On Fri, 2004-08-27 at 09:42, Paul M Fleming wrote:
> a create example:
> 
> 	$userid is the userid to create "jsmith"
> 
> 	$handle =
> Authen::Krb5::Admin->init_with_password("$ADMINPRINC",$adminpass);
>         $kp = Authen::Krb5::parse_name($userid) or warn
> Authen::Krb5::error;
>         $kap = Authen::Krb5::Admin::Principal->new or warn
> Authen::Krb5::error;
>         $kap->principal($kp) or warn Authen::Krb5::error;
>         $kap->policy("default") or warn Authen::Krb5::error;
>         $kap->pw_expiration(time()+$INITIAL_PASSWORD_LIFETIME);
>         $kap->mask & KADM5_PW_EXPIRATION;
> 	$handle->create_principal($kap,$pass);
> 
> 
> David Botsch wrote:
> > 
> > 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 at mit.edu
> > > https://mailman.mit.edu/mailman/listinfo/kerberos
> > >
> > 
> > --
> > ********************************
> > David William Botsch
> > Consultant/Advisor II
> > CCMR Computing Facility
> > dwb7 at ccmr.cornell.edu
> > ********************************
> > ________________________________________________
> > Kerberos mailing list           Kerberos at mit.edu
> > https://mailman.mit.edu/mailman/listinfo/kerberos
-- 
Jason T Hardy
Unix Systems Administrator
Office of Information Technology
University of Texas at Arlington
Ph: 817 272-2208
Fx: 817 272-5796

http://www.uta.edu/linux/
 
To request technical support, please contact our computing Help Desk at
817-272-2208, e-mail helpdesk at uta.edu or create a work order at
https://eservices.uta.edu/oitforms/workorder.html