Megatest

Check-in [57d7865ae2]
Login
Overview
Comment:Changed the word failed to unable in message to aleviate need to add logpro rule
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.65
Files: files | file ages | folders
SHA1: 57d7865ae2c1a2a34822f253dcf9655e2e65de5c
User & Date: pjhatwal on 2019-07-09 10:54:50
Other Links: branch diff | manifest | tags
Context
2019-07-09
10:56
update to sync test pid to pgdb check-in: eecf6b993e user: pjhatwal tags: v1.65
10:54
Changed the word failed to unable in message to aleviate need to add logpro rule check-in: 57d7865ae2 user: pjhatwal tags: v1.65
10:54
added new table for run tags check-in: 0be89c389a user: pjhatwal tags: v1.65
Changes

Modified client.scm from [3b6119f752] to [eb49830f7c].

101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
		    (if (and start-res
			     ping-res)
			(let ((runremote (or area-dat *runremote*))) ;; it might have been generated only a few statements ago
			  (remote-conndat-set! runremote start-res) ;; (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
			  (debug:print-info 0 *default-log-port* "client:setup, login failed, will attempt to start server ... start-res=" start-res ", server-dat=" server-dat) ;; had runid.  Fixes part of Randy;s ticket 1405717332
			  (case *transport-type* 
			    ((http)(http-transport:close-connections)))
			  (remote-conndat-set! runremote #f)  ;; (hash-table-delete! runremote run-id)
			  (thread-sleep! 1)
			  (client:setup-http areapath remaining-tries: (- remaining-tries 1))
			  )))
		  (begin    ;; no server registered







|







101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
		    (if (and start-res
			     ping-res)
			(let ((runremote (or area-dat *runremote*))) ;; it might have been generated only a few statements ago
			  (remote-conndat-set! runremote start-res) ;; (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
			  (debug:print-info 0 *default-log-port* "client:setup, could not login, will attempt to start server ... start-res=" start-res ", server-dat=" server-dat) ;; had runid.  Fixes part of Randy;s ticket 1405717332
			  (case *transport-type* 
			    ((http)(http-transport:close-connections)))
			  (remote-conndat-set! runremote #f)  ;; (hash-table-delete! runremote run-id)
			  (thread-sleep! 1)
			  (client:setup-http areapath remaining-tries: (- remaining-tries 1))
			  )))
		  (begin    ;; no server registered