Overview
| Comment: | Changed the word failed to unable in message to aleviate need to add logpro rule |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65 |
| Files: | files | file ages | folders |
| SHA1: |
b129805ac85708a12a222c298b9c361f |
| User & Date: | mrwellan on 2019-06-19 10:49:33 |
| Other Links: | branch diff | manifest | tags |
Context
|
2019-07-12
| ||
| 15:12 | Changed login failed to login unsuccessfull check-in: f7a5f0b8f1 user: mrwellan tags: v1.65 | |
|
2019-07-09
| ||
| 10:54 | added new table for run tags check-in: 0be89c389a user: pjhatwal tags: v1.65 | |
|
2019-06-21
| ||
| 11:37 | sauth update Leaf check-in: 0af9864a95 user: pjhatwal tags: sauth-testing-chicken5 | |
|
2019-06-19
| ||
| 10:49 | Changed the word failed to unable in message to aleviate need to add logpro rule check-in: b129805ac8 user: mrwellan tags: v1.65 | |
|
2019-06-18
| ||
| 17:09 | Merged in choosesync branch check-in: f3be772e6c user: mrwellan tags: v1.65 | |
Changes
Modified common.scm from [4de50f0bf6] to [f318febe84].
| ︙ | ︙ | |||
474 475 476 477 478 479 480 |
;;
(define (common:rotate-logs)
(if (not (directory-exists? "logs"))(create-directory "logs"))
(directory-fold
(lambda (file rem)
(handle-exceptions
exn
| | | 474 475 476 477 478 479 480 481 482 483 484 485 486 487 488 |
;;
(define (common:rotate-logs)
(if (not (directory-exists? "logs"))(create-directory "logs"))
(directory-fold
(lambda (file rem)
(handle-exceptions
exn
(debug:print-info 0 *default-log-port* "unable to rotate log " file ", probably handled by another process.")
(let* ((fullname (conc "logs/" file))
(file-age (- (current-seconds)(file-modification-time fullname))))
(if (or (and (string-match "^.*.log" file)
(> (file-size fullname) 200000))
(and (string-match "^server-.*.log" file)
(> (- (current-seconds) (file-modification-time fullname))
(* 8 60 60))))
|
| ︙ | ︙ |