Megatest

Differences From Artifact [34ba33b083]:

• File server.scm — part of check-in [0f50a21b44] at 2017-03-27 12:05:27 on branch v1.64 — Improvements to exclusive mode (but it still isn't working quite right). Factored clean-cache into a reusable function and called it also in -rerun*. Reduced number of server files to analyze. This may reduce the probability of a runaway server situation. (user: matt, size: 15920) [annotate] [blame] [check-ins using]

To Artifact [a878389459]:

• File server.scm — part of check-in [7b318f91bd] at 2017-03-27 23:59:53 on branch v1.64 — protected config file call to delete-file with exception handler. Fixed logic on connecting using CMDINFO. Fixed -list-servers and -kill-servers. Turned exception handler back on in portlogger. Removed the addition of a little noise from the server timeout handling in rmt.scm (user: matt, size: 15922) [annotate] [blame] [check-ins using]

417
418
419
420
421
422
423
424
425
426

(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 0.25)    ;; default to 0.25 hours
	)))

|

417
418
419
420
421
422
423
424
425
426

(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 5)          ;; default to five minutes
	)))