Megatest

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
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
	(* 60 60 1)         ;; default to one hour
	;; (* 60 60 25)      ;; default to 25 hours
	)))

|
|

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
	;;(* 60 60 1)         ;; default to one hour
	(* 60 60 25)      ;; default to 25 hours
	)))