x509name>string ( x509name -- string )

Vocabulary

io.sockets.secure.openssl

Inputs

x509name

an object

Outputs

string

an object

Definition

USING: byte-arrays io.encodings.latin1 io.encodings.string
kernel math openssl.libssl sequences ;

IN: io.sockets.secure.openssl

:: x509name>string ( x509name -- string )
    x509name NID_commonName f 0 X509_NAME_get_text_by_NID
    :> len len -1 =
    [ f ] [
        len 1 +
        <byte-array> :> buffer x509name NID_commonName buffer
        buffer length X509_NAME_get_text_by_NID drop
        buffer len head latin1 decode
    ] if ;