357
358
359
360
361
362
363
364
365
366
367
368
369
370
|
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
|
+
|
(handle-exceptions
exn
(begin
(print-call-chain *default-log-port*)
(debug:print-error 0 *default-log-port* " closing connection failed with error: " ((condition-property-accessor 'exn 'message) exn) ", exn=" exn))
(close-connection! api-dat)
(close-idle-connections!)
(remote-conndat-set! runremote #f)
#t))
#f)))
(define (make-http-transport:server-dat)(make-vector 6))
(define (http-transport:server-dat-get-iface vec) (vector-ref vec 0))
(define (http-transport:server-dat-get-port vec) (vector-ref vec 1))
|
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
|
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
|
-
+
|
(print-call-chain (current-error-port))
(debug:print-error 0 *default-log-port* "call to http-transport:server-dat-update-last-access with non-vector!!"))))
;;
;; connect
;;
(define (http-transport:client-connect iface port server-id)
(debug:print-info 0 *default-log-port* "Connecting to client at "iface":"port", with server-id "server-id)
(debug:print-info 2 *default-log-port* "Connecting to server at "iface":"port", id "server-id)
(let* ((api-url (conc "http://" iface ":" port "/api"))
(api-uri (uri-reference (conc "http://" iface ":" port "/api")))
(api-req (make-request method: 'POST uri: api-uri))
(server-dat (vector iface port api-uri api-url api-req (current-seconds) server-id)))
server-dat))
|