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: |
f82799600b8ff8ac95cf8a69afde17f2 |
| User & Date: | mrwellan on 2015-10-27 10:59:10 |
| Other Links: | branch diff | manifest | tags |
Context
|
2015-10-27
| ||
| 11:02 | oops. missed the logs part of the file names ... check-in: 1601c7b615 user: mrwellan tags: v1.60 | |
| 10:59 | oops. missed the logs part of the file names ... check-in: f82799600b user: mrwellan tags: v1.60 | |
| 10:53 | added log rotation check-in: 07a846ca8f user: mrwellan tags: v1.60 | |
Changes
Modified server.scm from [4f186f173d] to [5be03a2d5f].
| ︙ | ︙ | |||
120 121 122 123 124 125 126 |
(if (not (directory-exists? "logs"))(create-directory "logs"))
;; 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 file) 200000))
| | | | 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 |
(if (not (directory-exists? "logs"))(create-directory "logs"))
;; 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 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")
;; host.domain.tld match host?
(if (and target-host
;; look at target host, is it host.domain.tld or ip address and does it
;; match current ip or hostname
|
| ︙ | ︙ |