#!/usr/local/bin/perl

use blib;
use strict;
use warnings;

use AFS::KTC_TOKEN;
use AFS::KTC_PRINCIPAL;
use AFS::KTC_EKEY;

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

my $user = shift;

my $princ = AFS::KTC_PRINCIPAL->new($user);
my $key = AFS::KTC_EKEY->ReadPassword("$user Password:");
my $pw = 0;
my $ok = AFS::KTC_TOKEN->GetAuthToken($princ, $key, 300, $pw);
print "ok = $ok  pwexpire = $pw\n";