Overview
| Comment: | Removed check for age on monitor.db, changed no-use run time on server to 45 minutes |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
65d946ec7f59afad3047f03b2f76b320 |
| User & Date: | matt on 2012-11-26 07:16:55 |
| Other Links: | manifest | tags |
Context
|
2012-11-26
| ||
| 10:24 | Bumped version check-in: 06080e4779 user: mrwellan tags: trunk, v1.5202 | |
| 07:16 | Removed check for age on monitor.db, changed no-use run time on server to 45 minutes check-in: 65d946ec7f user: matt tags: trunk | |
|
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 | |
Changes
Modified server.scm from [8dbbdd3b70] to [9fb7505200].
| ︙ | ︙ | |||
190 191 192 193 194 195 196 |
(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
(mutex-lock! *heartbeat-mutex*)
(set! last-access *last-db-access*)
(mutex-unlock! *heartbeat-mutex*)
(if (> (+ last-access
| | > | 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 |
(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
(mutex-lock! *heartbeat-mutex*)
(set! last-access *last-db-access*)
(mutex-unlock! *heartbeat-mutex*)
(if (> (+ last-access
;; (* 50 60 60) ;; 48 hrs
;; 60 ;; one minute
;; (* 60 60) ;; one hour
(* 45 60) ;; 45 minutes, until the db deletion bug is fixed.
)
(current-seconds))
(begin
(debug:print-info 2 "Server continuing, seconds since last db access: " (- (current-seconds) last-access))
(loop 0))
(begin
(debug:print-info 0 "Starting to shutdown the server.")
|
| ︙ | ︙ |
Modified tasks.scm from [acea04adee] to [bc19277591].
| ︙ | ︙ | |||
20 21 22 23 24 25 26 | ;;====================================================================== ;; Tasks db ;;====================================================================== (define (tasks:open-db) (let* ((dbpath (conc *toppath* "/monitor.db")) | | | | | | | | | | | 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 |
;;======================================================================
;; Tasks db
;;======================================================================
(define (tasks:open-db)
(let* ((dbpath (conc *toppath* "/monitor.db"))
(exists (file-exists? dbpath))
;; ;; BUGGISHNESS: Remove this code in six months. Today is 11/13/2012
;; (if (< (file-change-time dbpath) 1352851396.0)
;; (begin
;; (debug:print 0 "NOTE: removing old db file " dbpath)
;; (delete-file dbpath)
;; #f)
;; #t)
;; #f))
(mdb (sqlite3:open-database dbpath)) ;; (never-give-up-open-db dbpath))
(handler (make-busy-timeout 36000)))
(sqlite3:set-busy-handler! mdb handler)
(sqlite3:execute mdb (conc "PRAGMA synchronous = 0;"))
(if (not exists)
(begin
(sqlite3:execute mdb "CREATE TABLE IF NOT EXISTS tasks_queue (id INTEGER PRIMARY KEY,
|
| ︙ | ︙ |