Overview
| Comment: | Give up trying to autostart the server after some time. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.54 | v1.5426 |
| Files: | files | file ages | folders |
| SHA1: |
eb78b9cf63b39d9633bebb05bfc978a4 |
| User & Date: | matt on 2013-05-09 07:19:03 |
| Other Links: | branch diff | manifest | tags |
Context
|
2013-05-09
| ||
| 07:39 | Switched to simple system of server on autostart as there is no need for it and it can try excessively if there are other server versions running check-in: 39bcd74b8e user: matt tags: v1.54, v1.5426 | |
| 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 | |
Changes
Modified megatest-version.scm from [0ed86cd8c9] to [46fa3ba869].
1 2 3 4 5 | ;; Always use two digit decimal ;; 1.01, 1.02...1.10,1.11 ... 1.99,2.00.. (declare (unit megatest-version)) | | | 1 2 3 4 5 6 7 | ;; Always use two digit decimal ;; 1.01, 1.02...1.10,1.11 ... 1.99,2.00.. (declare (unit megatest-version)) (define megatest-version 1.5426) |
Modified megatest.scm from [a386854fed] to [1503b1f527].
| ︙ | ︙ | |||
306 307 308 309 310 311 312 | "-update-meta" "-extract-ods")))) (if (setup-for-run) (let loop ((servers (open-run-close tasks:get-best-server tasks:open-db)) (trycount 0)) (if (or (not servers) (null? servers)) (begin | | | > | | > | 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 |
"-update-meta" "-extract-ods"))))
(if (setup-for-run)
(let loop ((servers (open-run-close tasks:get-best-server tasks:open-db))
(trycount 0))
(if (or (not servers)
(null? servers))
(begin
(if (even? trycount) ;; just do the server start every other time through this loop (every 8 seconds)
(begin
(debug:print 0 "INFO: Starting server as none running ...")
;; (server:launch (string->symbol (args:get-arg "-transport" "http"))))
;; (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! 4)))
(if (< trycount 10)
(loop (open-run-close tasks:get-best-server tasks:open-db)
(+ trycount 1))
(debug:print 0 "WARNING: Couldn't start or find a server.")))
(debug:print 0 "INFO: Server(s) running " servers)
)))))
(if (or (args:get-arg "-list-servers")
(args:get-arg "-stop-server"))
(let ((tl (setup-for-run)))
(if tl
|
| ︙ | ︙ |