updated the lab-tool to use correct keys

This commit is contained in:
Geir Okkenhaug Jerstad 2025-07-03 23:09:43 +02:00
parent 62fabf835d
commit f0a93f457e
2 changed files with 8 additions and 5 deletions

View file

@ -24,10 +24,11 @@
(define (get-ssh-config machine-name) (define (get-ssh-config machine-name)
"Get SSH configuration for a machine" "Get SSH configuration for a machine"
`((hostname . ,(symbol->string machine-name)) (let ((hostname (symbol->string machine-name)))
(user . "sma") `((hostname . ,hostname)
(identity-file . "~/.ssh/id_ed25519_admin") (user . "sma")
(is-local . #f))) (identity-file . "~/.ssh/id_ed25519_admin")
(is-local . #f)))
(define (get-homelab-root) (define (get-homelab-root)
"Get home lab root directory" "Get home lab root directory"

View file

@ -141,4 +141,6 @@
#f)) #f))
(begin (begin
(log-error "Cannot establish SSH connection to ~a" machine-name) (log-error "Cannot establish SSH connection to ~a" machine-name)
#f))) #f))))
;; Ensure file ends with a newline and all parentheses are closed