diff options
author | Frederick Muriuki Muriithi | 2024-07-15 12:03:19 -0500 |
---|---|---|
committer | Frederick Muriuki Muriithi | 2024-11-12 15:19:36 -0600 |
commit | 42f67d8439a0aafe438ded293bc5d1fbc6713bbf (patch) | |
tree | d86da76b99c6f20297a76f579d5408a83ec13851 /genenetwork | |
parent | 84b440a7303ebe9dd561edc111a0da9f46afd564 (diff) | |
download | gn-machines-42f67d8439a0aafe438ded293bc5d1fbc6713bbf.tar.gz |
Run script to make non-human data public
Diffstat (limited to 'genenetwork')
-rw-r--r-- | genenetwork/services/genenetwork.scm | 34 |
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 |