Megatest

Check-in [fafe58dfc3]
Login
Overview
Comment:Oops. Change units for server expiration time back to hours
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.64
Files: files | file ages | folders
SHA1: fafe58dfc39339c1c9018865654edb06a8de1d24
User & Date: matt on 2017-07-13 04:19:58
Other Links: branch diff | manifest | tags
Context
2017-07-13
07:04
Use WAL mode on no-sync db check-in: 18c376fe83 user: matt tags: v1.64
04:19
Oops. Change units for server expiration time back to hours check-in: fafe58dfc3 user: matt tags: v1.64
2017-07-12
23:12
re-implemented old v1.60 style server timeout handling. Something hahad gotten lost in the translation check-in: 7654d9b17b user: matt tags: v1.64
Changes

Modified server.scm from [e95564f4fe] to [cd5b86d727].

443
444
445
446
447
448
449
450
451
452
453
454
455
456
457

;; timeout is hms string: 1h 5m 3s, default is 1 minute
;;
(define (server:expiration-timeout)
  (let ((tmo (configf:lookup *configdat* "server" "timeout")))
    (if (and (string? tmo)
	     (common:hms-string->seconds tmo))
        (string->number tmo)
	60)))

;; moving this here as it needs access to db and cannot be in common.
;;
(define (server:writable-watchdog dbstruct)
  (thread-sleep! 0.05) ;; delay for startup
  (let ((legacy-sync  (common:run-sync?))







|







443
444
445
446
447
448
449
450
451
452
453
454
455
456
457

;; timeout is hms string: 1h 5m 3s, default is 1 minute
;;
(define (server:expiration-timeout)
  (let ((tmo (configf:lookup *configdat* "server" "timeout")))
    (if (and (string? tmo)
	     (common:hms-string->seconds tmo))
        (* 3600 (string->number tmo))
	60)))

;; moving this here as it needs access to db and cannot be in common.
;;
(define (server:writable-watchdog dbstruct)
  (thread-sleep! 0.05) ;; delay for startup
  (let ((legacy-sync  (common:run-sync?))