Differences From Artifact [7d7e4242db]:
- File server.scm — part of check-in [81b0d79d6d] at 2017-02-02 21:53:36 on branch v1.63 — Should be one server candidate (I think) (user: matt, size: 15112) [annotate] [blame] [check-ins using] [more...]
To Artifact [c88a26a1a2]:
- File server.scm — part of check-in [073579372e] at 2017-02-14 14:48:04 on branch run-mgr — Minor tweaks (user: mrwellan, size: 15113) [annotate] [blame] [check-ins using]
| ︙ | |||
392 393 394 395 396 397 398 | 392 393 394 395 396 397 398 399 400 401 402 | - + |
(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
|