aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGN1 user2021-02-15 09:48:11 +0000
committerGN1 user2021-02-15 09:48:11 +0000
commit5526dcec0ae1c4a707b514ca26a039138eaeabab (patch)
tree2f9c75537b111fe398bb6b01da028398bd3e2495
parent101ed8dd4d58cc61371eedd5227d7baa152e2920 (diff)
downloadguix-bioinformatics-5526dcec0ae1c4a707b514ca26a039138eaeabab.tar.gz
gn1: parametrize
-rw-r--r--gn/services/gn1-httpd-config.scm21
1 files changed, 12 insertions, 9 deletions
diff --git a/gn/services/gn1-httpd-config.scm b/gn/services/gn1-httpd-config.scm
index 1026eb8..09d80c4 100644
--- a/gn/services/gn1-httpd-config.scm
+++ b/gn/services/gn1-httpd-config.scm
@@ -62,18 +62,21 @@
("alias_module" "modules/mod_alias.so")
("rewrite_module" "modules/mod_rewrite.so"))))
+; (define GN1-httpd-config (#:key (user "gn1"))
(define GN1-httpd-config
- ;; (let ((gn1-source genenetwork1))
- (let ((gn1-source "/home/gn1/production/gnshare/gn"))
+ (let* ((gn1-user "gn1")
+ (gn1-source (string-append "/home/" gn1-user "/production/gnshare/gn"))
+ (gn1-server "gn1-pjotr.genenetwork.org")
+ (gn1-port "9043"))
(httpd-config-file
- (server-name "gn1-new.genenetwork.org")
+ (server-name gn1-server)
;; Defaults to httpd, should be same as 'package' above to launch service.
(server-root httpd22-with-mod-python)
- (user "gn1")
+ (user gn1-user)
(group "users")
- (pid-file "/tmp/guix-gn1/httpd-gn1-source.pid")
- (error-log "/tmp/guix-gn1/httpd-gn1-source-error-log")
- (listen '("8042"))
+ (pid-file (string-append "/tmp/guix-gn1/httpd-gn1-source-" gn1-port ".pid"))
+ (error-log (string-append "/tmp/guix-gn1/httpd-gn1-source-error-" gn1-port ".log"))
+ (listen `(,gn1-port))
(modules (cons*
(httpd-module
(name "python_module")
@@ -85,8 +88,8 @@ DefaultType application/octet-stream
# DocumentRoot MUST NOT be in the PythonPath. Because gn1-source must be in PythonPath we leave the document-root keyword above unset.
PythonPath \"sys.path+['/run/current-system/profile/lib/python2.4', '/run/current-system/profile/lib/python2.4/site-packages', '" gn1-source "/web/webqtl']\"
# same as 'listen' above
-NameVirtualHost *:8042
-<VirtualHost *:8042>
+NameVirtualHost *:" gn1-port "
+<VirtualHost *:" gn1-port ">
DocumentRoot "gn1-source "/web/
Alias /images "gn1-source "/web/images/
Alias /javascript "gn1-source "/web/javascript/