?https-tunnel ( -- )

Vocabulary

http.client.private

Inputs

None

Outputs

None

Definition

USING: accessors http http.client io.sockets.secure kernel
namespaces ;

IN: http.client.private

: ?https-tunnel ( -- )
    request get dup https-tunnel? [
        <request> swap
        [ url>> >>url ] [ ?copy-proxy-basic-auth ] bi
        f >>proxy-url "CONNECT" >>method write-request
        read-response check-response drop send-secure-handshake
    ] [ drop ] if ;