From c29ac2a11247efb5609776a3be386380259e019e Mon Sep 17 00:00:00 2001 From: Efraim Flashner Date: Tue, 18 Aug 2020 08:20:13 -0500 Subject: gn: Use local links for genenetwork1. --- gn/packages/genenetwork.scm | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) diff --git a/gn/packages/genenetwork.scm b/gn/packages/genenetwork.scm index 3cf7d98..282af31 100644 --- a/gn/packages/genenetwork.scm +++ b/gn/packages/genenetwork.scm @@ -820,6 +820,27 @@ written in C") ;; This directory is expected to be writable (symlink "/tmp" "web/tmp") #t))) + (add-after 'unpack 'use-local-links + (lambda _ + (substitute* "web/webqtl/base/webqtlConfig.py" + (("http://www.genenetwork.org") "")) + + ;; Move this file out of the way while patching files. + (rename-file "web/infoshare/manager/MDB-Free/index.html" + "web/infoshare/manager/MDB-Free/index.htm") + (substitute* (cons + "web/webqtl/base/indexBody.py" + (find-files "web" "\\.html")) + ((".*base href.*") "") + (("(HREF|href)=\\\"http://(www.)?genenetwork.org") + "href=\"")) + (substitute* "web/webqtl/base/indexBody.py" + (("src=\\\"http://www.genenetwork.org") "src=\"")) + + ;; Move this file back to its original location. + (rename-file "web/infoshare/manager/MDB-Free/index.htm" + "web/infoshare/manager/MDB-Free/index.html") + #t)) (add-before 'install 'replace-htaccess-file (lambda _ (delete-file "web/webqtl/.htaccess") -- cgit v1.2.3