Megatest

Check-in [da01ac3b4f]
Login
Overview
Comment:Trying more agressive resistance to starting the server
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.60
Files: files | file ages | folders
SHA1: da01ac3b4fc324120c95e3a8e19e6d501b1a8687
User & Date: mrwellan on 2014-09-04 18:22:15
Other Links: branch diff | manifest | tags
Context
2014-09-04
23:31
Removed the active client start code to ensure the dynamic server start is used. check-in: 370194c6a9 user: matt tags: v1.60
18:22
Trying more agressive resistance to starting the server check-in: da01ac3b4f user: mrwellan tags: v1.60
2014-09-03
18:14
Add support for binding to specific interface check-in: 58692d9ac7 user: mrwellan tags: v1.60
Changes

Modified rmt.scm from [5178e075e2] to [9e1ede500b].

40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
	     (record (if tmprec tmprec 
			 (let ((v (vector (current-seconds) 0)))
			   (hash-table-set! *write-frequency* run-id v)
			   v)))
	     (count  (+ 1 (vector-ref record 1)))
	     (start  (vector-ref record 0)))
	(vector-set! record 1 count)
	(if (and (> count 1) 
		 (< (/ (- (current-seconds) start)
		       count) ;; seconds per count
		    10))
	    (begin
	      (debug:print-info 1 "db write rate too high, starting a server")
	      #t)
	    #f)))) ;; less than 10 seconds per count - start up a server







|







40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
	     (record (if tmprec tmprec 
			 (let ((v (vector (current-seconds) 0)))
			   (hash-table-set! *write-frequency* run-id v)
			   v)))
	     (count  (+ 1 (vector-ref record 1)))
	     (start  (vector-ref record 0)))
	(vector-set! record 1 count)
	(if (and (> count 10) 
		 (< (/ (- (current-seconds) start)
		       count) ;; seconds per count
		    10))
	    (begin
	      (debug:print-info 1 "db write rate too high, starting a server")
	      #t)
	    #f)))) ;; less than 10 seconds per count - start up a server