Overview
Comment: | Added skeleton for resurected waivers mechanism |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | v1.64 |
Files: | files | file ages | folders |
SHA1: |
d403b4bf87a2b8faa9d955f5150ab59c |
User & Date: | matt on 2017-02-22 21:44:39 |
Other Links: | branch diff | manifest | tags |
Context
2017-02-23
| ||
15:33 | Added check for ruletype check-in: cf2e7841b3 user: mrwellan tags: v1.64 | |
2017-02-22
| ||
21:44 | Added skeleton for resurected waivers mechanism check-in: d403b4bf87 user: matt tags: v1.64 | |
21:26 | removed some noisy output and added some runconfigs.config example settings check-in: 6d51100961 user: matt tags: v1.64 | |
Changes
Modified launch.scm from [9afb31bd04] to [5c024732b4].
︙ | ︙ | |||
516 517 518 519 520 521 522 | (exit 1))) (change-directory *toppath*) ;; NOTE: Current order is to process runconfigs *before* setting the MT_ vars. This ;; seems non-ideal but could well break stuff ;; BUG? BUG? BUG? | | > | 516 517 518 519 520 521 522 523 524 525 526 527 528 529 530 531 | (exit 1))) (change-directory *toppath*) ;; NOTE: Current order is to process runconfigs *before* setting the MT_ vars. This ;; seems non-ideal but could well break stuff ;; BUG? BUG? BUG? (let ((rconfig (full-runconfigs-read)) ;; (read-config (conc *toppath* "/runconfigs.config") #f #t sections: (list "default" target)))) (wconfig (read-config "waivers.config" #f #t sections: `( "default" ,target )))) ;; read the waivers config if it exists ;; (setup-env-defaults (conc *toppath* "/runconfigs.config") run-id (make-hash-table) keyvals target) ;; (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))) |
︙ | ︙ |