Overview
| Comment: | oops. missed the logs part of the file names ... |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.60 |
| Files: | files | file ages | folders |
| SHA1: |
56f19e80cef27b7a7318d3adf7e7132a |
| User & Date: | mrwellan on 2015-10-27 11:05:40 |
| Other Links: | branch diff | manifest | tags |
Context
|
2015-10-27
| ||
| 12:28 | Tidy output on server timeout. Add exception handler on evaluating variables in the shell check-in: 49e3e23dda user: mrwellan tags: v1.60 | |
| 11:05 | oops. missed the logs part of the file names ... check-in: 56f19e80ce user: mrwellan tags: v1.60 | |
| 11:02 | oops. missed the logs part of the file names ... check-in: 1601c7b615 user: mrwellan tags: v1.60 | |
Changes
Modified server.scm from [f5b22f2e78] to [7b411d8eb3].
| ︙ | ︙ | |||
121 122 123 124 125 126 127 |
;; Rotate logs, logic:
;; if > 500k and older than 1 week, remove previous compressed log and compress this log
(directory-fold
(lambda (file rem)
(if (and (string-match "^.*.log" file)
(> (file-size (conc "logs/" file)) 200000))
(let ((gzfile (conc "logs/" file ".gz")))
| | | 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 |
;; Rotate logs, logic:
;; if > 500k and older than 1 week, remove previous compressed log and compress this log
(directory-fold
(lambda (file rem)
(if (and (string-match "^.*.log" file)
(> (file-size (conc "logs/" file)) 200000))
(let ((gzfile (conc "logs/" file ".gz")))
(if (file-exists? gzfile)
(begin
(debug:print-info 0 "removing " gzfile)
(delete-file gzfile)))
(debug:print-info 0 "compressing " file)
(system (conc "gzip logs/" file)))))
'()
"logs")
|
| ︙ | ︙ |