Overview
| Comment: | Moved system info stuff (load and cores info) to .sysdata directory |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65 |
| Files: | files | file ages | folders |
| SHA1: |
9fa5ffffd985c6c6835789649594f4c3 |
| User & Date: | mrwellan on 2020-02-05 14:25:51 |
| Other Links: | branch diff | manifest | tags |
Context
|
2020-02-05
| ||
| 14:36 | Fixed improper create directory for the .sysdata location check-in: 7e2466117d user: mrwellan tags: v1.65 | |
| 14:25 | Moved system info stuff (load and cores info) to .sysdata directory check-in: 9fa5ffffd9 user: mrwellan tags: v1.65 | |
|
2020-01-29
| ||
| 13:39 | Updated version tag to 1.65/41 check-in: 070a358879 user: jmoon18 tags: v1.65, v1.6541 | |
Changes
Modified common.scm from [2bd8edad73] to [f4df18983c].
| ︙ | ︙ | |||
1671 1672 1673 1674 1675 1676 1677 | ;; (car load-res)) ;; cpu-load)) ;; get values from cached info from dropping file in logs dir ;; e.g. key is host and dtype is normalized-load ;; (define (common:get-cached-info key dtype #!key (age 5)) | | > | > | 1671 1672 1673 1674 1675 1676 1677 1678 1679 1680 1681 1682 1683 1684 1685 1686 1687 1688 1689 1690 1691 1692 1693 1694 1695 1696 1697 1698 1699 1700 1701 1702 1703 1704 1705 |
;; (car load-res))
;; cpu-load))
;; get values from cached info from dropping file in logs dir
;; e.g. key is host and dtype is normalized-load
;;
(define (common:get-cached-info key dtype #!key (age 5))
(let* ((fullpath (conc *toppath* "/.sysdata/" key "-" dtype ".log")))
(if (and (file-exists? fullpath)
(file-read-access? fullpath))
(handle-exceptions
exn
#f
(debug:print 2 *default-log-port* "reading file " fullpath)
(let ((real-age (- (current-seconds)(file-change-time fullpath))))
(if (< real-age age)
(with-input-from-file fullpath read)
(begin
(debug:print 2 *default-log-port* "file " fullpath " is too old (" real-age" seconds)to trust, skipping reading it")
#f))))
(begin
(debug:print 2 *default-log-port* "not reading file " fullpath)
#f))))
(define (common:write-cached-info key dtype dat)
(let* ((fulldir (conc *toppath* "/.sysdata"))
(fullpath (conc fulldir "/" key "-" dtype ".log")))
(if (not (file-exists? fulldir))(create-directory fullpath #t))
(handle-exceptions
exn
#f
(with-output-to-file fullpath (lambda ()(pp dat))))))
;; get cpu load by reading from /proc/loadavg, return all three values
;;
|
| ︙ | ︙ |