Overview
| Comment: | Changed server timeout from 60 to 1200 seconds |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.70 | v1.7006 |
| Files: | files | file ages | folders |
| SHA1: |
36255e358b2dfdc9f66ae58f9e58c2ae |
| User & Date: | mmgraham on 2022-08-30 15:44:43 |
| Other Links: | branch diff | manifest | tags |
Context
|
2022-09-16
| ||
| 16:21 | removed checking for journal file. Moved setting of busy timeout and PRAGMA synchronous inside cautious-open-database check-in: a66ca8ec4f user: mmgraham tags: v1.70 | |
|
2022-09-04
| ||
| 20:11 | Merging forward. Leaf check-in: d64a152659 user: matt tags: v1.70-ck5-round2 | |
| 19:34 | blind merge from latest v1.70 check-in: 9154f466d1 user: matt tags: v1.70-ck5 | |
|
2022-08-30
| ||
| 15:44 | Changed server timeout from 60 to 1200 seconds check-in: 36255e358b user: mmgraham tags: v1.70, v1.7006 | |
| 14:53 | removed some debug messages check-in: 1d8b9a3445 user: mmgraham tags: v1.70 | |
Changes
Modified server.scm from [3fa51300e8] to [775e426670].
| ︙ | ︙ | |||
575 576 577 578 579 580 581 |
;; Default is 60 seconds.
;;
(define (server:expiration-timeout)
(let ((tmo (configf:lookup *configdat* "server" "timeout")))
(if (and (string? tmo)
(common:hms-string->seconds tmo)) ;; BUG: hms-string->seconds is broken, if given "10" returns 0. Also, it doesn't belong in this logic unless the string->number is changed below
(* 3600 (string->number tmo))
| | | 575 576 577 578 579 580 581 582 583 584 585 586 587 588 589 |
;; Default is 60 seconds.
;;
(define (server:expiration-timeout)
(let ((tmo (configf:lookup *configdat* "server" "timeout")))
(if (and (string? tmo)
(common:hms-string->seconds tmo)) ;; BUG: hms-string->seconds is broken, if given "10" returns 0. Also, it doesn't belong in this logic unless the string->number is changed below
(* 3600 (string->number tmo))
1200)))
(define (server:get-best-guess-address hostname)
(let ((res #f))
(for-each
(lambda (adr)
(if (not (eq? (u8vector-ref adr 0) 127))
(set! res adr)))
|
| ︙ | ︙ |