Overview
| Comment: | Fixed issues with ! variables bleeding into environment and update to mtut |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65 | v1.6513 |
| Files: | files | file ages | folders |
| SHA1: |
b04e689404c660fdf6727bf2645dd515 |
| User & Date: | jmoon18 on 2018-07-19 08:31:51 |
| Other Links: | branch diff | manifest | tags |
Context
|
2018-07-26
| ||
| 16:44 | Fixed issues with sync to tmp area for a readonly user when WAL mode on' check-in: fd4c0d8701 user: pjhatwal tags: v1.65 | |
|
2018-07-19
| ||
| 08:31 | Fixed issues with ! variables bleeding into environment and update to mtut check-in: b04e689404 user: jmoon18 tags: v1.65, v1.6513 | |
|
2018-07-16
| ||
| 13:23 | Merged the create run area change. check-in: 83edad0b8e user: mrwellan tags: v1.65 | |
Changes
Modified common.scm from [5d7e225d9a] to [5eccfcf84f].
| ︙ | ︙ | |||
57 58 59 60 61 62 63 |
(print-error-message exn) ))))
(debug:print-info 0 *default-log-port* " -- continuing after nonfatal condition...")
#f)
(thunk)))
(define getenv get-environment-variable)
(define (safe-setenv key val)
| | | | 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 |
(print-error-message exn) ))))
(debug:print-info 0 *default-log-port* " -- continuing after nonfatal condition...")
#f)
(thunk)))
(define getenv get-environment-variable)
(define (safe-setenv key val)
(if (or (substring-index "!" key) (substring-index ":" key)) ;; variables containing : are for internal use and cannot be environment variables.
(debug:print-error 4 *default-log-port* "skip setting internal use only variables containing \":\" or starting with \"!\"")
(if (and (string? val)
(string? key))
(handle-exceptions
exn
(debug:print-error 0 *default-log-port* "bad value for setenv, key=" key ", value=" val)
(setenv key val))
(debug:print-error 0 *default-log-port* "bad value for setenv, key=" key ", value=" val))))
|
| ︙ | ︙ |
Modified launch.scm from [53c1bc7991] to [a65f4f4d22].
| ︙ | ︙ | |||
652 653 654 655 656 657 658 | (lambda (section) (for-each (lambda (varval) (let ((var (car varval)) (val (cadr varval))) (if (and (string? var)(string? val)) (begin | | | 652 653 654 655 656 657 658 659 660 661 662 663 664 665 666 |
(lambda (section)
(for-each
(lambda (varval)
(let ((var (car varval))
(val (cadr varval)))
(if (and (string? var)(string? val))
(begin
(safe-setenv var (config:eval-string-in-environment val))) ;; val)
(debug:print-error 0 *default-log-port* "bad variable spec, " var "=" val))))
(configf:get-section rconfig section)))
(list "default" target)))
;;(bb-check-path msg: "launch:execute post block 1")
;; NFS might not have propagated the directory meta data to the run host - give it time if needed
(let loop ((count 0))
|
| ︙ | ︙ |
Modified mtut.scm from [9ba5c38876] to [8ce8acd5f2].
| ︙ | ︙ | |||
1025 1026 1027 1028 1029 1030 1031 |
;;(target . ,(list new-target)) ;; overriding with result from runing the script
))
(aval (or (configf:lookup mtconf "areas" area) ""))
(aval-alist (common:val->alist aval))
(targets (map-targets mtconf aval-alist runkey area contour)))
(pp targets)
| | | 1025 1026 1027 1028 1029 1030 1031 1032 1033 1034 1035 1036 1037 1038 1039 |
;;(target . ,(list new-target)) ;; overriding with result from runing the script
))
(aval (or (configf:lookup mtconf "areas" area) ""))
(aval-alist (common:val->alist aval))
(targets (map-targets mtconf aval-alist runkey area contour)))
(pp targets)
(for-each (lambda (target) (create-run-pkt mtconf action area runkey target new-runname mode-patt
tag-expr pktsdir reason contour sched dbdest append
runtrans)) targets)
;;(create-run-pkt mtconf action area runkey target runname
;; pktsdir reason contour dbdest append
;; runtrans)
(print "key-msg: " key-msg)
|
| ︙ | ︙ |