From b53d8f88b9e083af86f512bdd90294f603d93454 Mon Sep 17 00:00:00 2001
From: Assar Westerlund <assar@sics.se>
Date: Sat, 13 Mar 1999 21:18:55 +0000
Subject: [PATCH] (kerberos4_is): syslog root logins

git-svn-id: svn://svn.h5l.se/heimdal/trunk/heimdal@5531 ec53bebd-3082-4978-b11e-865c3cabbd6b
---
 appl/telnet/libtelnet/kerberos.c | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/appl/telnet/libtelnet/kerberos.c b/appl/telnet/libtelnet/kerberos.c
index a41835b9c..36b1b38ce 100644
--- a/appl/telnet/libtelnet/kerberos.c
+++ b/appl/telnet/libtelnet/kerberos.c
@@ -332,6 +332,14 @@ kerberos4_is(Authenticator *ap, unsigned char *data, int cnt)
 			 TKT_ROOT,
 			 (unsigned)pw->pw_uid);
 		setenv("KRBTKFILE", ts, 1);
+
+		if (pw->pw_uid == 0)
+		    syslog(LOG_INFO|LOG_AUTH,
+			   "ROOT Kerberos login from %s on %s\n",
+			   krb_unparse_name_long(adat.pname,
+						 adat.pinst,
+						 adat.prealm),
+			   RemoteHostName);
 	    }
 	    Data(ap, KRB_ACCEPT, NULL, 0);
 	} else {