Function: gnutls-peer-status-warning-describe

gnutls-peer-status-warning-describe is a function defined in gnutls.c.

Signature

(gnutls-peer-status-warning-describe STATUS-SYMBOL)

Documentation

Describe the warning of a GnuTLS peer status from gnutls-peer-status.

Source Code

// Defined in /usr/src/emacs/src/gnutls.c
{
  CHECK_SYMBOL (status_symbol);

  if (EQ (status_symbol, intern (":invalid")))
    return build_string ("certificate could not be verified");

  if (EQ (status_symbol, intern (":revoked")))
    return build_string ("certificate was revoked (CRL)");

  if (EQ (status_symbol, intern (":self-signed")))
    return build_string ("certificate signer was not found (self-signed)");

  if (EQ (status_symbol, intern (":unknown-ca")))
    return build_string ("the certificate was signed by an unknown "
                         "and therefore untrusted authority");

  if (EQ (status_symbol, intern (":not-ca")))
    return build_string ("certificate signer is not a CA");

  if (EQ (status_symbol, intern (":insecure")))
    return build_string ("certificate was signed with an insecure algorithm");

  if (EQ (status_symbol, intern (":not-activated")))
    return build_string ("certificate is not yet activated");

  if (EQ (status_symbol, intern (":expired")))
    return build_string ("certificate has expired");

  if (EQ (status_symbol, intern (":no-host-match")))
    return build_string ("certificate host does not match hostname");

  if (EQ (status_symbol, intern (":signature-failure")))
    return build_string ("certificate signature could not be verified");

  if (EQ (status_symbol, intern (":revocation-data-superseded")))
    return build_string ("certificate revocation data are old and have been "
                         "superseded");

  if (EQ (status_symbol, intern (":revocation-data-issued-in-future")))
    return build_string ("certificate revocation data have a future issue date");

  if (EQ (status_symbol, intern (":signer-constraints-failure")))
    return build_string ("certificate signer constraints were violated");

  if (EQ (status_symbol, intern (":purpose-mismatch")))
    return build_string ("certificate does not match the intended purpose");

  if (EQ (status_symbol, intern (":missing-ocsp-status")))
    return build_string ("certificate requires the server to send a OCSP "
                         "certificate status, but no status was received");

  if (EQ (status_symbol, intern (":invalid-ocsp-status")))
    return build_string ("the received OCSP certificate status is invalid");

  return Qnil;
}