freebsd-dev/usr.bin/keyinfo/keyinfo.pl
1997-02-22 19:58:13 +00:00

28 lines
436 B
Perl

#!/usr/bin/suidperl
#
# Search /etc/skeykeys for the skey string for this user OR user specified
# in 1st parameter.
#
# $Id$
#
die "usage: keyinfo [user]\n" unless $#ARGV < 1;
open(K, "/etc/skeykeys") || exit 1;
if ($#ARGV == 0) {
$user = $ARGV[0];
} else {
$user = (getpwuid($<))[0];
}
while (<K>) {
($id, $seq, $serial) = split;
if ($id eq $user) {
printf "%d %s\n", $seq - 1, $serial;
exit 0;
}
}
exit 1;