From 9027af9d507404f8be139058ac081ebad068811c Mon Sep 17 00:00:00 2001
From: Assar Westerlund <assar@sics.se>
Date: Fri, 4 Sep 1998 17:29:53 +0000
Subject: [PATCH] (pam_sm_open_session): use krb_afslog_home

git-svn-id: svn://svn.h5l.se/heimdal/trunk/heimdal@5145 ec53bebd-3082-4978-b11e-865c3cabbd6b
---
 lib/auth/pam/pam.c | 15 +++++++++++++--
 1 file changed, 13 insertions(+), 2 deletions(-)

diff --git a/lib/auth/pam/pam.c b/lib/auth/pam/pam.c
index 06c827f96..71d0f2324 100644
--- a/lib/auth/pam/pam.c
+++ b/lib/auth/pam/pam.c
@@ -1,5 +1,5 @@
 /*
- * Copyright (c) 1995, 1996, 1997 Kungliga Tekniska Högskolan
+ * Copyright (c) 1995, 1996, 1997, 1998 Kungliga Tekniska Högskolan
  * (Royal Institute of Technology, Stockholm, Sweden).
  * All rights reserved.
  * 
@@ -213,11 +213,22 @@ int
 pam_sm_open_session(pam_handle_t *pamh, int flags, int argc, const char **argv)
 {
     char *tkt;
+    void *user;
+    const char *homedir = NULL;
+
+    if(pam_get_item (pamh, PAM_USER, &user) == PAM_SUCCESS) {
+	struct passwd *pwd;
+
+	pwd = getpwnam ((char *)user);
+	if (pwd != NULL)
+	    homedir = pwd->pw_dir;
+    }
+
     pam_get_data(pamh, "KRBTKFILE", (const void**)&tkt);
     setenv("KRBTKFILE", tkt, 1);
     if(k_hasafs()){
 	k_setpag();
-	krb_afslog(0, 0);
+	krb_afslog_home(0, 0, homedir);
     }
     return PAM_SUCCESS;
 }