Differences From Artifact [1a43f0a48b]:
- File
server.scm
— part of check-in
[67b18cc991]
at
2023-01-16 10:00:35
on branch v1.80-refactor
— Major refactor/clean up of client connection stuff. Removed old crufty approach of having both client and server side calls in http-transport. Plan would be to eventually get rid of http-transport.
Open files slowly grows. bad argument type in http-transport. Line 285 (close-connection! fullurl) is wrong. (user: matt, size: 39030) [annotate] [blame] [check-ins using] [more...]
To Artifact [1c00c07593]:
- File server.scm — part of check-in [48aa93366a] at 2023-02-01 15:22:36 on branch v1.80 — Fixed ping not cleaning up connections (user: matt, size: 39078) [annotate] [blame] [check-ins using]
︙ | |||
679 680 681 682 683 684 685 686 687 688 689 690 691 692 | 679 680 681 682 683 684 685 686 687 688 689 690 691 692 693 | + | ((and (list? host-port) (eq? (length host-port) 2)) (let* ((myrunremote (make-remote)) (iface (car host-port)) (port (cadr host-port)) (server-dat (client:connect iface port server-id myrunremote)) (login-res (rmt:login-no-auto-client-setup myrunremote))) (http-transport:close-connections myrunremote) (if (and (list? login-res) (car login-res)) (begin ;; (print "LOGIN_OK") (if do-exit (exit 0)) #t) (begin |
︙ |