diff options
Diffstat (limited to 'config')
| -rw-r--r-- | config/doom/config.org | 2 | ||||
| -rw-r--r-- | config/shepherd/init.d/cardano.scm | 20 |
2 files changed, 18 insertions, 4 deletions
diff --git a/config/doom/config.org b/config/doom/config.org index b2ec545..00f27a8 100644 --- a/config/doom/config.org +++ b/config/doom/config.org @@ -344,7 +344,7 @@ Emacs mode for managing ledger text files (defun on/cardano-set-network () (interactive) (let* ((networks '((:mainnet "/tmp/alinamn.socket" "--mainnet") - (:testnet "/tmp/sarahtn.socket" "--testnet-magic" "1097911063") + (:testnet "/tmp/alinatn.socket" "--testnet-magic" "1097911063") (:alonzo-purple "~/test-cardano/purple/socket" "--testnet-magic" "8"))) (pick (alist-get diff --git a/config/shepherd/init.d/cardano.scm b/config/shepherd/init.d/cardano.scm index 6966e57..addc66e 100644 --- a/config/shepherd/init.d/cardano.scm +++ b/config/shepherd/init.d/cardano.scm @@ -110,14 +110,28 @@ "-o" "ServerAliveInterval=60" "-o" "ExitOnForwardFailure=yes" "-o" "StreamLocalBindUnlink=yes" - "-L" "/tmp/sarahtn.socket:/run/cardano-node-testnet/socket" - "cardano@sarah") + "-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 "Alina Postgresql ssh" + #:provides '(alina-postgresql-ssh) + #:start (make-forkexec-constructor + (list "ssh" "-NTv" + "-o" "ServerAliveInterval=60" + "-o" "ExitOnForwardFailure=yes" + "-L" "54320:localhost:5432" + "cardano@alina") + #:log-file "/tmp/postgresql-ssh.log") + #:stop (make-kill-destructor 2) ;; 2 is SIGINT - interupt process stream, ctrl-C + #:respawn? #t)) + +(register-services + (make <service> #:docstring "Cardano Testnet wallet" #:provides '(testnet-wallet) #:start (make-forkexec-constructor @@ -125,7 +139,7 @@ "serve" "+RTS" "-T" "-RTS" "--port" "8091" - "--node-socket" "/tmp/sarahtn.socket" + "--node-socket" "/tmp/alinatn.socket" "--database" (string-append (getenv "HOME") "/test-cardano/testnet/wallet") "--testnet" (string-append (getenv "HOME") "/test-cardano/config/testnet-byron-genesis.json")) #:log-file (string-append (getenv "HOME") "/test-cardano/testnet/log/wallet.log")) |