#!/usr/local/bin/perl

use blib;
use strict;
use warnings;

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";