Blame doc/examples/ex-pkcs11-list.c

Packit Service 4684c1
/* This example code is placed in the public domain. */
Packit Service 4684c1
Packit Service 4684c1
#include <config.h>
Packit Service 4684c1
#include <gnutls/gnutls.h>
Packit Service 4684c1
#include <gnutls/pkcs11.h>
Packit Service 4684c1
#include <stdio.h>
Packit Service 4684c1
#include <stdlib.h>
Packit Service 4684c1
Packit Service 4684c1
#define URL "pkcs11:URL"
Packit Service 4684c1
Packit Service 4684c1
int main(int argc, char **argv)
Packit Service 4684c1
{
Packit Service 4684c1
        gnutls_pkcs11_obj_t *obj_list;
Packit Service 4684c1
        gnutls_x509_crt_t xcrt;
Packit Service 4684c1
        unsigned int obj_list_size = 0;
Packit Service 4684c1
        gnutls_datum_t cinfo;
Packit Service 4684c1
        int ret;
Packit Service 4684c1
        unsigned int i;
Packit Service 4684c1
Packit Service 4684c1
        ret = gnutls_pkcs11_obj_list_import_url4(&obj_list, &obj_list_size, URL,
Packit Service 4684c1
                                                GNUTLS_PKCS11_OBJ_FLAG_CRT|
Packit Service 4684c1
                                                GNUTLS_PKCS11_OBJ_FLAG_WITH_PRIVKEY);
Packit Service 4684c1
        if (ret < 0)
Packit Service 4684c1
                return -1;
Packit Service 4684c1
Packit Service 4684c1
        /* now all certificates are in obj_list */
Packit Service 4684c1
        for (i = 0; i < obj_list_size; i++) {
Packit Service 4684c1
Packit Service 4684c1
                gnutls_x509_crt_init(&xcrt);
Packit Service 4684c1
Packit Service 4684c1
                gnutls_x509_crt_import_pkcs11(xcrt, obj_list[i]);
Packit Service 4684c1
Packit Service 4684c1
                gnutls_x509_crt_print(xcrt, GNUTLS_CRT_PRINT_FULL, &cinfo);
Packit Service 4684c1
Packit Service 4684c1
                fprintf(stdout, "cert[%d]:\n %s\n\n", i, cinfo.data);
Packit Service 4684c1
Packit Service 4684c1
                gnutls_free(cinfo.data);
Packit Service 4684c1
                gnutls_x509_crt_deinit(xcrt);
Packit Service 4684c1
        }
Packit Service 4684c1
Packit Service 4684c1
        for (i = 0; i < obj_list_size; i++)
Packit Service 4684c1
                gnutls_pkcs11_obj_deinit(obj_list[i]);
Packit Service 4684c1
	gnutls_free(obj_list);
Packit Service 4684c1
Packit Service 4684c1
        return 0;
Packit Service 4684c1
}