Megatest

Check-in [b290688bbb]
Login
Overview
Comment:Removed added attempt to save server info in runremote.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.80-toomanyfiles
Files: files | file ages | folders
SHA1: b290688bbb0420da466155aaa47980f573c5114d
User & Date: matt on 2023-01-19 04:14:35
Other Links: branch diff | manifest | tags
Context
2023-01-19
04:32
Print info on closing connections always Leaf check-in: f5f9bc5c6c user: matt tags: v1.80-toomanyfiles
04:14
Removed added attempt to save server info in runremote. check-in: b290688bbb user: matt tags: v1.80-toomanyfiles
03:46
client setup was not updating runremote in some scenarios check-in: 3f4bf437c0 user: matt tags: v1.80-toomanyfiles
Changes

Modified client.scm from [5b47d90716] to [1284519df6].

118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
	       (if (and host port server-id)
		   (let* ((nada     (client:connect host port server-id runremote))
			  (ping-res (rmt:login-no-auto-client-setup runremote)))
		     (if ping-res
			 (if runremote
			     (begin ;; updating info in runremote
			       (debug:print-info 2 *default-log-port* "connected to " (client:get-url runremote))
			       (remote-server-info-set! runremote server-info)
			       (remote-server-url-set! runremote (server:record->url server-info))
                               (remote-server-id-set! runremote (server:record->id server-info))
			       runremote)
			     (client:setup-http areapath runremote remaining-tries: (- remaining-tries 1)))
			 (begin    ;; login failed but have a server record, clean out the record and try again
			   (debug:print-info 0 *default-log-port* "client:setup, login unsuccessful, will attempt to start server ... ping-res=" ping-res ", server-dat=" server-dat) ;; had runid.  Fixes part of Randy;s ticket 1405717332
			   (http-transport:close-connections runremote)
			   (thread-sleep! 1)
			   (client:setup-http areapath runremote remaining-tries: (- remaining-tries 1))







<
<
<







118
119
120
121
122
123
124



125
126
127
128
129
130
131
	       (if (and host port server-id)
		   (let* ((nada     (client:connect host port server-id runremote))
			  (ping-res (rmt:login-no-auto-client-setup runremote)))
		     (if ping-res
			 (if runremote
			     (begin ;; updating info in runremote
			       (debug:print-info 2 *default-log-port* "connected to " (client:get-url runremote))



			       runremote)
			     (client:setup-http areapath runremote remaining-tries: (- remaining-tries 1)))
			 (begin    ;; login failed but have a server record, clean out the record and try again
			   (debug:print-info 0 *default-log-port* "client:setup, login unsuccessful, will attempt to start server ... ping-res=" ping-res ", server-dat=" server-dat) ;; had runid.  Fixes part of Randy;s ticket 1405717332
			   (http-transport:close-connections runremote)
			   (thread-sleep! 1)
			   (client:setup-http areapath runremote remaining-tries: (- remaining-tries 1))