Overview
| Comment: | Changed message on busy server candidate host to give actual load and number of cores |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.81-server-load-and-cores |
| Files: | files | file ages | folders |
| SHA1: |
dc040c6bd70f210c3ed9c0263e59ef92 |
| User & Date: | mmgraham on 2024-07-10 18:32:24 |
| Other Links: | branch diff | manifest | tags |
Context
|
2024-07-10
| ||
| 23:42 | CI/CD: Automated commit after successful test, build, and deploy for v1.81-server-load-and-cores check-in: 600ba0778d user: fdiskadm tags: v1.81 | |
| 18:32 | Changed message on busy server candidate host to give actual load and number of cores Leaf check-in: dc040c6bd7 user: mmgraham tags: v1.81-server-load-and-cores | |
|
2024-07-09
| ||
| 10:21 | CI/CD: Automated commit after successful test, build, and deploy for v1.81-multi-server check-in: 5ac37f3fd4 user: ramartin tags: v1.81 | |
Changes
Modified tcp-transportmod.scm from [f03b836e05] to [c9c309998d].
| ︙ | ︙ | |||
919 920 921 922 923 924 925 | (let* ((load (get-normalized-cpu-load)) (srvrs (tt:find-server areapath dbfname)) (trying (length srvrs)) (nrun (number-of-processes-running (conc "mtest.*server.*"testsuite".*"dbfname)))) (set! *last-server-start-request-time* (current-seconds)) (cond ((> load 4.0) | | | 919 920 921 922 923 924 925 926 927 928 929 930 931 932 933 | (let* ((load (get-normalized-cpu-load)) (srvrs (tt:find-server areapath dbfname)) (trying (length srvrs)) (nrun (number-of-processes-running (conc "mtest.*server.*"testsuite".*"dbfname)))) (set! *last-server-start-request-time* (current-seconds)) (cond ((> load 4.0) (debug:print 0 *default-log-port* "Normalized load " load " over 4, (load: " (commonmod:get-cpu-load) " cores: " (get-current-host-cores) " exiting...") (thread-sleep! 1) ;; I'm not convinced that a delay here is helpful. -mrw- #f) ((> nrun 100) (debug:print 0 *default-log-port* nrun" servers running on " (get-host-name) ", not starting another.") (thread-sleep! 1) #f) ((> trying 3) |
| ︙ | ︙ |