#!/usr/local/bin/perl -w

use blib '../blib/';
use AFS::KAS;
use AFS::KTC_TOKEN;
use AFS::KTC_EKEY;
use AFS qw(checkafs);

my $kas = AFS::KAS->AuthServerConn(AFS::KTC_TOKEN->nulltoken, &AFS::KA_MAINTENANCE_SERVICE);
checkafs('AuthServerConn');
my $rkey = $kas->randomkey;
checkafs('randomkey');
print 'randomkey = ', $rkey->string, "\n";

$rkey = $kas->KAM_GetRandomKey;
checkafs('KAM_GetRandomKey');
print 'GetRandomKey = ', $rkey->string, "\n";
