Megatest

Check-in [65d946ec7f]
Login
☰Home Timeline Files Branches Tags Tickets Wiki Login
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: 65d946ec7f59afad3047f03b2f76b3200a498afe
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
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified server.scm from [8dbbdd3b70] to [9fb7505200].

︙
190
191
192
193
194
195
196
197

198
199

200
201
202
203
204
205
206

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
		  ;; (* 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
27
28
29
30
31
32
33
34
35









36
37
38
39
40
41
42

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  (if (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))
	 (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,
︙

This page was generated in about 0.109s by Fossil 2.24 [452f8e1ffc] 2024-03-26 15:36:00