view release on metacpan or  search on metacpan

examples/v2/kas/ChangePassword  view on Meta::CPAN

#!/usr/local/bin/perl

use blib;
use AFS::KAS;
use AFS::KTC_PRINCIPAL;
use AFS::KTC_TOKEN;
use AFS::KTC_EKEY;
use AFS::Cell qw(localcell);
use AFS qw(checkafs);

die "Usage: user \n" if ($#ARGV != 0);

my $user = AFS::KTC_PRINCIPAL->new(shift);
checkafs('principal new');
$user->cell(localcell) if ($user->cell eq '');
my $oldkey = AFS::KTC_EKEY->ReadPassword("Old Password:");
checkafs('Read old Passwd');
my $newkey = AFS::KTC_EKEY->ReadPassword("New Password:", 1, $user->cell);
checkafs('Read new Passwd');
my $token = AFS::KTC_TOKEN->GetAdminToken($user, $oldkey, 300);
checkafs('GetAdmintoken');
my $kas = AFS::KAS->AuthServerConn($token, &AFS::KA_MAINTENANCE_SERVICE);
checkafs('AuthServerConn');
my $rkey = $kas->randomkey;
my $ok = $kas->ChangePassword($user->name, $user->instance, $rkey, $newkey);
printf("Password changed: %s \n", $ok ? 'yes' : 'no');
checkafs('ChangePassword');