cardano server connections

1 files changed, 16 insertions, 2 deletions

diff --git a/config/shepherd/init.d/cardano.scm b/config/shepherd/init.d/cardano.scm
index e2f2138..a597f30 100644
--- a/config/shepherd/init.d/cardano.scm
+++ b/config/shepherd/init.d/cardano.scm
@@ -29,7 +29,7 @@
                   "-o" "ExitOnForwardFailure=yes"
                   "-L" "54320:localhost:5432"
                   "cardano@alina")
-            #:log-file "/tmp/postgresql-ssh.log")
+            #:log-file "/tmp/testnet-psql-ssh.log")
    #:stop (make-kill-destructor 2) ;; 2 is SIGINT - interupt process stream, ctrl-C
    #:respawn? #t))
 
@@ -60,7 +60,7 @@
                   "-o" "ExitOnForwardFailure=yes"
                   "-o" "StreamLocalBindUnlink=yes"
                   "-L" "/tmp/alinamn.socket:/run/cardano-node-mainnet/socket"
-                  "cardano@alina")
+                  "cardano@nina")
             #:log-file "/tmp/mainnet-ssh.log")
    #:stop (make-kill-destructor 2) ;; 2 is SIGINT - interupt process stream, ctrl-C
    #:respawn? #t))
@@ -80,3 +80,17 @@
 
    #:stop (make-kill-destructor 2) ;; 2 is SIGINT - interupt process stream, ctrl-C
    #:requires '(mainnet-node-ssh)))
+
+(register-services
+ (make <service>
+   #:docstring "Mainnet Postgresql ssh"
+   #:provides '(mainnet-postgresql-ssh)
+   #:start (make-forkexec-constructor
+            (list "ssh" "-NTv"
+                  "-o" "ServerAliveInterval=60"
+                  "-o" "ExitOnForwardFailure=yes"
+                  "-L" "54320:localhost:5432"
+                  "cardano@nina")
+            #:log-file "/tmp/mainnet-psql-ssh.log")
+   #:stop (make-kill-destructor 2) ;; 2 is SIGINT - interupt process stream, ctrl-C
+   #:respawn? #t))