(register-services (list (service '(nina-cmk) #:documentation "SSH tunnel to nina CMK server for socket" #:start (make-forkexec-constructor (list "ssh" "-NTv" "-o" "ServerAliveInterval=60" "-o" "ExitOnForwardFailure=yes" "-o" "StreamLocalBindUnlink=yes" "-L" "6565:/omd/sites/nina/tmp/run/live" "-L" "6557:127.0.0.1:6557" "nina@nina") #:log-file "/tmp/nina-cmk.log" #:environment-variables '("SSH_AUTH_SOCK=/run/user/1000/gnupg/S.gpg-agent.ssh")) #:stop (make-kill-destructor 2) ;; 2 is SIGINT - interupt process stream, ctrl-C #:respawn? #t)))