s4:auth/kerberos: make use of samba_tevent_context_init()
[kai/samba-autobuild/.git] / source4 / auth / kerberos / krb5_init_context.c
index dbcd979016c629ae3ad10cb418c27369a5d600af..12aab3404f9b044fbe8ef9216976622d24e62517 100644 (file)
@@ -1,4 +1,4 @@
-/* 
+/*
    Unix SMB/CIFS implementation.
    Wrapper for krb5_init_context
 
@@ -8,27 +8,30 @@
 
    This program is free software; you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
-   the Free Software Foundation; either version 2 of the License, or
+   the Free Software Foundation; either version 3 of the License, or
    (at your option) any later version.
-   
+
    This program is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    GNU General Public License for more details.
-   
+
    You should have received a copy of the GNU General Public License
-   along with this program; if not, write to the Free Software
-   Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+   along with this program.  If not, see <http://www.gnu.org/licenses/>.
 */
 
 #include "includes.h"
 #include "system/kerberos.h"
+#include "system/gssapi.h"
+#include <tevent.h>
 #include "auth/kerberos/kerberos.h"
 #include "lib/socket/socket.h"
+#include "lib/stream/packet.h"
 #include "system/network.h"
-#include "lib/events/events.h"
-#include "roken.h"
-
+#include "param/param.h"
+#include "libcli/resolve/resolve.h"
+#include "../lib/tsocket/tsocket.h"
+#include "krb5_init_context.h"
 /*
   context structure for operations on cldap packets
 */
@@ -36,45 +39,49 @@ struct smb_krb5_socket {
        struct socket_context *sock;
 
        /* the fd event */
-       struct fd_event *fde;
+       struct tevent_fd *fde;
 
-       BOOL timeout;
        NTSTATUS status;
-       DATA_BLOB request, reply, partial;
+       DATA_BLOB request, reply;
 
-       size_t partial_read;
+       struct packet_context *packet;
 
+       size_t partial_read;
+#ifdef SAMBA4_USES_HEIMDAL
        krb5_krbhst_info *hi;
+#endif
 };
 
-static int smb_krb5_context_destroy_1(void *ptr) 
+static krb5_error_code smb_krb5_context_destroy(struct smb_krb5_context *ctx)
 {
-       struct smb_krb5_context *ctx = ptr;
-       krb5_free_context(ctx->krb5_context); 
-       return 0;
-}
-
-static int smb_krb5_context_destroy_2(void *ptr) 
-{
-       struct smb_krb5_context *ctx = ptr;
-
-       /* Otherwise krb5_free_context will try and close what we have already free()ed */
-       krb5_set_warn_dest(ctx->krb5_context, NULL);
-       krb5_closelog(ctx->krb5_context, ctx->logf);
-       smb_krb5_context_destroy_1(ptr);
+#ifdef SAMBA4_USES_HEIMDAL
+       if (ctx->pvt_log_data) {
+               /* Otherwise krb5_free_context will try and close what we
+                * have already free()ed */
+               krb5_set_warn_dest(ctx->krb5_context, NULL);
+               krb5_closelog(ctx->krb5_context,
+                               (krb5_log_facility *)ctx->pvt_log_data);
+       }
+#endif
+       krb5_free_context(ctx->krb5_context);
        return 0;
 }
 
+#ifdef SAMBA4_USES_HEIMDAL
 /* We never close down the DEBUG system, and no need to unreference the use */
