Overview
Comment: | Add jitter to start time on servers and when starting bunch of servers rapidly do so in bunches of no more than five. |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | multi-transport |
Files: | files | file ages | folders |
SHA1: |
7e1b0974201559e65453d88e6c4d9d3e |
User & Date: | matt on 2014-12-02 05:02:50 |
Other Links: | branch diff | manifest | tags |
Context
2014-12-02
| ||
05:05 | Switch back (again) to servers required and increase total possible random delay before starting a server to 2 seconds Closed-Leaf check-in: 2b7b75cf87 user: matt tags: multi-transport | |
05:02 | Add jitter to start time on servers and when starting bunch of servers rapidly do so in bunches of no more than five. check-in: 7e1b097420 user: matt tags: multi-transport | |
2014-12-01
| ||
19:39 | Added back auto fallback to direct fs writes/reads check-in: 2ce6e734b4 user: mrwellan tags: multi-transport | |
Changes
Modified rmt.scm from [6f19056a06] to [0476299ab1].
︙ | |||
359 360 361 362 363 364 365 | 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 | - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + | (let ((multi-run-mutex (make-mutex)) (run-id-list (if run-ids run-ids (rmt:get-all-run-ids))) (result '())) (if (null? run-id-list) '() |
︙ |
Modified tasks.scm from [b000052392] to [079d38ec4c].
︙ | |||
380 381 382 383 384 385 386 387 | 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 | + - + | (let loop ((server-dat (tasks:get-server (db:delay-if-busy tdbdat) run-id)) (delay-time 0)) (if (and (not server-dat) (< delay-time delay-max-tries)) (begin (if (common:low-noise-print 60 "tasks:start-and-wait-for-server" run-id) (debug:print 0 "Try starting server for run-id " run-id)) (thread-sleep! (/ (random 1000) 1000)) (server:kind-run run-id) |
︙ |