Overview
| Comment: | Possible fixes to run-away open files |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.70 |
| Files: | files | file ages | folders |
| SHA1: |
38e7dc2f46cc5f4a23d5006942495a38 |
| User & Date: | matt on 2022-11-03 20:36:49 |
| Other Links: | branch diff | manifest | tags |
Context
|
2022-11-04
| ||
| 02:12 | Some cleanup on the run-away open files fix check-in: 505cde89e4 user: matt tags: v1.70 | |
|
2022-11-03
| ||
| 20:36 | Possible fixes to run-away open files check-in: 38e7dc2f46 user: matt tags: v1.70 | |
|
2022-10-29
| ||
| 21:53 | Possible performance improvement for dashboard check-in: 793c96fa5f user: matt tags: v1.70 | |
Changes
Modified common.scm from [8329a06561] to [3b2eb62756].
| ︙ | ︙ | |||
1766 1767 1768 1769 1770 1771 1772 |
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))
| | > > > > > > > > > > > > > | 1766 1767 1768 1769 1770 1771 1772 1773 1774 1775 1776 1777 1778 1779 1780 1781 1782 1783 1784 1785 1786 1787 1788 1789 1790 1791 1792 1793 1794 1795 1796 1797 1798 1799 1800 1801 |
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))
(define (common:raw-get-remote-host-load-orig remote-host)
(handle-exceptions
exn
(begin
(debug:print 0 *default-log-port* "failed to ssh to " remote-host " and get loadavg. exn=" exn)
#f) ;; more specific handling of errors needed
(with-input-from-pipe
(conc "ssh " remote-host " cat /proc/loadavg")
(lambda ()(list (read)(read)(read))))))
(define (common:raw-get-remote-host-load remote-host)
(let* ((inp #f))
(handle-exceptions
exn
(begin
(close-input-pipe inp)
(debug:print 0 *default-log-port* "failed to ssh to " remote-host " and get loadavg. exn=" exn)
#f) ;; more specific handling of errors needed
(set! inp (open-input-pipe (conc "ssh " remote-host " cat /proc/loadavg")))
(let ((res (list (read inp)(read inp)(read inp))))
(close-input-pipe inp)
res))))
;;======================================================================
;; get cpu load by reading from /proc/loadavg, return all three values
;;
(define (common:get-cpu-load remote-host)
(handle-exceptions
exn
|
| ︙ | ︙ |