Overview
| Comment: | corrected client.scm changes |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | nanomsg-ectomy |
| Files: | files | file ages | folders |
| SHA1: |
97fa5b16d5ce70d731948dfceb3f8e97 |
| User & Date: | bjbarcla on 2016-10-03 12:45:27 |
| Other Links: | branch diff | manifest | tags |
Context
|
2016-10-03
| ||
| 14:05 | removed nanomsg dependency check-in: 4aaf0c61b9 user: bjbarcla tags: v1.62 | |
| 12:45 | corrected client.scm changes Closed-Leaf check-in: 97fa5b16d5 user: bjbarcla tags: nanomsg-ectomy | |
| 12:35 | removed nanomsg dependency check-in: 2105102cdc user: bjbarcla tags: nanomsg-ectomy | |
Changes
Modified client.scm from [aa28cc9571] to [c5821d20e2].
| ︙ | ︙ | |||
169 170 171 172 173 174 175 |
(port (tasks:hostinfo-get-port server-dat))
(start-res (case *transport-type*
((http)(http-transport:client-connect iface port))
;;((nmsg)(nmsg-transport:client-connect hostname port))
))
(ping-res (case *transport-type*
((http)(rmt:login-no-auto-client-setup start-res run-id))
| | < | | > > | | 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 |
(port (tasks:hostinfo-get-port server-dat))
(start-res (case *transport-type*
((http)(http-transport:client-connect iface port))
;;((nmsg)(nmsg-transport:client-connect hostname port))
))
(ping-res (case *transport-type*
((http)(rmt:login-no-auto-client-setup start-res run-id))
;; ((nmsg)(let ((logininfo (rmt:login-no-auto-client-setup start-res run-id)))
;; (if logininfo
;; (car (vector-ref logininfo 1))
;; #f)))
)))
(if (and start-res
ping-res)
(begin
(hash-table-set! *runremote* run-id start-res)
(debug:print-info 2 *default-log-port* "connected to " (http-transport:server-dat-make-url start-res))
start-res)
(begin ;; login failed but have a server record, clean out the record and try again
|
| ︙ | ︙ |