Overview
| Comment: | Patched in fix for local ssh burden fix |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.71_old |
| Files: | files | file ages | folders |
| SHA1: |
1ad4b8ce96313b1414717c2fd5959f22 |
| User & Date: | mrwellan on 2020-10-05 09:37:42 |
| Other Links: | branch diff | manifest | tags |
Context
|
2020-10-05
| ||
| 23:07 | Cross-pollinated v1.65 run-testdat work. This likely still does not pass obfusc-skel. check-in: 4245c94942 user: matt tags: v1.71_old | |
| 09:37 | Patched in fix for local ssh burden fix check-in: 1ad4b8ce96 user: mrwellan tags: v1.71_old | |
| 09:26 | Bumped the number of allowed logs (default) to 1000. This is kinder to the server start logic and 1000 files is not excessive (I hope). check-in: 9f3a202504 user: mrwellan tags: v1.71_old | |
Changes
Modified launch.scm from [fb7acc7e32] to [9905b8fdbe].
| ︙ | ︙ | |||
768 769 770 771 772 773 774 |
(item-path (vector-ref running-test 11)))
(debug:print 0 *default-log-port* "test " test-name "/" item-path " not completed")
(if (not (null? tal))
(loop (car tal) (cdr tal)))))))))))
(define (launch:is-test-alive host pid)
(if (and host pid (not (equal? host "n/a")))
| > > | | 768 769 770 771 772 773 774 775 776 777 778 779 780 781 782 783 784 |
(item-path (vector-ref running-test 11)))
(debug:print 0 *default-log-port* "test " test-name "/" item-path " not completed")
(if (not (null? tal))
(loop (car tal) (cdr tal)))))))))))
(define (launch:is-test-alive host pid)
(if (and host pid (not (equal? host "n/a")))
(let* ((is-local (equal? host (get-host-name)))
(ssh-cmd (if is-local " " (conc "ssh " host " ")))
(cmd (conc ssh-cmd "pstree -A " pid))
(output (with-input-from-pipe cmd read-lines)))
(debug:print 2 *default-log-port* "Running " cmd " received " output)
(if (eq? (length output) 0)
#f
#t))
#t))
|
| ︙ | ︙ |