Changes In Branch v1.81-bump-server-load Excluding Merge-Ins
This is equivalent to a diff from b7cfdb3706 to 528e8bc857
2024-07-15
| ||
15:12 | CI/CD: Automated commit after successful test, build, and deploy for v1.81-bump-server-load check-in: 1fff14fbea user: fdiskadm tags: v1.81 | |
09:48 | Added buttontest.scm check-in: bd1e7c8fc9 user: mrwellan tags: v1.81 | |
2024-07-14
| ||
19:39 | changed to "ready" in cicd wiki page, bump allowed load to 10 for server start. Closed-Leaf check-in: 528e8bc857 user: matt tags: v1.81-bump-server-load | |
2024-07-11
| ||
16:12 | CI/CD: Automated commit after successful test, build, and deploy for v1.81-preq-fail-details check-in: b7cfdb3706 user: fdiskadm tags: v1.81 | |
15:42 | CI/CD: Automated commit after successful test, build, and deploy for v1.81-journal-based-throttling check-in: 04d06badd2 user: fdiskadm tags: v1.81 | |
13:34 | cherry pick e8d7732e preq-fail tests in messages Leaf check-in: 2b4f2ebcce user: mmgraham tags: v1.81-preq-fail-details | |
Modified tcp-transportmod.scm from [d0258d10eb] to [b9c6fed28d].
︙ | ︙ | |||
919 920 921 922 923 924 925 | #f (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 | | | | 919 920 921 922 923 924 925 926 927 928 929 930 931 932 933 934 | #f (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 10.0) (debug:print 0 *default-log-port* "Normalized load " load " over 10, (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) |
︙ | ︙ |
Modified utils/setcicd from [bb9f0e8cef] to [5cf60422ad].
1 2 3 4 | #!/bin/bash branch=$(fossil branch current) wikiname=${branch}_cicd | | | 1 2 3 4 5 6 7 8 9 10 | #!/bin/bash branch=$(fossil branch current) wikiname=${branch}_cicd echo "ready" > $wikiname if fossil wiki export $wikiname;then fossil wiki commit $wikiname $wikiname else fossil wiki create $wikiname $wikiname fi |