Overview
Comment: | Make server runtime settable, improved log rotate |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | server-log-handshaking |
Files: | files | file ages | folders |
SHA1: |
581192039a4c965012922abaa54e9638 |
User & Date: | matt on 2017-01-30 04:46:35 |
Other Links: | branch diff | manifest | tags |
Context
2017-01-30
| ||
14:24 | Fixed debug message print that was missing the port check-in: 8149616a1d user: mrwellan tags: server-log-handshaking | |
04:46 | Make server runtime settable, improved log rotate check-in: 581192039a user: matt tags: server-log-handshaking | |
2017-01-29
| ||
16:33 | Deprecate api parallel message check-in: a642f429b1 user: matt tags: server-log-handshaking | |
Changes
Modified common.scm from [3380145d50] to [f57c29e310].
︙ | |||
240 241 242 243 244 245 246 | 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 | + + - - - - - - - - - + + + + + + + + + + + + + + + + | ;; WARNING: This proc operates assuming that it is in the directory above the ;; logs directory you wish to log-rotate. ;; (define (common:rotate-logs) (if (not (directory-exists? "logs"))(create-directory "logs")) (directory-fold (lambda (file rem) (let* ((fullname (conc "logs/" file)) (file-age (- (current-seconds)(file-modification-time fullname)))) |
︙ |
Modified server.scm from [b68dac663e] to [878167efea].
︙ | |||
217 218 219 220 221 222 223 | 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 | - + - + | (let ((now (current-seconds))) (sort (filter (lambda (rec) (let ((start-time (list-ref rec 3)) (mod-time (list-ref rec 0))) ;; (print "start-time: " start-time " mod-time: " mod-time) (and start-time mod-time |
︙ | |||
262 263 264 265 266 267 268 | 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 | - + | (define (server:start-and-wait areapath #!key (timeout 60)) (let ((give-up-time (+ (current-seconds) timeout))) (let loop ((server-url (server:check-if-running areapath))) (if (or server-url (> (current-seconds) give-up-time)) server-url |
︙ |