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: |
fafe58dfc39339c1c9018865654edb06 |
| 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 |
;; 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))
| | | 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?))
|
| ︙ | ︙ |