Overview
| Comment: | Re-did changes 523db and 88d54. Error -> info and a print not using debug:print. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65-ignore | v1.65-junk |
| Files: | files | file ages | folders |
| SHA1: |
441c1a8d238258ee722efdf483e9fec3 |
| User & Date: | mrwellan on 2020-10-01 14:25:46 |
| Other Links: | branch diff | manifest | tags |
Context
|
2020-10-01
| ||
| 15:54 | Dashboard performance fix check-in: 8e136e0b88 user: mrwellan tags: v1.65-ignore, v1.65-junk | |
| 14:25 | Re-did changes 523db and 88d54. Error -> info and a print not using debug:print. check-in: 441c1a8d23 user: mrwellan tags: v1.65-ignore, v1.65-junk | |
| 14:04 | Cherrypicked in abfab e3040 6f939 5a50cc from test-rundat branch check-in: d93e5613c8 user: mrwellan tags: v1.65-ignore, v1.65-junk | |
Changes
Modified common.scm from [a82c407907] to [b50bd99236].
| ︙ | ︙ | |||
565 566 567 568 569 570 571 | (lambda (a b) (< (hash-table-ref all-files a)(hash-table-ref all-files b)))) (- num-logs max-allowed)))) (for-each (lambda (file) (let* ((fullname (conc "logs/" file))) (if (directory? fullname) | | | | 565 566 567 568 569 570 571 572 573 574 575 576 577 578 579 580 581 582 | (lambda (a b) (< (hash-table-ref all-files a)(hash-table-ref all-files b)))) (- num-logs max-allowed)))) (for-each (lambda (file) (let* ((fullname (conc "logs/" file))) (if (directory? fullname) (debug:print-info 0 *default-log-port* fullname " in logs directory is a directory! Cannot rotate it, it is best to not put subdirectories in the logs dir.") (handle-exceptions exn (debug:print-info 0 *default-log-port* "failed to remove " fullname ", exn=" exn) (delete-file* fullname))))) files) (debug:print-info 0 *default-log-port* "Deleted " (length files) " files from logs, keeping " max-allowed " files.")))))) ;; Force a megatest cleanup-db if version is changed and skip-version-check not specified ;; Do NOT check if not on homehost! ;; |
| ︙ | ︙ |
Modified db.scm from [551d110e55] to [21c3b201d5].
| ︙ | ︙ | |||
1532 1533 1534 1535 1536 1537 1538 |
id INTEGER PRIMARY KEY,
test_id INTEGER,
state TEXT DEFAULT 'new',
status TEXT DEFAULT 'n/a',
archive_type TEXT DEFAULT 'bup',
du INTEGER,
archive_path TEXT);")))
| < | | | 1532 1533 1534 1535 1536 1537 1538 1539 1540 1541 1542 1543 1544 1545 1546 1547 |
id INTEGER PRIMARY KEY,
test_id INTEGER,
state TEXT DEFAULT 'new',
status TEXT DEFAULT 'n/a',
archive_type TEXT DEFAULT 'bup',
du INTEGER,
archive_path TEXT);")))
(db:create-triggers db)
db)) ;; )
;;======================================================================
;; A R C H I V E S
;;======================================================================
;; dneeded is minimum space needed, scan for existing archives that
;; are on disks with adequate space and already have this test/itempath
|
| ︙ | ︙ |