Overview
| Comment: | fixed -list-targets delay issue |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.63 | 1.6309b |
| Files: | files | file ages | folders |
| SHA1: |
b56656e03cf1e2eb9e22eb3a7479f909 |
| User & Date: | bjbarcla on 2017-03-02 12:19:15 |
| Other Links: | branch diff | manifest | tags |
Context
|
2017-03-03
| ||
| 22:47 | Added *user-hash-data* - a global that can be used in -repl and #{scheme ...} calls by the end user check-in: a024d9e60f user: matt tags: v1.63 | |
| 16:52 | fixed bug for ticket 1405717332: in client, crashes when needing to restart server because of reference to undefined symbol "run-id" check-in: efd0285893 user: bjbarcla tags: v1.63-randy-1405717332 | |
| 06:10 | Merged from v1.63 check-in: 64f440e2e1 user: matt tags: v1.64 | |
|
2017-03-02
| ||
| 15:45 | Wrapped database open commands with detailed error handling messages. Closed-Leaf check-in: e8d3292a50 user: matt tags: condition-case-db-open | |
| 12:19 | fixed -list-targets delay issue check-in: b56656e03c user: bjbarcla tags: v1.63, 1.6309b | |
|
2017-03-01
| ||
| 19:10 | fixed issue for elena (0 byte megatest.db on make setup) check-in: 880cbf2fca user: bjbarcla tags: v1.63, 1.6309a | |
Changes
Modified megatest.scm from [6e7b72b955] to [08c15272e3].
| ︙ | ︙ | |||
369 370 371 372 373 374 375 | ;; The watchdog is to keep an eye on things like db sync etc. ;; ;; TODO: for multiple areas, we will have multiple watchdogs; and multiple threads to manage (define *watchdog* (make-thread common:watchdog "Watchdog thread")) | | | > > > > > > > > > > > > > > > > > > | 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 |
;; The watchdog is to keep an eye on things like db sync etc.
;;
;; TODO: for multiple areas, we will have multiple watchdogs; and multiple threads to manage
(define *watchdog* (make-thread common:watchdog "Watchdog thread"))
;;(if (not (args:get-arg "-server"))
;; (thread-start! *watchdog*)) ;; if starting a server; wait till we get to running state before kicking off watchdog
(let* ((no-watchdog-args
'("-list-runs"
"-list-servers"
"-server"
"-list-disks"
"-list-targets"
"-show-runconfig"
;;"-list-db-targets"
"-show-runconfig"
"-show-config"
"-show-cmdinfo"))
(no-watchdog-args-vals (filter (lambda (x) x)
(map args:get-arg no-watchdog-args)))
(start-watchdog (null? no-watchdog-args-vals)))
;;(BB> "no-watchdog-args="no-watchdog-args "no-watchdog-args-vals="no-watchdog-args-vals)
(if start-watchdog
(thread-start! *watchdog*)))
;; bracket open-output-file with code to make leading directory if it does not exist and handle exceptions
(define (open-logfile logpath)
(condition-case
(let* ((log-dir (or (pathname-directory logpath) ".")))
(if (not (directory-exists? log-dir))
(system (conc "mkdir -p " log-dir)))
|
| ︙ | ︙ |