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 40)
(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
|
|
|
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
|