Overview
| Comment: | added log rotation |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.60 |
| Files: | files | file ages | folders |
| SHA1: |
07a846ca8fc38e9b6cc53c4716ec7576 |
| User & Date: | mrwellan on 2015-10-27 10:53:13 |
| Other Links: | branch diff | manifest | tags |
Context
|
2015-10-27
| ||
| 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 | |
| 10:27 | Added slow forced exit on servers check-in: 60523d6242 user: mrwellan tags: v1.60 | |
Changes
Modified server.scm from [b9ea2e37c4] to [4f186f173d].
| ︙ | ︙ | |||
110 111 112 113 114 115 116 | (target-host (configf:lookup *configdat* "server" "homehost" )) (testsuite (common:get-testsuite-name)) (logfile (conc *toppath* "/logs/" run-id ".log")) (cmdln (conc (common:get-megatest-exe) " -server " (or target-host "-") " -run-id " run-id (if (equal? (configf:lookup *configdat* "server" "daemonize") "yes") (conc " -daemonize -log " logfile) "") | | > > > > > > > > > > > > > > > > | 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 |
(target-host (configf:lookup *configdat* "server" "homehost" ))
(testsuite (common:get-testsuite-name))
(logfile (conc *toppath* "/logs/" run-id ".log"))
(cmdln (conc (common:get-megatest-exe)
" -server " (or target-host "-") " -run-id " run-id (if (equal? (configf:lookup *configdat* "server" "daemonize") "yes")
(conc " -daemonize -log " logfile)
"")
" -m testsuite:" testsuite))) ;; (conc " >> " logfile " 2>&1 &")))))
(debug:print 0 "INFO: Starting server (" cmdln ") as none running ...")
(push-directory *toppath*)
(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 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 " 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
(not (string-match (conc "("curr-host "|" curr-host"\\..*)") target-host))
(not (equal? curr-ip target-host)))
(begin
|
| ︙ | ︙ |