Overview
| Comment: | Deprecate api parallel message |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | server-log-handshaking |
| Files: | files | file ages | folders |
| SHA1: |
a642f429b1b78f6f92bb85f5c0ffaa6e |
| User & Date: | matt on 2017-01-29 16:33:59 |
| Other Links: | branch diff | manifest | tags |
Context
|
2017-01-30
| ||
| 04:46 | Make server runtime settable, improved log rotate check-in: 581192039a user: matt tags: server-log-handshaking | |
|
2017-01-29
| ||
| 16:48 | Automated merge of server-log-handshaking/a642f429b1/integ into integ-home check-in: ad7df3e1eb user: matt tags: integ-home | |
| 16:33 | Deprecate api parallel message check-in: a642f429b1 user: matt tags: server-log-handshaking | |
| 16:10 | Trim some of the server records returned from get-list check-in: 5272b8e023 user: matt tags: server-log-handshaking | |
Changes
Modified db.scm from [196dbb1410] to [cf38571740].
| ︙ | ︙ | |||
141 142 143 144 145 146 147 |
(db:dbdat-get-db dbdat)
dbstruct))
(use-mutex (> *api-process-request-count* 25)))
(if (and use-mutex
(common:low-noise-print 120 "over-50-parallel-api-requests"))
(debug:print-info 0 *default-log-port* *api-process-request-count* " parallel api requests being processed in process " (current-process-id) ", throttling access"))
(if (common:low-noise-print 600 (conc "parallel-api-requests" *max-api-process-requests*))
| | | 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 |
(db:dbdat-get-db dbdat)
dbstruct))
(use-mutex (> *api-process-request-count* 25)))
(if (and use-mutex
(common:low-noise-print 120 "over-50-parallel-api-requests"))
(debug:print-info 0 *default-log-port* *api-process-request-count* " parallel api requests being processed in process " (current-process-id) ", throttling access"))
(if (common:low-noise-print 600 (conc "parallel-api-requests" *max-api-process-requests*))
(debug:print-info 2 *default-log-port* "Parallel api request count: " *api-process-request-count* " max parallel requests: " *max-api-process-requests*))
(handle-exceptions
exn
(begin
(print-call-chain (current-error-port))
(debug:print-error 0 *default-log-port* "sqlite3 issue in db:with-db, dbstruct=" dbstruct ", run-id=" run-id ", proc=" proc ", params=" params " error: " ((condition-property-accessor 'exn 'message) exn))
;; there is no recovering at this time. exit
(exit 50))
|
| ︙ | ︙ |