diff options
author | Efraim Flashner | 2020-03-02 08:01:35 +0000 |
---|---|---|
committer | Shepherd | 2020-03-02 08:01:35 +0000 |
commit | 8b001c765e158fa2d0d71eede1fdc749d965e39b (patch) | |
tree | 3c5be196946fe094c8106ca8ae040b0e8c0a9e75 /shepherd/init.d | |
parent | 1ce2c18ef1bc739c64b16e44a0cd2c404eade42e (diff) | |
download | gn-shepherd-services-8b001c765e158fa2d0d71eede1fdc749d965e39b.tar.gz |
shepherd: modularize the services
Diffstat (limited to 'shepherd/init.d')
-rw-r--r-- | shepherd/init.d/bnw.scm | 12 | ||||
-rw-r--r-- | shepherd/init.d/gitea.scm | 12 | ||||
-rw-r--r-- | shepherd/init.d/ipfs.scm | 12 | ||||
-rw-r--r-- | shepherd/init.d/mcron.scm | 12 | ||||
-rw-r--r-- | shepherd/init.d/power.scm | 13 | ||||
-rw-r--r-- | shepherd/init.d/rn6app.scm | 13 | ||||
-rw-r--r-- | shepherd/init.d/test-upgrade.scm | 15 |
7 files changed, 89 insertions, 0 deletions
diff --git a/shepherd/init.d/bnw.scm b/shepherd/init.d/bnw.scm new file mode 100644 index 0000000..ed9bf9d --- /dev/null +++ b/shepherd/init.d/bnw.scm @@ -0,0 +1,12 @@ +(define bnw + (make <service> + #:provides '(bnw) + #:docstring "Run the Beyesian Network Webserver" + #:start (make-forkexec-constructor + '("/usr/bin/sudo" "/home/shepherd/run_bnw.sh") + #:log-file "/home/shepherd/logs/bnw.log") + #:stop (make-kill-destructor) + #:respawn? #t)) +(register-services bnw) + +(start bnw) diff --git a/shepherd/init.d/gitea.scm b/shepherd/init.d/gitea.scm new file mode 100644 index 0000000..b5d77f0 --- /dev/null +++ b/shepherd/init.d/gitea.scm @@ -0,0 +1,12 @@ +(define gitea + (make <service> + #:provides '(gitea) + #:docstring "Run a Gitea instance" + #:start (make-forkexec-constructor + '("/usr/bin/sudo" "/home/shepherd/run_gitea.sh") + #:log-file "/home/shepherd/logs/gitea.log") + #:stop (make-kill-destructor) + #:respawn? #t)) +(register-services gitea) + +(start gitea) diff --git a/shepherd/init.d/ipfs.scm b/shepherd/init.d/ipfs.scm new file mode 100644 index 0000000..1b8d21a --- /dev/null +++ b/shepherd/init.d/ipfs.scm @@ -0,0 +1,12 @@ +(define ipfs + (make <service> + #:provides '(ipfs) + #:docstring "Run the IPFS daemon" + #:start (make-forkexec-constructor + '("/usr/bin/sudo" "/home/shepherd/run_ipfs.sh") + #:log-file "/home/shepherd/logs/ipfs.log") + #:stop (make-kill-destructor) + #:respawn? #t)) +(register-services ipfs) + +(start ipfs) diff --git a/shepherd/init.d/mcron.scm b/shepherd/init.d/mcron.scm new file mode 100644 index 0000000..415e1f0 --- /dev/null +++ b/shepherd/init.d/mcron.scm @@ -0,0 +1,12 @@ +(define mcron + (make <service> + #:provides '(mcron) + #:docstring "Run the mcron daemon" + #:start (make-forkexec-constructor + '("/var/guix/profiles/per-user/shepherd/guix-profile/bin/mcron") + #:log-file "/home/shepherd/logs/mcron.log") + #:stop (make-kill-destructor) + #:respawn? #t)) +(register-services mcron) + +(start mcron) diff --git a/shepherd/init.d/power.scm b/shepherd/init.d/power.scm new file mode 100644 index 0000000..d35230c --- /dev/null +++ b/shepherd/init.d/power.scm @@ -0,0 +1,13 @@ +(define power + (make <service> + #:provides '(power) + #:docstring "Run the BXD Power Calculator app" + #:start (make-forkexec-constructor + ;(system* "/var/guix/profiles/per-user/shepherd/current-guix/bin/guix" "environment" "--ad-hoc" "rn6-assembly-error-app" "--" "/bin/sh -c 'R_LIBS_USER=$GUIX_ENVIRONMENT/site-library/ rn6-assembly-error-app'") + '("/home/shepherd/run_power.sh") + #:log-file "/home/shepherd/logs/power.log") + #:stop (make-kill-destructor) + #:respawn? #t)) +(register-services power) + +(start power) diff --git a/shepherd/init.d/rn6app.scm b/shepherd/init.d/rn6app.scm new file mode 100644 index 0000000..6ae89c6 --- /dev/null +++ b/shepherd/init.d/rn6app.scm @@ -0,0 +1,13 @@ +(define rn6app + (make <service> + #:provides '(rn6app) + #:docstring "Run RN6 Assembly Error app" + #:start (make-forkexec-constructor + ;(system* "/var/guix/profiles/per-user/shepherd/current-guix/bin/guix" "environment" "--ad-hoc" "rn6-assembly-error-app" "--" "/bin/sh -c 'R_LIBS_USER=$GUIX_ENVIRONMENT/site-library/ rn6-assembly-error-app'") + '("/home/shepherd/run_rn6app.sh") + #:log-file "/home/shepherd/logs/rn6app.log") + #:stop (make-kill-destructor) + #:respawn? #t)) +(register-services rn6app) + +(start rn6app) diff --git a/shepherd/init.d/test-upgrade.scm b/shepherd/init.d/test-upgrade.scm new file mode 100644 index 0000000..0c17303 --- /dev/null +++ b/shepherd/init.d/test-upgrade.scm @@ -0,0 +1,15 @@ +(define test-upgrade + (make <service> + #:provides '(test-upgrade) + #:docstring "Build all the services to make sure they work on an upgrade" + #:start (make-forkexec-constructor + ;; First attempt to build all the packages and only afterward attempt to build the containers. + (when (zero? (system* "guix" "build" "-L" "/home/shepherd/guix-bioinformatics" + "--no-grafts" "bnw" "gitea" "go-ipfs" "edirect-gn" + "bxd-power-calculator-app" "rn6-assembly-error-app")) + (zero? (system* "guix" "system" "-L" "/home/shepherd/guix-bioinformatics" + "container" "/home/shepherd/guix-bioinformatics/gn/services/bnw-container.scm" + "--share=/home/shepherd/logs/bnw-server=/var/log" "--network"))) + #:log-file "/home/shepherd/logs/test-upgrade.log") + #:one-shot? #t)) +(register-services test-upgrade) |