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
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 val)
					    (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)