aboutsummaryrefslogtreecommitdiff
path: root/genenetwork
diff options
context:
space:
mode:
authorFrederick Muriuki Muriithi2024-07-15 12:03:19 -0500
committerFrederick Muriuki Muriithi2024-11-04 10:06:00 -0600
commitba402e6b12894b846a5adbbc3db54e9e230edf77 (patch)
tree2fa8d81d371cc77083da82feabb66fff2452c5ba /genenetwork
parente098494158ded439b361fa11d7eb8368aeca668a (diff)
downloadgn-machines-ba402e6b12894b846a5adbbc3db54e9e230edf77.tar.gz
Run script to make non-human data public
Diffstat (limited to 'genenetwork')
-rw-r--r--genenetwork/services/genenetwork.scm34
1 files changed, 33 insertions, 1 deletions
diff --git a/genenetwork/services/genenetwork.scm b/genenetwork/services/genenetwork.scm
index 16c5a4f..ec66f64 100644
--- a/genenetwork/services/genenetwork.scm
+++ b/genenetwork/services/genenetwork.scm
@@ -233,6 +233,33 @@
(chmod file #o644))
(find-files #$xapian-directory)))))))))
+(define (make-non-human-data-public-cron-gexp config)
+ (match-record config <genenetwork-configuration>
+ (gn-auth sql-uri auth-db)
+ (with-imported-modules '((guix build utils))
+ #~(begin
+ (use-modules (guix build utils))
+
+ (setenv "PYTHONPATH"
+ (string-append
+ #$(file-append gn-auth
+ "/lib/python"
+ (python-version (package-version python))
+ "/site-packages")
+ ":"
+ #$(profile
+ (content (package->development-manifest gn-auth))
+ (allow-collisions? #t))
+ "/lib/python"
+ #$(python-version (package-version python))
+ "/site-packages"))
+
+ (invoke #$(file-append python "/bin/python3")
+ "-m"
+ "scripts.batch_assign_data_to_default_admin"
+ #$auth-db
+ #$sql-uri)))))
+
(define (genenetwork-activation config)
(match-record config <genenetwork-configuration>
(gn2-secrets gn3-secrets gn-auth-secrets auth-db)
@@ -521,7 +548,12 @@ a @code{<genenetwork-configuration>} record."
(list #~(job '(next-hour)
#$(program-file "build-xapian-index-cron-gexp"
(build-xapian-index-cron-gexp config))
- #:user "root")))
+ #:user "root")
+ #~(job '(next-hour)
+ #$(program-file "make-non-human-data-public-cron-gexp"
+ (make-non-human-data-public-cron-gexp config))
+ #:user "gunicorn-gn-auth")
+ ))
(define genenetwork-service-type
(service-type