Overview
| Comment: | Corrected the server autolaunch in client start |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.54 | v1.5426 |
| Files: | files | file ages | folders |
| SHA1: |
9ee5fe37f2349d4a1c4c879e5da9143c |
| User & Date: | mrwellan on 2013-05-09 09:07:18 |
| Other Links: | branch diff | manifest | tags |
Context
|
2013-05-09
| ||
| 16:17 | NEW (old) POLICY, add back setting of test log with -step -setlog check-in: 4f6fa245d2 user: mrwellan tags: v1.54 | |
| 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 | |
Changes
Modified client.scm from [2f8cb92413] to [a87cd08699].
| ︙ | ︙ | |||
79 80 81 82 83 84 85 |
(case *transport-type*
((fs) ;; (if (not *megatest-db*)(set! *megatest-db* (open-db))))
;; we are not doing fs any longer. let's cheat and start up a server
;; if we are falling back on fs (not 100% supported) do an about face and start a server
(if (not (equal? (args:get-arg "-transport") "fs"))
(begin
(set! *transport-type* #f)
| | | 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 |
(case *transport-type*
((fs) ;; (if (not *megatest-db*)(set! *megatest-db* (open-db))))
;; we are not doing fs any longer. let's cheat and start up a server
;; if we are falling back on fs (not 100% supported) do an about face and start a server
(if (not (equal? (args:get-arg "-transport") "fs"))
(begin
(set! *transport-type* #f)
(system (conc "megatest -list-servers | grep " megatest-version " | grep alive || megatest -server - -daemonize && sleep 3"))
(thread-sleep! 1)
(if (> numtries 0)
(client:setup numtries: (- numtries 1))))))
((http)
(http-transport:client-connect (tasks:hostinfo-get-interface hostinfo)
(tasks:hostinfo-get-port hostinfo)))
((zmq)
|
| ︙ | ︙ |