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: |
da01ac3b4fc324120c95e3a8e19e6d50 |
| 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 | (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) | | | 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 |
| ︙ | ︙ |