From 987b4843c22f4d3780eaf2cdbe963c0eb8f1826f Mon Sep 17 00:00:00 2001
From: Assar Westerlund <assar@sics.se>
Date: Sun, 24 Aug 1997 11:42:19 +0000
Subject: [PATCH] log poppers

git-svn-id: svn://svn.h5l.se/heimdal/trunk/heimdal@3126 ec53bebd-3082-4978-b11e-865c3cabbd6b
---
 appl/popper/pop_pass.c | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/appl/popper/pop_pass.c b/appl/popper/pop_pass.c
index d81c5d92e..1c4b2c7e4 100644
--- a/appl/popper/pop_pass.c
+++ b/appl/popper/pop_pass.c
@@ -128,15 +128,26 @@ pop_pass (POP *p)
 		return(pop_msg(p,POP_FAILURE,
 			       "Popping not authorized"));
 	    }
+	    pop_log(p, POP_INFO, "%s: %s.%s@%s -> %s",
+		    p->ipaddr,
+		    p->kdata.pname, p->kdata.pinst, p->kdata.prealm,
+		    p->user);
 	} else
 #endif /* KRB4 */
 	    if (p->version == 5) {
+		char *name;
+
 		if (!krb5_kuserok (p->context, p->principal, p->user)) {
 		    pop_log (p, POP_FAILURE,
 			     "krb5 permission denied");
 		    return pop_msg(p, POP_FAILURE,
 				   "Popping not authorized");
 		}
+		if(krb5_unparse_name (p->context, p->principal, &name) == 0) {
+		    pop_log(p, POP_INFO, "%s: %s -> %s",
+			    p->ipaddr, name, p->user);
+		    free (name);
+		}
 	    } else {
 		pop_log (p, POP_FAILURE, "kerberos authentication failed");
 		return pop_msg (p, POP_FAILURE,
@@ -168,6 +179,8 @@ pop_pass (POP *p)
 		 return pop_msg(p, POP_FAILURE,
 				"Password incorrect");
 	 }
+	 pop_log(p, POP_INFO, "login from %s as %s",
+		 p->ipaddr, p->user);
     }
 
     /*  Build the name of the user's maildrop */