Overview
| Comment: | Change ERROR to INFO on directories in logs dir NOTE: Use this version as baseline: ext-tests gives full PASS, obfusc-skel test gives full PASS and no exn= in logs dir (but there are exn= in tests). |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65-cleanup | v1.6568 | v1.6565a |
| Files: | files | file ages | folders |
| SHA1: |
5c063e345280400ee5f8c6463e03e7fb |
| User & Date: | mrwellan on 2020-09-04 16:34:09 |
| Original Comment: | Change ERROR to INFO on directories in logs dir |
| Other Links: | branch diff | manifest | tags |
Context
|
2020-10-02
| ||
| 16:32 | Changed version to 1.6575 - do not use - use v1.6569 instead Leaf check-in: e9fdc7f33a user: mmgraham tags: v1.6575, v1.65-cleanup-x | |
|
2020-10-01
| ||
| 12:08 | Use this version as baseline: ext-tests gives full PASS, obfusc-skel test gives full PASS and no exn= in logs dir (but there are exn= in tests). Closed-Leaf check-in: cf0e836a8d user: mrwellan tags: v1.65-junk | |
|
2020-09-07
| ||
| 19:24 | update version to v1.6568 ==11.35/1.8/WARN/1204/orion== ==27.1/2.5/WARN/1201/mars== Leaf check-in: 1251244af0 user: mmgraham tags: v1.65-cleanup, v1.6568 | |
|
2020-09-05
| ||
| 11:17 | Merged cleanup branch back to v1.65 ==9.4/2.2/1201/WARN/mars== check-in: 0cbf1a0b26 user: matt tags: v1.65 | |
|
2020-09-04
| ||
| 16:34 | Change ERROR to INFO on directories in logs dir NOTE: Use this version as baseline: ext-tests gives full PASS, obfusc-skel test gives full PASS and no exn= in logs dir (but there are exn= in tests). check-in: 5c063e3452 user: mrwellan tags: v1.65-cleanup, v1.6568, v1.6565a | |
|
2020-09-03
| ||
| 18:05 | Do not run tests if state is COMPLETED. check-in: 72b613217c user: mrwellan tags: v1.65-cleanup | |
Changes
Modified common.scm from [3722d67826] to [a82c407907].
| ︙ | ︙ | |||
541 542 543 544 545 546 547 | (if (and (> file-age (* (string->number (or (configf:lookup *configdat* "setup" "log-expire-days") "30")) 24 3600)) (file-exists? fullname)) ;; just in case it was gzipped - will get it next time (handle-exceptions exn #f (if (directory? fullname) (begin | | | 541 542 543 544 545 546 547 548 549 550 551 552 553 554 555 |
(if (and (> file-age (* (string->number (or (configf:lookup *configdat* "setup" "log-expire-days") "30")) 24 3600))
(file-exists? fullname)) ;; just in case it was gzipped - will get it next time
(handle-exceptions
exn
#f
(if (directory? fullname)
(begin
(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.")
(inc-stat "directories"))
(begin
(delete-file* fullname)
(inc-stat "deleted")))
(hash-table-delete! all-files file)))))))
'()
"logs")
|
| ︙ | ︙ |