Yes, that was it, thank you very much!
On Thu, Dec 18, 2014 at 4:32 PM, Matthew Flatt <[email protected]> wrote: > > Is the program reaching the calls to `close-output-port` and > `close-input-port`? > > The output port created by `ssl-connect` doesn't send a shutdown > message to the other end of the SSL connection when the port is closed, > because that shutdown action tends to produce errors that have to be > caught. So, my guess is that closing `to-dest` doesn't send a message > that causes the server to close the connection, so `from-dest` never > produces an EOF, and so open ports are accumulated. > > If I'm on the right track, you could use plain `tcp-accept` and > `tcp-connect` to create network connections, and then use > `ports->ssl-ports` and specify that closing an output port sends a > shutdown. (Be sure to specify both `#:shutdown-on-close?` and > `#:close-original?`.) You'll need to catch errors raised by > `close-output-port`, though, and use `ssl-abandon-port` if closing an > SSL output port fails. > > At Thu, 18 Dec 2014 09:20:46 +0100, Snyder Pearson wrote: > > I build this simple TLS upgrading proxy[2], which sits in front of a TLS > > service and just accepts connections using any SSL/TLS version that > Racket > > supports and forwards the data to the service using the default TLS > version > > (why would I need this is a long story :)). > > > > When stress testing this using boom [1], I see significant memory > buildup. > > This memory is not released when the test finishes. It only gets > reclaimed > > when I kill the proxy process. So I suspect there is some kind of memory > > leak going on here. > > > > In principle, the only values constructed on each iteration of the loop > are > > the SSL connection ports, which I'm closing when |pipe| exits. > > > > Am I using copy-port wrong, or maybe it is itself leaking memory? > > > > This is using Racket v6.1.1 on Ubuntu 14.10. > > > > TIA! > > > > [1] https://github.com/oxtoacart/boom > > > > [2] Source: > > > > #lang racket > > > > (require openssl) > > > > (define DEBUG #f) > > > > (define (pipe in out) > > (thread (λ () > > (if DEBUG > > (copy-port in (current-output-port) out) > > (copy-port in out)) > > (close-output-port out) > > (close-input-port in)))) > > > > (define accept (if DEBUG ssl-accept/enable-break ssl-accept)) > > (define connect (if DEBUG ssl-connect/enable-break ssl-connect)) > > > > (define listener (ssl-listen 62445)) > > (ssl-load-private-key! listener "pk.pem") > > (ssl-load-certificate-chain! listener "cert.pem") > > > > (let loop () > > (let-values (((from-src to-src) (accept listener))) > > (thread > > (λ () > > (let-values (((from-dest to-dest) > > (connect "localhost" 62444 'tls))) > > (pipe from-src to-dest) > > (pipe from-dest to-src))))) > > (loop)) > > ____________________ > > Racket Users list: > > http://lists.racket-lang.org/users >
____________________ Racket Users list: http://lists.racket-lang.org/users
