Overview
Comment: | fixed bug |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | v1.64 |
Files: | files | file ages | folders |
SHA1: |
b27bd09cf2328278a59252be8a97f8d9 |
User & Date: | bjbarcla on 2017-07-12 17:37:48 |
Other Links: | branch diff | manifest | tags |
Context
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 | |
17:37 | fixed bug check-in: b27bd09cf2 user: bjbarcla tags: v1.64 | |
17:26 | corrected bug check-in: 6038142b2a user: bjbarcla tags: v1.64 | |
Changes
Modified http-transport.scm from [f8e69d5834] to [9dc12bb28f].
︙ | ︙ | |||
448 449 450 451 452 453 454 | server-timeout))) (if (common:low-noise-print 120 "server timeout") (debug:print-info 0 *default-log-port* "Adjusted server timeout: " adjusted-timeout)) (cond ((and *server-run* (> (+ last-access server-timeout) (current-seconds)) | | | 448 449 450 451 452 453 454 455 456 457 458 459 460 461 462 | server-timeout))) (if (common:low-noise-print 120 "server timeout") (debug:print-info 0 *default-log-port* "Adjusted server timeout: " adjusted-timeout)) (cond ((and *server-run* (> (+ last-access server-timeout) (current-seconds)) (< (- (current-seconds) server-start-time) (configf:lookup-number *configdat* "server" "time-to-die-seconds" default: (* 3600 700 2) ) )) ;; do not update log or touch log if we've been running for more than one hour. (if (common:low-noise-print 120 "server continuing") (debug:print-info 0 *default-log-port* "Server continuing, seconds since last db access: " (- (current-seconds) last-access)) (let ((curr-time (current-seconds))) (handle-exceptions exn (debug:print 0 *default-log-port* "ERROR: Failed to change timestamp on log file " server-log-file ". Are you out of space on that disk?") (if (not *server-overloaded*) |
︙ | ︙ |