diff options
Diffstat (limited to 'gn/services')
| -rw-r--r-- | gn/services/bnw-README | 14 | ||||
| -rw-r--r-- | gn/services/bnw-container.scm | 88 |
2 files changed, 74 insertions, 28 deletions
diff --git a/gn/services/bnw-README b/gn/services/bnw-README index 29cc816..ab7de53 100644 --- a/gn/services/bnw-README +++ b/gn/services/bnw-README @@ -1,10 +1,9 @@ SETUP: The setup process works like this: -$ guix build bnw -$ mkdir -p /home/bnw/server/bnw -$ cp -a $(guix build bnw)/* /home/bnw/server/bnw/ -$ chmod a+w /home/bnw/server -R +$ guix pull +$ cd guix-bioinformatics && git pull +# systemctl enable --now bnw.service for testing changes to the container, you'll want to do the following (or thereabouts): $ guix system container gn/services/GN1-container.scm --share=/home/bnw/server=/srv/http --network @@ -15,8 +14,5 @@ see included bnw.service for upgrades: $ guix pull -$ rm -rf /home/bnw/server -$ guix build bnw -$ mkdir -p /home/bnw/server/bnw -$ cp -a $(guix build bnw)/* /home/bnw/server/bnw/ -$ chmod a+w /home/bnw/server -R +$ cd guix-bioinformatics && git pull +# systemctl restart bnw.service diff --git a/gn/services/bnw-container.scm b/gn/services/bnw-container.scm index 13a9317..2e5e521 100644 --- a/gn/services/bnw-container.scm +++ b/gn/services/bnw-container.scm @@ -1,8 +1,69 @@ (define-module (gn services bnw-container)) (use-modules (gnu) - (gn packages bnw)) -(use-service-modules base networking web) + (gn packages bnw) + (guix records) + (ice-9 match)) +(use-service-modules networking web) + +(define-record-type* <bnw-configuration> + bnw-configuration + make-bnw-configuration + bnw-configuration? + (package bnw-configuration-package ; package + (default bnw)) + (deploy-directory bnw-deploy-directory ; string + (default "/home/bnw/server")) + (port bnw-configuration-port ; list of strings + (default '("8880")))) + +(define bnw-activation + (match-lambda + (($ <bnw-configuration> package deploy-directory port) + #~(begin + (use-modules (guix build utils)) + (when (directory-exists? #$deploy-directory) + (delete-file-recusively #$deploy-directory)) + (mkdir-p #$deploy-directory) + (copy-recursively #$package #$deploy-directory) + (system* #$(file-append coreutils "/bin/chmod") "a+w" + (string-append #$deploy-directory "/sourcecodes/data")))))) + +(define bnw-nginx-config + (match-lambda + (($ <bnw-configuration> package deploy-directory port) + (list + (nginx-server-configuration + (server-name '("Bayesian Network")) + (listen port) + ;(root package) + (root "/srv/http") + (locations + (list + (nginx-php-location) + ;(nginx-location-configuration + ; (uri "/sourcecodes/data/") + ; (body (list "alias /tmp/bnw/;"))) + ))))))) + +(define bnw-service-type + (service-type + (name 'bnw) + (extensions + (list + (service-extension activation-service-type + bnw-activation) + (service-extension nginx-service-type + bnw-nginx-config) + ;; Make sure BNW doesn't get garbage collected. + (service-extension profile-service-type + (compose list bnw-configuration-package)) + ;; Make sure php-fpm is instantiated. + (service-extension php-fpm-service-type + (const #t)))) + (default-value (bnw-configuration)) + (description + "Run a Bayesian Network Webserver."))) (operating-system (host-name "bnw") @@ -17,20 +78,9 @@ (firmware '()) (services (list (service dhcp-client-service-type) - (service php-fpm-service-type) - (service nginx-service-type - (nginx-configuration - (server-blocks - (list - (nginx-server-configuration - (server-name '("Bayesian Network")) - (listen '("8888")) - (root bnw) - (locations - (list - (nginx-php-location) - (nginx-location-configuration - (uri "/sourcecodes/data/") - (body (list "alias /tmp/bnw/;"))) - )) - )))))))) + (service bnw-service-type + ;; The following is for testing: + ;(bnw-configuration + ; (deploy-directory "/home/efraimf/bnw") + ; (port '("8888"))) + )))) |