Overview
| Comment: | Increased allowed age on cached load info to 5 seconds. Increased random server start delay to 0-2 seconds. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65 |
| Files: | files | file ages | folders |
| SHA1: |
97727e82b875406e51e022fcddc64218 |
| User & Date: | mrwellan on 2018-02-05 09:25:04 |
| Other Links: | branch diff | manifest | tags |
Context
|
2018-02-05
| ||
| 12:42 | Increase to max of 5 secs random wait for server start check-in: 6961246ad7 user: mrwellan tags: v1.65 | |
| 09:25 | Increased allowed age on cached load info to 5 seconds. Increased random server start delay to 0-2 seconds. check-in: 97727e82b8 user: mrwellan tags: v1.65 | |
|
2018-02-04
| ||
| 23:10 | lowered priority on some messages from get/write info. Fixed variable name. check-in: 3321c2c522 user: matt tags: v1.65 | |
Changes
Modified common.scm from [3258e08dfd] to [87be6fd2a8].
| ︙ | ︙ | |||
1428 1429 1430 1431 1432 1433 1434 | ;; (set! cpu-load newval)))))) ;; (car load-res)) ;; cpu-load)) ;; get values from cached info from dropping file in logs dir ;; e.g. key is host and dtype is normalized-load ;; | | | 1428 1429 1430 1431 1432 1433 1434 1435 1436 1437 1438 1439 1440 1441 1442 |
;; (set! cpu-load newval))))))
;; (car load-res))
;; cpu-load))
;; get values from cached info from dropping file in logs dir
;; e.g. key is host and dtype is normalized-load
;;
(define (common:get-cached-info key dtype #!key (age 5))
(let* ((fullpath (conc *toppath* "/logs/" key "-" dtype ".log")))
(if (and (file-exists? fullpath)
(file-read-access? fullpath))
(handle-exceptions
exn
#f
(debug:print 2 *default-log-port* "reading file " fullpath)
|
| ︙ | ︙ |
Modified server.scm from [347cacb51e] to [1169c1e8ae].
| ︙ | ︙ | |||
139 140 141 142 143 144 145 146 147 148 149 150 151 152 |
(not (string-match (conc "("curr-host "|" curr-host"\\..*)") target-host))
(not (equal? curr-ip target-host)))
(begin
(debug:print-info 0 *default-log-port* "Starting server on " target-host ", logfile is " logfile)
(setenv "TARGETHOST" target-host)))
(setenv "TARGETHOST_LOGF" logfile)
(common:wait-for-normalized-load load-limit " delaying server start due to load" target-host) ;; do not try starting servers on an already overloaded machine, just wait forever
(system (conc "nbfake " cmdln))
(unsetenv "TARGETHOST_LOGF")
(if (get-environment-variable "TARGETHOST")(unsetenv "TARGETHOST"))
(thread-join! log-rotate)
(pop-directory)))
| > | 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 |
(not (string-match (conc "("curr-host "|" curr-host"\\..*)") target-host))
(not (equal? curr-ip target-host)))
(begin
(debug:print-info 0 *default-log-port* "Starting server on " target-host ", logfile is " logfile)
(setenv "TARGETHOST" target-host)))
(setenv "TARGETHOST_LOGF" logfile)
(thread-sleep! (/ (random 1900) 1000)) ;; add about a random (up to 1.1 seconds) initial delay. It seems pretty common that many running tests request a server at the same time
(common:wait-for-normalized-load load-limit " delaying server start due to load" target-host) ;; do not try starting servers on an already overloaded machine, just wait forever
(system (conc "nbfake " cmdln))
(unsetenv "TARGETHOST_LOGF")
(if (get-environment-variable "TARGETHOST")(unsetenv "TARGETHOST"))
(thread-join! log-rotate)
(pop-directory)))
|
| ︙ | ︙ |