-static void smb_krb5_debug_close(void *private) {
+static void smb_krb5_debug_close(void *private_data) {
        return;
 }
+#endif
 
-static void smb_krb5_debug_wrapper(const char *timestr, const char *msg, void *private) 
+#ifdef SAMBA4_USES_HEIMDAL
+static void smb_krb5_debug_wrapper(const char *timestr, const char *msg, void *private_data)
 {
        DEBUG(3, ("Kerberos: %s\n", msg));
 }
+#endif
 
+#ifdef SAMBA4_USES_HEIMDAL
 /*
   handle recv events on a smb_krb5 socket
 */
@@ -84,110 +91,66 @@ static void smb_krb5_socket_recv(struct smb_krb5_socket *smb_krb5)
        DATA_BLOB blob;
        size_t nread, dsize;
 
-       switch (smb_krb5->hi->proto) {
-       case KRB5_KRBHST_UDP:
-               smb_krb5->status = socket_pending(smb_krb5->sock, &dsize);
-               if (!NT_STATUS_IS_OK(smb_krb5->status)) {
-                       talloc_free(tmp_ctx);
-                       return;
-               }
+       smb_krb5->status = socket_pending(smb_krb5->sock, &dsize);
+       if (!NT_STATUS_IS_OK(smb_krb5->status)) {
+               talloc_free(tmp_ctx);
+               return;
+       }
 
-               blob = data_blob_talloc(tmp_ctx, NULL, dsize);
-               if (blob.data == NULL && dsize != 0) {
-                       smb_krb5->status = NT_STATUS_NO_MEMORY;
-                       talloc_free(tmp_ctx);
-                       return;
-               }
-               
-               smb_krb5->status = socket_recv(smb_krb5->sock, blob.data, blob.length, &nread, 0);
-               if (!NT_STATUS_IS_OK(smb_krb5->status)) {
-                       talloc_free(tmp_ctx);
-                       return;
-               }
-               blob.length = nread;
+       blob = data_blob_talloc(tmp_ctx, NULL, dsize);
+       if (blob.data == NULL && dsize != 0) {
+               smb_krb5->status = NT_STATUS_NO_MEMORY;
+               talloc_free(tmp_ctx);
+               return;
+       }
 
-               if (nread == 0) {
-                       smb_krb5->status = NT_STATUS_UNEXPECTED_NETWORK_ERROR;
-                       talloc_free(tmp_ctx);
-                       return;
-               }
-               
-               DEBUG(2,("Received smb_krb5 packet of length %d\n", 
-                        (int)blob.length));
-               
-               talloc_steal(smb_krb5, blob.data);
-               smb_krb5->reply = blob;
+       smb_krb5->status = socket_recv(smb_krb5->sock, blob.data, blob.length, &nread);
+       if (!NT_STATUS_IS_OK(smb_krb5->status)) {
                talloc_free(tmp_ctx);
-               break;
-       case KRB5_KRBHST_TCP:
-               if (smb_krb5->partial.length == 0) {
-                       smb_krb5->partial = data_blob_talloc(smb_krb5, NULL, 4);
-                       if (!smb_krb5->partial.data) {
-                               smb_krb5->status = NT_STATUS_NO_MEMORY;
-                               return;
-                       }
-                       
-                       smb_krb5->partial_read = 0;
-               }
-               
-               /* read in the packet length */
-               if (smb_krb5->partial_read < 4) {
-                       uint32_t packet_length;
-                       
-                       smb_krb5->status = socket_recv(smb_krb5->sock, 
-                                            smb_krb5->partial.data + smb_krb5->partial_read,
-                                            4 - smb_krb5->partial_read,
-                                            &nread, 0);
-                       /* todo: this should be converted to the packet_*() routines */
-                       if (!NT_STATUS_IS_OK(smb_krb5->status)) {
-                               return;
-                       }
-                       
-                       smb_krb5->partial_read += nread;
-                       if (smb_krb5->partial_read != 4) {
-                               return;
-                       }
-                       
-                       packet_length = RIVAL(smb_krb5->partial.data, 0);
-                       
-                       smb_krb5->partial.data = talloc_realloc(smb_krb5, smb_krb5->partial.data, 
-                                                               uint8_t, packet_length + 4);
-                       if (!smb_krb5->partial.data)  {
-                               smb_krb5->status = NT_STATUS_NO_MEMORY;
-                               return;
-                       }
-                       
-                       smb_krb5->partial.length = packet_length + 4;
-               }
-               
-               /* read in the body */
-               smb_krb5->status = socket_recv(smb_krb5->sock, 
-                                    smb_krb5->partial.data + smb_krb5->partial_read,
-                                    smb_krb5->partial.length - smb_krb5->partial_read,
-                                    &nread, 0);
-               if (!NT_STATUS_IS_OK(smb_krb5->status)) return;
-               
-               smb_krb5->partial_read += nread;
-
-               if (smb_krb5->partial_read != smb_krb5->partial.length) return;
-
-               smb_krb5->reply = data_blob_talloc(smb_krb5, smb_krb5->partial.data + 4, smb_krb5->partial.length - 4);
-               break;
-       case KRB5_KRBHST_HTTP:
                return;
        }
+       blob.length = nread;
+
+       if (nread == 0) {
+               smb_krb5->status = NT_STATUS_UNEXPECTED_NETWORK_ERROR;
+               talloc_free(tmp_ctx);
+               return;
+       }
+
+       DEBUG(4,("Received smb_krb5 packet of length %d\n",
+                (int)blob.length));
+
+       talloc_steal(smb_krb5, blob.data);
+       smb_krb5->reply = blob;
+       talloc_free(tmp_ctx);
+}
+
+static NTSTATUS smb_krb5_full_packet(void *private_data, DATA_BLOB data)
+{
+       struct smb_krb5_socket *smb_krb5 = talloc_get_type(private_data, struct smb_krb5_socket);
+       talloc_steal(smb_krb5, data.data);
+       smb_krb5->reply = data;
+       smb_krb5->reply.length -= 4;
+       smb_krb5->reply.data += 4;
+       return NT_STATUS_OK;
 }
 
 /*
   handle request timeouts
 */
-static void smb_krb5_request_timeout(struct event_context *event_ctx, 
-                                 struct timed_event *te, struct timeval t,
-                                 void *private)
+static void smb_krb5_request_timeout(struct tevent_context *event_ctx,
+                                 struct tevent_timer *te, struct timeval t,
+                                 void *private_data)
 {
-       struct smb_krb5_socket *smb_krb5 = talloc_get_type(private, struct smb_krb5_socket);
+       struct smb_krb5_socket *smb_krb5 = talloc_get_type(private_data, struct smb_krb5_socket);
        DEBUG(5,("Timed out smb_krb5 packet\n"));
-       smb_krb5->timeout = True;
+       smb_krb5->status = NT_STATUS_IO_TIMEOUT;
+}
+
+static void smb_krb5_error_handler(void *private_data, NTSTATUS status)
+{
+       struct smb_krb5_socket *smb_krb5 = talloc_get_type(private_data, struct smb_krb5_socket);
+       smb_krb5->status = status;
 }
 
 /*
@@ -198,15 +161,15 @@ static void smb_krb5_socket_send(struct smb_krb5_socket *smb_krb5)
        NTSTATUS status;
 
        size_t len;
-       
+
        len = smb_krb5->request.length;
-       status = socket_send(smb_krb5->sock, &smb_krb5->request, &len, 0);
+       status = socket_send(smb_krb5->sock, &smb_krb5->request, &len);
 
        if (!NT_STATUS_IS_OK(status)) return;
-       
-       EVENT_FD_READABLE(smb_krb5->fde);
 
-       EVENT_FD_NOT_WRITEABLE(smb_krb5->fde);
+       TEVENT_FD_READABLE(smb_krb5->fde);
+
+       TEVENT_FD_NOT_WRITEABLE(smb_krb5->fde);
        return;
 }
 
@@ -214,74 +177,112 @@ static void smb_krb5_socket_send(struct smb_krb5_socket *smb_krb5)
 /*
   handle fd events on a smb_krb5_socket
 */
-static void smb_krb5_socket_handler(struct event_context *ev, struct fd_event *fde,
-                                uint16_t flags, void *private)
+static void smb_krb5_socket_handler(struct tevent_context *ev, struct tevent_fd *fde,
+                                uint16_t flags, void *private_data)
 {
-       struct smb_krb5_socket *smb_krb5 = talloc_get_type(private, struct smb_krb5_socket);
-       if (flags & EVENT_FD_WRITE) {
-               smb_krb5_socket_send(smb_krb5);
-       } 
-       if (flags & EVENT_FD_READ) {
-               smb_krb5_socket_recv(smb_krb5);
+       struct smb_krb5_socket *smb_krb5 = talloc_get_type(private_data, struct smb_krb5_socket);
+       switch (smb_krb5->hi->proto) {
+       case KRB5_KRBHST_UDP:
+               if (flags & TEVENT_FD_READ) {
+                       smb_krb5_socket_recv(smb_krb5);
+                       return;
+               }
+               if (flags & TEVENT_FD_WRITE) {
+                       smb_krb5_socket_send(smb_krb5);
+                       return;
+               }
+               /* not reached */
+               return;
+       case KRB5_KRBHST_TCP:
+               if (flags & TEVENT_FD_READ) {
+                       packet_recv(smb_krb5->packet);
+                       return;
+               }
+               if (flags & TEVENT_FD_WRITE) {
+                       packet_queue_run(smb_krb5->packet);
+                       return;
+               }
+               /* not reached */
+               return;
+       case KRB5_KRBHST_HTTP:
+               /* can't happen */
+               break;
        }
 }
 
-
-static krb5_error_code smb_krb5_send_and_recv_func(krb5_context context,
-                                                  void *data,
-                                                  krb5_krbhst_info *hi,
-                                                  const krb5_data *send_buf,
-                                                  krb5_data *recv_buf)
+krb5_error_code smb_krb5_send_and_recv_func(krb5_context context,
+                                           void *data,
+                                           krb5_krbhst_info *hi,
+                                           time_t timeout,
+                                           const krb5_data *send_buf,
+                                           krb5_data *recv_buf)
 {
        krb5_error_code ret;
        NTSTATUS status;
-       struct socket_address *remote_addr;
        const char *name;
        struct addrinfo *ai, *a;
        struct smb_krb5_socket *smb_krb5;
 
-       struct event_context *ev = talloc_get_type(data, struct event_context);
+       DATA_BLOB send_blob;
+
+       struct tevent_context *ev;
+       TALLOC_CTX *tmp_ctx = talloc_new(NULL);
+       if (!tmp_ctx) {
+               return ENOMEM;
+       }
 
-       DATA_BLOB send_blob = data_blob_const(send_buf->data, send_buf->length);
+       if (!data) {
+               /* If no event context was available, then create one for this loop */
+               ev = samba_tevent_context_init(tmp_ctx);
+               if (!ev) {
+                       talloc_free(tmp_ctx);
+                       return ENOMEM;
+               }
+       } else {
+               ev = talloc_get_type_abort(data, struct tevent_context);
+       }
+
+       send_blob = data_blob_const(send_buf->data, send_buf->length);
 
        ret = krb5_krbhst_get_addrinfo(context, hi, &ai);
        if (ret) {
+               talloc_free(tmp_ctx);
                return ret;
        }
 
-       for (a = ai; a; a = ai->ai_next) {
-               smb_krb5 = talloc(NULL, struct smb_krb5_socket);
+       for (a = ai; a; a = a->ai_next) {
+               struct socket_address *remote_addr;
+               smb_krb5 = talloc(tmp_ctx, struct smb_krb5_socket);
                if (!smb_krb5) {
+                       talloc_free(tmp_ctx);
                        return ENOMEM;
                }
                smb_krb5->hi = hi;
-               
+
                switch (a->ai_family) {
                case PF_INET:
                        name = "ipv4";
                        break;
+#ifdef HAVE_IPV6
                case PF_INET6:
                        name = "ipv6";
                        break;
+#endif
                default:
-                       talloc_free(smb_krb5);
+                       talloc_free(tmp_ctx);
                        return EINVAL;
                }
-               
+
                status = NT_STATUS_INVALID_PARAMETER;
                switch (hi->proto) {
                case KRB5_KRBHST_UDP:
-                       if (lp_parm_bool(-1, "krb5", "udp", True)) {
-                               status = socket_create(name, SOCKET_TYPE_DGRAM, &smb_krb5->sock, 0);
-                       }
+                       status = socket_create(name, SOCKET_TYPE_DGRAM, &smb_krb5->sock, 0);
                        break;
                case KRB5_KRBHST_TCP:
-                       if (lp_parm_bool(-1, "krb5", "tcp", True)) {
-                               status = socket_create(name, SOCKET_TYPE_STREAM, &smb_krb5->sock, 0);
-                       }
+                       status = socket_create(name, SOCKET_TYPE_STREAM, &smb_krb5->sock, 0);
                        break;
                case KRB5_KRBHST_HTTP:
-                       talloc_free(smb_krb5);
+                       talloc_free(tmp_ctx);
                        return EINVAL;
                }
                if (!NT_STATUS_IS_OK(status)) {
@@ -290,177 +291,319 @@ static krb5_error_code smb_krb5_send_and_recv_func(krb5_context context,
                }
 
                talloc_steal(smb_krb5, smb_krb5->sock);
-               
-               remote_addr = socket_address_from_sockaddr(smb_krb5, a->ai_addr, a->ai_addrlen); 
+
+               remote_addr = socket_address_from_sockaddr(smb_krb5, a->ai_addr, a->ai_addrlen);
                if (!remote_addr) {
                        talloc_free(smb_krb5);
                        continue;
                }
 
-               status = socket_connect_ev(smb_krb5->sock, NULL, remote_addr, 0, ev); 
+               status = socket_connect_ev(smb_krb5->sock, NULL, remote_addr, 0, ev);
                if (!NT_STATUS_IS_OK(status)) {
                        talloc_free(smb_krb5);
                        continue;
                }
-               talloc_free(remote_addr);
 
-               smb_krb5->fde = event_add_fd(ev, smb_krb5, 
-                                            socket_get_fd(smb_krb5->sock), 0,
-                                            smb_krb5_socket_handler, smb_krb5);
+               /* Setup the FDE, start listening for read events
+                * from the start (otherwise we may miss a socket
+                * drop) and mark as AUTOCLOSE along with the fde */
+
+               /* Ths is equivilant to EVENT_FD_READABLE(smb_krb5->fde) */
+               smb_krb5->fde = tevent_add_fd(ev, smb_krb5->sock,
+                                             socket_get_fd(smb_krb5->sock),
+                                             TEVENT_FD_READ,
+                                             smb_krb5_socket_handler, smb_krb5);
+               /* its now the job of the event layer to close the socket */
+               tevent_fd_set_close_fn(smb_krb5->fde, socket_tevent_fd_close_fn);
+               socket_set_flags(smb_krb5->sock, SOCKET_FLAG_NOCLOSE);
+
+               tevent_add_timer(ev, smb_krb5,
+                                timeval_current_ofs(timeout, 0),
+                                smb_krb5_request_timeout, smb_krb5);
 
-               event_add_timed(ev, smb_krb5, 
-                               timeval_current_ofs(context->kdc_timeout, 0),
-                               smb_krb5_request_timeout, smb_krb5);
+               smb_krb5->status = NT_STATUS_OK;
+               smb_krb5->reply = data_blob(NULL, 0);
 
-               EVENT_FD_WRITEABLE(smb_krb5->fde);
-               
                switch (hi->proto) {
                case KRB5_KRBHST_UDP:
+                       TEVENT_FD_WRITEABLE(smb_krb5->fde);
                        smb_krb5->request = send_blob;
                        break;
                case KRB5_KRBHST_TCP:
+
+                       smb_krb5->packet = packet_init(smb_krb5);
+                       if (smb_krb5->packet == NULL) {
+                               talloc_free(smb_krb5);
+                               return ENOMEM;
+                       }
+                       packet_set_private(smb_krb5->packet, smb_krb5);
+                       packet_set_socket(smb_krb5->packet, smb_krb5->sock);
+                       packet_set_callback(smb_krb5->packet, smb_krb5_full_packet);
+                       packet_set_full_request(smb_krb5->packet, packet_full_request_u32);
+                       packet_set_error_handler(smb_krb5->packet, smb_krb5_error_handler);
+                       packet_set_event_context(smb_krb5->packet, ev);
+                       packet_set_fde(smb_krb5->packet, smb_krb5->fde);
+
                        smb_krb5->request = data_blob_talloc(smb_krb5, NULL, send_blob.length + 4);
                        RSIVAL(smb_krb5->request.data, 0, send_blob.length);
                        memcpy(smb_krb5->request.data+4, send_blob.data, send_blob.length);
+                       packet_send(smb_krb5->packet, smb_krb5->request);
                        break;
                case KRB5_KRBHST_HTTP:
-                       talloc_free(smb_krb5);
+                       talloc_free(tmp_ctx);
                        return EINVAL;
                }
-               smb_krb5->timeout = False;
-               smb_krb5->status = NT_STATUS_OK;
-               smb_krb5->reply = data_blob(NULL, 0);
-               smb_krb5->partial = data_blob(NULL, 0);
-
-               while (!smb_krb5->timeout && (NT_STATUS_IS_OK(smb_krb5->status)) && !smb_krb5->reply.length) {
-                       if (event_loop_once(ev) != 0) {
-                               talloc_free(smb_krb5);
+               while ((NT_STATUS_IS_OK(smb_krb5->status)) && !smb_krb5->reply.length) {
+                       if (tevent_loop_once(ev) != 0) {
+                               talloc_free(tmp_ctx);
                                return EINVAL;
                        }
+
+                       /* After each and every event loop, reset the
+                        * send_to_kdc pointers to what they were when
+                        * we entered this loop.  That way, if a
+                        * nested event has invalidated them, we put
+                        * it back before we return to the heimdal
+                        * code */
+                       ret = krb5_set_send_to_kdc_func(context,
+                                                       smb_krb5_send_and_recv_func,
+                                                       data);
+                       if (ret != 0) {
+                               talloc_free(tmp_ctx);
+                               return ret;
+                       }
                }
-               if (!NT_STATUS_IS_OK(smb_krb5->status)) {
-                       DEBUG(2,("Error reading smb_krb5 reply packet: %s\n", nt_errstr(smb_krb5->status)));
+               if (NT_STATUS_EQUAL(smb_krb5->status, NT_STATUS_IO_TIMEOUT)) {
                        talloc_free(smb_krb5);
                        continue;
                }
 
-               if (smb_krb5->timeout) {
+               if (!NT_STATUS_IS_OK(smb_krb5->status)) {
+                       struct tsocket_address *addr = socket_address_to_tsocket_address(smb_krb5, remote_addr);
+                       const char *addr_string = NULL;
+                       if (addr) {
+                               addr_string = tsocket_address_inet_addr_string(addr, smb_krb5);
+                       } else {
+                               addr_string = NULL;
+                       }
+                       DEBUG(2,("Error reading smb_krb5 reply packet: %s from %s\n", nt_errstr(smb_krb5->status),
+                                addr_string));
                        talloc_free(smb_krb5);
                        continue;
                }
 
                ret = krb5_data_copy(recv_buf, smb_krb5->reply.data, smb_krb5->reply.length);
                if (ret) {
-                       talloc_free(smb_krb5);
+                       talloc_free(tmp_ctx);
                        return ret;
                }
                talloc_free(smb_krb5);
-               
+
                break;
        }
+       talloc_free(tmp_ctx);
        if (a) {
                return 0;
        }
        return KRB5_KDC_UNREACH;
 }
+#endif
 
-/* NO internal data, so nothing to free */
-static void smb_krb5_send_and_recv_close_func(krb5_context context, void *data) 
+krb5_error_code
+smb_krb5_init_context_basic(TALLOC_CTX *tmp_ctx,
+                           struct loadparm_context *lp_ctx,
+                           krb5_context *_krb5_context)
 {
-       return;
-}
+       krb5_error_code ret;
+#ifdef SAMBA4_USES_HEIMDAL
+       char **config_files;
+       const char *config_file, *realm;
+#endif
+       krb5_context krb5_ctx;
+
+       initialize_krb5_error_table();
+
+       ret = krb5_init_context(&krb5_ctx);
+       if (ret) {
+               DEBUG(1,("krb5_init_context failed (%s)\n",
+                        error_message(ret)));
+               return ret;
+       }
 
+       /* The MIT Kerberos build relies on using the system krb5.conf file.
+        * If you really want to use another file please set KRB5_CONFIG
+        * accordingly. */
+#ifdef SAMBA4_USES_HEIMDAL
+       config_file = lpcfg_config_path(tmp_ctx, lp_ctx, "krb5.conf");
+       if (!config_file) {
+               krb5_free_context(krb5_ctx);
+               return ENOMEM;
+       }
 
-krb5_error_code smb_krb5_init_context(void *parent_ctx, 
-                                      struct smb_krb5_context **smb_krb5_context) 
+       /* Use our local krb5.conf file by default */
+       ret = krb5_prepend_config_files_default(config_file, &config_files);
+       if (ret) {
+               DEBUG(1,("krb5_prepend_config_files_default failed (%s)\n",
+                        smb_get_krb5_error_message(krb5_ctx, ret, tmp_ctx)));
+               krb5_free_context(krb5_ctx);
+               return ret;
+       }
+
+       ret = krb5_set_config_files(krb5_ctx, config_files);
+       krb5_free_config_files(config_files);
+       if (ret) {
+               DEBUG(1,("krb5_set_config_files failed (%s)\n",
+                        smb_get_krb5_error_message(krb5_ctx, ret, tmp_ctx)));
+               krb5_free_context(krb5_ctx);
+               return ret;
+       }
+
+       realm = lpcfg_realm(lp_ctx);
+       if (realm != NULL) {
+               ret = krb5_set_default_realm(krb5_ctx, realm);
+               if (ret) {
+                       DEBUG(1,("krb5_set_default_realm failed (%s)\n",
+                                smb_get_krb5_error_message(krb5_ctx, ret, tmp_ctx)));
+                       krb5_free_context(krb5_ctx);
+                       return ret;
+               }
+       }
+#endif
+       *_krb5_context = krb5_ctx;
+       return 0;
+}
+
+krb5_error_code smb_krb5_init_context(void *parent_ctx,
+                                     struct tevent_context *ev,
+                                     struct loadparm_context *lp_ctx,
+                                     struct smb_krb5_context **smb_krb5_context)
 {
        krb5_error_code ret;
        TALLOC_CTX *tmp_ctx;
-       struct event_context *ev;
-       
+       krb5_context kctx;
+#ifdef SAMBA4_USES_HEIMDAL
+       krb5_log_facility *logf;
+#endif
+
        initialize_krb5_error_table();
-       
+
        tmp_ctx = talloc_new(parent_ctx);
-       *smb_krb5_context = talloc(tmp_ctx, struct smb_krb5_context);
+       *smb_krb5_context = talloc_zero(tmp_ctx, struct smb_krb5_context);
 
        if (!*smb_krb5_context || !tmp_ctx) {
-               talloc_free(*smb_krb5_context);
                talloc_free(tmp_ctx);
                return ENOMEM;
        }
 
-       ret = krb5_init_context(&(*smb_krb5_context)->krb5_context);
+       ret = smb_krb5_init_context_basic(tmp_ctx, lp_ctx, &kctx);
        if (ret) {
-               DEBUG(1,("krb5_init_context failed (%s)\n", 
+               DEBUG(1,("smb_krb5_context_init_basic failed (%s)\n",
                         error_message(ret)));
+               talloc_free(tmp_ctx);
                return ret;
        }
+       (*smb_krb5_context)->krb5_context = kctx;
 
-       talloc_set_destructor(*smb_krb5_context, smb_krb5_context_destroy_1);
-
-       if (lp_realm() && *lp_realm()) {
-               char *upper_realm = strupper_talloc(tmp_ctx, lp_realm());
-               if (!upper_realm) {
-                       DEBUG(1,("gensec_krb5_start: could not uppercase realm: %s\n", lp_realm()));
-                       talloc_free(tmp_ctx);
-                       return ENOMEM;
-               }
-               ret = krb5_set_default_realm((*smb_krb5_context)->krb5_context, upper_realm);
-               if (ret) {
-                       DEBUG(1,("krb5_set_default_realm failed (%s)\n", 
-                                smb_get_krb5_error_message((*smb_krb5_context)->krb5_context, ret, tmp_ctx)));
-                       talloc_free(tmp_ctx);
-                       return ret;
-               }
-       }
+       talloc_set_destructor(*smb_krb5_context, smb_krb5_context_destroy);
 
+#ifdef SAMBA4_USES_HEIMDAL
        /* TODO: Should we have a different name here? */
-       ret = krb5_initlog((*smb_krb5_context)->krb5_context, "Samba", &(*smb_krb5_context)->logf);
-       
+       ret = krb5_initlog(kctx, "Samba", &logf);
+
        if (ret) {
-               DEBUG(1,("krb5_initlog failed (%s)\n", 
-                        smb_get_krb5_error_message((*smb_krb5_context)->krb5_context, ret, tmp_ctx)));
+               DEBUG(1,("krb5_initlog failed (%s)\n",
+                        smb_get_krb5_error_message(kctx, ret, tmp_ctx)));
                talloc_free(tmp_ctx);
                return ret;
        }
+       (*smb_krb5_context)->pvt_log_data = logf;
 
-       talloc_set_destructor(*smb_krb5_context, smb_krb5_context_destroy_2);
-
-       ret = krb5_addlog_func((*smb_krb5_context)->krb5_context, (*smb_krb5_context)->logf, 0 /* min */, -1 /* max */, 
-                              smb_krb5_debug_wrapper, smb_krb5_debug_close, NULL);
+       ret = krb5_addlog_func(kctx, logf, 0 /* min */, -1 /* max */,
+                              smb_krb5_debug_wrapper,
+                               smb_krb5_debug_close, NULL);
        if (ret) {
-               DEBUG(1,("krb5_addlog_func failed (%s)\n", 
-                        smb_get_krb5_error_message((*smb_krb5_context)->krb5_context, ret, tmp_ctx)));
+               DEBUG(1,("krb5_addlog_func failed (%s)\n",
+                        smb_get_krb5_error_message(kctx, ret, tmp_ctx)));
                talloc_free(tmp_ctx);
                return ret;
        }
-       krb5_set_warn_dest((*smb_krb5_context)->krb5_context, (*smb_krb5_context)->logf);
+       krb5_set_warn_dest(kctx, logf);
 
-       ev = event_context_find(*smb_krb5_context);
        /* Set use of our socket lib */
-       ret = krb5_set_send_recv_func((*smb_krb5_context)->krb5_context, 
-                                     smb_krb5_send_and_recv_func, 
-                                     smb_krb5_send_and_recv_close_func, ev);
-       if (ret) {
-               DEBUG(1,("krb5_set_send_recv_func failed (%s)\n", 
-                        smb_get_krb5_error_message((*smb_krb5_context)->krb5_context, ret, tmp_ctx)));
-               talloc_free(tmp_ctx);
-               return ret;
+       if (ev) {
+               struct tevent_context *previous_ev;
+               ret = smb_krb5_context_set_event_ctx(*smb_krb5_context,
+                                                    ev, &previous_ev);
+               if (ret) {
+                       talloc_free(tmp_ctx);
+                       return ret;
+               }
        }
 
-       (*smb_krb5_context)->krb5_context->mem_ctx = *smb_krb5_context;
+       /* Set options in kerberos */
 
+       krb5_set_dns_canonicalize_hostname(kctx,
+                       lpcfg_parm_bool(lp_ctx, NULL, "krb5",
+                                       "set_dns_canonicalize", false));
+#endif
        talloc_steal(parent_ctx, *smb_krb5_context);
        talloc_free(tmp_ctx);
 
-       /* Set options in kerberos */
+       return 0;
+}
 
-       (*smb_krb5_context)->krb5_context->fdns = FALSE;
+#ifdef SAMBA4_USES_HEIMDAL
+krb5_error_code smb_krb5_context_set_event_ctx(struct smb_krb5_context *smb_krb5_context,
+                                              struct tevent_context *ev,
+                                              struct tevent_context **previous_ev)
+{
+       int ret;
+       if (!ev) {
+               return EINVAL;
+       }
+
+       *previous_ev = smb_krb5_context->current_ev;
+
+       smb_krb5_context->current_ev = talloc_reference(smb_krb5_context, ev);
+       if (!smb_krb5_context->current_ev) {
+               return ENOMEM;
+       }
 
+       /* Set use of our socket lib */
+       ret = krb5_set_send_to_kdc_func(smb_krb5_context->krb5_context,
+                                       smb_krb5_send_and_recv_func,
+                                       ev);
+       if (ret) {
+               TALLOC_CTX *tmp_ctx = talloc_new(NULL);
+               DEBUG(1,("krb5_set_send_recv_func failed (%s)\n",
+                        smb_get_krb5_error_message(smb_krb5_context->krb5_context, ret, tmp_ctx)));
+               talloc_free(tmp_ctx);
+               talloc_unlink(smb_krb5_context, smb_krb5_context->current_ev);
+               smb_krb5_context->current_ev = NULL;
+               return ret;
+       }
        return 0;
 }
 
- void smb_krb5_free_context(struct smb_krb5_context *smb_krb5_context) 
+krb5_error_code smb_krb5_context_remove_event_ctx(struct smb_krb5_context *smb_krb5_context,
+                                                 struct tevent_context *previous_ev,
+                                                 struct tevent_context *ev)
 {
-       talloc_free(smb_krb5_context);
+       int ret;
+       talloc_unlink(smb_krb5_context, ev);
+       /* If there was a mismatch with things happening on a stack, then don't wipe things */
+       smb_krb5_context->current_ev = previous_ev;
+       /* Set use of our socket lib */
+       ret = krb5_set_send_to_kdc_func(smb_krb5_context->krb5_context,
+                                       smb_krb5_send_and_recv_func,
+                                       previous_ev);
+       if (ret) {
+               TALLOC_CTX *tmp_ctx = talloc_new(NULL);
+               DEBUG(1,("krb5_set_send_recv_func failed (%s)\n",
+                        smb_get_krb5_error_message(smb_krb5_context->krb5_context, ret, tmp_ctx)));
+               talloc_free(tmp_ctx);
+               return ret;
+       }
+       return 0;
 }
+#endif