Megatest

Check-in [9e348640c4]
Login
Overview
Comment:Evaluate strings before storing in environment in launch:execute
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.55 | v1.5523
Files: files | file ages | folders
SHA1: 9e348640c489039f4c740171203385f0303d50c9
User & Date: mrwellan on 2014-06-26 15:30:00
Other Links: branch diff | manifest | tags
Context
2014-07-14
23:05
Added more status variations for NOT_STARTED and bumped version. Also added visibility of statuses on dashboard check-in: 85a669be50 user: matt tags: v1.55
2014-06-26
15:30
Evaluate strings before storing in environment in launch:execute check-in: 9e348640c4 user: mrwellan tags: v1.55, v1.5523
2014-06-24
12:26
Added protection against invalid env vars check-in: 8643d8d19c user: mrwellan tags: v1.55
Changes

Modified launch.scm from [2cbf6ba72c] to [850eeae402].

104
105
106
107
108
109
110

111
112
113
114
115
116
117
118
	    ;; (set-run-config-vars run-id keyvals target) ;; (db:get-target db run-id))
	    ;; Now have runconfigs data loaded, set environment vars
	    (for-each (lambda (section)
			(for-each (lambda (varval)
				    (let ((var (car varval))
					  (val (cadr varval)))
				      (if (and (string? var)(string? val))

					  (setenv var val)
					  (debug:print 0 "ERROR: bad variable spec, " var "=" val))))
				  (configf:get-section rconfig section)))
		      (list "default" target)))
	  (change-directory work-area) 
	  ;; Setup the *runremote* global var
	  (if *runremote* (debug:print 2 "ERROR: I'm not expecting *runremote* to be set at this time"))
	  ;; (set! *runremote* runremote)







>
|







104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
	    ;; (set-run-config-vars run-id keyvals target) ;; (db:get-target db run-id))
	    ;; Now have runconfigs data loaded, set environment vars
	    (for-each (lambda (section)
			(for-each (lambda (varval)
				    (let ((var (car varval))
					  (val (cadr varval)))
				      (if (and (string? var)(string? val))
					  (begin
					    (setenv var (config:eval-string-in-environment val))) ;; val)
					  (debug:print 0 "ERROR: bad variable spec, " var "=" val))))
				  (configf:get-section rconfig section)))
		      (list "default" target)))
	  (change-directory work-area) 
	  ;; Setup the *runremote* global var
	  (if *runremote* (debug:print 2 "ERROR: I'm not expecting *runremote* to be set at this time"))
	  ;; (set! *runremote* runremote)