diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-05-03 18:20:49 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-05-06 12:23:51 -0700 |
| commit | cf64b72c1fe0597fdbd8a09ed82619321ea42e5e (patch) | |
| tree | 3a192835c4d9f6b9fdf46a0ea430bc6cdd3c4472 /src/property.lisp | |
| parent | 9e5770606c30cb8b763a572aba59fac42484898c (diff) | |
| download | consfigurator-cf64b72c1fe0597fdbd8a09ed82619321ea42e5e.tar.gz | |
add LOCALSUDO and LOCALHD
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/property.lisp')
| -rw-r--r-- | src/property.lisp | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/src/property.lisp b/src/property.lisp index 02871a3..6c35a96 100644 --- a/src/property.lisp +++ b/src/property.lisp @@ -511,9 +511,7 @@ apply or unapply properties.") "Get the remote username." (or (slot-value *connection* 'remote-user) (setf (slot-value *connection* 'remote-user) - (multiple-value-bind (match groups) - (re:scan-to-strings "^uid=[0-9]+\\(([^)]+)" (mrun "id")) - (and match (elt groups 0)))))) + (parse-username-from-id (mrun "id"))))) (defun assert-connection-supports (type) (unless (or (eq type :posix) (lisp-connection-p)) |