From 6f9b443b185f743051ff417661f87ac4d720c4b2 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dag-Erling=20Sm=C3=B8rgrav?= <des@FreeBSD.org>
Date: Thu, 7 Mar 2002 19:24:22 +0000
Subject: Fix bugs in module loading and caching code (perforce change #7381)

Sponsored by:	DARPA, NAI Labs
---
 contrib/openpam/lib/openpam_dynamic.c | 10 +++++-----
 contrib/openpam/lib/openpam_load.c    | 14 +++++++++++---
 2 files changed, 16 insertions(+), 8 deletions(-)

diff --git a/contrib/openpam/lib/openpam_dynamic.c b/contrib/openpam/lib/openpam_dynamic.c
index a4f28679e915..fb0f3f56a2c9 100644
--- a/contrib/openpam/lib/openpam_dynamic.c
+++ b/contrib/openpam/lib/openpam_dynamic.c
@@ -1,5 +1,5 @@
 /*-
- * Copyright (c) 2002 Networks Associates Technologies, Inc.
+ * Copyright (c) 2002 Networks Associates Technology, Inc.
  * All rights reserved.
  *
  * This software was developed for the FreeBSD Project by ThinkSec AS and
@@ -31,7 +31,7 @@
  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  * SUCH DAMAGE.
  *
- * $P4: //depot/projects/openpam/lib/openpam_dynamic.c#1 $
+ * $P4: //depot/projects/openpam/lib/openpam_dynamic.c#3 $
  */
 
 #include <dlfcn.h>
@@ -64,15 +64,15 @@ openpam_dynamic(const char *path)
 	if (asprintf(&vpath, "%s.%d", path, LIB_MAJ) == -1)
 		goto buf_err;
 	if ((dlh = dlopen(vpath, RTLD_NOW)) == NULL) {
-		openpam_log(PAM_LOG_ERROR, "dlopen(): %s", dlerror());
 		*strrchr(vpath, '.') = '\0';
 		if ((dlh = dlopen(vpath, RTLD_NOW)) == NULL) {
-			openpam_log(PAM_LOG_ERROR, "dlopen(): %s", dlerror());
 			free(module);
 			return (NULL);
 		}
 	}
-	module->path = vpath;
+	free(vpath);
+	if ((module->path = strdup(path)) == NULL)
+		goto buf_err;
 	module->dlh = dlh;
 	for (i = 0; i < PAM_NUM_PRIMITIVES; ++i)
 		module->func[i] = dlsym(dlh, _pam_sm_func_name[i]);
diff --git a/contrib/openpam/lib/openpam_load.c b/contrib/openpam/lib/openpam_load.c
index 68b7788fa406..2b88087dac35 100644
--- a/contrib/openpam/lib/openpam_load.c
+++ b/contrib/openpam/lib/openpam_load.c
@@ -1,5 +1,5 @@
 /*-
- * Copyright (c) 2002 Networks Associates Technologies, Inc.
+ * Copyright (c) 2002 Networks Associates Technology, Inc.
  * All rights reserved.
  *
  * This software was developed for the FreeBSD Project by ThinkSec AS and
@@ -31,7 +31,7 @@
  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  * SUCH DAMAGE.
  *
- * $P4: //depot/projects/openpam/lib/openpam_load.c#10 $
+ * $P4: //depot/projects/openpam/lib/openpam_load.c#12 $
  */
 
 #include <dlfcn.h>
@@ -81,9 +81,14 @@ openpam_load_module(const char *path)
 		    (module == NULL) ? "no" : "using", path);
 	}
 #endif
-	if (module == NULL)
+	if (module == NULL) {
+		openpam_log(PAM_LOG_ERROR, "no %s found", path);
 		return (NULL);
+	}
+	openpam_log(PAM_LOG_DEBUG, "adding %s to cache", module->path);
 	module->next = modules;
+	if (module->next != NULL)
+		module->next->prev = module;
 	module->prev = NULL;
 	modules = module;
  found:
@@ -119,6 +124,9 @@ openpam_release_module(pam_module_t *module)
 		module->prev->next = module->next;
 	if (module->next != NULL)
 		module->next->prev = module->prev;
+	if (module == modules)
+		modules = module->next;
+	openpam_log(PAM_LOG_DEBUG, "releasing %s", module->path);
 	free(module->path);
 	free(module);
 }
-- 
cgit v1.2.3