From 3ca5af0178efc4bce38251de955cac97a64ba2ca Mon Sep 17 00:00:00 2001
From: Efraim Flashner
Date: Sun, 28 Jun 2020 10:58:09 +0000
Subject: covid19-pubseq: New service.

---
 run_covid19-pubseq.sh              |  2 ++
 shepherd/init.d/covid19-pubseq.scm | 12 ++++++++++++
 shepherd/init.d/test-upgrade.scm   |  2 +-
 3 files changed, 15 insertions(+), 1 deletion(-)
 create mode 100755 run_covid19-pubseq.sh
 create mode 100644 shepherd/init.d/covid19-pubseq.scm

diff --git a/run_covid19-pubseq.sh b/run_covid19-pubseq.sh
new file mode 100755
index 0000000..a0658b7
--- /dev/null
+++ b/run_covid19-pubseq.sh
@@ -0,0 +1,2 @@
+#!/bin/sh
+$(/home/shepherd/.config/guix/current/bin/guix system container /home/shepherd/guix-bioinformatics/gn/services/bh20-seq-resource-container.scm --share=/export/tmp=/export/tmp --network)
diff --git a/shepherd/init.d/covid19-pubseq.scm b/shepherd/init.d/covid19-pubseq.scm
new file mode 100644
index 0000000..0d1709d
--- /dev/null
+++ b/shepherd/init.d/covid19-pubseq.scm
@@ -0,0 +1,12 @@
+(define covid19-pubseq
+  (make <service>
+	#:provides '(covid19-pubseq)
+	#:docstring "Run the COVID-19 PubSeq: Public SARS-CoV-2 Sequence Resource Webserver"
+	#:start (make-forkexec-constructor
+		  '("/usr/bin/sudo" "/home/shepherd/run_covid19-pubseq.sh")
+		  #:log-file "/home/shepherd/logs/covid19-pubseq.log")
+	#:stop (make-kill-destructor)
+	#:respawn? #t))
+(register-services covid19-pubseq)
+
+(start covid19-pubseq)
diff --git a/shepherd/init.d/test-upgrade.scm b/shepherd/init.d/test-upgrade.scm
index 4d9687a..7d913e6 100644
--- a/shepherd/init.d/test-upgrade.scm
+++ b/shepherd/init.d/test-upgrade.scm
@@ -8,7 +8,7 @@
 		  '("guix" "build" "-L" "/home/shepherd/guix-bioinformatics"
 		    "--no-grafts" "bnw" "gitea" "go-ipfs" "edirect"
 		    "bxd-power-calculator-app" "rn6-assembly-error-app"
-		    "singlecellrshiny" "virtuoso-ose" "hrdp-project")
+		    "singlecellrshiny" "virtuoso-ose" "hrdp-project" "bh20-seq-resource")
 		    ;(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")))
-- 
cgit v1.2.3