save-session ( session addrspec -- )

Vocabulary

io.sockets.secure.openssl

Inputs

session	an object
addrspec	an object

Outputs

None

Definition

USING: accessors assocs kernel math openssl.libssl sequences ;

IN: io.sockets.secure.openssl

:: save-session ( session addrspec -- )
    current-secure-context sessions>> :> sessions addrspec
    sessions delete-at* [ SSL_SESSION_free ] [ drop ] if session 
    [
        sessions assoc-size max-cached-sessions >= [
            sessions keys first sessions delete-at* drop
            SSL_SESSION_free
        ] when session addrspec sessions set-at
    ] when ;