Megatest

Diff
Login

Differences From Artifact [3a2fa3c3cb]:

To Artifact [aa28cc9571]:


165
166
167
168
169
170
171
172


173
174
175


176
177
178
179
180
181
182
165
166
167
168
169
170
171

172
173
174
175

176
177
178
179
180
181
182
183
184







-
+
+


-
+
+







	  (debug:print-info 4 *default-log-port* "client:setup server-dat=" server-dat ", remaining-tries=" remaining-tries)
	  (if server-dat
	      (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))))
				  ;;((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)))
				  ;;((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)