[5456] in Kerberos
RE: check passwords
daemon@ATHENA.MIT.EDU (Ken Grady)
Mon Jul 3 16:51:32 1995
Date: Mon, 03 Jul 1995 13:42:45 -0600 (MDT)
From: Ken Grady <GRADY_KENNETH@canyon.lanl.gov>
In-Reply-To: <HFALKEN.95Jun30134808@x4u2.desy.de>
To: kerberos@MIT.EDU, hfalken@x4u2.desy.de
X-Envelope-To: kerberos@mit.edu
How about running klist to check validity.
sub kerberos_needed{
$kcheck = "if (klist -t)then echo 1;else echo 0;fi";
$kstuff=`$kcheck`;
if ($kstuff == 0){
print "Kerberos tickets are not valid! Run kinit first.\n";
}
}
Granted klist may not be the "real" klist, so you need to add the path.
