168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
|
(let* ((iface (tasks:hostinfo-get-interface server-dat))
(hostname (tasks:hostinfo-get-hostname server-dat))
(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
(common:set-remote! remote run-id start-res)
|
|
|
|
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
|
(let* ((iface (tasks:hostinfo-get-interface server-dat))
(hostname (tasks:hostinfo-get-hostname server-dat))
(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 area-dat))
((nmsg)(let ((logininfo (rmt:login-no-auto-client-setup start-res run-id area-dat)))
(if logininfo
(car (vector-ref logininfo 1))
#f))))))
(if (and start-res
ping-res)
(begin
(common:set-remote! remote run-id start-res)
|