Overview
| Comment: | Increased server lifetime to 50 hrs. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk | v1.5201 |
| Files: | files | file ages | folders |
| SHA1: |
8802d93a2105c6136a301c9736475567 |
| User & Date: | mrwellan on 2012-11-21 09:59:58 |
| Other Links: | manifest | tags |
Context
|
2012-11-22
| ||
| 16:16 | Added reseting of timeout based on non sync or ping accesses to db check-in: 2ddaa66a7b user: matt tags: trunk | |
|
2012-11-21
| ||
| 09:59 | Increased server lifetime to 50 hrs. check-in: 8802d93a21 user: mrwellan tags: trunk, v1.5201 | |
| 08:44 | bumped version check-in: fa122ecc22 user: mrwellan tags: trunk, v1.52 | |
Changes
Modified megatest-version.scm from [f589353a42] to [22702e12f8].
1 2 3 4 5 | ;; Always use two digit decimal ;; 1.01, 1.02...1.10,1.11 ... 1.99,2.00.. (declare (unit megatest-version)) | | | 1 2 3 4 5 6 7 | ;; Always use two digit decimal ;; 1.01, 1.02...1.10,1.11 ... 1.99,2.00.. (declare (unit megatest-version)) (define megatest-version 1.5201) |
Modified server.scm from [13e366963f] to [159c9d5292].
| ︙ | ︙ | |||
181 182 183 184 185 186 187 |
(loop (+ count 1)))
;; NOTE: Get rid of this mechanism! It really is not needed...
(open-run-close tasks:server-update-heartbeat tasks:open-db (car server-info))
;; (if ;; (or (> numrunning 0) ;; stay alive for two days after last access
(if (> (+ *last-db-access*
| | | | 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 |
(loop (+ count 1)))
;; NOTE: Get rid of this mechanism! It really is not needed...
(open-run-close tasks:server-update-heartbeat tasks:open-db (car server-info))
;; (if ;; (or (> numrunning 0) ;; stay alive for two days after last access
(if (> (+ *last-db-access*
(* 50 60 60) ;; 48 hrs
;; 60 ;; one minute
;; (* 60 60) ;; one hour
)
(current-seconds))
(begin
(debug:print-info 2 "Server continuing, seconds since last db access: " (- (current-seconds) *last-db-access*))
(loop 0))
(begin
(debug:print-info 0 "Starting to shutdown the server.")
|
| ︙ | ︙ |