set-default-password ( ctx -- )

Vocabulary

io.sockets.secure.openssl

Inputs

ctx

an object

Outputs

None

Definition

USING: accessors kernel openssl.libssl ;

IN: io.sockets.secure.openssl

: set-default-password ( ctx -- )
    [ config>> password>> ] 1check [
        [
            handle>> password-callback
            SSL_CTX_set_default_passwd_cb
        ] [
            [ handle>> ] [ default-pasword ] bi
            SSL_CTX_set_default_passwd_cb_userdata
        ] bi
    ] [ drop ] if ;