Overview
| Comment: | Added check for ruletype |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.64 |
| Files: | files | file ages | folders |
| SHA1: |
cf2e7841b3aee68b1ab6b30ae98b4168 |
| User & Date: | mrwellan on 2017-02-23 15:33:03 |
| Other Links: | branch diff | manifest | tags |
Context
|
2017-02-23
| ||
| 19:11 | Brought v1.64 up to date with v1.63 check-in: 995f56ced6 user: matt tags: v1.64 | |
| 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 | |
Changes
Modified mtut.scm from [19f0b18e13] to [d1c899006f].
| ︙ | ︙ | |||
378 379 380 381 382 383 384 | (lambda (a b)(equal? (car a)(car b))))) ;; remove duplicates by target ) ;; look in runstarts for matching runs by target and contour ;; get the timestamp for when that run started and pass it ;; to the rule logic here where "ruletype" will be applied ;; if it comes back "changed" then proceed to register the runs | | > | 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 |
(lambda (a b)(equal? (car a)(car b))))) ;; remove duplicates by target
)
;; look in runstarts for matching runs by target and contour
;; get the timestamp for when that run started and pass it
;; to the rule logic here where "ruletype" will be applied
;; if it comes back "changed" then proceed to register the runs
(case (string->symbol (or ruletype "no-such-rule"))
((no-such-rule) (print "ERROR: no such rule for " sense))
((scheduled)
(if (not (alist-ref 'cron val-alist)) ;; gotta have cron spec
(print "ERROR: bad sense spec \"" (string-intersperse sense " ") "\" params: " val-alist)
(let* ((run-name (alist-ref 'run-name val-alist))
(crontab (alist-ref 'cron val-alist))
(action (alist-ref 'action val-alist))
(last-run (if (null? starttimes) ;; never run
|
| ︙ | ︙ |