Overview
Comment: | changed Server is in dbprep and no servers running messages to debug 2. Removed the use of grep to find exited server logs. changed the use of numservers to select between 1 to numservers. |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | v1.65 | v1.6586 |
Files: | files | file ages | folders |
SHA1: |
3da36b7bfbc233f44e8687111f80c2ec |
User & Date: | mmgraham on 2021-06-12 17:41:01 |
Other Links: | branch diff | manifest | tags |
Context
2021-06-23
| ||
11:06 | Removed the wrapper for config:assoc-safe-add check-in: 7a32ddd847 user: mmgraham tags: v1.65 | |
2021-06-12
| ||
17:41 | changed Server is in dbprep and no servers running messages to debug 2. Removed the use of grep to find exited server logs. changed the use of numservers to select between 1 to numservers. check-in: 3da36b7bfb user: mmgraham tags: v1.65, v1.6586 | |
2021-05-24
| ||
16:46 | Changed version to v1.6586 check-in: cb6232575a user: mmgraham tags: v1.65 | |
Changes
Modified server.scm from [15bbdd7b10] to [9aa343c195].
︙ | |||
200 201 202 203 204 205 206 | 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 | - + | (list (car dat) ;; host (string->number (cadr dat)) ;; port (string->number (caddr dat)) (cadr (cddr dat)))))) (begin (if dbprep-found (begin |
︙ | |||
227 228 229 230 231 232 233 | 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 | - - + + + + - - + | (condition-case (create-directory (conc areapath "/logs") #t) (exn (i/o file)(debug:print 0 *default-log-port* "ERROR: Cannot create directory at " (conc areapath "/logs"))) (exn ()(debug:print 0 *default-log-port* "ERROR: Unknown error attemtping to get server list. exn=" exn))) (directory-exists? (conc areapath "/logs"))) '())) |
︙ | |||
458 459 460 461 462 463 464 | 459 460 461 462 463 464 465 466 467 468 469 470 471 472 473 | - + | (define (server:check-if-running areapath) ;; #!key (numservers "2")) (let* ((ns (server:get-num-servers)) (servers (server:get-best (server:get-list areapath)))) (if (or (and servers (null? servers)) (not servers) (and (list? servers) |
︙ |