00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018
00019
00020
00021
00022
00023
00024
00025
00026
00027
00028 #include "asterisk.h"
00029
00030 ASTERISK_FILE_VERSION(__FILE__, "$Revision: 311192 $")
00031
00032 #ifdef HAVE_FCNTL_H
00033 #include <fcntl.h>
00034 #endif
00035
00036 #include <signal.h>
00037 #include <sys/signal.h>
00038
00039 #include "asterisk/compat.h"
00040 #include "asterisk/tcptls.h"
00041 #include "asterisk/http.h"
00042 #include "asterisk/utils.h"
00043 #include "asterisk/strings.h"
00044 #include "asterisk/options.h"
00045 #include "asterisk/manager.h"
00046 #include "asterisk/astobj2.h"
00047
00048
00049
00050
00051
00052
00053
00054 #ifdef DO_SSL
00055 static HOOK_T ssl_read(void *cookie, char *buf, LEN_T len)
00056 {
00057 int i = SSL_read(cookie, buf, len-1);
00058 #if 0
00059 if (i >= 0)
00060 buf[i] = '\0';
00061 ast_verb(0, "ssl read size %d returns %d <%s>\n", (int)len, i, buf);
00062 #endif
00063 return i;
00064 }
00065
00066 static HOOK_T ssl_write(void *cookie, const char *buf, LEN_T len)
00067 {
00068 #if 0
00069 char *s = alloca(len+1);
00070 strncpy(s, buf, len);
00071 s[len] = '\0';
00072 ast_verb(0, "ssl write size %d <%s>\n", (int)len, s);
00073 #endif
00074 return SSL_write(cookie, buf, len);
00075 }
00076
00077 static int ssl_close(void *cookie)
00078 {
00079 close(SSL_get_fd(cookie));
00080 SSL_shutdown(cookie);
00081 SSL_free(cookie);
00082 return 0;
00083 }
00084 #endif
00085
00086 HOOK_T ast_tcptls_server_read(struct ast_tcptls_session_instance *tcptls_session, void *buf, size_t count)
00087 {
00088 if (tcptls_session->fd == -1) {
00089 ast_log(LOG_ERROR, "server_read called with an fd of -1\n");
00090 errno = EIO;
00091 return -1;
00092 }
00093
00094 #ifdef DO_SSL
00095 if (tcptls_session->ssl)
00096 return ssl_read(tcptls_session->ssl, buf, count);
00097 #endif
00098 return read(tcptls_session->fd, buf, count);
00099 }
00100
00101 HOOK_T ast_tcptls_server_write(struct ast_tcptls_session_instance *tcptls_session, const void *buf, size_t count)
00102 {
00103 if (tcptls_session->fd == -1) {
00104 ast_log(LOG_ERROR, "server_write called with an fd of -1\n");
00105 errno = EIO;
00106 return -1;
00107 }
00108
00109 #ifdef DO_SSL
00110 if (tcptls_session->ssl)
00111 return ssl_write(tcptls_session->ssl, buf, count);
00112 #endif
00113 return write(tcptls_session->fd, buf, count);
00114 }
00115
00116 static void session_instance_destructor(void *obj)
00117 {
00118 struct ast_tcptls_session_instance *i = obj;
00119 ast_mutex_destroy(&i->lock);
00120 }
00121
00122
00123
00124
00125
00126
00127
00128
00129 static void *handle_tcptls_connection(void *data)
00130 {
00131 struct ast_tcptls_session_instance *tcptls_session = data;
00132 #ifdef DO_SSL
00133 int (*ssl_setup)(SSL *) = (tcptls_session->client) ? SSL_connect : SSL_accept;
00134 int ret;
00135 char err[256];
00136 #endif
00137
00138
00139
00140
00141 if (!tcptls_session->parent->tls_cfg) {
00142 if ((tcptls_session->f = fdopen(tcptls_session->fd, "w+"))) {
00143 if(setvbuf(tcptls_session->f, NULL, _IONBF, 0)) {
00144 fclose(tcptls_session->f);
00145 tcptls_session->f = NULL;
00146 }
00147 }
00148 }
00149 #ifdef DO_SSL
00150 else if ( (tcptls_session->ssl = SSL_new(tcptls_session->parent->tls_cfg->ssl_ctx)) ) {
00151 SSL_set_fd(tcptls_session->ssl, tcptls_session->fd);
00152 if ((ret = ssl_setup(tcptls_session->ssl)) <= 0) {
00153 ast_verb(2, "Problem setting up ssl connection: %s\n", ERR_error_string(ERR_get_error(), err));
00154 } else {
00155 #if defined(HAVE_FUNOPEN)
00156 tcptls_session->f = funopen(tcptls_session->ssl, ssl_read, ssl_write, NULL, ssl_close);
00157
00158 #elif defined(HAVE_FOPENCOOKIE)
00159 static const cookie_io_functions_t cookie_funcs = {
00160 ssl_read, ssl_write, NULL, ssl_close
00161 };
00162 tcptls_session->f = fopencookie(tcptls_session->ssl, "w+", cookie_funcs);
00163 #else
00164
00165 ast_debug(2, "no tcptls_session->f methods attempted!");
00166 #endif
00167 if ((tcptls_session->client && !ast_test_flag(&tcptls_session->parent->tls_cfg->flags, AST_SSL_DONT_VERIFY_SERVER))
00168 || (!tcptls_session->client && ast_test_flag(&tcptls_session->parent->tls_cfg->flags, AST_SSL_VERIFY_CLIENT))) {
00169 X509 *peer;
00170 long res;
00171 peer = SSL_get_peer_certificate(tcptls_session->ssl);
00172 if (!peer)
00173 ast_log(LOG_WARNING, "No peer SSL certificate\n");
00174 res = SSL_get_verify_result(tcptls_session->ssl);
00175 if (res != X509_V_OK)
00176 ast_log(LOG_ERROR, "Certificate did not verify: %s\n", X509_verify_cert_error_string(res));
00177 if (!ast_test_flag(&tcptls_session->parent->tls_cfg->flags, AST_SSL_IGNORE_COMMON_NAME)) {
00178 ASN1_STRING *str;
00179 unsigned char *str2;
00180 X509_NAME *name = X509_get_subject_name(peer);
00181 int pos = -1;
00182 int found = 0;
00183
00184 for (;;) {
00185
00186
00187 pos = X509_NAME_get_index_by_NID(name, NID_commonName, pos);
00188 if (pos < 0)
00189 break;
00190 str = X509_NAME_ENTRY_get_data(X509_NAME_get_entry(name, pos));
00191 ASN1_STRING_to_UTF8(&str2, str);
00192 if (str2) {
00193 if (!strcasecmp(tcptls_session->parent->hostname, (char *) str2))
00194 found = 1;
00195 ast_debug(3, "SSL Common Name compare s1='%s' s2='%s'\n", tcptls_session->parent->hostname, str2);
00196 OPENSSL_free(str2);
00197 }
00198 if (found)
00199 break;
00200 }
00201 if (!found) {
00202 ast_log(LOG_ERROR, "Certificate common name did not match (%s)\n", tcptls_session->parent->hostname);
00203 if (peer)
00204 X509_free(peer);
00205 close(tcptls_session->fd);
00206 fclose(tcptls_session->f);
00207 ao2_ref(tcptls_session, -1);
00208 return NULL;
00209 }
00210 }
00211 if (peer)
00212 X509_free(peer);
00213 }
00214 }
00215 if (!tcptls_session->f)
00216 SSL_free(tcptls_session->ssl);
00217 }
00218 #endif
00219
00220 if (!tcptls_session->f) {
00221 close(tcptls_session->fd);
00222 ast_log(LOG_WARNING, "FILE * open failed!\n");
00223 #ifndef DO_SSL
00224 if (tcptls_session->parent->tls_cfg) {
00225 ast_log(LOG_WARNING, "Attempted a TLS connection without OpenSSL support. This will not work!\n");
00226 }
00227 #endif
00228 ao2_ref(tcptls_session, -1);
00229 return NULL;
00230 }
00231
00232 if (tcptls_session && tcptls_session->parent->worker_fn)
00233 return tcptls_session->parent->worker_fn(tcptls_session);
00234 else
00235 return tcptls_session;
00236 }
00237
00238 void *ast_tcptls_server_root(void *data)
00239 {
00240 struct ast_tcptls_session_args *desc = data;
00241 int fd;
00242 struct ast_sockaddr addr;
00243 struct ast_tcptls_session_instance *tcptls_session;
00244 pthread_t launched;
00245
00246 for (;;) {
00247 int i, flags;
00248
00249 if (desc->periodic_fn)
00250 desc->periodic_fn(desc);
00251 i = ast_wait_for_input(desc->accept_fd, desc->poll_timeout);
00252 if (i <= 0)
00253 continue;
00254 fd = ast_accept(desc->accept_fd, &addr);
00255 if (fd < 0) {
00256 if ((errno != EAGAIN) && (errno != EINTR))
00257 ast_log(LOG_WARNING, "Accept failed: %s\n", strerror(errno));
00258 continue;
00259 }
00260 tcptls_session = ao2_alloc(sizeof(*tcptls_session), session_instance_destructor);
00261 if (!tcptls_session) {
00262 ast_log(LOG_WARNING, "No memory for new session: %s\n", strerror(errno));
00263 close(fd);
00264 continue;
00265 }
00266
00267 ast_mutex_init(&tcptls_session->lock);
00268
00269 flags = fcntl(fd, F_GETFL);
00270 fcntl(fd, F_SETFL, flags & ~O_NONBLOCK);
00271 tcptls_session->fd = fd;
00272 tcptls_session->parent = desc;
00273 ast_sockaddr_copy(&tcptls_session->remote_address, &addr);
00274
00275 tcptls_session->client = 0;
00276
00277
00278 if (ast_pthread_create_detached_background(&launched, NULL, handle_tcptls_connection, tcptls_session)) {
00279 ast_log(LOG_WARNING, "Unable to launch helper thread: %s\n", strerror(errno));
00280 close(tcptls_session->fd);
00281 ao2_ref(tcptls_session, -1);
00282 }
00283 }
00284 return NULL;
00285 }
00286
00287 static int __ssl_setup(struct ast_tls_config *cfg, int client)
00288 {
00289 #ifndef DO_SSL
00290 cfg->enabled = 0;
00291 return 0;
00292 #else
00293 if (!cfg->enabled)
00294 return 0;
00295
00296 SSL_load_error_strings();
00297 SSLeay_add_ssl_algorithms();
00298
00299 if (client) {
00300 if (ast_test_flag(&cfg->flags, AST_SSL_SSLV2_CLIENT)) {
00301 cfg->ssl_ctx = SSL_CTX_new(SSLv2_client_method());
00302 } else if (ast_test_flag(&cfg->flags, AST_SSL_SSLV3_CLIENT)) {
00303 cfg->ssl_ctx = SSL_CTX_new(SSLv3_client_method());
00304 } else if (ast_test_flag(&cfg->flags, AST_SSL_TLSV1_CLIENT)) {
00305 cfg->ssl_ctx = SSL_CTX_new(TLSv1_client_method());
00306 } else {
00307
00308
00309
00310
00311 cfg->ssl_ctx = SSL_CTX_new(SSLv23_client_method());
00312 }
00313 } else {
00314
00315 cfg->ssl_ctx = SSL_CTX_new(SSLv23_server_method());
00316 }
00317
00318 if (!cfg->ssl_ctx) {
00319 ast_debug(1, "Sorry, SSL_CTX_new call returned null...\n");
00320 cfg->enabled = 0;
00321 return 0;
00322 }
00323 if (!ast_strlen_zero(cfg->certfile)) {
00324 char *tmpprivate = ast_strlen_zero(cfg->pvtfile) ? cfg->certfile : cfg->pvtfile;
00325 if (SSL_CTX_use_certificate_file(cfg->ssl_ctx, cfg->certfile, SSL_FILETYPE_PEM) == 0) {
00326 if (!client) {
00327
00328 ast_verb(0, "SSL error loading cert file. <%s>", cfg->certfile);
00329 sleep(2);
00330 cfg->enabled = 0;
00331 return 0;
00332 }
00333 }
00334 if ((SSL_CTX_use_PrivateKey_file(cfg->ssl_ctx, tmpprivate, SSL_FILETYPE_PEM) == 0) || (SSL_CTX_check_private_key(cfg->ssl_ctx) == 0 )) {
00335 if (!client) {
00336
00337 ast_verb(0, "SSL error loading private key file. <%s>", tmpprivate);
00338 sleep(2);
00339 cfg->enabled = 0;
00340 return 0;
00341 }
00342 }
00343 }
00344 if (!ast_strlen_zero(cfg->cipher)) {
00345 if (SSL_CTX_set_cipher_list(cfg->ssl_ctx, cfg->cipher) == 0 ) {
00346 if (!client) {
00347 ast_verb(0, "SSL cipher error <%s>", cfg->cipher);
00348 sleep(2);
00349 cfg->enabled = 0;
00350 return 0;
00351 }
00352 }
00353 }
00354 if (!ast_strlen_zero(cfg->cafile) || !ast_strlen_zero(cfg->capath)) {
00355 if (SSL_CTX_load_verify_locations(cfg->ssl_ctx, S_OR(cfg->cafile, NULL), S_OR(cfg->capath,NULL)) == 0)
00356 ast_verb(0, "SSL CA file(%s)/path(%s) error\n", cfg->cafile, cfg->capath);
00357 }
00358
00359 ast_verb(0, "SSL certificate ok\n");
00360 return 1;
00361 #endif
00362 }
00363
00364 int ast_ssl_setup(struct ast_tls_config *cfg)
00365 {
00366 return __ssl_setup(cfg, 0);
00367 }
00368
00369 struct ast_tcptls_session_instance *ast_tcptls_client_start(struct ast_tcptls_session_instance *tcptls_session)
00370 {
00371 struct ast_tcptls_session_args *desc;
00372 int flags;
00373
00374 if (!(desc = tcptls_session->parent)) {
00375 goto client_start_error;
00376 }
00377
00378 if (ast_connect(desc->accept_fd, &desc->remote_address)) {
00379 ast_log(LOG_ERROR, "Unable to connect %s to %s: %s\n",
00380 desc->name,
00381 ast_sockaddr_stringify(&desc->remote_address),
00382 strerror(errno));
00383 goto client_start_error;
00384 }
00385
00386 flags = fcntl(desc->accept_fd, F_GETFL);
00387 fcntl(desc->accept_fd, F_SETFL, flags & ~O_NONBLOCK);
00388
00389 if (desc->tls_cfg) {
00390 desc->tls_cfg->enabled = 1;
00391 __ssl_setup(desc->tls_cfg, 1);
00392 }
00393
00394 return handle_tcptls_connection(tcptls_session);
00395
00396 client_start_error:
00397 close(desc->accept_fd);
00398 desc->accept_fd = -1;
00399 if (tcptls_session) {
00400 ao2_ref(tcptls_session, -1);
00401 }
00402 return NULL;
00403
00404 }
00405
00406 struct ast_tcptls_session_instance *ast_tcptls_client_create(struct ast_tcptls_session_args *desc)
00407 {
00408 int x = 1;
00409 struct ast_tcptls_session_instance *tcptls_session = NULL;
00410
00411
00412 if (!ast_sockaddr_cmp(&desc->old_address, &desc->remote_address)) {
00413 ast_debug(1, "Nothing changed in %s\n", desc->name);
00414 return NULL;
00415 }
00416
00417 ast_sockaddr_copy(&desc->old_address, &desc->remote_address);
00418
00419 if (desc->accept_fd != -1)
00420 close(desc->accept_fd);
00421
00422 desc->accept_fd = socket(ast_sockaddr_is_ipv6(&desc->remote_address) ?
00423 AF_INET6 : AF_INET, SOCK_STREAM, IPPROTO_TCP);
00424 if (desc->accept_fd < 0) {
00425 ast_log(LOG_WARNING, "Unable to allocate socket for %s: %s\n",
00426 desc->name, strerror(errno));
00427 return NULL;
00428 }
00429
00430
00431
00432 if (!ast_sockaddr_isnull(&desc->local_address)) {
00433 setsockopt(desc->accept_fd, SOL_SOCKET, SO_REUSEADDR, &x, sizeof(x));
00434 if (ast_bind(desc->accept_fd, &desc->local_address)) {
00435 ast_log(LOG_ERROR, "Unable to bind %s to %s: %s\n",
00436 desc->name,
00437 ast_sockaddr_stringify(&desc->local_address),
00438 strerror(errno));
00439 goto error;
00440 }
00441 }
00442
00443 if (!(tcptls_session = ao2_alloc(sizeof(*tcptls_session), session_instance_destructor)))
00444 goto error;
00445
00446 ast_mutex_init(&tcptls_session->lock);
00447 tcptls_session->client = 1;
00448 tcptls_session->fd = desc->accept_fd;
00449 tcptls_session->parent = desc;
00450 tcptls_session->parent->worker_fn = NULL;
00451 ast_sockaddr_copy(&tcptls_session->remote_address,
00452 &desc->remote_address);
00453
00454 return tcptls_session;
00455
00456 error:
00457 close(desc->accept_fd);
00458 desc->accept_fd = -1;
00459 if (tcptls_session)
00460 ao2_ref(tcptls_session, -1);
00461 return NULL;
00462 }
00463
00464 void ast_tcptls_server_start(struct ast_tcptls_session_args *desc)
00465 {
00466 int flags;
00467 int x = 1;
00468
00469
00470 if (!ast_sockaddr_cmp(&desc->old_address, &desc->local_address)) {
00471 ast_debug(1, "Nothing changed in %s\n", desc->name);
00472 return;
00473 }
00474
00475 ast_sockaddr_copy(&desc->old_address, &desc->local_address);
00476
00477
00478 if (desc->master != AST_PTHREADT_NULL) {
00479 pthread_cancel(desc->master);
00480 pthread_kill(desc->master, SIGURG);
00481 pthread_join(desc->master, NULL);
00482 }
00483
00484 if (desc->accept_fd != -1)
00485 close(desc->accept_fd);
00486
00487
00488 if (ast_sockaddr_isnull(&desc->local_address)) {
00489 ast_debug(2, "Server disabled: %s\n", desc->name);
00490 return;
00491 }
00492
00493 desc->accept_fd = socket(ast_sockaddr_is_ipv6(&desc->local_address) ?
00494 AF_INET6 : AF_INET, SOCK_STREAM, 0);
00495 if (desc->accept_fd < 0) {
00496 ast_log(LOG_ERROR, "Unable to allocate socket for %s: %s\n", desc->name, strerror(errno));
00497 return;
00498 }
00499
00500 setsockopt(desc->accept_fd, SOL_SOCKET, SO_REUSEADDR, &x, sizeof(x));
00501 if (ast_bind(desc->accept_fd, &desc->local_address)) {
00502 ast_log(LOG_ERROR, "Unable to bind %s to %s: %s\n",
00503 desc->name,
00504 ast_sockaddr_stringify(&desc->local_address),
00505 strerror(errno));
00506 goto error;
00507 }
00508 if (listen(desc->accept_fd, 10)) {
00509 ast_log(LOG_ERROR, "Unable to listen for %s!\n", desc->name);
00510 goto error;
00511 }
00512 flags = fcntl(desc->accept_fd, F_GETFL);
00513 fcntl(desc->accept_fd, F_SETFL, flags | O_NONBLOCK);
00514 if (ast_pthread_create_background(&desc->master, NULL, desc->accept_fn, desc)) {
00515 ast_log(LOG_ERROR, "Unable to launch thread for %s on %s: %s\n",
00516 desc->name,
00517 ast_sockaddr_stringify(&desc->local_address),
00518 strerror(errno));
00519 goto error;
00520 }
00521 return;
00522
00523 error:
00524 close(desc->accept_fd);
00525 desc->accept_fd = -1;
00526 }
00527
00528 void ast_tcptls_server_stop(struct ast_tcptls_session_args *desc)
00529 {
00530 if (desc->master != AST_PTHREADT_NULL) {
00531 pthread_cancel(desc->master);
00532 pthread_kill(desc->master, SIGURG);
00533 pthread_join(desc->master, NULL);
00534 }
00535 if (desc->accept_fd != -1)
00536 close(desc->accept_fd);
00537 desc->accept_fd = -1;
00538 ast_debug(2, "Stopped server :: %s\n", desc->name);
00539 }
00540
00541 int ast_tls_read_conf(struct ast_tls_config *tls_cfg, struct ast_tcptls_session_args *tls_desc, const char *varname, const char *value)
00542 {
00543 if (!strcasecmp(varname, "tlsenable") || !strcasecmp(varname, "sslenable")) {
00544 tls_cfg->enabled = ast_true(value) ? 1 : 0;
00545 } else if (!strcasecmp(varname, "tlscertfile") || !strcasecmp(varname, "sslcert") || !strcasecmp(varname, "tlscert")) {
00546 ast_free(tls_cfg->certfile);
00547 tls_cfg->certfile = ast_strdup(value);
00548 } else if (!strcasecmp(varname, "tlsprivatekey") || !strcasecmp(varname, "sslprivatekey")) {
00549 ast_free(tls_cfg->pvtfile);
00550 tls_cfg->pvtfile = ast_strdup(value);
00551 } else if (!strcasecmp(varname, "tlscipher") || !strcasecmp(varname, "sslcipher")) {
00552 ast_free(tls_cfg->cipher);
00553 tls_cfg->cipher = ast_strdup(value);
00554 } else if (!strcasecmp(varname, "tlscafile")) {
00555 ast_free(tls_cfg->cafile);
00556 tls_cfg->cafile = ast_strdup(value);
00557 } else if (!strcasecmp(varname, "tlscapath")) {
00558 ast_free(tls_cfg->capath);
00559 tls_cfg->capath = ast_strdup(value);
00560 } else if (!strcasecmp(varname, "tlsverifyclient")) {
00561 ast_set2_flag(&tls_cfg->flags, ast_true(value), AST_SSL_VERIFY_CLIENT);
00562 } else if (!strcasecmp(varname, "tlsdontverifyserver")) {
00563 ast_set2_flag(&tls_cfg->flags, ast_true(value), AST_SSL_DONT_VERIFY_SERVER);
00564 } else if (!strcasecmp(varname, "tlsbindaddr") || !strcasecmp(varname, "sslbindaddr")) {
00565 if (ast_parse_arg(value, PARSE_ADDR, &tls_desc->local_address))
00566 ast_log(LOG_WARNING, "Invalid %s '%s'\n", varname, value);
00567 } else if (!strcasecmp(varname, "tlsclientmethod") || !strcasecmp(varname, "sslclientmethod")) {
00568 if (!strcasecmp(value, "tlsv1")) {
00569 ast_set_flag(&tls_cfg->flags, AST_SSL_TLSV1_CLIENT);
00570 ast_clear_flag(&tls_cfg->flags, AST_SSL_SSLV3_CLIENT);
00571 ast_clear_flag(&tls_cfg->flags, AST_SSL_SSLV2_CLIENT);
00572 } else if (!strcasecmp(value, "sslv3")) {
00573 ast_set_flag(&tls_cfg->flags, AST_SSL_SSLV3_CLIENT);
00574 ast_clear_flag(&tls_cfg->flags, AST_SSL_SSLV2_CLIENT);
00575 ast_clear_flag(&tls_cfg->flags, AST_SSL_TLSV1_CLIENT);
00576 } else if (!strcasecmp(value, "sslv2")) {
00577 ast_set_flag(&tls_cfg->flags, AST_SSL_SSLV2_CLIENT);
00578 ast_clear_flag(&tls_cfg->flags, AST_SSL_TLSV1_CLIENT);
00579 ast_clear_flag(&tls_cfg->flags, AST_SSL_SSLV3_CLIENT);
00580 }
00581 } else {
00582 return -1;
00583 }
00584
00585 return 0;
00586 }