diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-04-01 23:29:14 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-04-01 23:33:53 -0700 |
commit | 7271df97c1576e0b98549489f45eaa0799152766 (patch) | |
tree | 860d2895639425820508877d24ad9113c119a38b | |
parent | bcbd84a22ce5e15c0bf195f837fec1cd0e14591f (diff) | |
download | consfigurator-7271df97c1576e0b98549489f45eaa0799152766.tar.gz |
RESET-REMOTE-HOME: reset other pertinent vars
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
-rw-r--r-- | src/connection.lisp | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/src/connection.lisp b/src/connection.lisp index b20b107..50156d3 100644 --- a/src/connection.lisp +++ b/src/connection.lisp @@ -86,11 +86,13 @@ For an example of usage, see the :SUDO connection type.")) "The name of the remote user."))) (defun reset-remote-home () - "Clear the cache of the remote user's home directory. + "Clear the cache of the remote user's home directory, uid and name. Used by implementations of ESTABLISH-CONNECTION which will invalidate the -cached value, such as a connection which forks and then SETUIDs to another +cached values, such as a connection which forks and then SETUIDs to another user. Should not be called by properties." - (setf (slot-value *connection* 'remote-home) nil)) + (setf (slot-value *connection* 'remote-home) nil + (slot-value *connection* 'remote-uid) nil + (slot-value *connection* 'remote-user) nil)) (defclass lisp-connection (connection) ()) |