Overview
| Comment: | Changed from fork to system for starting servers |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.54 | v1.5423 |
| Files: | files | file ages | folders |
| SHA1: |
2d3bd1949e9988c1bd82fc429f9a8dc4 |
| User & Date: | mrwellan on 2013-05-08 11:43:45 |
| Other Links: | branch diff | manifest | tags |
Context
|
2013-05-08
| ||
| 16:23 | Re-enabled transport fs check-in: 8951b718b4 user: mrwellan tags: v1.54, v1.5424 | |
| 11:43 | Changed from fork to system for starting servers check-in: 2d3bd1949e user: mrwellan tags: v1.54, v1.5423 | |
| 10:58 | Improved timeout handling in client/server communication check-in: be36b8399e user: mrwellan tags: v1.54 | |
Changes
Modified megatest.scm from [4db82708a1] to [ff52f26603].
| ︙ | ︙ | |||
306 307 308 309 310 311 312 | (null? servers)) (begin (if (eq? trycount 0) ;; just do the server start once (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"))) | > | | | | > | 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 | (null? servers)) (begin (if (eq? trycount 0) ;; just do the server start once (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) ) (debug:print-info 0 "Waiting for server to start")) (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") |
| ︙ | ︙ |