diff options
| author | Oleg Pykhalov <go.wigust@gmail.com> | 2018-10-27 01:20:12 +0300 |
|---|---|---|
| committer | Oleg Pykhalov <go.wigust@gmail.com> | 2018-10-27 01:20:12 +0300 |
| commit | e52955775d1c00bb4f40a8bf6ff1dc12ed6946f8 (patch) | |
| tree | affe6ba43359531b9fa5e939d49ae9aca000e774 /loadavg/scripts | |
| parent | Add weather. (diff) | |
| download | guile-loadavg-e52955775d1c00bb4f40a8bf6ff1dc12ed6946f8.tar.gz | |
wip
Diffstat (limited to 'loadavg/scripts')
| -rw-r--r-- | loadavg/scripts/weather.scm | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/loadavg/scripts/weather.scm b/loadavg/scripts/weather.scm index 47185cf..23d0bba 100644 --- a/loadavg/scripts/weather.scm +++ b/loadavg/scripts/weather.scm @@ -73,13 +73,18 @@ Fetch data about user.\n")) (l15 loadavg-l15) ;number ) -(define* (loadavg-host #:key - host +(define* (loadavg-host host + #:key (user "sup") - (port 1022)) + (port 1022) + (identity (string-append (getenv "HOME") + "/.ssh/id_rsa_sup"))) (let ((session (make-session #:host host #:user user - #:port port))) + #:port port + #:identity identity + #:log-verbosity 'nolog))) + ;; (session-set! session 'stricthostkeycheck #f) (connect! session) (authenticate-server session) (userauth-public-key/auto! session) |