Overview
| Comment: | Add delay to server start to reduce chance of contending for the throne |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.54 |
| Files: | files | file ages | folders |
| SHA1: |
9d5c9d436b1e4ab23a3d85f57723def5 |
| User & Date: | mrwellan on 2013-05-08 23:55:53 |
| Other Links: | branch diff | manifest | tags |
Context
|
2013-05-09
| ||
| 07:19 | Give up trying to autostart the server after some time. check-in: eb78b9cf63 user: matt tags: v1.54, v1.5426 | |
|
2013-05-08
| ||
| 23:55 | Add delay to server start to reduce chance of contending for the throne check-in: 9d5c9d436b user: mrwellan tags: v1.54 | |
| 17:47 | Bumped version check-in: 31af7a1995 user: icfadm tags: v1.54, v1.5425 | |
Changes
Modified megatest.scm from [46074af0df] to [a386854fed].
| ︙ | ︙ | |||
317 318 319 320 321 322 323 | ;; (process-run (car (argv)) (list "-server" "-" "-daemonize" "-transport" (args:get-arg "-transport" "http"))) (system "megatest -list-servers | grep alive || megatest -server - -daemonize && sleep 3") ;; (process-fork (lambda () ;; (daemon:ize) ;; (server:launch (string->symbol (args:get-arg "-transport" "http"))))) ;; (thread-sleep! 3) ) | > | > | 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 | ;; (process-run (car (argv)) (list "-server" "-" "-daemonize" "-transport" (args:get-arg "-transport" "http"))) (system "megatest -list-servers | grep alive || megatest -server - -daemonize && sleep 3") ;; (process-fork (lambda () ;; (daemon:ize) ;; (server:launch (string->symbol (args:get-arg "-transport" "http"))))) ;; (thread-sleep! 3) ) (begin (debug:print-info 0 "Waiting for server to start") (thread-sleep! 1))) (loop (open-run-close tasks:get-best-server tasks:open-db) (+ trycount 1))) (debug:print 0 "INFO: Server(s) running " servers) ))))) (if (or (args:get-arg "-list-servers") (args:get-arg "-stop-server")) |
| ︙ | ︙ |