Megatest

Check-in [9fa5ffffd9]
Login
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: 9fa5ffffd985c6c6835789649594f4c3eabe3e58
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
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
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* "/logs/" key "-" dtype ".log")))
  (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"))
  (let* ((fullpath (conc *toppath* "/logs/" key "-" dtype ".log")))
	 (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
;;