view release on metacpan or  search on metacpan

deps/hiredis/hiredis_ssl.h  view on Meta::CPAN

#define REDIS_SSL_VERIFY_PEER 0x01
#define REDIS_SSL_VERIFY_FAIL_IF_NO_PEER_CERT 0x02
#define REDIS_SSL_VERIFY_CLIENT_ONCE 0x04
#define REDIS_SSL_VERIFY_POST_HANDSHAKE 0x08

/* Options to create an OpenSSL context. */
typedef struct {
    const char *cacert_filename;
    const char *capath;
    const char *cert_filename;
    const char *private_key_filename;
    const char *server_name;
    int verify_mode;
} redisSSLOptions;

/**
 * Return the error message corresponding with the specified error code.
 */

const char *redisSSLContextGetError(redisSSLContextError error);

src/Redis__Fast.xs  view on Meta::CPAN

        return NULL;
    }

    if(self->ssl){
        redisSSLContext* ssl_context;
        redisSSLContextError ssl_error = REDIS_SSL_CTX_NONE;
        redisSSLOptions options = {
            .cacert_filename      = NULL,
            .capath               = NULL,
            .cert_filename        = NULL,
            .private_key_filename = NULL,
            .server_name          = self->hostname,
            .verify_mode          = self->ssl_verify_mode,
        };
        ssl_context = redisCreateSSLContextWithOptions(&options, &ssl_error);

        if(ssl_context == NULL || ssl_error != REDIS_SSL_CTX_NONE) {
            DEBUG_MSG("ssl context error: %s", redisSSLContextGetError(ssl_error));
            redisAsyncFree(ac);
            redisFreeSSLContext(ssl_context);
            return NULL;