Overview
| Comment: | Added incremental delays for high cpu builds |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65 |
| Files: | files | file ages | folders |
| SHA1: |
d2b6ddbe9c4dc205ed92955daceae90b |
| User & Date: | ritikaag on 2018-01-31 16:17:28 |
| Other Links: | branch diff | manifest | tags |
Context
|
2018-02-01
| ||
| 11:26 | First pass of cleanup check-in: 8a292192e5 user: mrwellan tags: v1.65 | |
|
2018-01-31
| ||
| 16:17 | Added incremental delays for high cpu builds check-in: d2b6ddbe9c user: ritikaag tags: v1.65 | |
| 13:45 | Added RFC M01: add ability to move run records to other areas. check-in: 794d62eebe user: mrwellan tags: v1.65 | |
Changes
Modified common.scm from [16edb8a716] to [642e988dd2].
| ︙ | ︙ | |||
1584 1585 1586 1587 1588 1589 1590 | (numcpus (if (< 1 numcpus-in) ;; not possible (common:get-num-cpus remote-host) numcpus-in)) (maxload (max maxload-in 0.5)) ;; so maxload must be greater than 0.5 for now BUG - FIXME? (first (car loadavg)) (next (cadr loadavg)) (adjload (* maxload (max 1 numcpus))) ;; possible bug where numcpus (or could be maxload) is zero, crude fallback is to at least use 1 | | > | | | | | 1584 1585 1586 1587 1588 1589 1590 1591 1592 1593 1594 1595 1596 1597 1598 1599 1600 1601 1602 1603 1604 1605 1606 1607 1608 1609 |
(numcpus (if (< 1 numcpus-in) ;; not possible
(common:get-num-cpus remote-host)
numcpus-in))
(maxload (max maxload-in 0.5)) ;; so maxload must be greater than 0.5 for now BUG - FIXME?
(first (car loadavg))
(next (cadr loadavg))
(adjload (* maxload (max 1 numcpus))) ;; possible bug where numcpus (or could be maxload) is zero, crude fallback is to at least use 1
(loadjmp (- first next))
(adjwait (+ (/ (- 1000 count) 10) waitdelay)))
(cond
((and (> first adjload)
(> count 0))
(debug:print-info 0 *default-log-port* "server start delayed " adjwait " seconds due to load " first " exceeding max of " adjload " on server " (or remote-host (get-host-name)) " (normalized load-limit: " maxload ") " (if msg msg ""))
(thread-sleep! adjwait)
(common:wait-for-cpuload maxload numcpus waitdelay count: (- count 1) msg: msg remote-host: remote-host))
((and (> loadjmp numcpus)
(> count 0))
(debug:print-info 0 *default-log-port* "waiting " adjwait " seconds due to load jump " loadjmp " > numcpus " numcpus (if msg msg ""))
(thread-sleep! adjwait)
(common:wait-for-cpuload maxload numcpus waitdelay count: (- count 1) msg: msg remote-host: remote-host)))))
(define (common:wait-for-homehost-load maxload msg)
(let* ((hh-dat (if (common:on-homehost?) ;; if we are on the homehost then pass in #f so the calls are local.
#f
(common:get-homehost)))
(hh (if hh-dat (car hh-dat) #f))
|
| ︙ | ︙ |
Modified utils/cleanup-pkts.sh from [8b0ea2d6b7] to [4166ea994c].
1 2 3 4 5 6 |
#!/bin/bash
pushd $1
for x in *.pkt;do
if grep 'T configf' $x > /dev/null;then
| | | 1 2 3 4 5 6 7 8 9 10 11 12 |
#!/bin/bash
pushd $1
for x in *.pkt;do
if grep 'T configf' $x > /dev/null;then
rm $x
else
echo skip $x
fi
done
|