Overview
Comment: | don't ssh to current host |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | v1.80 |
Files: | files | file ages | folders |
SHA1: |
40aac4386e410869a9a9829b94d9d4e1 |
User & Date: | mrwellan on 2023-06-14 14:55:49 |
Other Links: | branch diff | manifest | tags |
Context
2023-06-27
| ||
09:08 | Fixed quote in path issue check-in: 8ff6166610 user: mrwellan tags: v1.80, v1.8014 | |
2023-06-14
| ||
14:55 | don't ssh to current host check-in: 40aac4386e user: mrwellan tags: v1.80 | |
09:40 | Minor updates to documentation check-in: 708efdc9e4 user: mrwellan tags: v1.80 | |
Changes
Modified common.scm from [4943a8edf6] to [49557c29a9].
︙ | |||
1737 1738 1739 1740 1741 1742 1743 | 1737 1738 1739 1740 1741 1742 1743 1744 1745 1746 1747 1748 1749 1750 | - - - - - - - - - - | exn (begin (debug:print 0 *default-log-port* "failed to write file " fullpath ", exn=" exn) #f) (with-output-to-file fullpath (lambda ()(pp dat))))) #f)) |
︙ | |||
1771 1772 1773 1774 1775 1776 1777 | 1761 1762 1763 1764 1765 1766 1767 1768 1769 1770 1771 1772 1773 1774 1775 1776 | - + + | (handle-exceptions exn (begin (debug:print 0 *default-log-port* "failed to ssh or read loadavg from host " remote-host ", exn=" exn) '(-99 -99 -99)) (let* ((actual-hostname (or remote-host (get-host-name) "localhost"))) (or (common:get-cached-info actual-hostname "cpu-load") |
︙ | |||
2034 2035 2036 2037 2038 2039 2040 | 2025 2026 2027 2028 2029 2030 2031 2032 2033 2034 2035 2036 2037 2038 2039 2040 | - + + | (if (> numcpu 0) numcpu #f) ;; if zero return #f so caller knows that things are not working (loop (if (string-match "^processor\\s+:\\s+\\d+$" inl) (+ numcpu 1) numcpu) (read-line)))))) |
︙ |