Overview
| Comment: | corrected bug |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.64 |
| Files: | files | file ages | folders |
| SHA1: |
6038142b2a5d3b84d959beb7aa971381 |
| User & Date: | bjbarcla on 2017-07-12 17:26:53 |
| Other Links: | branch diff | manifest | tags |
Context
|
2017-07-12
| ||
| 17:37 | fixed bug check-in: b27bd09cf2 user: bjbarcla tags: v1.64 | |
| 17:26 | corrected bug check-in: 6038142b2a user: bjbarcla tags: v1.64 | |
| 17:13 | increase default expiration time to 1400 hours from 1 hour. added server/time-to-die-seconds to allow future trimming check-in: e396b98a87 user: bjbarcla tags: v1.64 | |
Changes
Modified http-transport.scm from [5fea3dd46c] to [f8e69d5834].
| ︙ | ︙ | |||
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" (* 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*)
|
| ︙ | ︙ |