aboutsummaryrefslogtreecommitdiff
path: root/genenetwork/services
diff options
context:
space:
mode:
authorFrederick Muriuki Muriithi2024-07-15 12:03:19 -0500
committerFrederick Muriuki Muriithi2024-11-12 15:19:36 -0600
commit42f67d8439a0aafe438ded293bc5d1fbc6713bbf (patch)
treed86da76b99c6f20297a76f579d5408a83ec13851 /genenetwork/services
parent84b440a7303ebe9dd561edc111a0da9f46afd564 (diff)
downloadgn-machines-42f67d8439a0aafe438ded293bc5d1fbc6713bbf.tar.gz
Run script to make non-human data public
Diffstat (limited to 'genenetwork/services')
-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 b93654f..ec3af23 100644
--- a/genenetwork/services/genenetwork.scm
+++ b/genenetwork/services/genenetwork.scm
@@ -230,6 +230,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)
@@ -541,7 +568,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