Overview
| Comment: | 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 |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.54 | v1.5426 |
| Files: | files | file ages | folders |
| SHA1: |
39bcd74b8ed729f941ec52a32a7493f0 |
| User & Date: | matt on 2013-05-09 07:39:46 |
| Other Links: | branch diff | manifest | tags |
Context
|
2013-05-09
| ||
| 09:07 | Corrected the server autolaunch in client start check-in: 9ee5fe37f2 user: mrwellan tags: v1.54, v1.5426 | |
| 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 | |
Changes
Modified megatest.scm from [1503b1f527] to [36ac208c1b].
| ︙ | ︙ | |||
310 311 312 313 314 315 316 317 | (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"))) | > > > > | < | 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 | (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")))) ;; no need to use fork, no need to do the list-servers trick. Just start the damn server, it will exit on it's own ;; if there is an existing server (system "megatest -server - -daemonize") (thread-sleep! 3) ;; (process-run (car (argv)) (list "-server" "-" "-daemonize" "-transport" (args:get-arg "-transport" "http"))) ;; (system (conc "megatest -list-servers | egrep '" megatest-version ".*alive' || megatest -server - -daemonize && sleep 3")) ;; (process-fork (lambda () ;; (daemon:ize) ;; (server:launch (string->symbol (args:get-arg "-transport" "http"))))) ) (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)) |
| ︙ | ︙ |