107
108
109
110
111
112
113
114
115
116
117
118
119
120
|
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
|
+
+
+
|
(lambda ()
(print "*configdat* is >>"*configdat*"<<")
(pp *configdat*)
(pp call-chain)))
(exit 1))))
;;(bb-check-path msg: "runs:set-megatest-env-vars block 1.5")
(if (or (not *configdat*) (not (hash-table? *configdat*)))
(BB> "ERROR: *configdat* was inaccessible! This should never happen. Brute force reread.")
(launch:setup force-reread: #t))
(alist->env-vars (hash-table-ref/default *configdat* "env-override" '())))) ;;;; environment is tainted HERE in this let block.
;;(bb-check-path msg: "runs:set-megatest-env-vars block 2")
;; Lets use this as an opportunity to put MT_RUNNAME in the environment
(let ((runname (if inrunname inrunname (rmt:get-run-name-from-id run-id))))
(if runname
(setenv "MT_RUNNAME" runname)
(debug:print-error 0 *default-log-port* "no value for runname for id " run-id)))
|