load-verify-locations ( ctx -- )

Vocabulary

io.sockets.secure.openssl

Inputs

ctx

an object

Outputs

None

Definition

USING: accessors kernel openssl openssl.libssl ;

IN: io.sockets.secure.openssl

: load-verify-locations ( ctx -- )
    dup config>> [ ca-file>> ] [ ca-path>> ] bi or [
        [ handle>> ] [
            config>>
            [ ca-file>> [ ssl-file-path ] ?call ]
            [ ca-path>> [ ssl-file-path ] ?call ] bi
        ] bi SSL_CTX_load_verify_locations
    ] [ handle>> SSL_CTX_set_default_verify_paths ] if ssl-error
    ;