Overview
| Comment: | Fixed improper create directory for the .sysdata location |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65 |
| Files: | files | file ages | folders |
| SHA1: |
7e2466117d4b0a7b8d3c096d65254c3a |
| User & Date: | mrwellan on 2020-02-05 14:36:24 |
| Other Links: | branch diff | manifest | tags |
Context
|
2020-02-05
| ||
| 15:39 | Updated to try 150 times for send-receive before giving up check-in: 36d5ae8d9f user: jmoon18 tags: v1.65 | |
| 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 | |
Changes
Modified common.scm from [f4df18983c] to [eda1a54b3f].
| ︙ | ︙ | |||
1691 1692 1693 1694 1695 1696 1697 | (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"))) | | | 1691 1692 1693 1694 1695 1696 1697 1698 1699 1700 1701 1702 1703 1704 1705 |
(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 fulldir #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
;;
|
| ︙ | ︙ |