From 663f6ef7a49dfd85d4bda075d73f361970f2fd7d Mon Sep 17 00:00:00 2001
From: Efraim Flashner
Date: Thu, 27 May 2021 08:35:31 +0000
Subject: genecup: new service.

---
 run_genecup.sh              |  2 ++
 shepherd/init.d/genecup.scm | 14 ++++++++++++++
 2 files changed, 16 insertions(+)
 create mode 100755 run_genecup.sh
 create mode 100644 shepherd/init.d/genecup.scm

diff --git a/run_genecup.sh b/run_genecup.sh
new file mode 100755
index 0000000..bfe90de
--- /dev/null
+++ b/run_genecup.sh
@@ -0,0 +1,2 @@
+#!/bin/sh
+$(/home/shepherd/guix-profiles/genecup/bin/guix system container -L /home/shepherd/guix-past/modules/ -L /home/shepherd/guix-bioinformatics/ /home/shepherd/guix-bioinformatics/gn/services/genecup-container.scm --network --share=/export2/PubMed=/export2/PubMed --share=/export/ratspub=/export/ratspub)
diff --git a/shepherd/init.d/genecup.scm b/shepherd/init.d/genecup.scm
new file mode 100644
index 0000000..9d27529
--- /dev/null
+++ b/shepherd/init.d/genecup.scm
@@ -0,0 +1,14 @@
+(define genecup
+  (make <service>
+	#:provides '(genecup)
+	#:docstring "Run the genecup.org web server"
+	#:start (make-forkexec-constructor
+		  '("/home/shepherd/run_genecup.sh")
+		  #:log-file "/home/shepherd/logs/genecup.log")
+	#:stop (make-kill-destructor)
+	;; currently running in a screen session
+	#:auto-start? #f
+	#:respawn? #t))
+(register-services genecup)
+
+(start genecup)
-- 
cgit v1.2.3