From 21690c644bc503e4c8cc55df00b398ab81fd7444 Mon Sep 17 00:00:00 2001 From: Griffin Smith Date: Fri, 28 Aug 2020 18:49:29 -0400 Subject: fix(panettone): Automatically reconnect to ldap Wrap all ldap access in a macro that automatically reconnects and retries operations that fail due to a connection error, to handle the case where the ldap server restarts while we still have an open connection. Fixes: #44 Change-Id: I4859cf509106e480f97fed17e7f08e0eea909352 Reviewed-on: https://cl.tvl.fyi/c/depot/+/1871 Tested-by: BuildkiteCI Reviewed-by: eta --- web/panettone/src/packages.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'web/panettone/src/packages.lisp') diff --git a/web/panettone/src/packages.lisp b/web/panettone/src/packages.lisp index 1510df224be4..1a8453055f8b 100644 --- a/web/panettone/src/packages.lisp +++ b/web/panettone/src/packages.lisp @@ -11,7 +11,7 @@ (:nicknames :authn) (:use :cl :panettone.util :klatre) (:import-from :defclass-std :defclass/std) - (:import-from :alexandria :when-let) + (:import-from :alexandria :when-let :with-gensyms) (:export :*user* :*ldap* :user :cn :dn :mail :displayname -- cgit 1.4.1