Overview
Comment: | Added kill flag to go |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | v1.65 |
Files: | files | file ages | folders |
SHA1: |
a2de50c3ef5cff365b6eee238da8d94c |
User & Date: | mrwellan on 2020-12-15 17:46:59 |
Other Links: | branch diff | manifest | tags |
Context
2020-12-16
| ||
16:50 | Added some safety checks to mtutil go check-in: c9fbdc272c user: mrwellan tags: v1.65 | |
2020-12-15
| ||
17:46 | Added kill flag to go check-in: a2de50c3ef user: mrwellan tags: v1.65 | |
17:42 | Fixed minor crash (bad input) in mtutil and added go command check-in: f98a3f9de9 user: mrwellan tags: v1.65 | |
Changes
Modified mtut.scm from [2f13b51de5] to [3296395607].
︙ | ︙ | |||
1643 1644 1645 1646 1647 1648 1649 | (delete-file* "do-not-run-mtutil-go"))) (let loop ((last-run (- (current-seconds) (+ period 10))) ;; fake out first time in (this-run (current-seconds))) (if (file-exists? "do-not-run-mtutil-go") (exit)) (let ((delta (- this-run last-run))) (if (>= delta period) | | > | 1643 1644 1645 1646 1647 1648 1649 1650 1651 1652 1653 1654 1655 1656 1657 1658 | (delete-file* "do-not-run-mtutil-go"))) (let loop ((last-run (- (current-seconds) (+ period 10))) ;; fake out first time in (this-run (current-seconds))) (if (file-exists? "do-not-run-mtutil-go") (exit)) (let ((delta (- this-run last-run))) (if (>= delta period) (let* ((mtconfdat (simple-setup (args:get-arg "-start-dir"))) (mtconf (car mtconfdat))) (print "Running import at " (current-seconds)) (common:load-pkts-to-db mtconf) (print "Running generate run pkts at " (current-seconds)) (generate-run-pkts mtconf toppath) (print "Running run dispatch at " (current-seconds)) (common:load-pkts-to-db mtconf) (dispatch-commands mtconf toppath) |
︙ | ︙ |