From 651af4a301f28f59b7174fc381c01258bdbeebff Mon Sep 17 00:00:00 2001
From: joerg <joerg@FreeBSD.org>
Date: Fri, 26 Apr 1996 21:35:11 +0000
Subject: Implement keyinfo(1) as a setuid Perl script, so /etc/skeykeys can be
 made mode 0600.

Pointed out by: kieber@sax.de (Ulf Kieber)
Reviewed by:	pst
---
 usr.bin/keyinfo/keyinfo.pl | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)
 create mode 100644 usr.bin/keyinfo/keyinfo.pl

(limited to 'usr.bin/keyinfo/keyinfo.pl')

diff --git a/usr.bin/keyinfo/keyinfo.pl b/usr.bin/keyinfo/keyinfo.pl
new file mode 100644
index 0000000..260a724
--- /dev/null
+++ b/usr.bin/keyinfo/keyinfo.pl
@@ -0,0 +1,27 @@
+#!/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;
+
-- 
cgit v1.1