From 88e218c7f247961cd1dc98f082e178599ed5dfc5 Mon Sep 17 00:00:00 2001
From: Efraim Flashner
Date: Fri, 25 Oct 2019 08:55:05 -0500
Subject: gn: bnw: Update to 1.22-3.eb6b002.

* gn/packages/bnw.scm (bnw): Update to 1.22-3.eb6b002. Serve from
bnw-test first.
---
 gn/packages/bnw.scm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'gn/packages/bnw.scm')

diff --git a/gn/packages/bnw.scm b/gn/packages/bnw.scm
index 99de4fc..bdb6ac5 100644
--- a/gn/packages/bnw.scm
+++ b/gn/packages/bnw.scm
@@ -14,7 +14,7 @@
 
 (define-public bnw
   (let ((commit "eb6b002b924694808384f1a8d7c6d1121806ae04")
-        (revision "2"))
+        (revision "3"))
     (package
       (name "bnw")
       (version (git-version "1.22" revision commit)) ; June 28, 2019
@@ -37,6 +37,8 @@
              (lambda _
                (substitute* "index.html"
                  (("url=home.php") "url=sourcecodes/home.php"))
+               (substitute* "home.php"
+                 (("http://bnw.genenetwork.org/BNW_1.22") "http://bnw-test.genenetwork.org"))
                (substitute* "sourcecodes/header_batchsearch.inc"
                  (("my_style.css") "my_new_style.css"))
                #t))
@@ -71,8 +73,7 @@
                    (("rm") (which "rm"))
                    (("cp") (which "cp")))
                  (substitute*
-                   (append '("home.php")
-                           (find-files "sourcecodes" ".php")
+                   (append (find-files "sourcecodes" ".php")
                            (find-files "sourcecodes/run_scripts" ".*"))
                    (("/usr/bin/dot") (string-append graphviz "/bin/dot")))
                  (substitute* "sourcecodes/build.sh"
-- 
cgit v1.2.3