Megatest

Check-in [27c316be9d]
Login
Overview
Comment:Removed call to rmt:update-db-stats, it was causing a problem in waiver processing
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.60
Files: files | file ages | folders
SHA1: 27c316be9dc0cb6ce20fda38cb71f84c6c08975b
User & Date: matt on 2015-04-28 23:43:21
Other Links: branch diff | manifest | tags
Context
2015-04-29
23:41
Added skip rundelay feature per discussion with Jeff Moon. check-in: 6824ad8f72 user: matt tags: v1.60
2015-04-28
23:43
Removed call to rmt:update-db-stats, it was causing a problem in waiver processing check-in: 27c316be9d user: matt tags: v1.60
2015-04-24
08:48
Added comment re. hostname fail check-in: e94161ccb3 user: matt tags: v1.60
Changes

Modified rmt.scm from [e57d73e7b7] to [a135a02f0b].

245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
	      (debug:print 0 "ERROR: local query failed. Trying again.")
	      (thread-sleep! (/ (random 5000) 1000)) ;; some random delay 
	      (rmt:open-qry-close-locally cmd run-id params remretries: (- remretries 1)))
	    (begin
	      (debug:print 0 "ERROR: too many retries in rmt:open-qry-close-locally, giving up")
	      #f))
	(begin
	  (rmt:update-db-stats run-id cmd params duration)
	  ;; mark this run as dirty if this was a write
	  (if (not (member cmd api:read-only-queries))
	      (let ((start-time (current-seconds)))
		(mutex-lock! *db-multi-sync-mutex*)
		;; (if (not (hash-table-ref/default *db-local-sync* run-id #f))
		;; just set it every time. Is a write more expensive than a read and does it matter?
		(hash-table-set! *db-local-sync* (or run-id 0) start-time) ;; the oldest "write"







|







245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
	      (debug:print 0 "ERROR: local query failed. Trying again.")
	      (thread-sleep! (/ (random 5000) 1000)) ;; some random delay 
	      (rmt:open-qry-close-locally cmd run-id params remretries: (- remretries 1)))
	    (begin
	      (debug:print 0 "ERROR: too many retries in rmt:open-qry-close-locally, giving up")
	      #f))
	(begin
	  ;; (rmt:update-db-stats run-id cmd params duration)
	  ;; mark this run as dirty if this was a write
	  (if (not (member cmd api:read-only-queries))
	      (let ((start-time (current-seconds)))
		(mutex-lock! *db-multi-sync-mutex*)
		;; (if (not (hash-table-ref/default *db-local-sync* run-id #f))
		;; just set it every time. Is a write more expensive than a read and does it matter?
		(hash-table-set! *db-local-sync* (or run-id 0) start-time) ;; the oldest "write"