Overview
| Comment: | Suppressed some noisy output |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | run-mgr |
| Files: | files | file ages | folders |
| SHA1: |
a7eabde3a37f626932ae94ee4e198a6c |
| User & Date: | matt on 2017-02-20 13:47:05 |
| Other Links: | branch diff | manifest | tags |
Context
|
2017-02-22
| ||
| 21:26 | removed some noisy output and added some runconfigs.config example settings check-in: 6d51100961 user: matt tags: v1.64 | |
|
2017-02-20
| ||
| 13:47 | Suppressed some noisy output Closed-Leaf check-in: a7eabde3a3 user: matt tags: run-mgr | |
|
2017-02-19
| ||
| 23:47 | Replaced cron logic with crude but robust approach. check-in: 358e040c6c user: matt tags: run-mgr | |
Changes
Modified common.scm from [0f03b1a388] to [e3ff1f28da].
| ︙ | ︙ | |||
1700 1701 1702 1703 1704 1705 1706 | ;; (define (common:cron-event cron-str now-seconds-in last-done) ;; ref-seconds = #f is NOW. (let* ((cron-items (map string->number (string-split cron-str))) (now-seconds (or now-seconds-in (current-seconds))) (now-time (seconds->local-time now-seconds)) (last-done-time (seconds->local-time last-done)) (all-times (make-hash-table))) | | | 1700 1701 1702 1703 1704 1705 1706 1707 1708 1709 1710 1711 1712 1713 1714 |
;;
(define (common:cron-event cron-str now-seconds-in last-done) ;; ref-seconds = #f is NOW.
(let* ((cron-items (map string->number (string-split cron-str)))
(now-seconds (or now-seconds-in (current-seconds)))
(now-time (seconds->local-time now-seconds))
(last-done-time (seconds->local-time last-done))
(all-times (make-hash-table)))
;; (print "cron-items: " cron-items "(length cron-items): " (length cron-items))
(if (not (eq? (length cron-items) 5)) ;; don't even try to figure out junk strings
#f
(match-let ((( cmin chour cdayofmonth cmonth cdayofweek)
cron-items)
;; 0 1 2 3 4 5 6
((nsec nmin nhour ndayofmonth nmonth nyr ndayofweek n7 n8 n9)
(vector->list now-time))
|
| ︙ | ︙ |
Modified mtut.scm from [e6a134e6d3] to [118a34010a].
| ︙ | ︙ | |||
17 18 19 20 21 22 23 24 25 26 27 28 29 30 |
srfi-18 extras format pkts regex
(prefix dbi dbi:)) ;; zmq extras)
(declare (uses common))
(declare (uses megatest-version))
(declare (uses margs))
(declare (uses configf))
(include "megatest-fossil-hash.scm")
(let ((debugcontrolf (conc (get-environment-variable "HOME") "/.mtutilrc")))
(if (file-exists? debugcontrolf)
(load debugcontrolf)))
| > | 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 |
srfi-18 extras format pkts regex
(prefix dbi dbi:)) ;; zmq extras)
(declare (uses common))
(declare (uses megatest-version))
(declare (uses margs))
(declare (uses configf))
(declare (uses dbmodule))
(include "megatest-fossil-hash.scm")
(let ((debugcontrolf (conc (get-environment-variable "HOME") "/.mtutilrc")))
(if (file-exists? debugcontrolf)
(load debugcontrolf)))
|
| ︙ | ︙ | |||
281 282 283 284 285 286 287 |
;; pathenvvar: "MT_RUN_AREA_HOME"
))
(mtconf (if mtconfdat (car mtconfdat) #f)))
;; we set some dynamic data in a section called "dyndata"
(if mtconf
(begin
(configf:section-var-set! mtconf "dyndat" "toppath" start-dir)))
| | | 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 |
;; pathenvvar: "MT_RUN_AREA_HOME"
))
(mtconf (if mtconfdat (car mtconfdat) #f)))
;; we set some dynamic data in a section called "dyndata"
(if mtconf
(begin
(configf:section-var-set! mtconf "dyndat" "toppath" start-dir)))
;; (print "TOPPATH: " (configf:lookup mtconf "dyndat" "toppath"))
mtconfdat))
;; NEED TIMESTAMP ON PKTS for efficient loading of packets into db.
;; make a run request pkt from basic data
|
| ︙ | ︙ |
Modified runconfigs.config from [9aede9683d] to [db4124a003].
| ︙ | ︙ | |||
11 12 13 14 15 16 17 | # minute 0-59 # hour 0-23 # day of month 1-31 # month 1-12 (or names, see below) # day of week 0-7 (0 or 7 is Sun, or use names) # every friday at midnight run all | | > > > > > > | 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 | # minute 0-59 # hour 0-23 # day of month 1-31 # month 1-12 (or names, see below) # day of week 0-7 (0 or 7 is Sun, or use names) # every friday at midnight run all # all:scheduled auto/run 0 0 0 0 5 # quick:scheduled auto/run 47 * * * * # for now: quick:scheduled auto 47 * * * * # aclean = archive all but 2, clean all but 5 # quick:scheduled auto/aclean=2/5 47 * * * * quick:scheduled auto 47 * * * * |