73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
|
;; Why add the close-connections here?
;; (http-transport:close-connections run-id)
(hash-table-set! *runremote* run-id start-res)
start-res) ;; return the server info
(if (member remaining-tries '(9 6 4 2))
(begin ;; login failed
(debug:print-info 0 "client:setup, ping is bad for start-res=" start-res " and *runremote*=" host-info)
(http-transport:close-connections run-id)
(hash-table-delete! *runremote* run-id)
(open-run-close tasks:server-force-clean-run-record
tasks:open-db
run-id
iface
port
" client:setup (host-info=#t)")
|
|
|
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
|
;; Why add the close-connections here?
;; (http-transport:close-connections run-id)
(hash-table-set! *runremote* run-id start-res)
start-res) ;; return the server info
(if (member remaining-tries '(9 6 4 2))
(begin ;; login failed
(debug:print-info 0 "client:setup, ping is bad for start-res=" start-res " and *runremote*=" host-info)
;; (http-transport:close-connections run-id)
(hash-table-delete! *runremote* run-id)
(open-run-close tasks:server-force-clean-run-record
tasks:open-db
run-id
iface
port
" client:setup (host-info=#t)")
|