ssh socket tunnel on shepherd for cardano

1 files changed, 30 insertions, 0 deletions

diff --git a/config/shepherd/init.d/cardano.scm b/config/shepherd/init.d/cardano.scm
index 0adc3e8..ccae711 100644
--- a/config/shepherd/init.d/cardano.scm
+++ b/config/shepherd/init.d/cardano.scm
@@ -99,3 +99,33 @@
                 #:log-file (string-append db-dir "log/testnet.log"))
        #:stop (make-kill-destructor 2) ;; 2 is SIGINT - interupt process stream, ctrl-C
        #:respawn? #t))))
+
+(register-services
+ (make <service>
+   #:docstring "Cardano Test network ssh tunnel"
+   #:provides '(testnet-node-ssh)
+   #:start (make-forkexec-constructor
+            (list "ssh" "-NTv"
+                  "-o" "ServerAliveInterval=60"
+                  "-o" "ExitOnForwardFailure=yes"
+                  "-o" "StreamLocalBindUnlink=yes"
+                  "-L" "/tmp/alinatn.socket:/run/cardano-node-testnet/socket"
+                  "cardano@alina")
+            #:log-file "/tmp/testnet-ssh.log")
+   #:stop (make-kill-destructor 2) ;; 2 is SIGINT - interupt process stream, ctrl-C
+   #:respawn? #t))
+
+(register-services
+ (make <service>
+   #:docstring "Cardano Main network ssh tunnel"
+   #:provides '(mainnet-node-ssh)
+   #:start (make-forkexec-constructor
+            (list "ssh" "-NTv"
+                  "-o" "ServerAliveInterval=60"
+                  "-o" "ExitOnForwardFailure=yes"
+                  "-o" "StreamLocalBindUnlink=yes"
+                  "-L" "/tmp/alinamn.socket:/run/cardano-node-mainnet/socket"
+                  "cardano@alina")
+            #:log-file "/tmp/mainnet-ssh.log")
+   #:stop (make-kill-destructor 2) ;; 2 is SIGINT - interupt process stream, ctrl-C
+   #:respawn? #t))