Overview
| Comment: | bumped allowed number of running servers |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.80 |
| Files: | files | file ages | folders |
| SHA1: |
5fca83553e4176d581743c1f5579192e |
| User & Date: | mrwellan on 2023-02-22 11:42:10 |
| Other Links: | branch diff | manifest | tags |
Context
|
2023-02-22
| ||
| 12:27 | Improved messages on -list-runs check-in: c8040a78fa user: matt tags: v1.80 | |
| 11:42 | bumped allowed number of running servers check-in: 5fca83553e user: mrwellan tags: v1.80 | |
| 11:12 | Merged tcp-inmem check-in: 47a4f89869 user: mrwellan tags: v1.80 | |
Changes
Modified tcp-transportmod.scm from [9959f6dce6] to [f4eb0bdfcc].
| ︙ | ︙ | |||
539 540 541 542 543 544 545 |
(assert mtexe "FATAL: tt:server-process-run called without mtexe defined.")
(let* ((load (get-normalized-cpu-load))
(nrun (number-of-processes-running "mtest.*server")))
(cond
((> load 2.0)
(debug:print 0 *default-log-port* "Normalized load "load" is over the limit of 2.0. Not starting a server.")
(thread-sleep! 1))
| | | 539 540 541 542 543 544 545 546 547 548 549 550 551 552 553 |
(assert mtexe "FATAL: tt:server-process-run called without mtexe defined.")
(let* ((load (get-normalized-cpu-load))
(nrun (number-of-processes-running "mtest.*server")))
(cond
((> load 2.0)
(debug:print 0 *default-log-port* "Normalized load "load" is over the limit of 2.0. Not starting a server.")
(thread-sleep! 1))
((> nrun 100)
(debug:print 0 *default-log-port* nrun" servers running on this host, not starting another.")
(thread-sleep! 1))
(else
(if (not (file-exists? (conc areapath"/logs")))
(create-directory (conc areapath"/logs") #t))
(let* ((logfile (conc areapath "/logs/server.log")) ;; -" curr-pid "-" target-host ".log"))
(cmdln (conc
|
| ︙ | ︙ |