Megatest

Check-in [b290688bbb]
Login
☰Home Timeline Files Branches Tags Tickets Wiki 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
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

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

︙
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134

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))
			       (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))
︙

This page was generated in about 0.121s by Fossil 2.24 [452f8e1ffc] 2024-03-26 15:36:00