diff options
-rw-r--r-- | config/shepherd/init.d/cmk.scm | 2 | ||||
-rw-r--r-- | elisp/cmk.el | 17 |
2 files changed, 10 insertions, 9 deletions
diff --git a/config/shepherd/init.d/cmk.scm b/config/shepherd/init.d/cmk.scm index 97ced9f..07f32d4 100644 --- a/config/shepherd/init.d/cmk.scm +++ b/config/shepherd/init.d/cmk.scm @@ -7,7 +7,7 @@ "-o" "ServerAliveInterval=60" "-o" "ExitOnForwardFailure=yes" "-o" "StreamLocalBindUnlink=yes" - "-L" "/tmp/ingridcmk.socket:/omd/sites/ingrid/tmp/run/live" + "-L" "6565:/omd/sites/ingrid/tmp/run/live" "ingrid@ingrid") #:log-file "/tmp/ingrid-cmk.log" #:environment-variables '("SSH_AUTH_SOCK=/run/user/1000/gnupg/S.gpg-agent.ssh")) diff --git a/elisp/cmk.el b/elisp/cmk.el index 6023cf0..52462e7 100644 --- a/elisp/cmk.el +++ b/elisp/cmk.el @@ -52,7 +52,8 @@ Default is \"%Y-%m-%d %H:%M\"." "One shot socket connection. non-nil KEEP-BUFFER after socket closes." (make-network-process :name "Checkmk" - :remote "/tmp/ingridcmk.socket" + :host 'local + :service 6565 :buffer "CMK" :sentinel (lambda (process event) (message "Process: %s had the event '%s'" process (string-trim event)) @@ -103,13 +104,13 @@ Default is \"%Y-%m-%d %H:%M\"." (or (plist-get (cdddr spec) :parser) #'identity)) column-spec))) (while (not (eobp)) - (push - (list (count-lines 1 (point)) - (cl-map 'vector - (lambda (parser entry) (funcall parser entry)) - parsers - (split-string (thing-at-point 'line t) ";" nil "\n"))) - rows) + (thread-first + (list (count-lines 1 (point)) + (cl-map 'vector + (lambda (parser entry) (funcall parser entry)) + parsers + (split-string (thing-at-point 'line t) ";" nil "\n"))) + (push rows)) (forward-line)) (nreverse rows)))) |