From b61b4b2026cbd8dec69c15d14650ef1cfb2bead9 Mon Sep 17 00:00:00 2001
From: Pjotr Prins
Date: Mon, 4 Mar 2024 11:10:36 -0600
Subject: Fallback runs base services on host

---
 fallback-deploy.sh | 48 ++++++++++++++++++++++++++++++++++++++++++++++++
 fallback.scm       |  9 +--------
 2 files changed, 49 insertions(+), 8 deletions(-)
 create mode 100755 fallback-deploy.sh

diff --git a/fallback-deploy.sh b/fallback-deploy.sh
new file mode 100755
index 0000000..10b9b1f
--- /dev/null
+++ b/fallback-deploy.sh
@@ -0,0 +1,48 @@
+#! /bin/bash -e
+
+# genenetwork-machines --- Guix configuration for genenetwork machines
+# Copyright © 2022, 2024 Arun Isaac <arunisaac@systemreboot.net>
+#
+# This file is part of genenetwork-machines.
+#
+# genenetwork-machines is free software: you can redistribute it
+# and/or modify it under the terms of the GNU General Public License
+# as published by the Free Software Foundation, either version 3 of
+# the License, or (at your option) any later version.
+#
+# genenetwork-machines is distributed in the hope that it will be
+# useful, but WITHOUT ANY WARRANTY; without even the implied warranty
+# of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+# General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with genenetwork-machines.  If not, see
+# <https://www.gnu.org/licenses/>.
+
+echo Build and install genenetwork fallback container on $HOSTNAME
+
+mkdir -p /export2/guix-containers/genenetwork/var/lib/acme
+mkdir -p /export2/guix-containers/genenetwork/etc/genenetwork
+mkdir -p /export2/data/genenetwork-xapian
+mkdir -p /export2/data/genenetwork-sqlite
+mkdir -p /export/data/genenetwork/genotype_files
+
+# Note that if you change these paths you need to rebuild the container
+container_script=$(guix system container \
+                        --network \
+                        --load-path=. \
+                        --verbosity=3 \
+                        --share=/export2/guix-containers/genenetwork/var/lib/acme=/var/lib/acme \
+                        --share=/export2/guix-containers/genenetwork/etc/genenetwork=/etc/genenetwork \
+                        --expose=/export/data/genenetwork-xapian \
+                        --share=/export/data/genenetwork-sqlite \
+                        --expose=/export/data/genenetwork/genotype_files \
+                        --share=/var/run/mysqld=/run/mysqld \
+                        fallback.scm)
+
+name=/usr/local/bin/fallback-system-container
+if [ $? == 0 ] ; then
+  echo "Create $name -> $container_script"
+  sudo ln --force --symbolic $container_script $name
+  sudo ln --force --symbolic /usr/local/bin/$name /var/guix/gcroots
+fi
diff --git a/fallback.scm b/fallback.scm
index fa65577..adbf185 100644
--- a/fallback.scm
+++ b/fallback.scm
@@ -41,14 +41,7 @@
                     "@include " %sudoers-specification
                     "\nacme ALL = NOPASSWD: " (file-append shepherd "/bin/herd") " restart nginx\n"))
   (packages %base-packages)
-  (services (cons* (service mysql-service-type
-                            (mysql-configuration
-                             (auto-upgrade? #f)))
-                   (service virtuoso-service-type
-                            (virtuoso-configuration
-                             (server-port 8891)
-                             (http-server-port 8892)))
-                   (service forge-nginx-service-type
+  (services (cons* (service forge-nginx-service-type
                             (forge-nginx-configuration
                              (http-listen (forge-ip-socket
                                            (ip "0.0.0.0")
-- 
cgit v1.2.3