Megatest

Diff
Login

Differences From Artifact [aa28cc9571]:

To Artifact [c5821d20e2]:


169
170
171
172
173
174
175
176

177
178
179
180





181
182
183
184
185
186
187
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)
				  ;; ((nmsg)(let ((logininfo (rmt:login-no-auto-client-setup start-res run-id)))
                                                          ))
 					   (if logininfo
 					       (car (vector-ref logininfo 1))
 					       #f))))))
 				  ;;          (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