395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
|
;; (debug:print 11 "last-access=" last-access ", server-timeout=" server-timeout)
;;
;; no_traffic, no running tests, if server 0, no running servers
;;
(if (and *server-run*
(or (> (db:get-count-tests-running *inmemdb* run-id) 0)
(and (eq? run-id 0)
(> (tasks:num-servers-non-zero-running tdb) 0)))
(> (+ last-access server-timeout)
(current-seconds)))
(begin
(debug:print-info 0 "Server continuing, seconds since last db access: " (- (current-seconds) last-access))
;;
;; Consider implementing some smarts here to re-insert the record or kill self is
;; the db indicates so
;;
;; (if (tasks:server-am-i-the-server? tdb run-id)
|
|
|
|
|
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
|
;; (debug:print 11 "last-access=" last-access ", server-timeout=" server-timeout)
;;
;; no_traffic, no running tests, if server 0, no running servers
;;
(if (and *server-run*
(or (> (db:get-count-tests-running *inmemdb* run-id) 0)
(and (eq? run-id 0)
(> (tasks:num-servers-non-zero-running tdb) 0))
(> (+ last-access server-timeout)
(current-seconds))))
(begin
(debug:print-info 0 "Server continuing, seconds since last db access: " (- (current-seconds) last-access))
;;
;; Consider implementing some smarts here to re-insert the record or kill self is
;; the db indicates so
;;
;; (if (tasks:server-am-i-the-server? tdb run-id)
|