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

use blib '../blib/';
use Time::localtime;
use AFS::KTC_TOKEN;
use AFS::KTC_PRINCIPAL;
use AFS::KTC_EKEY;

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

my $admn = shift;

my $admin = AFS::KTC_PRINCIPAL->new($admn);
my $key  = AFS::KTC_EKEY->ReadPassword('admin Password:');

my $reason = '';
my $token = AFS::KTC_TOKEN->GetAdminToken($admin, $key, 330, 1, $reason);
print "AFS::CODE = $AFS::CODE (", $AFS::CODE+0,")\n";
if ($reason) { print "reason = $reason\n"; }

print "  StartTime = ", ctime($token->startTime), "\n";
print "  EndTime   = ", ctime($token->endTime), "\n";
