Overview
| Comment: | Merged v1.65 with get-intercept and get-delay ==/8.7/1.0/WARN/1201/mars/== |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65-cleanup |
| Files: | files | file ages | folders |
| SHA1: |
b0705815bebbc7f8732e4a8251b3e095 |
| User & Date: | mrwellan on 2020-08-25 15:54:34 |
| Original Comment: | Merged v1.65 with get-intercept and get-delay |
| Other Links: | branch diff | manifest | tags |
Context
|
2020-08-25
| ||
| 23:36 | Reworked load handling and added fast gate on server starts check-in: 4556f5829a user: matt tags: v1.65-cleanup | |
| 15:54 | Merged v1.65 with get-intercept and get-delay ==/8.7/1.0/WARN/1201/mars/== check-in: b0705815be user: mrwellan tags: v1.65-cleanup | |
| 15:08 | Added get-intercept and get-delay functions for load monitoring ==/FAIL/orion,zeus/== check-in: 85b652d5a1 user: jmoon18 tags: v1.65 | |
| 10:12 | added support for custom load-jump-limit and added setup, keep-deleted-records (in seconds, keep deleted records this long) ==/7.9/0.9/WARN/1201/mars/== check-in: d1548b7a57 user: mrwellan tags: v1.65-cleanup | |
Changes
Modified common.scm from [e3a13b4dea] to [b89a44911d].
| ︙ | ︙ | |||
1747 1748 1749 1750 1751 1752 1753 1754 1755 1756 1757 1758 1759 1760 |
(begin
(debug:print-error 0 *default-log-port* "command \"/bin/readlink -f " path "\" failed. exn=" exn)
path) ;; just give up
(with-input-from-pipe
(conc "/bin/readlink -f " path)
(lambda ()
(read-line)))))
(define (get-cpu-load #!key (remote-host #f))
(car (common:get-cpu-load remote-host)))
;; (let* ((load-res (process:cmd-run->list "uptime"))
;; (load-rx (regexp "load average:\\s+(\\d+)"))
;; (cpu-load #f))
;; (for-each (lambda (l)
| > > > > > > > > > > > | 1747 1748 1749 1750 1751 1752 1753 1754 1755 1756 1757 1758 1759 1760 1761 1762 1763 1764 1765 1766 1767 1768 1769 1770 1771 |
(begin
(debug:print-error 0 *default-log-port* "command \"/bin/readlink -f " path "\" failed. exn=" exn)
path) ;; just give up
(with-input-from-pipe
(conc "/bin/readlink -f " path)
(lambda ()
(read-line)))))
(define (common:get-intercept onemin fivemin)
(let* ((load-change (- onemin fivemin))
(tchange (- 300 60)))
(max (+ onemin (* 60 (/ load-change tchange)))0))
)
(define (common:get-delay load-in numcpus)
(max (/ (expt 5 (* 4 (/ load-in numcpus))) 10) 0)
)
(define (get-cpu-load #!key (remote-host #f))
(car (common:get-cpu-load remote-host)))
;; (let* ((load-res (process:cmd-run->list "uptime"))
;; (load-rx (regexp "load average:\\s+(\\d+)"))
;; (cpu-load #f))
;; (for-each (lambda (l)
|
| ︙ | ︙ |
Modified genexample.scm from [4609ee6b65] to [8d68fc70de].
| ︙ | ︙ | |||
468 469 470 471 472 473 474 | (lambda () ;; first the ezsteps (print "[ezsteps]") (for-each (lambda (teststep) (let* ((step-name (vector-ref teststep 0))) (print (obfuscate step-name) | | | | | 468 469 470 471 472 473 474 475 476 477 478 479 480 481 482 483 484 485 486 487 488 489 490 491 492 493 494 495 496 497 498 499 500 501 502 |
(lambda ()
;; first the ezsteps
(print "[ezsteps]")
(for-each
(lambda (teststep)
(let* ((step-name (vector-ref teststep 0)))
(print (obfuscate step-name)
" sleep $(refdb lookup #{getenv MT_RUN_AREA_HOME}/stepsinfo "
(obfuscate testname) " $MT_ITEMPATH "
(obfuscate step-name) ")")))
test-steps)
;; now the requirements section
(if testconfig
(begin
(print "\n[requirements]")
(for-each
(lambda (entry)
(let* ((key (car entry))
(val (cadr entry)))
(case (string->symbol key)
((waiton) (print "waiton " (obfuscate val)))
(else (print key " " val)))))
(configf:get-section testconfig "requirements")))
#;(print "WARNING: No testconfig data for " testname ", " item-path))
(print "\n[items]")
(print "THE_ITEM [system refdb getrow #{getenv MT_RUN_AREA_HOME}/miscinfo itemsinfo " (obfuscate testname)" | awk '{print $1}']")
)))
;; fill the stepsrdb
(for-each
(lambda (teststep)
(let* ((step-name (vector-ref teststep 0))
(step-duration (hrs-min-sec->seconds (vector-ref teststep 4))))
|
| ︙ | ︙ |