#include <spawn.h>
#include "tls-darwin.h"
#define _CUPS_CDSA_PASSWORD "42"
#define _CUPS_CDSA_PASSLEN 2
static int tls_auto_create = 0;
static char *tls_common_name = NULL;
#if TARGET_OS_OSX
static int tls_cups_keychain = 0;
static SecKeychainRef tls_keychain = NULL;
#else
static SecIdentityRef tls_selfsigned = NULL;
#endif
static char *tls_keypath = NULL;
static _cups_mutex_t tls_mutex = _CUPS_MUTEX_INITIALIZER;
static int tls_options = -1,
tls_min_version = _HTTP_TLS_1_0,
tls_max_version = _HTTP_TLS_MAX;
static CFArrayRef http_cdsa_copy_server(const char *common_name);
static SecCertificateRef http_cdsa_create_credential(http_credential_t *credential);
#if TARGET_OS_OSX
static const char *http_cdsa_default_path(char *buffer, size_t bufsize);
static SecKeychainRef http_cdsa_open_keychain(const char *path, char *filename, size_t filesize);
static SecKeychainRef http_cdsa_open_system_keychain(void);
#endif
static OSStatus http_cdsa_read(SSLConnectionRef connection, void *data, size_t *dataLength);
static int http_cdsa_set_credentials(http_t *http);
static OSStatus http_cdsa_write(SSLConnectionRef connection, const void *data, size_t *dataLength);
int
cupsMakeServerCredentials(
const char *path,
const char *common_name,
int num_alt_names,
const char **alt_names,
time_t expiration_date)
{
#if TARGET_OS_OSX
int pid,
status,
i;
char command[1024],
*argv[5],
*envp[1000],
days[32],
keychain[1024],
infofile[1024],
filename[1024];
cups_file_t *fp;
DEBUG_printf(("cupsMakeServerCredentials(path=\"%s\", common_name=\"%s\", num_alt_names=%d, alt_names=%p, expiration_date=%d)", path, common_name, num_alt_names, (void *)alt_names, (int)expiration_date));
(void)num_alt_names;
(void)alt_names;
if (!path)
path = http_cdsa_default_path(filename, sizeof(filename));
if (!cupsFileFind("certtool", getenv("PATH"), 1, command, sizeof(command)))
return (-1);
if ((fp = cupsTempFile2(infofile, sizeof(infofile))) == NULL)
return (-1);
cupsFilePrintf(fp,
"CUPS Self-Signed Certificate\n"
"r\n"
"2048\n"
"y\n"
"b\n"
"2\n"
"y\n"
"%s\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"y\n",
common_name);
cupsFileClose(fp);
snprintf(keychain, sizeof(keychain), "k=%s", path);
argv[0] = "certtool";
argv[1] = "c";
argv[2] = keychain;
argv[3] = NULL;
snprintf(days, sizeof(days), "CERTTOOL_EXPIRATION_DAYS=%d", (int)((expiration_date - time(NULL) + 86399) / 86400));
envp[0] = days;
for (i = 0; i < (int)(sizeof(envp) / sizeof(envp[0]) - 2) && environ[i]; i ++)
envp[i + 1] = environ[i];
envp[i] = NULL;
posix_spawn_file_actions_t actions;
posix_spawn_file_actions_init(&actions);
posix_spawn_file_actions_addclose(&actions, 0);
posix_spawn_file_actions_addopen(&actions, 0, infofile, O_RDONLY, 0);
posix_spawn_file_actions_addclose(&actions, 1);
posix_spawn_file_actions_addopen(&actions, 1, "/dev/null", O_WRONLY, 0);
posix_spawn_file_actions_addclose(&actions, 2);
posix_spawn_file_actions_addopen(&actions, 2, "/dev/null", O_WRONLY, 0);
if (posix_spawn(&pid, command, &actions, NULL, argv, envp))
{
unlink(infofile);
return (-1);
}
posix_spawn_file_actions_destroy(&actions);
unlink(infofile);
while (waitpid(pid, &status, 0) < 0)
if (errno != EINTR)
{
status = -1;
break;
}
return (!status);
#else
int status = 0;
OSStatus err;
CFStringRef cfcommon_name = NULL;
SecIdentityRef ident = NULL;
SecKeyRef publicKey = NULL,
privateKey = NULL;
SecCertificateRef cert = NULL;
CFMutableDictionaryRef keyParams = NULL;
DEBUG_printf(("cupsMakeServerCredentials(path=\"%s\", common_name=\"%s\", num_alt_names=%d, alt_names=%p, expiration_date=%d)", path, common_name, num_alt_names, alt_names, (int)expiration_date));
(void)path;
(void)num_alt_names;
(void)alt_names;
(void)expiration_date;
if (path)
{
DEBUG_puts("1cupsMakeServerCredentials: No keychain support compiled in, returning 0.");
return (0);
}
if (tls_selfsigned)
{
DEBUG_puts("1cupsMakeServerCredentials: Using existing self-signed cert.");
return (1);
}
cfcommon_name = CFStringCreateWithCString(kCFAllocatorDefault, common_name, kCFStringEncodingUTF8);
if (!cfcommon_name)
{
DEBUG_puts("1cupsMakeServerCredentials: Unable to create CF string of common name.");
goto cleanup;
}
keyParams = CFDictionaryCreateMutable(kCFAllocatorDefault, 0, &kCFTypeDictionaryKeyCallBacks, &kCFTypeDictionaryValueCallBacks);
if (!keyParams)
{
DEBUG_puts("1cupsMakeServerCredentials: Unable to create key parameters dictionary.");
goto cleanup;
}
CFDictionaryAddValue(keyParams, kSecAttrKeyType, kSecAttrKeyTypeRSA);
CFDictionaryAddValue(keyParams, kSecAttrKeySizeInBits, CFSTR("2048"));
CFDictionaryAddValue(keyParams, kSecAttrLabel, cfcommon_name);
err = SecKeyGeneratePair(keyParams, &publicKey, &privateKey);
if (err != noErr)
{
DEBUG_printf(("1cupsMakeServerCredentials: Unable to generate key pair: %d.", (int)err));
goto cleanup;
}
CFIndex usageInt = kSecKeyUsageAll;
CFNumberRef usage = CFNumberCreate(kCFAllocatorDefault, kCFNumberCFIndexType, &usageInt);
CFIndex lenInt = 0;
CFNumberRef len = CFNumberCreate(kCFAllocatorDefault, kCFNumberCFIndexType, &lenInt);
CFTypeRef certKeys[] = { kSecCSRBasicContraintsPathLen, kSecSubjectAltName, kSecCertificateKeyUsage };
CFTypeRef certValues[] = { len, cfcommon_name, usage };
CFDictionaryRef certParams = CFDictionaryCreate(kCFAllocatorDefault, certKeys, certValues, sizeof(certKeys) / sizeof(certKeys[0]), &kCFTypeDictionaryKeyCallBacks, &kCFTypeDictionaryValueCallBacks);
CFRelease(usage);
CFRelease(len);
const void *ca_o[] = { kSecOidOrganization, CFSTR("") };
const void *ca_cn[] = { kSecOidCommonName, cfcommon_name };
CFArrayRef ca_o_dn = CFArrayCreate(kCFAllocatorDefault, ca_o, 2, NULL);
CFArrayRef ca_cn_dn = CFArrayCreate(kCFAllocatorDefault, ca_cn, 2, NULL);
const void *ca_dn_array[2];
ca_dn_array[0] = CFArrayCreate(kCFAllocatorDefault, (const void **)&ca_o_dn, 1, NULL);
ca_dn_array[1] = CFArrayCreate(kCFAllocatorDefault, (const void **)&ca_cn_dn, 1, NULL);
CFArrayRef subject = CFArrayCreate(kCFAllocatorDefault, ca_dn_array, 2, NULL);
cert = SecGenerateSelfSignedCertificate(subject, certParams, publicKey, privateKey);
CFRelease(subject);
CFRelease(certParams);
if (!cert)
{
DEBUG_puts("1cupsMakeServerCredentials: Unable to create self-signed certificate.");
goto cleanup;
}
ident = SecIdentityCreate(kCFAllocatorDefault, cert, privateKey);
if (ident)
{
_cupsMutexLock(&tls_mutex);
if (tls_selfsigned)
CFRelease(ident);
else
tls_selfsigned = ident;
_cupsMutexLock(&tls_mutex);
# if 0
CFTypeRef itemKeys[] = { kSecClass, kSecAttrLabel, kSecValueRef };
CFTypeRef itemValues[] = { kSecClassIdentity, cfcommon_name, ident };
CFDictionaryRef itemAttrs = CFDictionaryCreate(kCFAllocatorDefault, itemKeys, itemValues, sizeof(itemKeys) / sizeof(itemKeys[0]), &kCFTypeDictionaryKeyCallBacks, &kCFTypeDictionaryValueCallBacks);
err = SecItemAdd(itemAttrs, NULL);
CFRelease(ident);
if (err != noErr)
{
DEBUG_printf(("1cupsMakeServerCredentials: Unable to add identity to keychain: %d.", (int)err));
goto cleanup;
}
# endif
status = 1;
}
else
DEBUG_puts("1cupsMakeServerCredentials: Unable to create identity from cert and keys.");
cleanup:
if (cfcommon_name)
CFRelease(cfcommon_name);
if (keyParams)
CFRelease(keyParams);
if (cert)
CFRelease(cert);
if (publicKey)
CFRelease(publicKey);
if (privateKey)
CFRelease(privateKey);
DEBUG_printf(("1cupsMakeServerCredentials: Returning %d.", status));
return (status);
#endif
}
int
cupsSetServerCredentials(
const char *path,
const char *common_name,
int auto_create)
{
DEBUG_printf(("cupsSetServerCredentials(path=\"%s\", common_name=\"%s\", auto_create=%d)", path, common_name, auto_create));
#if TARGET_OS_OSX
char filename[1024];
SecKeychainRef keychain = http_cdsa_open_keychain(path, filename, sizeof(filename));
if (!keychain)
{
DEBUG_puts("1cupsSetServerCredentials: Unable to open keychain.");
return (0);
}
_cupsMutexLock(&tls_mutex);
if (tls_keychain)
CFRelease(tls_keychain);
if (tls_keypath)
_cupsStrFree(tls_keypath);
if (tls_common_name)
_cupsStrFree(tls_common_name);
tls_keychain = keychain;
tls_keypath = _cupsStrAlloc(filename);
tls_auto_create = auto_create;
tls_common_name = _cupsStrAlloc(common_name);
_cupsMutexUnlock(&tls_mutex);
DEBUG_puts("1cupsSetServerCredentials: Opened keychain, returning 1.");
return (1);
#else
if (path)
{
DEBUG_puts("1cupsSetServerCredentials: No keychain support compiled in, returning 0.");
return (0);
}
tls_auto_create = auto_create;
tls_common_name = _cupsStrAlloc(common_name);
return (1);
#endif
}
int
httpCopyCredentials(
http_t *http,
cups_array_t **credentials)
{
OSStatus error;
SecTrustRef peerTrust;
CFIndex count;
SecCertificateRef secCert;
CFDataRef data;
int i;
DEBUG_printf(("httpCopyCredentials(http=%p, credentials=%p)", (void *)http, (void *)credentials));
if (credentials)
*credentials = NULL;
if (!http || !http->tls || !credentials)
return (-1);
if (!(error = SSLCopyPeerTrust(http->tls, &peerTrust)) && peerTrust)
{
DEBUG_printf(("2httpCopyCredentials: Peer provided %d certificates.", (int)SecTrustGetCertificateCount(peerTrust)));
if ((*credentials = cupsArrayNew(NULL, NULL)) != NULL)
{
count = SecTrustGetCertificateCount(peerTrust);
for (i = 0; i < count; i ++)
{
secCert = SecTrustGetCertificateAtIndex(peerTrust, i);
#ifdef DEBUG
CFStringRef cf_name = SecCertificateCopySubjectSummary(secCert);
char name[1024];
if (cf_name)
CFStringGetCString(cf_name, name, sizeof(name), kCFStringEncodingUTF8);
else
strlcpy(name, "unknown", sizeof(name));
DEBUG_printf(("2httpCopyCredentials: Certificate %d name is \"%s\".", i, name));
#endif
if ((data = SecCertificateCopyData(secCert)) != NULL)
{
DEBUG_printf(("2httpCopyCredentials: Adding %d byte certificate blob.", (int)CFDataGetLength(data)));
httpAddCredential(*credentials, CFDataGetBytePtr(data), (size_t)CFDataGetLength(data));
CFRelease(data);
}
}
}
CFRelease(peerTrust);
}
return (error);
}
http_tls_credentials_t
_httpCreateCredentials(
cups_array_t *credentials)
{
CFMutableArrayRef peerCerts;
SecCertificateRef secCert;
http_credential_t *credential;
if (!credentials)
return (NULL);
if ((peerCerts = CFArrayCreateMutable(kCFAllocatorDefault,
cupsArrayCount(credentials),
&kCFTypeArrayCallBacks)) == NULL)
return (NULL);
for (credential = (http_credential_t *)cupsArrayFirst(credentials);
credential;
credential = (http_credential_t *)cupsArrayNext(credentials))
{
if ((secCert = http_cdsa_create_credential(credential)) != NULL)
{
CFArrayAppendValue(peerCerts, secCert);
CFRelease(secCert);
}
}
return (peerCerts);
}
int
httpCredentialsAreValidForName(
cups_array_t *credentials,
const char *common_name)
{
SecCertificateRef secCert;
CFStringRef cfcert_name = NULL;
char cert_name[256];
int valid = 1;
if ((secCert = http_cdsa_create_credential((http_credential_t *)cupsArrayFirst(credentials))) == NULL)
return (0);
if ((cfcert_name = SecCertificateCopySubjectSummary(secCert)) == NULL)
{
valid = 0;
}
else if (CFStringGetCString(cfcert_name, cert_name, sizeof(cert_name), kCFStringEncodingUTF8) &&
_cups_strcasecmp(common_name, cert_name))
{
const char *domain = strchr(common_name, '.');
if (strncmp(cert_name, "*.", 2) || !domain || _cups_strcasecmp(domain, cert_name + 1))
{
valid = 0;
}
}
if (cfcert_name)
CFRelease(cfcert_name);
CFRelease(secCert);
return (valid);
}
http_trust_t
httpCredentialsGetTrust(
cups_array_t *credentials,
const char *common_name)
{
SecCertificateRef secCert;
http_trust_t trust = HTTP_TRUST_OK;
cups_array_t *tcreds = NULL;
_cups_globals_t *cg = _cupsGlobals();
if (!common_name)
{
_cupsSetError(IPP_STATUS_ERROR_INTERNAL, _("No common name specified."), 1);
return (HTTP_TRUST_UNKNOWN);
}
if ((secCert = http_cdsa_create_credential((http_credential_t *)cupsArrayFirst(credentials))) == NULL)
{
_cupsSetError(IPP_STATUS_ERROR_INTERNAL, _("Unable to create credentials from array."), 1);
return (HTTP_TRUST_UNKNOWN);
}
if (cg->any_root < 0)
_cupsSetDefaults();
httpLoadCredentials(NULL, &tcreds, common_name);
if (tcreds)
{
char credentials_str[1024],
tcreds_str[1024];
httpCredentialsString(credentials, credentials_str, sizeof(credentials_str));
httpCredentialsString(tcreds, tcreds_str, sizeof(tcreds_str));
if (strcmp(credentials_str, tcreds_str))
{
if (!cg->trust_first)
{
_cupsSetError(IPP_STATUS_ERROR_INTERNAL, _("Trust on first use is disabled."), 1);
trust = HTTP_TRUST_INVALID;
}
else if (httpCredentialsGetExpiration(credentials) <= httpCredentialsGetExpiration(tcreds))
{
_cupsSetError(IPP_STATUS_ERROR_INTERNAL, _("New credentials are older than stored credentials."), 1);
trust = HTTP_TRUST_INVALID;
}
else if (!httpCredentialsAreValidForName(credentials, common_name))
{
_cupsSetError(IPP_STATUS_ERROR_INTERNAL, _("New credentials are not valid for name."), 1);
trust = HTTP_TRUST_INVALID;
}
else if (httpCredentialsGetExpiration(tcreds) < time(NULL))
{
trust = HTTP_TRUST_RENEWED;
httpSaveCredentials(NULL, credentials, common_name);
}
}
httpFreeCredentials(tcreds);
}
else if (cg->validate_certs && !httpCredentialsAreValidForName(credentials, common_name))
{
_cupsSetError(IPP_STATUS_ERROR_INTERNAL, _("No stored credentials, not valid for name."), 1);
trust = HTTP_TRUST_INVALID;
}
else if (!cg->trust_first)
{
if (!httpLoadCredentials(NULL, &tcreds, "site"))
{
if (cupsArrayCount(credentials) != (cupsArrayCount(tcreds) + 1))
{
trust = HTTP_TRUST_INVALID;
}
else
{
http_credential_t *a, *b;
for (a = (http_credential_t *)cupsArrayFirst(tcreds), b = (http_credential_t *)cupsArrayIndex(credentials, 1);
a && b;
a = (http_credential_t *)cupsArrayNext(tcreds), b = (http_credential_t *)cupsArrayNext(credentials))
if (a->datalen != b->datalen || memcmp(a->data, b->data, a->datalen))
break;
if (a || b)
trust = HTTP_TRUST_INVALID;
}
if (trust != HTTP_TRUST_OK)
_cupsSetError(IPP_STATUS_ERROR_INTERNAL, _("Credentials do not validate against site CA certificate."), 1);
}
else
{
_cupsSetError(IPP_STATUS_ERROR_INTERNAL, _("Trust on first use is disabled."), 1);
trust = HTTP_TRUST_INVALID;
}
}
if (trust == HTTP_TRUST_OK && !cg->expired_certs && !SecCertificateIsValid(secCert, CFAbsoluteTimeGetCurrent()))
{
_cupsSetError(IPP_STATUS_ERROR_INTERNAL, _("Credentials have expired."), 1);
trust = HTTP_TRUST_EXPIRED;
}
if (trust == HTTP_TRUST_OK && !cg->any_root && cupsArrayCount(credentials) == 1)
{
_cupsSetError(IPP_STATUS_ERROR_INTERNAL, _("Self-signed credentials are blocked."), 1);
trust = HTTP_TRUST_INVALID;
}
CFRelease(secCert);
return (trust);
}
time_t
httpCredentialsGetExpiration(
cups_array_t *credentials)
{
SecCertificateRef secCert;
time_t expiration;
if ((secCert = http_cdsa_create_credential((http_credential_t *)cupsArrayFirst(credentials))) == NULL)
return (0);
expiration = (time_t)(SecCertificateNotValidAfter(secCert) + kCFAbsoluteTimeIntervalSince1970);
CFRelease(secCert);
return (expiration);
}
size_t
httpCredentialsString(
cups_array_t *credentials,
char *buffer,
size_t bufsize)
{
http_credential_t *first;
SecCertificateRef secCert;
DEBUG_printf(("httpCredentialsString(credentials=%p, buffer=%p, bufsize=" CUPS_LLFMT ")", (void *)credentials, (void *)buffer, CUPS_LLCAST bufsize));
if (!buffer)
return (0);
if (buffer && bufsize > 0)
*buffer = '\0';
if ((first = (http_credential_t *)cupsArrayFirst(credentials)) != NULL &&
(secCert = http_cdsa_create_credential(first)) != NULL)
{
# if TARGET_OS_OSX
CFDictionaryRef cf_dict;
# endif
CFStringRef cf_string;
char commonName[256],
issuer[256],
sigalg[256];
time_t expiration;
unsigned char md5_digest[16];
if (SecCertificateCopyCommonName(secCert, &cf_string) == noErr)
{
CFStringGetCString(cf_string, commonName, (CFIndex)sizeof(commonName), kCFStringEncodingUTF8);
CFRelease(cf_string);
}
else
{
strlcpy(commonName, "unknown", sizeof(commonName));
}
strlcpy(issuer, "unknown", sizeof(issuer));
strlcpy(sigalg, "UnknownSignature", sizeof(sigalg));
# if TARGET_OS_OSX
if ((cf_dict = SecCertificateCopyValues(secCert, NULL, NULL)) != NULL)
{
CFDictionaryRef cf_issuer = CFDictionaryGetValue(cf_dict, kSecOIDX509V1IssuerName);
CFDictionaryRef cf_sigalg = CFDictionaryGetValue(cf_dict, kSecOIDX509V1SignatureAlgorithm);
if (cf_issuer)
{
CFArrayRef cf_values = CFDictionaryGetValue(cf_issuer, kSecPropertyKeyValue);
CFIndex i, count = CFArrayGetCount(cf_values);
CFDictionaryRef cf_value;
for (i = 0; i < count; i ++)
{
cf_value = CFArrayGetValueAtIndex(cf_values, i);
if (!CFStringCompare(CFDictionaryGetValue(cf_value, kSecPropertyKeyLabel), kSecOIDOrganizationName, kCFCompareCaseInsensitive))
CFStringGetCString(CFDictionaryGetValue(cf_value, kSecPropertyKeyValue), issuer, (CFIndex)sizeof(issuer), kCFStringEncodingUTF8);
}
}
if (cf_sigalg)
{
CFArrayRef cf_values = CFDictionaryGetValue(cf_sigalg, kSecPropertyKeyValue);
CFIndex i, count = CFArrayGetCount(cf_values);
CFDictionaryRef cf_value;
for (i = 0; i < count; i ++)
{
cf_value = CFArrayGetValueAtIndex(cf_values, i);
if (!CFStringCompare(CFDictionaryGetValue(cf_value, kSecPropertyKeyLabel), CFSTR("Algorithm"), kCFCompareCaseInsensitive))
{
CFStringRef cf_algorithm = CFDictionaryGetValue(cf_value, kSecPropertyKeyValue);
if (!CFStringCompare(cf_algorithm, CFSTR("1.2.840.113549.1.1.5"), kCFCompareCaseInsensitive))
strlcpy(sigalg, "SHA1WithRSAEncryption", sizeof(sigalg));
else if (!CFStringCompare(cf_algorithm, CFSTR("1.2.840.113549.1.1.11"), kCFCompareCaseInsensitive))
strlcpy(sigalg, "SHA256WithRSAEncryption", sizeof(sigalg));
else if (!CFStringCompare(cf_algorithm, CFSTR("1.2.840.113549.1.1.4"), kCFCompareCaseInsensitive))
strlcpy(sigalg, "MD5WithRSAEncryption", sizeof(sigalg));
}
}
}
CFRelease(cf_dict);
}
# endif
expiration = (time_t)(SecCertificateNotValidAfter(secCert) + kCFAbsoluteTimeIntervalSince1970);
cupsHashData("md5", first->data, first->datalen, md5_digest, sizeof(md5_digest));
snprintf(buffer, bufsize, "%s (issued by %s) / %s / %s / %02X%02X%02X%02X%02X%02X%02X%02X%02X%02X%02X%02X%02X%02X%02X%02X", commonName, issuer, httpGetDateString(expiration), sigalg, md5_digest[0], md5_digest[1], md5_digest[2], md5_digest[3], md5_digest[4], md5_digest[5], md5_digest[6], md5_digest[7], md5_digest[8], md5_digest[9], md5_digest[10], md5_digest[11], md5_digest[12], md5_digest[13], md5_digest[14], md5_digest[15]);
CFRelease(secCert);
}
DEBUG_printf(("1httpCredentialsString: Returning \"%s\".", buffer));
return (strlen(buffer));
}
void
_httpFreeCredentials(
http_tls_credentials_t credentials)
{
if (!credentials)
return;
CFRelease(credentials);
}
int
httpLoadCredentials(
const char *path,
cups_array_t **credentials,
const char *common_name)
{
OSStatus err;
#if TARGET_OS_OSX
char filename[1024];
SecKeychainRef keychain = NULL,
syschain = NULL;
CFArrayRef list;
#endif
SecCertificateRef cert = NULL;
CFDataRef data;
SecPolicyRef policy = NULL;
CFStringRef cfcommon_name = NULL;
CFMutableDictionaryRef query = NULL;
DEBUG_printf(("httpLoadCredentials(path=\"%s\", credentials=%p, common_name=\"%s\")", path, (void *)credentials, common_name));
if (!credentials)
return (-1);
*credentials = NULL;
#if TARGET_OS_OSX
keychain = http_cdsa_open_keychain(path, filename, sizeof(filename));
if (!keychain)
goto cleanup;
syschain = http_cdsa_open_system_keychain();
#else
if (path)
return (-1);
#endif
cfcommon_name = CFStringCreateWithCString(kCFAllocatorDefault, common_name, kCFStringEncodingUTF8);
policy = SecPolicyCreateSSL(1, cfcommon_name);
if (cfcommon_name)
CFRelease(cfcommon_name);
if (!policy)
goto cleanup;
if (!(query = CFDictionaryCreateMutable(kCFAllocatorDefault, 0, &kCFTypeDictionaryKeyCallBacks, &kCFTypeDictionaryValueCallBacks)))
goto cleanup;
CFDictionaryAddValue(query, kSecClass, kSecClassCertificate);
CFDictionaryAddValue(query, kSecMatchPolicy, policy);
CFDictionaryAddValue(query, kSecReturnRef, kCFBooleanTrue);
CFDictionaryAddValue(query, kSecMatchLimit, kSecMatchLimitOne);
#if TARGET_OS_OSX
if (syschain)
{
const void *values[2] = { syschain, keychain };
list = CFArrayCreate(kCFAllocatorDefault, (const void **)values, 2, &kCFTypeArrayCallBacks);
}
else
list = CFArrayCreate(kCFAllocatorDefault, (const void **)&keychain, 1, &kCFTypeArrayCallBacks);
CFDictionaryAddValue(query, kSecMatchSearchList, list);
CFRelease(list);
#endif
err = SecItemCopyMatching(query, (CFTypeRef *)&cert);
if (err)
goto cleanup;
if (CFGetTypeID(cert) != SecCertificateGetTypeID())
goto cleanup;
if ((data = SecCertificateCopyData(cert)) != NULL)
{
DEBUG_printf(("1httpLoadCredentials: Adding %d byte certificate blob.", (int)CFDataGetLength(data)));
*credentials = cupsArrayNew(NULL, NULL);
httpAddCredential(*credentials, CFDataGetBytePtr(data), (size_t)CFDataGetLength(data));
CFRelease(data);
}
cleanup :
#if TARGET_OS_OSX
if (keychain)
CFRelease(keychain);
if (syschain)
CFRelease(syschain);
#endif
if (cert)
CFRelease(cert);
if (policy)
CFRelease(policy);
if (query)
CFRelease(query);
DEBUG_printf(("1httpLoadCredentials: Returning %d.", *credentials ? 0 : -1));
return (*credentials ? 0 : -1);
}
int
httpSaveCredentials(
const char *path,
cups_array_t *credentials,
const char *common_name)
{
int ret = -1;
OSStatus err;
#if TARGET_OS_OSX
char filename[1024];
SecKeychainRef keychain = NULL;
CFArrayRef list;
#endif
SecCertificateRef cert = NULL;
CFMutableDictionaryRef attrs = NULL;
DEBUG_printf(("httpSaveCredentials(path=\"%s\", credentials=%p, common_name=\"%s\")", path, (void *)credentials, common_name));
if (!credentials)
goto cleanup;
if (!httpCredentialsAreValidForName(credentials, common_name))
{
DEBUG_puts("1httpSaveCredentials: Common name does not match.");
return (-1);
}
if ((cert = http_cdsa_create_credential((http_credential_t *)cupsArrayFirst(credentials))) == NULL)
{
DEBUG_puts("1httpSaveCredentials: Unable to create certificate.");
goto cleanup;
}
#if TARGET_OS_OSX
keychain = http_cdsa_open_keychain(path, filename, sizeof(filename));
if (!keychain)
goto cleanup;
#else
if (path)
return (-1);
#endif
if ((attrs = CFDictionaryCreateMutable(kCFAllocatorDefault, 0, &kCFTypeDictionaryKeyCallBacks, &kCFTypeDictionaryValueCallBacks)) == NULL)
{
DEBUG_puts("1httpSaveCredentials: Unable to create dictionary.");
goto cleanup;
}
CFDictionaryAddValue(attrs, kSecClass, kSecClassCertificate);
CFDictionaryAddValue(attrs, kSecValueRef, cert);
#if TARGET_OS_OSX
if ((list = CFArrayCreate(kCFAllocatorDefault, (const void **)&keychain, 1, &kCFTypeArrayCallBacks)) == NULL)
{
DEBUG_puts("1httpSaveCredentials: Unable to create list of keychains.");
goto cleanup;
}
CFDictionaryAddValue(attrs, kSecMatchSearchList, list);
CFRelease(list);
#endif
err = SecItemAdd(attrs, NULL);
DEBUG_printf(("1httpSaveCredentials: SecItemAdd returned %d.", (int)err));
cleanup :
#if TARGET_OS_OSX
if (keychain)
CFRelease(keychain);
#endif
if (cert)
CFRelease(cert);
DEBUG_printf(("1httpSaveCredentials: Returning %d.", ret));
return (ret);
}
void
_httpTLSInitialize(void)
{
}
size_t
_httpTLSPending(http_t *http)
{
size_t bytes;
if (!SSLGetBufferedReadSize(http->tls, &bytes))
return (bytes);
return (0);
}
int
_httpTLSRead(http_t *http,
char *buf,
int len)
{
int result;
OSStatus error;
size_t processed;
error = SSLRead(http->tls, buf, (size_t)len, &processed);
DEBUG_printf(("6_httpTLSRead: error=%d, processed=%d", (int)error,
(int)processed));
switch (error)
{
case 0 :
result = (int)processed;
break;
case errSSLWouldBlock :
if (processed)
result = (int)processed;
else
{
result = -1;
errno = EINTR;
}
break;
case errSSLClosedGraceful :
default :
if (processed)
result = (int)processed;
else
{
result = -1;
errno = EPIPE;
}
break;
}
return (result);
}
void
_httpTLSSetOptions(int options,
int min_version,
int max_version)
{
if (!(options & _HTTP_TLS_SET_DEFAULT) || tls_options < 0)
{
tls_options = options;
tls_min_version = min_version;
tls_max_version = max_version;
}
}
int
_httpTLSStart(http_t *http)
{
char hostname[256],
*hostptr;
_cups_globals_t *cg = _cupsGlobals();
OSStatus error;
const char *message = NULL;
char msgbuf[1024];
cups_array_t *credentials;
cups_array_t *names;
CFArrayRef dn_array;
CFIndex count;
CFDataRef data;
int i;
http_credential_t *credential;
DEBUG_printf(("3_httpTLSStart(http=%p)", (void *)http));
if (tls_options < 0)
{
DEBUG_puts("4_httpTLSStart: Setting defaults.");
_cupsSetDefaults();
DEBUG_printf(("4_httpTLSStart: tls_options=%x, tls_min_version=%d, tls_max_version=%d", tls_options, tls_min_version, tls_max_version));
}
#if TARGET_OS_OSX
if (http->mode == _HTTP_MODE_SERVER && !tls_keychain)
{
DEBUG_puts("4_httpTLSStart: cupsSetServerCredentials not called.");
http->error = errno = EINVAL;
http->status = HTTP_STATUS_ERROR;
_cupsSetError(IPP_STATUS_ERROR_INTERNAL, _("Server credentials not set."), 1);
return (-1);
}
#endif
if ((http->tls = SSLCreateContext(kCFAllocatorDefault, http->mode == _HTTP_MODE_CLIENT ? kSSLClientSide : kSSLServerSide, kSSLStreamType)) == NULL)
{
DEBUG_puts("4_httpTLSStart: SSLCreateContext failed.");
http->error = errno = ENOMEM;
http->status = HTTP_STATUS_ERROR;
_cupsSetHTTPError(HTTP_STATUS_ERROR);
return (-1);
}
error = SSLSetConnection(http->tls, http);
DEBUG_printf(("4_httpTLSStart: SSLSetConnection, error=%d", (int)error));
if (!error)
{
error = SSLSetIOFuncs(http->tls, http_cdsa_read, http_cdsa_write);
DEBUG_printf(("4_httpTLSStart: SSLSetIOFuncs, error=%d", (int)error));
}
if (!error)
{
error = SSLSetSessionOption(http->tls, kSSLSessionOptionBreakOnServerAuth,
true);
DEBUG_printf(("4_httpTLSStart: SSLSetSessionOption, error=%d", (int)error));
}
if (!error)
{
static const SSLProtocol protocols[] =
{
kSSLProtocol3,
kTLSProtocol1,
kTLSProtocol11,
kTLSProtocol12,
kTLSProtocol13
};
if (tls_min_version < _HTTP_TLS_MAX)
{
error = SSLSetProtocolVersionMin(http->tls, protocols[tls_min_version]);
DEBUG_printf(("4_httpTLSStart: SSLSetProtocolVersionMin(%d), error=%d", protocols[tls_min_version], (int)error));
}
if (!error && tls_max_version < _HTTP_TLS_MAX)
{
error = SSLSetProtocolVersionMax(http->tls, protocols[tls_max_version]);
DEBUG_printf(("4_httpTLSStart: SSLSetProtocolVersionMax(%d), error=%d", protocols[tls_max_version], (int)error));
}
}
if (!error)
{
SSLCipherSuite supported[100];
size_t num_supported;
SSLCipherSuite enabled[100];
size_t num_enabled;
num_supported = sizeof(supported) / sizeof(supported[0]);
error = SSLGetSupportedCiphers(http->tls, supported, &num_supported);
if (!error)
{
DEBUG_printf(("4_httpTLSStart: %d cipher suites supported.", (int)num_supported));
for (i = 0, num_enabled = 0; i < (int)num_supported && num_enabled < (sizeof(enabled) / sizeof(enabled[0])); i ++)
{
switch (supported[i])
{
case SSL_NULL_WITH_NULL_NULL :
case SSL_RSA_WITH_NULL_MD5 :
case SSL_RSA_WITH_NULL_SHA :
case SSL_RSA_EXPORT_WITH_RC4_40_MD5 :
case SSL_RSA_EXPORT_WITH_RC2_CBC_40_MD5 :
case SSL_RSA_EXPORT_WITH_DES40_CBC_SHA :
case SSL_RSA_WITH_DES_CBC_SHA :
case SSL_DH_DSS_EXPORT_WITH_DES40_CBC_SHA :
case SSL_DH_DSS_WITH_DES_CBC_SHA :
case SSL_DH_RSA_EXPORT_WITH_DES40_CBC_SHA :
case SSL_DH_RSA_WITH_DES_CBC_SHA :
case SSL_DHE_DSS_EXPORT_WITH_DES40_CBC_SHA :
case SSL_DHE_DSS_WITH_DES_CBC_SHA :
case SSL_DHE_RSA_EXPORT_WITH_DES40_CBC_SHA :
case SSL_DHE_RSA_WITH_DES_CBC_SHA :
case SSL_DH_anon_EXPORT_WITH_RC4_40_MD5 :
case SSL_DH_anon_WITH_RC4_128_MD5 :
case SSL_DH_anon_EXPORT_WITH_DES40_CBC_SHA :
case SSL_DH_anon_WITH_DES_CBC_SHA :
case SSL_DH_anon_WITH_3DES_EDE_CBC_SHA :
case SSL_FORTEZZA_DMS_WITH_NULL_SHA :
case TLS_DH_anon_WITH_AES_128_CBC_SHA :
case TLS_DH_anon_WITH_AES_256_CBC_SHA :
case TLS_ECDH_ECDSA_WITH_NULL_SHA :
case TLS_ECDHE_RSA_WITH_NULL_SHA :
case TLS_ECDH_anon_WITH_NULL_SHA :
case TLS_ECDH_anon_WITH_RC4_128_SHA :
case TLS_ECDH_anon_WITH_3DES_EDE_CBC_SHA :
case TLS_ECDH_anon_WITH_AES_128_CBC_SHA :
case TLS_ECDH_anon_WITH_AES_256_CBC_SHA :
case TLS_RSA_WITH_NULL_SHA256 :
case TLS_DH_anon_WITH_AES_128_CBC_SHA256 :
case TLS_DH_anon_WITH_AES_256_CBC_SHA256 :
case TLS_PSK_WITH_NULL_SHA :
case TLS_DHE_PSK_WITH_NULL_SHA :
case TLS_RSA_PSK_WITH_NULL_SHA :
case TLS_DH_anon_WITH_AES_128_GCM_SHA256 :
case TLS_DH_anon_WITH_AES_256_GCM_SHA384 :
case TLS_PSK_WITH_NULL_SHA256 :
case TLS_PSK_WITH_NULL_SHA384 :
case TLS_DHE_PSK_WITH_NULL_SHA256 :
case TLS_DHE_PSK_WITH_NULL_SHA384 :
case TLS_RSA_PSK_WITH_NULL_SHA256 :
case TLS_RSA_PSK_WITH_NULL_SHA384 :
case SSL_RSA_WITH_DES_CBC_MD5 :
DEBUG_printf(("4_httpTLSStart: Excluding insecure cipher suite %d", supported[i]));
break;
case SSL_RSA_WITH_RC4_128_MD5 :
case SSL_RSA_WITH_RC4_128_SHA :
case TLS_ECDH_ECDSA_WITH_RC4_128_SHA :
case TLS_ECDHE_ECDSA_WITH_RC4_128_SHA :
case TLS_ECDH_RSA_WITH_RC4_128_SHA :
case TLS_ECDHE_RSA_WITH_RC4_128_SHA :
case TLS_PSK_WITH_RC4_128_SHA :
case TLS_DHE_PSK_WITH_RC4_128_SHA :
case TLS_RSA_PSK_WITH_RC4_128_SHA :
if (tls_options & _HTTP_TLS_ALLOW_RC4)
enabled[num_enabled ++] = supported[i];
else
DEBUG_printf(("4_httpTLSStart: Excluding RC4 cipher suite %d", supported[i]));
break;
case TLS_DH_DSS_WITH_AES_128_CBC_SHA :
case TLS_DH_RSA_WITH_AES_128_CBC_SHA :
case TLS_DHE_DSS_WITH_AES_128_CBC_SHA :
case TLS_DHE_RSA_WITH_AES_128_CBC_SHA :
case TLS_DH_DSS_WITH_AES_256_CBC_SHA :
case TLS_DH_RSA_WITH_AES_256_CBC_SHA :
case TLS_DHE_DSS_WITH_AES_256_CBC_SHA :
case TLS_DHE_RSA_WITH_AES_256_CBC_SHA :
case TLS_DH_DSS_WITH_3DES_EDE_CBC_SHA :
case TLS_DH_RSA_WITH_3DES_EDE_CBC_SHA :
case TLS_DHE_RSA_WITH_3DES_EDE_CBC_SHA :
case TLS_DH_DSS_WITH_AES_128_CBC_SHA256 :
case TLS_DH_RSA_WITH_AES_128_CBC_SHA256 :
case TLS_DHE_DSS_WITH_AES_128_CBC_SHA256 :
case TLS_DHE_RSA_WITH_AES_128_CBC_SHA256 :
case TLS_DH_DSS_WITH_AES_256_CBC_SHA256 :
case TLS_DH_RSA_WITH_AES_256_CBC_SHA256 :
case TLS_DHE_DSS_WITH_AES_256_CBC_SHA256 :
case TLS_DHE_RSA_WITH_AES_256_CBC_SHA256 :
case TLS_DHE_PSK_WITH_3DES_EDE_CBC_SHA :
case TLS_DHE_PSK_WITH_AES_128_CBC_SHA :
case TLS_DHE_PSK_WITH_AES_256_CBC_SHA :
case TLS_DHE_PSK_WITH_AES_128_CBC_SHA256 :
case TLS_DHE_PSK_WITH_AES_256_CBC_SHA384 :
if (tls_options & _HTTP_TLS_DENY_CBC)
{
DEBUG_printf(("4_httpTLSStart: Excluding CBC cipher suite %d", supported[i]));
break;
}
case TLS_DH_RSA_WITH_AES_128_GCM_SHA256 :
case TLS_DH_RSA_WITH_AES_256_GCM_SHA384 :
case TLS_DH_DSS_WITH_AES_128_GCM_SHA256 :
case TLS_DH_DSS_WITH_AES_256_GCM_SHA384 :
case TLS_DHE_PSK_WITH_AES_128_GCM_SHA256 :
case TLS_DHE_PSK_WITH_AES_256_GCM_SHA384 :
if (tls_options & _HTTP_TLS_ALLOW_DH)
enabled[num_enabled ++] = supported[i];
else
DEBUG_printf(("4_httpTLSStart: Excluding DH/DHE cipher suite %d", supported[i]));
break;
case TLS_DHE_DSS_WITH_3DES_EDE_CBC_SHA :
case TLS_ECDHE_ECDSA_WITH_AES_128_CBC_SHA256 :
case TLS_ECDHE_ECDSA_WITH_AES_256_CBC_SHA384 :
case TLS_ECDH_ECDSA_WITH_AES_128_CBC_SHA256 :
case TLS_ECDH_ECDSA_WITH_AES_256_CBC_SHA384 :
case TLS_ECDHE_RSA_WITH_AES_128_CBC_SHA256 :
case TLS_ECDHE_RSA_WITH_AES_256_CBC_SHA384 :
case TLS_ECDH_RSA_WITH_AES_128_CBC_SHA256 :
case TLS_ECDH_RSA_WITH_AES_256_CBC_SHA384 :
case TLS_RSA_WITH_3DES_EDE_CBC_SHA :
case TLS_RSA_WITH_AES_128_CBC_SHA :
case TLS_RSA_WITH_AES_256_CBC_SHA :
if (tls_options & _HTTP_TLS_DENY_CBC)
{
DEBUG_printf(("4_httpTLSStart: Excluding CBC cipher suite %d", supported[i]));
break;
}
default :
enabled[num_enabled ++] = supported[i];
break;
}
}
DEBUG_printf(("4_httpTLSStart: %d cipher suites enabled.", (int)num_enabled));
error = SSLSetEnabledCiphers(http->tls, enabled, num_enabled);
}
}
if (!error && http->mode == _HTTP_MODE_CLIENT)
{
if (cg->client_cert_cb)
{
error = SSLSetSessionOption(http->tls,
kSSLSessionOptionBreakOnCertRequested, true);
DEBUG_printf(("4_httpTLSStart: kSSLSessionOptionBreakOnCertRequested, "
"error=%d", (int)error));
}
else
{
error = http_cdsa_set_credentials(http);
DEBUG_printf(("4_httpTLSStart: http_cdsa_set_credentials, error=%d",
(int)error));
}
}
else if (!error)
{
if (http->fields[HTTP_FIELD_HOST])
{
strlcpy(hostname, http->fields[HTTP_FIELD_HOST], sizeof(hostname));
}
else
{
http_addr_t addr;
socklen_t addrlen;
addrlen = sizeof(addr);
if (getsockname(http->fd, (struct sockaddr *)&addr, &addrlen))
{
DEBUG_printf(("4_httpTLSStart: Unable to get socket address: %s", strerror(errno)));
hostname[0] = '\0';
}
else if (httpAddrLocalhost(&addr))
hostname[0] = '\0';
else
{
httpAddrLookup(&addr, hostname, sizeof(hostname));
DEBUG_printf(("4_httpTLSStart: Resolved socket address to \"%s\".", hostname));
}
}
if (isdigit(hostname[0] & 255) || hostname[0] == '[')
hostname[0] = '\0';
if (hostname[0])
http->tls_credentials = http_cdsa_copy_server(hostname);
else if (tls_common_name)
http->tls_credentials = http_cdsa_copy_server(tls_common_name);
if (!http->tls_credentials && tls_auto_create && (hostname[0] || tls_common_name))
{
DEBUG_printf(("4_httpTLSStart: Auto-create credentials for \"%s\".", hostname[0] ? hostname : tls_common_name));
if (!cupsMakeServerCredentials(tls_keypath, hostname[0] ? hostname : tls_common_name, 0, NULL, time(NULL) + 365 * 86400))
{
DEBUG_puts("4_httpTLSStart: cupsMakeServerCredentials failed.");
http->error = errno = EINVAL;
http->status = HTTP_STATUS_ERROR;
_cupsSetError(IPP_STATUS_ERROR_INTERNAL, _("Unable to create server credentials."), 1);
return (-1);
}
http->tls_credentials = http_cdsa_copy_server(hostname[0] ? hostname : tls_common_name);
}
if (!http->tls_credentials)
{
DEBUG_puts("4_httpTLSStart: Unable to find server credentials.");
http->error = errno = EINVAL;
http->status = HTTP_STATUS_ERROR;
_cupsSetError(IPP_STATUS_ERROR_INTERNAL, _("Unable to find server credentials."), 1);
return (-1);
}
error = SSLSetCertificate(http->tls, http->tls_credentials);
DEBUG_printf(("4_httpTLSStart: SSLSetCertificate, error=%d", (int)error));
}
DEBUG_printf(("4_httpTLSStart: tls_credentials=%p", (void *)http->tls_credentials));
if (!error && http->mode == _HTTP_MODE_CLIENT)
{
if (httpAddrLocalhost(http->hostaddr))
{
strlcpy(hostname, "localhost", sizeof(hostname));
}
else
{
strlcpy(hostname, http->hostname, sizeof(hostname));
if ((hostptr = hostname + strlen(hostname) - 1) >= hostname &&
*hostptr == '.')
*hostptr = '\0';
}
error = SSLSetPeerDomainName(http->tls, hostname, strlen(hostname));
DEBUG_printf(("4_httpTLSStart: SSLSetPeerDomainName, error=%d", (int)error));
}
if (!error)
{
int done = 0;
double old_timeout;
http_timeout_cb_t old_cb;
void *old_data;
old_timeout = http->timeout_value;
old_cb = http->timeout_cb;
old_data = http->timeout_data;
if (!old_cb || old_timeout < 10.0)
{
DEBUG_puts("4_httpTLSStart: Setting timeout to 10 seconds.");
httpSetTimeout(http, 10.0, NULL, NULL);
}
while (!error && !done)
{
error = SSLHandshake(http->tls);
DEBUG_printf(("4_httpTLSStart: SSLHandshake returned %d.", (int)error));
switch (error)
{
case noErr :
done = 1;
break;
case errSSLWouldBlock :
error = noErr;
usleep(1000);
break;
case errSSLServerAuthCompleted :
error = 0;
if (cg->server_cert_cb)
{
error = httpCopyCredentials(http, &credentials);
if (!error)
{
error = (cg->server_cert_cb)(http, http->tls, credentials,
cg->server_cert_data);
httpFreeCredentials(credentials);
}
DEBUG_printf(("4_httpTLSStart: Server certificate callback "
"returned %d.", (int)error));
}
break;
case errSSLClientCertRequested :
error = 0;
if (cg->client_cert_cb)
{
names = NULL;
if (!(error = SSLCopyDistinguishedNames(http->tls, &dn_array)) &&
dn_array)
{
if ((names = cupsArrayNew(NULL, NULL)) != NULL)
{
for (i = 0, count = CFArrayGetCount(dn_array); i < count; i++)
{
data = (CFDataRef)CFArrayGetValueAtIndex(dn_array, i);
if ((credential = malloc(sizeof(*credential))) != NULL)
{
credential->datalen = (size_t)CFDataGetLength(data);
if ((credential->data = malloc(credential->datalen)))
{
memcpy((void *)credential->data, CFDataGetBytePtr(data),
credential->datalen);
cupsArrayAdd(names, credential);
}
else
free(credential);
}
}
}
CFRelease(dn_array);
}
if (!error)
{
error = (cg->client_cert_cb)(http, http->tls, names,
cg->client_cert_data);
DEBUG_printf(("4_httpTLSStart: Client certificate callback "
"returned %d.", (int)error));
}
httpFreeCredentials(names);
}
break;
case errSSLUnknownRootCert :
message = _("Unable to establish a secure connection to host "
"(untrusted certificate).");
break;
case errSSLNoRootCert :
message = _("Unable to establish a secure connection to host "
"(self-signed certificate).");
break;
case errSSLCertExpired :
message = _("Unable to establish a secure connection to host "
"(expired certificate).");
break;
case errSSLCertNotYetValid :
message = _("Unable to establish a secure connection to host "
"(certificate not yet valid).");
break;
case errSSLHostNameMismatch :
message = _("Unable to establish a secure connection to host "
"(host name mismatch).");
break;
case errSSLXCertChainInvalid :
message = _("Unable to establish a secure connection to host "
"(certificate chain invalid).");
break;
case errSSLConnectionRefused :
message = _("Unable to establish a secure connection to host "
"(peer dropped connection before responding).");
break;
default :
break;
}
}
httpSetTimeout(http, old_timeout, old_cb, old_data);
}
if (error)
{
http->error = error;
http->status = HTTP_STATUS_ERROR;
errno = ECONNREFUSED;
CFRelease(http->tls);
http->tls = NULL;
if (!message)
{
if (!cg->lang_default)
cg->lang_default = cupsLangDefault();
snprintf(msgbuf, sizeof(msgbuf), _cupsLangString(cg->lang_default, _("Unable to establish a secure connection to host (%d).")), error);
message = msgbuf;
}
_cupsSetError(IPP_STATUS_ERROR_CUPS_PKI, message, 1);
return (-1);
}
return (0);
}
void
_httpTLSStop(http_t *http)
{
while (SSLClose(http->tls) == errSSLWouldBlock)
usleep(1000);
CFRelease(http->tls);
if (http->tls_credentials)
CFRelease(http->tls_credentials);
http->tls = NULL;
http->tls_credentials = NULL;
}
int
_httpTLSWrite(http_t *http,
const char *buf,
int len)
{
ssize_t result;
OSStatus error;
size_t processed;
DEBUG_printf(("2_httpTLSWrite(http=%p, buf=%p, len=%d)", (void *)http, (void *)buf, len));
error = SSLWrite(http->tls, buf, (size_t)len, &processed);
switch (error)
{
case 0 :
result = (int)processed;
break;
case errSSLWouldBlock :
if (processed)
{
result = (int)processed;
}
else
{
result = -1;
errno = EINTR;
}
break;
case errSSLClosedGraceful :
default :
if (processed)
{
result = (int)processed;
}
else
{
result = -1;
errno = EPIPE;
}
break;
}
DEBUG_printf(("3_httpTLSWrite: Returning %d.", (int)result));
return ((int)result);
}
static CFArrayRef
http_cdsa_copy_server(
const char *common_name)
{
#if TARGET_OS_OSX
OSStatus err;
SecIdentityRef identity = NULL;
CFArrayRef certificates = NULL;
SecPolicyRef policy = NULL;
CFStringRef cfcommon_name = NULL;
CFMutableDictionaryRef query = NULL;
CFArrayRef list = NULL;
SecKeychainRef syschain = NULL;
SecKeychainStatus status = 0;
DEBUG_printf(("3http_cdsa_copy_server(common_name=\"%s\")", common_name));
cfcommon_name = CFStringCreateWithCString(kCFAllocatorDefault, common_name, kCFStringEncodingUTF8);
policy = SecPolicyCreateSSL(1, cfcommon_name);
if (!policy)
{
DEBUG_puts("4http_cdsa_copy_server: Unable to create SSL policy.");
goto cleanup;
}
if (!(query = CFDictionaryCreateMutable(kCFAllocatorDefault, 0, &kCFTypeDictionaryKeyCallBacks, &kCFTypeDictionaryValueCallBacks)))
{
DEBUG_puts("4http_cdsa_copy_server: Unable to create query dictionary.");
goto cleanup;
}
_cupsMutexLock(&tls_mutex);
err = SecKeychainGetStatus(tls_keychain, &status);
if (err == noErr && !(status & kSecUnlockStateStatus) && tls_cups_keychain)
SecKeychainUnlock(tls_keychain, _CUPS_CDSA_PASSLEN, _CUPS_CDSA_PASSWORD, TRUE);
CFDictionaryAddValue(query, kSecClass, kSecClassIdentity);
CFDictionaryAddValue(query, kSecMatchPolicy, policy);
CFDictionaryAddValue(query, kSecReturnRef, kCFBooleanTrue);
CFDictionaryAddValue(query, kSecMatchLimit, kSecMatchLimitOne);
syschain = http_cdsa_open_system_keychain();
if (syschain)
{
const void *values[2] = { syschain, tls_keychain };
list = CFArrayCreate(kCFAllocatorDefault, (const void **)values, 2, &kCFTypeArrayCallBacks);
}
else
list = CFArrayCreate(kCFAllocatorDefault, (const void **)&tls_keychain, 1, &kCFTypeArrayCallBacks);
CFDictionaryAddValue(query, kSecMatchSearchList, list);
CFRelease(list);
err = SecItemCopyMatching(query, (CFTypeRef *)&identity);
_cupsMutexUnlock(&tls_mutex);
if (err != noErr)
{
DEBUG_printf(("4http_cdsa_copy_server: SecItemCopyMatching failed with status %d.", (int)err));
goto cleanup;
}
if (CFGetTypeID(identity) != SecIdentityGetTypeID())
{
DEBUG_puts("4http_cdsa_copy_server: Search returned something that is not an identity.");
goto cleanup;
}
if ((certificates = CFArrayCreate(NULL, (const void **)&identity, 1, &kCFTypeArrayCallBacks)) == NULL)
{
DEBUG_puts("4http_cdsa_copy_server: Unable to create array of certificates.");
goto cleanup;
}
cleanup :
if (syschain)
CFRelease(syschain);
if (identity)
CFRelease(identity);
if (policy)
CFRelease(policy);
if (cfcommon_name)
CFRelease(cfcommon_name);
if (query)
CFRelease(query);
DEBUG_printf(("4http_cdsa_copy_server: Returning %p.", (void *)certificates));
return (certificates);
#else
(void)common_name;
if (!tls_selfsigned)
return (NULL);
return (CFArrayCreate(NULL, (const void **)&tls_selfsigned, 1, &kCFTypeArrayCallBacks));
#endif
}
static SecCertificateRef
http_cdsa_create_credential(
http_credential_t *credential)
{
SecCertificateRef cert;
CFDataRef data;
if (!credential)
return (NULL);
data = CFDataCreate(kCFAllocatorDefault, credential->data, (CFIndex)credential->datalen);
cert = SecCertificateCreateWithData(kCFAllocatorDefault, data);
CFRelease(data);
return (cert);
}
#if TARGET_OS_OSX
static const char *
http_cdsa_default_path(char *buffer,
size_t bufsize)
{
_cups_globals_t *cg = _cupsGlobals();
if (cg->home)
snprintf(buffer, bufsize, "%s/.cups/ssl.keychain", cg->home);
else
strlcpy(buffer, "/etc/cups/ssl.keychain", bufsize);
DEBUG_printf(("1http_cdsa_default_path: Using default path \"%s\".", buffer));
return (buffer);
}
static SecKeychainRef
http_cdsa_open_keychain(
const char *path,
char *filename,
size_t filesize)
{
SecKeychainRef keychain = NULL;
OSStatus err;
Boolean interaction;
SecKeychainStatus status = 0;
if (!path)
{
path = http_cdsa_default_path(filename, filesize);
tls_cups_keychain = 1;
}
else
{
strlcpy(filename, path, filesize);
tls_cups_keychain = 0;
}
SecKeychainGetUserInteractionAllowed(&interaction);
SecKeychainSetUserInteractionAllowed(FALSE);
if (access(path, R_OK) && tls_cups_keychain)
{
err = SecKeychainCreate(path, _CUPS_CDSA_PASSLEN, _CUPS_CDSA_PASSWORD, FALSE, NULL, &keychain);
}
else
{
err = SecKeychainOpen(path, &keychain);
if (err == noErr)
err = SecKeychainGetStatus(keychain, &status);
if (err == noErr && !(status & kSecUnlockStateStatus) && tls_cups_keychain)
err = SecKeychainUnlock(keychain, _CUPS_CDSA_PASSLEN, _CUPS_CDSA_PASSWORD, TRUE);
}
SecKeychainSetUserInteractionAllowed(interaction);
if (err != noErr)
{
DEBUG_printf(("4http_cdsa_open_keychain: Unable to open keychain (%d), returning NULL.", (int)err));
if (keychain)
{
CFRelease(keychain);
keychain = NULL;
}
}
return (keychain);
}
static SecKeychainRef
http_cdsa_open_system_keychain(void)
{
SecKeychainRef keychain = NULL;
OSStatus err;
Boolean interaction;
SecKeychainStatus status = 0;
SecKeychainGetUserInteractionAllowed(&interaction);
SecKeychainSetUserInteractionAllowed(TRUE);
err = SecKeychainOpen("/Library/Keychains/System.keychain", &keychain);
if (err == noErr)
err = SecKeychainGetStatus(keychain, &status);
if (err == noErr && !(status & kSecUnlockStateStatus))
err = errSecInteractionNotAllowed;
SecKeychainSetUserInteractionAllowed(interaction);
if (err != noErr)
{
DEBUG_printf(("4http_cdsa_open_system_keychain: Unable to open keychain (%d), returning NULL.", (int)err));
if (keychain)
{
CFRelease(keychain);
keychain = NULL;
}
}
return (keychain);
}
#endif
static OSStatus
http_cdsa_read(
SSLConnectionRef connection,
void *data,
size_t *dataLength)
{
OSStatus result;
ssize_t bytes;
http_t *http;
http = (http_t *)connection;
if (!http->blocking || http->timeout_value > 0.0)
{
while (!_httpWait(http, http->wait_value, 0))
{
if (http->timeout_cb && (*http->timeout_cb)(http, http->timeout_data))
continue;
http->error = ETIMEDOUT;
return (-1);
}
}
do
{
bytes = recv(http->fd, data, *dataLength, 0);
}
while (bytes == -1 && (errno == EINTR || errno == EAGAIN));
if ((size_t)bytes == *dataLength)
{
result = 0;
}
else if (bytes > 0)
{
*dataLength = (size_t)bytes;
result = errSSLWouldBlock;
}
else
{
*dataLength = 0;
if (bytes == 0)
result = errSSLClosedGraceful;
else if (errno == EAGAIN)
result = errSSLWouldBlock;
else
result = errSSLClosedAbort;
}
return (result);
}
static int
http_cdsa_set_credentials(http_t *http)
{
_cups_globals_t *cg = _cupsGlobals();
OSStatus error = 0;
http_tls_credentials_t credentials = NULL;
DEBUG_printf(("7http_tls_set_credentials(%p)", (void *)http));
if ((credentials = http->tls_credentials) == NULL)
credentials = cg->tls_credentials;
if (credentials)
{
error = SSLSetCertificate(http->tls, credentials);
DEBUG_printf(("4http_tls_set_credentials: SSLSetCertificate, error=%d",
(int)error));
}
else
DEBUG_puts("4http_tls_set_credentials: No credentials to set.");
return (error);
}
static OSStatus
http_cdsa_write(
SSLConnectionRef connection,
const void *data,
size_t *dataLength)
{
OSStatus result;
ssize_t bytes;
http_t *http;
http = (http_t *)connection;
do
{
bytes = write(http->fd, data, *dataLength);
}
while (bytes == -1 && (errno == EINTR || errno == EAGAIN));
if ((size_t)bytes == *dataLength)
{
result = 0;
}
else if (bytes >= 0)
{
*dataLength = (size_t)bytes;
result = errSSLWouldBlock;
}
else
{
*dataLength = 0;
if (errno == EAGAIN)
result = errSSLWouldBlock;
else
result = errSSLClosedAbort;
}
return (result);
}