Overview
| Comment: | removed some noisy output and added some runconfigs.config example settings |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.64 |
| Files: | files | file ages | folders |
| SHA1: |
6d51100961e95c1943bf0529ab815d57 |
| User & Date: | matt on 2017-02-22 21:26:14 |
| Other Links: | branch diff | manifest | tags |
Context
|
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 | |
| 21:18 | merge v1.63 into v1.64 b763,8a61,11f9,9fc6 check-in: 30ecc5c974 user: matt tags: v1.64 | |
|
2017-02-20
| ||
| 13:47 | Suppressed some noisy output Closed-Leaf check-in: a7eabde3a3 user: matt tags: run-mgr | |
Changes
Modified common.scm from [fde87b26c0] to [316e289358].
| ︙ | ︙ | |||
1773 1774 1775 1776 1777 1778 1779 | ;; (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))) | | | 1773 1774 1775 1776 1777 1778 1779 1780 1781 1782 1783 1784 1785 1786 1787 |
;;
(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 [ea91541450] to [19f0b18e13].
| ︙ | ︙ | |||
17 18 19 20 21 22 23 |
srfi-18 extras format pkts regex
(prefix dbi dbi:)) ;; zmq extras)
(declare (uses common))
(declare (uses megatest-version))
(declare (uses margs))
(declare (uses configf))
| | | 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 rmt))
(include "megatest-fossil-hash.scm")
(let ((debugcontrolf (conc (get-environment-variable "HOME") "/.mtutilrc")))
(if (file-exists? debugcontrolf)
(load debugcontrolf)))
|
| ︙ | ︙ | |||
287 288 289 290 291 292 293 |
;; 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)))
| | | 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 |
;; 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
|
| ︙ | ︙ |