Add support for the new modules system to auth/ (merge from HEAD)
[jra/samba/.git] / source3 / auth / auth_domain.c
index 91c111b557b16467d06b4b58c4fa1839e1e91d2f..24a5bb562cbc1e24eff2c00ef4c11b721824ee5d 100644 (file)
 #undef DBGC_CLASS
 #define DBGC_CLASS DBGC_AUTH
 
-BOOL global_machine_password_needs_changing = False;
+extern BOOL global_machine_password_needs_changing;
 
-extern pstring global_myname;
 extern userdom_struct current_user_info;
 
-static char *mutex_server_name;
 
-static BOOL grab_server_mutex(const char *name)
+/*
+  resolve the name of a DC in ways appropriate for an ADS domain mode
+  an ADS domain may not have Netbios enabled at all, so this is 
+  quite different from the RPC case
+  Note that we ignore the 'server' parameter here. That has the effect of using
+  the 'ADS server' smb.conf parameter, which is what we really want anyway
+ */
+static NTSTATUS ads_resolve_dc(fstring remote_machine, 
+                              struct in_addr *dest_ip)
 {
-       mutex_server_name = strdup(name);
-       if (!mutex_server_name) {
-               DEBUG(0,("grab_server_mutex: malloc failed for %s\n", name));
-               return False;
+       ADS_STRUCT *ads;
+       ads = ads_init_simple();
+       if (!ads) {
+               return NT_STATUS_NO_LOGON_SERVERS;              
        }
-       if (!message_named_mutex(name, 20)) {
-               DEBUG(10,("grab_server_mutex: failed for %s\n", name));
-               SAFE_FREE(mutex_server_name);
-               return False;
+
+       DEBUG(4,("ads_resolve_dc: realm=%s\n", ads->config.realm));
+
+       ads->auth.flags |= ADS_AUTH_NO_BIND;
+
+#ifdef HAVE_ADS
+       /* a full ads_connect() is actually overkill, as we don't srictly need
+          to do the SASL auth in order to get the info we need, but libads
+          doesn't offer a better way right now */
+       ads_connect(ads);
+#endif
+
+       fstrcpy(remote_machine, ads->config.ldap_server_name);
+       strupper(remote_machine);
+       *dest_ip = ads->ldap_ip;
+       ads_destroy(&ads);
+       
+       if (!*remote_machine || is_zero_ip(*dest_ip)) {
+               return NT_STATUS_NO_LOGON_SERVERS;              
        }
 
-       return True;
+       DEBUG(4,("ads_resolve_dc: using server='%s' IP=%s\n",
+                remote_machine, inet_ntoa(*dest_ip)));
+       
+       return NT_STATUS_OK;
 }
 
-static void release_server_mutex(void)
+/*
+  resolve the name of a DC in ways appropriate for RPC domain mode
+  this relies on the server supporting netbios and port 137 not being
+  firewalled
+ */
+static NTSTATUS rpc_resolve_dc(const char *server, 
+                              fstring remote_machine, 
+                              struct in_addr *dest_ip)
 {
-       if (mutex_server_name) {
-               message_named_mutex_release(mutex_server_name);
-               SAFE_FREE(mutex_server_name);
+       if (is_ipaddress(server)) {
+               struct in_addr to_ip = *interpret_addr2(server);
+
+               /* we need to know the machines netbios name - this is a lousy
+                  way to find it, but until we have a RPC call that does this
+                  it will have to do */
+               if (!name_status_find("*", 0x20, 0x20, to_ip, remote_machine)) {
+                       DEBUG(2, ("rpc_resolve_dc: Can't resolve name for IP %s\n", server));
+                       return NT_STATUS_NO_LOGON_SERVERS;
+               }
+
+               *dest_ip = to_ip;
+               return NT_STATUS_OK;
+       } 
+
+       fstrcpy(remote_machine, server);
+       strupper(remote_machine);
+       if (!resolve_name(remote_machine, dest_ip, 0x20)) {
+               DEBUG(1,("rpc_resolve_dc: Can't resolve address for %s\n", 
+                        remote_machine));
+               return NT_STATUS_NO_LOGON_SERVERS;
        }
+
+       DEBUG(4,("rpc_resolve_dc: using server='%s' IP=%s\n",
+                remote_machine, inet_ntoa(*dest_ip)));
+
+       return NT_STATUS_OK;
 }
 
 /**
@@ -61,7 +115,7 @@ static void release_server_mutex(void)
  * @param cli the cli to return containing the active connection
  * @param server either a machine name or text IP address to
  *               connect to.
- * @param trust_password the trust password to establish the
+ * @param trust_passwd the trust password to establish the
  *                       credentials with.
  *
  **/
@@ -70,64 +124,55 @@ static NTSTATUS connect_to_domain_password_server(struct cli_state **cli,
                                                  const char *server, 
                                                  const char *setup_creds_as,
                                                  uint16 sec_chan,
-                                                 const unsigned char *trust_passwd)
+                                                 const unsigned char *trust_passwd,
+                                                 BOOL *retry)
 {
        struct in_addr dest_ip;
        fstring remote_machine;
         NTSTATUS result;
+       uint32 neg_flags = 0x000001ff;
 
-       if (is_ipaddress(server)) {
-               struct in_addr to_ip;
-         
-               /* we shouldn't have 255.255.255.255 forthe IP address of 
-                  a password server anyways */
-               if ((to_ip.s_addr=inet_addr(server)) == 0xFFFFFFFF) {
-                       DEBUG (0,("connect_to_domain_password_server: inet_addr(%s) returned 0xFFFFFFFF!\n", server));
-                       return NT_STATUS_UNSUCCESSFUL;
-               }
-
-               if (!name_status_find("*", 0x20, 0x20, to_ip, remote_machine)) {
-                       DEBUG(0, ("connect_to_domain_password_server: Can't "
-                                 "resolve name for IP %s\n", server));
-                       return NT_STATUS_UNSUCCESSFUL;
-               }
-       } else {
-               fstrcpy(remote_machine, server);
-       }
+       *retry = False;
 
-       standard_sub_basic(current_user_info.smb_name, remote_machine);
-       strupper(remote_machine);
+       if (lp_security() == SEC_ADS)
+               result = ads_resolve_dc(remote_machine, &dest_ip);
+       else
+               result = rpc_resolve_dc(server, remote_machine, &dest_ip);
 
-       if(!resolve_name( remote_machine, &dest_ip, 0x20)) {
-               DEBUG(1,("connect_to_domain_password_server: Can't resolve address for %s\n", remote_machine));
-               return NT_STATUS_UNSUCCESSFUL;
+       if (!NT_STATUS_IS_OK(result)) {
+               DEBUG(2,("connect_to_domain_password_server: unable to resolve DC: %s\n", 
+                        nt_errstr(result)));
+               return result;
        }
-  
+
        if (ismyip(dest_ip)) {
                DEBUG(1,("connect_to_domain_password_server: Password server loop - not using password server %s\n",
                         remote_machine));
-               return NT_STATUS_UNSUCCESSFUL;
+               return NT_STATUS_NO_LOGON_SERVERS;
        }
   
        /* TODO: Send a SAMLOGON request to determine whether this is a valid
           logonserver.  We can avoid a 30-second timeout if the DC is down
           if the SAMLOGON request fails as it is only over UDP. */
 
-       /* we use a mutex to prevent two connections at once - when a NT PDC gets
-          two connections where one hasn't completed a negprot yet it will send a 
-          TCP reset to the first connection (tridge) */
+       /* we use a mutex to prevent two connections at once - when a 
+          Win2k PDC get two connections where one hasn't completed a 
+          session setup yet it will send a TCP reset to the first 
+          connection (tridge) */
 
        /*
         * With NT4.x DC's *all* authentication must be serialized to avoid
         * ACCESS_DENIED errors if 2 auths are done from the same machine. JRA.
         */
 
+       *retry = True;
+
        if (!grab_server_mutex(server))
-               return NT_STATUS_UNSUCCESSFUL;
+               return NT_STATUS_NO_LOGON_SERVERS;
        
        /* Attempt connection */
-       result = cli_full_connection(cli, global_myname, server,
-                                    &dest_ip, 0, "IPC$", "IPC", "", "", "", 0);
+       result = cli_full_connection(cli, global_myname(), remote_machine,
+                                    &dest_ip, 0, "IPC$", "IPC", "", "", "",0, retry);
 
        if (!NT_STATUS_IS_OK(result)) {
                release_server_mutex();
@@ -147,14 +192,14 @@ static NTSTATUS connect_to_domain_password_server(struct cli_state **cli,
         * into account also. This patch from "Bjart Kvarme" <bjart.kvarme@usit.uio.no>.
         */
 
-       if(cli_nt_session_open(*cli, PIPE_NETLOGON) == False) {
+       if(cli_nt_session_open(*cli, PI_NETLOGON) == False) {
                DEBUG(0,("connect_to_domain_password_server: unable to open the domain client session to \
 machine %s. Error was : %s.\n", remote_machine, cli_errstr(*cli)));
                cli_nt_session_close(*cli);
                cli_ulogoff(*cli);
                cli_shutdown(*cli);
                release_server_mutex();
-               return NT_STATUS_UNSUCCESSFUL;
+               return NT_STATUS_NO_LOGON_SERVERS;
        }
 
        snprintf((*cli)->mach_acct, sizeof((*cli)->mach_acct) - 1, "%s$", setup_creds_as);
@@ -164,10 +209,10 @@ machine %s. Error was : %s.\n", remote_machine, cli_errstr(*cli)));
                return NT_STATUS_NO_MEMORY;
        }
 
-       result = new_cli_nt_setup_creds(*cli, sec_chan, trust_passwd);
+       result = cli_nt_setup_creds(*cli, sec_chan, trust_passwd, &neg_flags, 2);
 
         if (!NT_STATUS_IS_OK(result)) {
-               DEBUG(0,("connect_to_domain_password_server: unable to setup the PDC credentials to machine \
+               DEBUG(0,("connect_to_domain_password_server: unable to setup the NETLOGON credentials to machine \
 %s. Error was : %s.\n", remote_machine, nt_errstr(result)));
                cli_nt_session_close(*cli);
                cli_ulogoff(*cli);
@@ -192,106 +237,48 @@ static NTSTATUS attempt_connect_to_dc(struct cli_state **cli,
                                      uint16 sec_chan,
                                      const unsigned char *trust_passwd)
 {
+       NTSTATUS ret = NT_STATUS_UNSUCCESSFUL;
+       BOOL retry = True;
        fstring dc_name;
+       int i;
 
        /*
         * Ignore addresses we have already tried.
         */
 
        if (is_zero_ip(*ip))
-               return NT_STATUS_UNSUCCESSFUL;
+               return NT_STATUS_NO_LOGON_SERVERS;
 
-       if (!lookup_dc_name(global_myname, domain, ip, dc_name))
-               return NT_STATUS_UNSUCCESSFUL;
+       if (!lookup_dc_name(global_myname(), domain, ip, dc_name))
+               return NT_STATUS_NO_LOGON_SERVERS;
 
-       return connect_to_domain_password_server(cli, dc_name, setup_creds_as, sec_chan, trust_passwd);
+       for (i = 0; (!NT_STATUS_IS_OK(ret)) && retry && (i < 3); i++)
+               ret = connect_to_domain_password_server(cli, dc_name, setup_creds_as,
+                               sec_chan, trust_passwd, &retry);
+       return ret;
 }
 
 /***********************************************************************
- We have been asked to dynamcially determine the IP addresses of
+ We have been asked to dynamically determine the IP addresses of
  the PDC and BDC's for DOMAIN, and query them in turn.
 ************************************************************************/
-static NTSTATUS find_connect_pdc(struct cli_state **cli, 
+static NTSTATUS find_connect_dc(struct cli_state **cli, 
                                 const char *domain,
                                 const char *setup_creds_as,
                                 uint16 sec_chan,
                                 unsigned char *trust_passwd, 
                                 time_t last_change_time)
 {
-       struct in_addr *ip_list = NULL;
-       int count = 0;
-       int i;
-       NTSTATUS nt_status = NT_STATUS_UNSUCCESSFUL;
-       time_t time_now = time(NULL);
-       BOOL use_pdc_only = False;
+       struct in_addr dc_ip;
+       fstring srv_name;
 
-       /*
-        * If the time the machine password has changed
-        * was less than an hour ago then we need to contact
-        * the PDC only, as we cannot be sure domain replication
-        * has yet taken place. Bug found by Gerald (way to go
-        * Gerald !). JRA.
-        */
-
-       if (time_now - last_change_time < 3600)
-               use_pdc_only = True;
-
-       if (!get_dc_list(use_pdc_only, domain, &ip_list, &count))
-               return NT_STATUS_UNSUCCESSFUL;
-
-       /*
-        * Firstly try and contact a PDC/BDC who has the same
-        * network address as any of our interfaces.
-        */
-       for(i = 0; i < count; i++) {
-               if(!is_local_net(ip_list[i]))
-                       continue;
-
-               if(NT_STATUS_IS_OK(nt_status = 
-                                  attempt_connect_to_dc(cli, domain, 
-                                                        &ip_list[i], setup_creds_as, 
-                                                        sec_chan, trust_passwd))) 
-                       break;
-               
-               zero_ip(&ip_list[i]); /* Tried and failed. */
-       }
-
-       /*
-        * Secondly try and contact a random PDC/BDC.
-        */
-       if(!NT_STATUS_IS_OK(nt_status)) {
-               i = (sys_random() % count);
-
-               if (!is_zero_ip(ip_list[i])) {
-                       if (!NT_STATUS_IS_OK(nt_status = 
-                                            attempt_connect_to_dc(cli, domain, 
-                                                                  &ip_list[i], setup_creds_as, 
-                                                                  sec_chan, trust_passwd)))
-                               zero_ip(&ip_list[i]); /* Tried and failed. */
-               }
+       if ( !rpc_find_dc(lp_workgroup(), srv_name, &dc_ip) ) {
+               DEBUG(0,("find_connect_dc: Failed to find an DCs for %s\n", lp_workgroup()));
+               return NT_STATUS_NO_LOGON_SERVERS;
        }
-
-       /*
-        * Finally go through the IP list in turn, ignoring any addresses
-        * we have already tried.
-        */
-       if(!NT_STATUS_IS_OK(nt_status)) {
-               /*
-                * Try and connect to any of the other IP addresses in the PDC/BDC list.
-                * Note that from a WINS server the #1 IP address is the PDC.
-                */
-               for(i = 0; i < count; i++) {
-                       if (is_zero_ip(ip_list[i]))
-                               continue;
-
-                       if (NT_STATUS_IS_OK(nt_status = attempt_connect_to_dc(cli, domain, 
-                                                 &ip_list[i], setup_creds_as, sec_chan, trust_passwd)))
-                               break;
-               }
-       }
-
-       SAFE_FREE(ip_list);
-       return nt_status;
+       
+       return attempt_connect_to_dc( cli, domain, &dc_ip, setup_creds_as, 
+                       sec_chan, trust_passwd );
 }
 
 /***********************************************************************
@@ -305,16 +292,15 @@ static NTSTATUS domain_client_validate(TALLOC_CTX *mem_ctx,
                                       const char *domain,
                                       uchar chal[8],
                                       auth_serversupplied_info **server_info, 
-                                      char *server, char *setup_creds_as,
+                                      const char *server, const char *setup_creds_as,
                                       uint16 sec_chan,
-                                      unsigned char *trust_passwd,
+                                      unsigned char trust_passwd[16],
                                       time_t last_change_time)
 {
        fstring remote_machine;
        NET_USER_INFO_3 info3;
        struct cli_state *cli = NULL;
-       NTSTATUS nt_status = NT_STATUS_UNSUCCESSFUL;
-       struct passwd *pass;
+       NTSTATUS nt_status = NT_STATUS_NO_LOGON_SERVERS;
 
        /*
         * At this point, smb_apasswd points to the lanman response to
@@ -326,10 +312,14 @@ static NTSTATUS domain_client_validate(TALLOC_CTX *mem_ctx,
 
        while (!NT_STATUS_IS_OK(nt_status) &&
               next_token(&server,remote_machine,LIST_SEP,sizeof(remote_machine))) {
-               if(strequal(remote_machine, "*")) {
-                       nt_status = find_connect_pdc(&cli, domain, setup_creds_as, sec_chan, trust_passwd, last_change_time);
+               if(lp_security() != SEC_ADS && strequal(remote_machine, "*")) {
+                       nt_status = find_connect_dc(&cli, domain, setup_creds_as, sec_chan, trust_passwd, last_change_time);
                } else {
-                       nt_status = connect_to_domain_password_server(&cli, remote_machine, setup_creds_as, sec_chan, trust_passwd);
+                       int i;
+                       BOOL retry = True;
+                       for (i = 0; !NT_STATUS_IS_OK(nt_status) && retry && (i < 3); i++)
+                               nt_status = connect_to_domain_password_server(&cli, remote_machine, setup_creds_as,
+                                               sec_chan, trust_passwd, &retry);
                }
        }
 
@@ -358,63 +348,8 @@ static NTSTATUS domain_client_validate(TALLOC_CTX *mem_ctx,
                          user_info->domain.str, cli->srv_name_slash, 
                          nt_errstr(nt_status)));
        } else {
-                char *dom_user;
-
-                /* Check DOMAIN\username first to catch winbind users, then
-                   just the username for local users. */
-
-                dom_user = talloc_asprintf(mem_ctx, "%s%s%s", user_info->domain.str,
-                                          lp_winbind_separator(),
-                                          user_info->internal_username.str);
-               
-               if (!dom_user) {
-                       DEBUG(0, ("talloc_asprintf failed!\n"));
-                       nt_status = NT_STATUS_NO_MEMORY;
-               } else { 
-
-                       if (!(pass = Get_Pwnam(dom_user)))
-                               pass = Get_Pwnam(user_info->internal_username.str);
-                       
-                       if (pass) {
-                               make_server_info_pw(server_info, pass);
-                               if (!server_info) {
-                                       nt_status = NT_STATUS_NO_MEMORY;
-                               }
-                       } else {
-                               nt_status = NT_STATUS_NO_SUCH_USER;
-                       }
-               }
-       }
-
-       /* Store the user group information in the server_info returned to the caller. */
-       
-       if (NT_STATUS_IS_OK(nt_status) && (info3.num_groups2 != 0)) {
-               int i;
-               NT_USER_TOKEN *ptok;
-               auth_serversupplied_info *pserver_info = *server_info;
-
-               if ((pserver_info->ptok = malloc( sizeof(NT_USER_TOKEN) ) ) == NULL) {
-                       DEBUG(0, ("domain_client_validate: out of memory allocating rid group membership\n"));
-                       nt_status = NT_STATUS_NO_MEMORY;
-                       free_server_info(server_info);
-                       goto done;
-               }
-
-               ptok = pserver_info->ptok;
-               ptok->num_sids = (size_t)info3.num_groups2;
-
-               if ((ptok->user_sids = (DOM_SID *)malloc( sizeof(DOM_SID) * ptok->num_sids )) == NULL) {
-                       DEBUG(0, ("domain_client_validate: Out of memory allocating group SIDS\n"));
-                       nt_status = NT_STATUS_NO_MEMORY;
-                       free_server_info(server_info);
-                       goto done;
-               }
-               for (i = 0; i < ptok->num_sids; i++) {
-                       sid_copy(&ptok->user_sids[i], &info3.dom_sid.sid);
-                       sid_append_rid(&ptok->user_sids[i], info3.gids[i].g_rid);
-               }
-               
+               nt_status = make_server_info_info3(mem_ctx, user_info->internal_username.str, 
+                                                  user_info->smb_name.str, domain, server_info, &info3);
                uni_group_cache_store_netlogon(mem_ctx, &info3);
        }
 
@@ -434,8 +369,6 @@ static NTSTATUS domain_client_validate(TALLOC_CTX *mem_ctx,
        }
 #endif /* 0 */
 
-  done:
-
        /* Note - once the cli stream is shutdown the mem_ctx used
           to allocate the other_sids and gids structures has been deleted - so
           these pointers are no longer valid..... */
@@ -461,7 +394,7 @@ static NTSTATUS check_ntdomain_security(const struct auth_context *auth_context,
        char *password_server;
        unsigned char trust_passwd[16];
        time_t last_change_time;
-       char *domain = lp_workgroup();
+       const char *domain = lp_workgroup();
 
        if (!user_info || !server_info || !auth_context) {
                DEBUG(1,("check_ntdomain_security: Critical variables not present.  Failing.\n"));
@@ -474,7 +407,7 @@ static NTSTATUS check_ntdomain_security(const struct auth_context *auth_context,
         * password file.
         */
 
-       if(is_netbios_alias_or_name(user_info->domain.str)) {
+       if(is_myname(user_info->domain.str)) {
                DEBUG(3,("check_ntdomain_security: Requested domain was for this machine.\n"));
                return NT_STATUS_LOGON_FAILURE;
        }
@@ -486,14 +419,17 @@ static NTSTATUS check_ntdomain_security(const struct auth_context *auth_context,
 
        if (!secrets_fetch_trust_account_password(domain, trust_passwd, &last_change_time))
        {
-               DEBUG(0, ("check_ntdomain_security: could not fetch trust account password for domain %s\n", lp_workgroup()));
+               DEBUG(0, ("check_ntdomain_security: could not fetch trust account password for domain '%s'\n", domain));
                return NT_STATUS_CANT_ACCESS_DOMAIN_INFO;
        }
 
-       /* Test if machine password is expired and need to be changed */
-       if (time(NULL) > last_change_time + lp_machine_password_timeout())
-       {
-               global_machine_password_needs_changing = True;
+       /* Test if machine password has expired and needs to be changed */
+       if (lp_machine_password_timeout()) {
+               if (last_change_time > 0 && 
+                   time(NULL) > (last_change_time + 
+                                 lp_machine_password_timeout())) {
+                       global_machine_password_needs_changing = True;
+               }
        }
 
        /*
@@ -506,7 +442,7 @@ static NTSTATUS check_ntdomain_security(const struct auth_context *auth_context,
        nt_status = domain_client_validate(mem_ctx, user_info, domain,
                                           (uchar *)auth_context->challenge.data, 
                                           server_info, 
-                                          password_server, global_myname, SEC_CHAN_WKSTA, trust_passwd, last_change_time);
+                                          password_server, global_myname(), SEC_CHAN_WKSTA, trust_passwd, last_change_time);
        return nt_status;
 }
 
@@ -517,6 +453,7 @@ NTSTATUS auth_init_ntdomain(struct auth_context *auth_context, const char* param
                return NT_STATUS_NO_MEMORY;
        }
 
+       (*auth_method)->name = "ntdomain";
        (*auth_method)->auth = check_ntdomain_security;
        return NT_STATUS_OK;
 }
@@ -549,7 +486,7 @@ static NTSTATUS check_trustdomain_security(const struct auth_context *auth_conte
         * password file.
         */
 
-       if(is_netbios_alias_or_name(user_info->domain.str)) {
+       if(is_myname(user_info->domain.str)) {
                DEBUG(3,("check_trustdomain_security: Requested domain was for this machine.\n"));
                return NT_STATUS_LOGON_FAILURE;
        }
@@ -578,7 +515,7 @@ static NTSTATUS check_trustdomain_security(const struct auth_context *auth_conte
 #ifdef DEBUG_PASSWORD
        DEBUG(100, ("Trust password for domain %s is %s\n", user_info->domain.str, trust_password));
 #endif
-       E_md4hash((uchar *)trust_password, trust_md4_password);
+       E_md4hash(trust_password, trust_md4_password);
        SAFE_FREE(trust_password);
 
 #if 0
@@ -604,6 +541,14 @@ NTSTATUS auth_init_trustdomain(struct auth_context *auth_context, const char* pa
                return NT_STATUS_NO_MEMORY;
        }
 
+       (*auth_method)->name = "trustdomain";
        (*auth_method)->auth = check_trustdomain_security;
        return NT_STATUS_OK;
 }
+
+int auth_domain_init(void) 
+{
+       smb_register_auth("trustdomain", auth_init_trustdomain, AUTH_INTERFACE_VERSION);
+       smb_register_auth("ntdomain", auth_init_ntdomain, AUTH_INTERFACE_VERSION);
+       return True;
+}