Differences From Artifact [0d4bee3590]:
- File server.scm — part of check-in [c39a272abe] at 2017-02-14 16:44:14 on branch run-mgr — Added protection for call to get mod time (user: mrwellan, size: 15300) [annotate] [blame] [check-ins using] [more...]
To Artifact [c9206854e2]:
- File server.scm — part of check-in [c838c6a2d2] at 2017-03-07 14:26:34 on branch v1.63-09c-candidate — upped default server timeout from 1hr to 25hrs to reduce incidence of potential server transition issues (user: bjbarcla, size: 15299) [annotate] [blame] [check-ins using] [more...]
| ︙ | |||
395 396 397 398 399 400 401 | 395 396 397 398 399 400 401 402 403 404 405 | - - + + |
(define (server:get-timeout)
(let ((tmo (configf:lookup *configdat* "server" "timeout")))
(if (and (string? tmo)
(string->number tmo))
(* 60 60 (string->number tmo))
;; (* 3 24 60 60) ;; default to three days
|