aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xfallback-deploy.sh48
-rw-r--r--fallback.scm9
2 files changed, 49 insertions, 8 deletions
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")