source/winbindd/winbindd_cm.c

   1 /*
   2    Unix SMB/CIFS implementation.
   3
   4    Winbind daemon connection manager
   5
   6    Copyright (C) Tim Potter                2001
   7    Copyright (C) Andrew Bartlett           2002
   8    Copyright (C) Gerald (Jerry) Carter     2003-2005.
   9    Copyright (C) Volker Lendecke           2004-2005
  10    Copyright (C) Jeremy Allison            2006
  11
  12    This program is free software; you can redistribute it and/or modify
  13    it under the terms of the GNU General Public License as published by
  14    the Free Software Foundation; either version 3 of the License, or
  15    (at your option) any later version.
  16
  17    This program is distributed in the hope that it will be useful,
  18    but WITHOUT ANY WARRANTY; without even the implied warranty of
  19    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  20    GNU General Public License for more details.
  21
  22    You should have received a copy of the GNU General Public License
  23    along with this program.  If not, see <http://www.gnu.org/licenses/>.
  24 */
  25
  26 /*
  27    We need to manage connections to domain controllers without having to
  28    mess up the main winbindd code with other issues.  The aim of the
  29    connection manager is to:
  30
  31        - make connections to domain controllers and cache them
  32        - re-establish connections when networks or servers go down
  33        - centralise the policy on connection timeouts, domain controller
  34          selection etc
  35        - manage re-entrancy for when winbindd becomes able to handle
  36          multiple outstanding rpc requests
  37
  38    Why not have connection management as part of the rpc layer like tng?
  39    Good question.  This code may morph into libsmb/rpc_cache.c or something
  40    like that but at the moment it's simply staying as part of winbind.  I
  41    think the TNG architecture of forcing every user of the rpc layer to use
  42    the connection caching system is a bad idea.  It should be an optional
  43    method of using the routines.
  44
  45    The TNG design is quite good but I disagree with some aspects of the
  46    implementation. -tpot
  47
  48  */
  49
  50 /*
  51    TODO:
  52
  53      - I'm pretty annoyed by all the make_nmb_name() stuff.  It should be
  54        moved down into another function.
  55
  56      - Take care when destroying cli_structs as they can be shared between
  57        various sam handles.
  58
  59  */
  60
  61 #include "includes.h"
  62 #include "winbindd.h"
  63
  64 #undef DBGC_CLASS
  65 #define DBGC_CLASS DBGC_WINBIND
  66
  67 struct dc_name_ip {
  68         fstring name;
  69         struct sockaddr_storage ss;
  70 };
  71
  72 extern struct winbindd_methods reconnect_methods;
  73 extern bool override_logfile;
  74
  75 static NTSTATUS init_dc_connection_network(struct winbindd_domain *domain);
  76 static void set_dc_type_and_flags( struct winbindd_domain *domain );
  77 static bool get_dcs(TALLOC_CTX *mem_ctx, struct winbindd_domain *domain,
  78                     struct dc_name_ip **dcs, int *num_dcs);
  79
  80 /****************************************************************
  81  Child failed to find DC's. Reschedule check.
  82 ****************************************************************/
  83
  84 static void msg_failed_to_go_online(struct messaging_context *msg,
  85                                     void *private_data,
  86                                     uint32_t msg_type,
  87                                     struct server_id server_id,
  88                                     DATA_BLOB *data)
  89 {
  90         struct winbindd_domain *domain;
  91         const char *domainname = (const char *)data->data;
  92
  93         if (data->data == NULL || data->length == 0) {
  94                 return;
  95         }
  96
  97         DEBUG(5,("msg_fail_to_go_online: received for domain %s.\n", domainname));
  98
  99         for (domain = domain_list(); domain; domain = domain->next) {
 100                 if (domain->internal) {
 101                         continue;
 102                 }
 103
 104                 if (strequal(domain->name, domainname)) {
 105                         if (domain->online) {
 106                                 /* We're already online, ignore. */
 107                                 DEBUG(5,("msg_fail_to_go_online: domain %s "
 108                                         "already online.\n", domainname));
 109                                 continue;
 110                         }
 111
 112                         /* Reschedule the online check. */
 113                         set_domain_offline(domain);
 114                         break;
 115                 }
 116         }
 117 }
 118
 119 /****************************************************************
 120  Actually cause a reconnect from a message.
 121 ****************************************************************/
 122
 123 static void msg_try_to_go_online(struct messaging_context *msg,
 124                                  void *private_data,
 125                                  uint32_t msg_type,
 126                                  struct server_id server_id,
 127                                  DATA_BLOB *data)
 128 {
 129         struct winbindd_domain *domain;
 130         const char *domainname = (const char *)data->data;
 131
 132         if (data->data == NULL || data->length == 0) {
 133                 return;
 134         }
 135
 136         DEBUG(5,("msg_try_to_go_online: received for domain %s.\n", domainname));
 137
 138         for (domain = domain_list(); domain; domain = domain->next) {
 139                 if (domain->internal) {
 140                         continue;
 141                 }
 142
 143                 if (strequal(domain->name, domainname)) {
 144
 145                         if (domain->online) {
 146                                 /* We're already online, ignore. */
 147                                 DEBUG(5,("msg_try_to_go_online: domain %s "
 148                                         "already online.\n", domainname));
 149                                 continue;
 150                         }
 151
 152                         /* This call takes care of setting the online
 153                            flag to true if we connected, or re-adding
 154                            the offline handler if false. Bypasses online
 155                            check so always does network calls. */
 156
 157                         init_dc_connection_network(domain);
 158                         break;
 159                 }
 160         }
 161 }
 162
 163 /****************************************************************
 164  Fork a child to try and contact a DC. Do this as contacting a
 165  DC requires blocking lookups and we don't want to block our
 166  parent.
 167 ****************************************************************/
 168
 169 static bool fork_child_dc_connect(struct winbindd_domain *domain)
 170 {
 171         struct dc_name_ip *dcs = NULL;
 172         int num_dcs = 0;
 173         TALLOC_CTX *mem_ctx = NULL;
 174         pid_t child_pid;
 175         pid_t parent_pid = sys_getpid();
 176
 177         /* Stop zombies */
 178         CatchChild();
 179
 180         child_pid = sys_fork();
 181
 182         if (child_pid == -1) {
 183                 DEBUG(0, ("fork_child_dc_connect: Could not fork: %s\n", strerror(errno)));
 184                 return False;
 185         }
 186
 187         if (child_pid != 0) {
 188                 /* Parent */
 189                 messaging_register(winbind_messaging_context(), NULL,
 190                                    MSG_WINBIND_TRY_TO_GO_ONLINE,
 191                                    msg_try_to_go_online);
 192                 messaging_register(winbind_messaging_context(), NULL,
 193                                    MSG_WINBIND_FAILED_TO_GO_ONLINE,
 194                                    msg_failed_to_go_online);
 195                 return True;
 196         }
 197
 198         /* Child. */
 199
 200         /* Leave messages blocked - we will never process one. */
 201
 202         if (!reinit_after_fork(winbind_messaging_context())) {
 203                 DEBUG(0,("reinit_after_fork() failed\n"));
 204                 _exit(0);
 205         }
 206
 207         close_conns_after_fork();
 208
 209         if (!override_logfile) {
 210                 char *logfile;
 211                 if (asprintf(&logfile, "%s/log.winbindd-dc-connect", get_dyn_LOGFILEBASE()) > 0) {
 212                         lp_set_logfile(logfile);
 213                         SAFE_FREE(logfile);
 214                         reopen_logs();
 215                 }
 216         }
 217
 218         mem_ctx = talloc_init("fork_child_dc_connect");
 219         if (!mem_ctx) {
 220                 DEBUG(0,("talloc_init failed.\n"));
 221                 _exit(0);
 222         }
 223
 224         if ((!get_dcs(mem_ctx, domain, &dcs, &num_dcs)) || (num_dcs == 0)) {
 225                 /* Still offline ? Can't find DC's. */
 226                 messaging_send_buf(winbind_messaging_context(),
 227                                    pid_to_procid(parent_pid),
 228                                    MSG_WINBIND_FAILED_TO_GO_ONLINE,
 229                                    (uint8 *)domain->name,
 230                                    strlen(domain->name)+1);
 231                 _exit(0);
 232         }
 233
 234         /* We got a DC. Send a message to our parent to get it to
 235            try and do the same. */
 236
 237         messaging_send_buf(winbind_messaging_context(),
 238                            pid_to_procid(parent_pid),
 239                            MSG_WINBIND_TRY_TO_GO_ONLINE,
 240                            (uint8 *)domain->name,
 241                            strlen(domain->name)+1);
 242         _exit(0);
 243 }
 244
 245 /****************************************************************
 246  Handler triggered if we're offline to try and detect a DC.
 247 ****************************************************************/
 248
 249 static void check_domain_online_handler(struct event_context *ctx,
 250                                         struct timed_event *te,
 251                                         const struct timeval *now,
 252                                         void *private_data)
 253 {
 254         struct winbindd_domain *domain =
 255                 (struct winbindd_domain *)private_data;
 256
 257         DEBUG(10,("check_domain_online_handler: called for domain "
 258                   "%s (online = %s)\n", domain->name,
 259                   domain->online ? "True" : "False" ));
 260
 261         TALLOC_FREE(domain->check_online_event);
 262
 263         /* Are we still in "startup" mode ? */
 264
 265         if (domain->startup && (now->tv_sec > domain->startup_time + 30)) {
 266                 /* No longer in "startup" mode. */
 267                 DEBUG(10,("check_domain_online_handler: domain %s no longer in 'startup' mode.\n",
 268                         domain->name ));
 269                 domain->startup = False;
 270         }
 271
 272         /* We've been told to stay offline, so stay
 273            that way. */
 274
 275         if (get_global_winbindd_state_offline()) {
 276                 DEBUG(10,("check_domain_online_handler: domain %s remaining globally offline\n",
 277                         domain->name ));
 278                 return;
 279         }
 280
 281         /* Fork a child to test if it can contact a DC.
 282            If it can then send ourselves a message to
 283            cause a reconnect. */
 284
 285         fork_child_dc_connect(domain);
 286 }
 287
 288 /****************************************************************
 289  If we're still offline setup the timeout check.
 290 ****************************************************************/
 291
 292 static void calc_new_online_timeout_check(struct winbindd_domain *domain)
 293 {
 294         int wbc = lp_winbind_cache_time();
 295
 296         if (domain->startup) {
 297                 domain->check_online_timeout = 10;
 298         } else if (domain->check_online_timeout < wbc) {
 299                 domain->check_online_timeout = wbc;
 300         }
 301 }
 302
 303 /****************************************************************
 304  Set domain offline and also add handler to put us back online
 305  if we detect a DC.
 306 ****************************************************************/
 307
 308 void set_domain_offline(struct winbindd_domain *domain)
 309 {
 310         DEBUG(10,("set_domain_offline: called for domain %s\n",
 311                 domain->name ));
 312
 313         TALLOC_FREE(domain->check_online_event);
 314
 315         if (domain->internal) {
 316                 DEBUG(3,("set_domain_offline: domain %s is internal - logic error.\n",
 317                         domain->name ));
 318                 return;
 319         }
 320
 321         domain->online = False;
 322
 323         /* Offline domains are always initialized. They're
 324            re-initialized when they go back online. */
 325
 326         domain->initialized = True;
 327
 328         /* We only add the timeout handler that checks and
 329            allows us to go back online when we've not
 330            been told to remain offline. */
 331
 332         if (get_global_winbindd_state_offline()) {
 333                 DEBUG(10,("set_domain_offline: domain %s remaining globally offline\n",
 334                         domain->name ));
 335                 return;
 336         }
 337
 338         /* If we're in statup mode, check again in 10 seconds, not in
 339            lp_winbind_cache_time() seconds (which is 5 mins by default). */
 340
 341         calc_new_online_timeout_check(domain);
 342
 343         domain->check_online_event = event_add_timed(winbind_event_context(),
 344                                                 NULL,
 345                                                 timeval_current_ofs(domain->check_online_timeout,0),
 346                                                 "check_domain_online_handler",
 347                                                 check_domain_online_handler,
 348                                                 domain);
 349
 350         /* The above *has* to succeed for winbindd to work. */
 351         if (!domain->check_online_event) {
 352                 smb_panic("set_domain_offline: failed to add online handler");
 353         }
 354
 355         DEBUG(10,("set_domain_offline: added event handler for domain %s\n",
 356                 domain->name ));
 357
 358         /* Send an offline message to the idmap child when our
 359            primary domain goes offline */
 360
 361         if ( domain->primary ) {
 362                 struct winbindd_child *idmap = idmap_child();
 363
 364                 if ( idmap->pid != 0 ) {
 365                         messaging_send_buf(winbind_messaging_context(),
 366                                            pid_to_procid(idmap->pid),
 367                                            MSG_WINBIND_OFFLINE,
 368                                            (uint8 *)domain->name,
 369                                            strlen(domain->name)+1);
 370                 }
 371         }
 372
 373         return;
 374 }
 375
 376 /****************************************************************
 377  Set domain online - if allowed.
 378 ****************************************************************/
 379
 380 static void set_domain_online(struct winbindd_domain *domain)
 381 {
 382         struct timeval now;
 383
 384         DEBUG(10,("set_domain_online: called for domain %s\n",
 385                 domain->name ));
 386
 387         if (domain->internal) {
 388                 DEBUG(3,("set_domain_online: domain %s is internal - logic error.\n",
 389                         domain->name ));
 390                 return;
 391         }
 392
 393         if (get_global_winbindd_state_offline()) {
 394                 DEBUG(10,("set_domain_online: domain %s remaining globally offline\n",
 395                         domain->name ));
 396                 return;
 397         }
 398
 399         winbindd_set_locator_kdc_envs(domain);
 400
 401         /* If we are waiting to get a krb5 ticket, trigger immediately. */
 402         GetTimeOfDay(&now);
 403         set_event_dispatch_time(winbind_event_context(),
 404                                 "krb5_ticket_gain_handler", now);
 405
 406         /* Ok, we're out of any startup mode now... */
 407         domain->startup = False;
 408
 409         if (domain->online == False) {
 410                 /* We were offline - now we're online. We default to
 411                    using the MS-RPC backend if we started offline,
 412                    and if we're going online for the first time we
 413                    should really re-initialize the backends and the
 414                    checks to see if we're talking to an AD or NT domain.
 415                 */
 416
 417                 domain->initialized = False;
 418
 419                 /* 'reconnect_methods' is the MS-RPC backend. */
 420                 if (domain->backend == &reconnect_methods) {
 421                         domain->backend = NULL;
 422                 }
 423         }
 424
 425         /* Ensure we have no online timeout checks. */
 426         domain->check_online_timeout = 0;
 427         TALLOC_FREE(domain->check_online_event);
 428
 429         /* Ensure we ignore any pending child messages. */
 430         messaging_deregister(winbind_messaging_context(),
 431                              MSG_WINBIND_TRY_TO_GO_ONLINE, NULL);
 432         messaging_deregister(winbind_messaging_context(),
 433                              MSG_WINBIND_FAILED_TO_GO_ONLINE, NULL);
 434
 435         domain->online = True;
 436
 437         /* Send an online message to the idmap child when our
 438            primary domain comes online */
 439
 440         if ( domain->primary ) {
 441                 struct winbindd_child *idmap = idmap_child();
 442
 443                 if ( idmap->pid != 0 ) {
 444                         messaging_send_buf(winbind_messaging_context(),
 445                                            pid_to_procid(idmap->pid),
 446                                            MSG_WINBIND_ONLINE,
 447                                            (uint8 *)domain->name,
 448                                            strlen(domain->name)+1);
 449                 }
 450         }
 451
 452         return;
 453 }
 454
 455 /****************************************************************
 456  Requested to set a domain online.
 457 ****************************************************************/
 458
 459 void set_domain_online_request(struct winbindd_domain *domain)
 460 {
 461         struct timeval tev;
 462
 463         DEBUG(10,("set_domain_online_request: called for domain %s\n",
 464                 domain->name ));
 465
 466         if (get_global_winbindd_state_offline()) {
 467                 DEBUG(10,("set_domain_online_request: domain %s remaining globally offline\n",
 468                         domain->name ));
 469                 return;
 470         }
 471
 472         /* We've been told it's safe to go online and
 473            try and connect to a DC. But I don't believe it
 474            because network manager seems to lie.
 475            Wait at least 5 seconds. Heuristics suck... */
 476
 477         if (!domain->check_online_event) {
 478                 /* If we've come from being globally offline we
 479                    don't have a check online event handler set.
 480                    We need to add one now we're trying to go
 481                    back online. */
 482
 483                 DEBUG(10,("set_domain_online_request: domain %s was globally offline.\n",
 484                         domain->name ));
 485
 486                 domain->check_online_event = event_add_timed(winbind_event_context(),
 487                                                                 NULL,
 488                                                                 timeval_current_ofs(5, 0),
 489                                                                 "check_domain_online_handler",
 490                                                                 check_domain_online_handler,
 491                                                                 domain);
 492
 493                 /* The above *has* to succeed for winbindd to work. */
 494                 if (!domain->check_online_event) {
 495                         smb_panic("set_domain_online_request: failed to add online handler");
 496                 }
 497         }
 498
 499         GetTimeOfDay(&tev);
 500
 501         /* Go into "startup" mode again. */
 502         domain->startup_time = tev.tv_sec;
 503         domain->startup = True;
 504
 505         tev.tv_sec += 5;
 506
 507         set_event_dispatch_time(winbind_event_context(), "check_domain_online_handler", tev);
 508 }
 509
 510 /****************************************************************
 511  Add -ve connection cache entries for domain and realm.
 512 ****************************************************************/
 513
 514 void winbind_add_failed_connection_entry(const struct winbindd_domain *domain,
 515                                         const char *server,
 516                                         NTSTATUS result)
 517 {
 518         add_failed_connection_entry(domain->name, server, result);
 519         /* If this was the saf name for the last thing we talked to,
 520            remove it. */
 521         saf_delete(domain->name);
 522         if (*domain->alt_name) {
 523                 add_failed_connection_entry(domain->alt_name, server, result);
 524                 saf_delete(domain->alt_name);
 525         }
 526         winbindd_unset_locator_kdc_env(domain);
 527 }
 528
 529 /* Choose between anonymous or authenticated connections.  We need to use
 530    an authenticated connection if DCs have the RestrictAnonymous registry
 531    entry set > 0, or the "Additional restrictions for anonymous
 532    connections" set in the win2k Local Security Policy.
 533
 534    Caller to free() result in domain, username, password
 535 */
 536
 537 static void cm_get_ipc_userpass(char **username, char **domain, char **password)
 538 {
 539         *username = (char *)secrets_fetch(SECRETS_AUTH_USER, NULL);
 540         *domain = (char *)secrets_fetch(SECRETS_AUTH_DOMAIN, NULL);
 541         *password = (char *)secrets_fetch(SECRETS_AUTH_PASSWORD, NULL);
 542
 543         if (*username && **username) {
 544
 545                 if (!*domain || !**domain)
 546                         *domain = smb_xstrdup(lp_workgroup());
 547
 548                 if (!*password || !**password)
 549                         *password = smb_xstrdup("");
 550
 551                 DEBUG(3, ("cm_get_ipc_userpass: Retrieved auth-user from secrets.tdb [%s\\%s]\n",
 552                           *domain, *username));
 553
 554         } else {
 555                 DEBUG(3, ("cm_get_ipc_userpass: No auth-user defined\n"));
 556                 *username = smb_xstrdup("");
 557                 *domain = smb_xstrdup("");
 558                 *password = smb_xstrdup("");
 559         }
 560 }
 561
 562 static bool get_dc_name_via_netlogon(struct winbindd_domain *domain,
 563                                      fstring dcname,
 564                                      struct sockaddr_storage *dc_ss)
 565 {
 566         struct winbindd_domain *our_domain = NULL;
 567         struct rpc_pipe_client *netlogon_pipe = NULL;
 568         NTSTATUS result;
 569         WERROR werr;
 570         TALLOC_CTX *mem_ctx;
 571         unsigned int orig_timeout;
 572         const char *tmp = NULL;
 573         const char *p;
 574
 575         /* Hmmmm. We can only open one connection to the NETLOGON pipe at the
 576          * moment.... */
 577
 578         if (IS_DC) {
 579                 return False;
 580         }
 581
 582         if (domain->primary) {
 583                 return False;
 584         }
 585
 586         our_domain = find_our_domain();
 587
 588         if ((mem_ctx = talloc_init("get_dc_name_via_netlogon")) == NULL) {
 589                 return False;
 590         }
 591
 592         result = cm_connect_netlogon(our_domain, &netlogon_pipe);
 593         if (!NT_STATUS_IS_OK(result)) {
 594                 talloc_destroy(mem_ctx);
 595                 return False;
 596         }
 597
 598         /* This call can take a long time - allow the server to time out.
 599            35 seconds should do it. */
 600
 601         orig_timeout = cli_set_timeout(netlogon_pipe->cli, 35000);
 602
 603         if (our_domain->active_directory) {
 604                 struct netr_DsRGetDCNameInfo *domain_info = NULL;
 605
 606                 result = rpccli_netr_DsRGetDCName(netlogon_pipe,
 607                                                   mem_ctx,
 608                                                   our_domain->dcname,
 609                                                   domain->name,
 610                                                   NULL,
 611                                                   NULL,
 612                                                   DS_RETURN_DNS_NAME,
 613                                                   &domain_info,
 614                                                   &werr);
 615                 if (W_ERROR_IS_OK(werr)) {
 616                         tmp = talloc_strdup(
 617                                 mem_ctx, domain_info->dc_unc);
 618                         if (tmp == NULL) {
 619                                 DEBUG(0, ("talloc_strdup failed\n"));
 620                                 talloc_destroy(mem_ctx);
 621                                 return false;
 622                         }
 623                         if (strlen(domain->alt_name) == 0) {
 624                                 fstrcpy(domain->alt_name,
 625                                         domain_info->domain_name);
 626                         }
 627                         if (strlen(domain->forest_name) == 0) {
 628                                 fstrcpy(domain->forest_name,
 629                                         domain_info->forest_name);
 630                         }
 631                 }
 632         } else {
 633                 result = rpccli_netr_GetAnyDCName(netlogon_pipe, mem_ctx,
 634                                                   our_domain->dcname,
 635                                                   domain->name,
 636                                                   &tmp,
 637                                                   &werr);
 638         }
 639
 640         /* And restore our original timeout. */
 641         cli_set_timeout(netlogon_pipe->cli, orig_timeout);
 642
 643         if (!NT_STATUS_IS_OK(result)) {
 644                 DEBUG(10,("rpccli_netr_GetAnyDCName failed: %s\n",
 645                         nt_errstr(result)));
 646                 talloc_destroy(mem_ctx);
 647                 return false;
 648         }
 649
 650         if (!W_ERROR_IS_OK(werr)) {
 651                 DEBUG(10,("rpccli_netr_GetAnyDCName failed: %s\n",
 652                            dos_errstr(werr)));
 653                 talloc_destroy(mem_ctx);
 654                 return false;
 655         }
 656
 657         /* rpccli_netr_GetAnyDCName gives us a name with \\ */
 658         p = tmp;
 659         if (*p == '\\') {
 660                 p+=1;
 661         }
 662         if (*p == '\\') {
 663                 p+=1;
 664         }
 665
 666         fstrcpy(dcname, p);
 667
 668         talloc_destroy(mem_ctx);
 669
 670         DEBUG(10,("rpccli_netr_GetAnyDCName returned %s\n", dcname));
 671
 672         if (!resolve_name(dcname, dc_ss, 0x20)) {
 673                 return False;
 674         }
 675
 676         return True;
 677 }
 678
 679 /**
 680  * Helper function to assemble trust password and account name
 681  */
 682 static NTSTATUS get_trust_creds(const struct winbindd_domain *domain,
 683                                 char **machine_password,
 684                                 char **machine_account,
 685                                 char **machine_krb5_principal)
 686 {
 687         const char *account_name;
 688         const char *name = NULL;
 689
 690         /* If we are a DC and this is not our own domain */
 691
 692         if (IS_DC) {
 693                 name = domain->name;
 694         } else {
 695                 struct winbindd_domain *our_domain = find_our_domain();
 696
 697                 if (!our_domain)
 698                         return NT_STATUS_INVALID_SERVER_STATE;
 699
 700                 name = our_domain->name;
 701         }
 702
 703         if (!get_trust_pw_clear(name, machine_password,
 704                                 &account_name, NULL))
 705         {
 706                 return NT_STATUS_CANT_ACCESS_DOMAIN_INFO;
 707         }
 708
 709         if ((machine_account != NULL) &&
 710             (asprintf(machine_account, "%s$", account_name) == -1))
 711         {
 712                 return NT_STATUS_NO_MEMORY;
 713         }
 714
 715         /* this is at least correct when domain is our domain,
 716          * which is the only case, when this is currently used: */
 717         if (machine_krb5_principal != NULL)
 718         {
 719                 if (asprintf(machine_krb5_principal, "%s$@%s",
 720                              account_name, domain->alt_name) == -1)
 721                 {
 722                         return NT_STATUS_NO_MEMORY;
 723                 }
 724
 725                 strupper_m(*machine_krb5_principal);
 726         }
 727
 728         return NT_STATUS_OK;
 729 }
 730
 731 /************************************************************************
 732  Given a fd with a just-connected TCP connection to a DC, open a connection
 733  to the pipe.
 734 ************************************************************************/
 735
 736 static NTSTATUS cm_prepare_connection(const struct winbindd_domain *domain,
 737                                       const int sockfd,
 738                                       const char *controller,
 739                                       struct cli_state **cli,
 740                                       bool *retry)
 741 {
 742         char *machine_password = NULL;
 743         char *machine_krb5_principal = NULL;
 744         char *machine_account = NULL;
 745         char *ipc_username = NULL;
 746         char *ipc_domain = NULL;
 747         char *ipc_password = NULL;
 748
 749         struct named_mutex *mutex;
 750
 751         NTSTATUS result = NT_STATUS_UNSUCCESSFUL;
 752
 753         struct sockaddr peeraddr;
 754         socklen_t peeraddr_len;
 755
 756         struct sockaddr_in *peeraddr_in = (struct sockaddr_in *)&peeraddr;
 757
 758         DEBUG(10,("cm_prepare_connection: connecting to DC %s for domain %s\n",
 759                 controller, domain->name ));
 760
 761         *retry = True;
 762
 763         mutex = grab_named_mutex(talloc_tos(), controller,
 764                                  WINBIND_SERVER_MUTEX_WAIT_TIME);
 765         if (mutex == NULL) {
 766                 DEBUG(0,("cm_prepare_connection: mutex grab failed for %s\n",
 767                          controller));
 768                 result = NT_STATUS_POSSIBLE_DEADLOCK;
 769                 goto done;
 770         }
 771
 772         if ((*cli = cli_initialise()) == NULL) {
 773                 DEBUG(1, ("Could not cli_initialize\n"));
 774                 result = NT_STATUS_NO_MEMORY;
 775                 goto done;
 776         }
 777
 778         (*cli)->timeout = 10000;        /* 10 seconds */
 779         (*cli)->fd = sockfd;
 780         fstrcpy((*cli)->desthost, controller);
 781         (*cli)->use_kerberos = True;
 782
 783         peeraddr_len = sizeof(peeraddr);
 784
 785         if ((getpeername((*cli)->fd, &peeraddr, &peeraddr_len) != 0) ||
 786             (peeraddr_len != sizeof(struct sockaddr_in)) ||
 787             (peeraddr_in->sin_family != PF_INET))
 788         {
 789                 DEBUG(0,("cm_prepare_connection: %s\n", strerror(errno)));
 790                 result = NT_STATUS_UNSUCCESSFUL;
 791                 goto done;
 792         }
 793
 794         if (ntohs(peeraddr_in->sin_port) == 139) {
 795                 struct nmb_name calling;
 796                 struct nmb_name called;
 797
 798                 make_nmb_name(&calling, global_myname(), 0x0);
 799                 make_nmb_name(&called, "*SMBSERVER", 0x20);
 800
 801                 if (!cli_session_request(*cli, &calling, &called)) {
 802                         DEBUG(8, ("cli_session_request failed for %s\n",
 803                                   controller));
 804                         result = NT_STATUS_UNSUCCESSFUL;
 805                         goto done;
 806                 }
 807         }
 808
 809         cli_setup_signing_state(*cli, Undefined);
 810
 811         if (!cli_negprot(*cli)) {
 812                 DEBUG(1, ("cli_negprot failed\n"));
 813                 result = NT_STATUS_UNSUCCESSFUL;
 814                 goto done;
 815         }
 816
 817         if (!is_trusted_domain_situation(domain->name) &&
 818             (*cli)->protocol >= PROTOCOL_NT1 &&
 819             (*cli)->capabilities & CAP_EXTENDED_SECURITY)
 820         {
 821                 ADS_STATUS ads_status;
 822
 823                 result = get_trust_creds(domain, &machine_password,
 824                                          &machine_account,
 825                                          &machine_krb5_principal);
 826                 if (!NT_STATUS_IS_OK(result)) {
 827                         goto anon_fallback;
 828                 }
 829
 830                 if (lp_security() == SEC_ADS) {
 831
 832                         /* Try a krb5 session */
 833
 834                         (*cli)->use_kerberos = True;
 835                         DEBUG(5, ("connecting to %s from %s with kerberos principal "
 836                                   "[%s]\n", controller, global_myname(),
 837                                   machine_krb5_principal));
 838
 839                         winbindd_set_locator_kdc_envs(domain);
 840
 841                         ads_status = cli_session_setup_spnego(*cli,
 842                                                               machine_krb5_principal,
 843                                                               machine_password,
 844                                                               domain->name);
 845
 846                         if (!ADS_ERR_OK(ads_status)) {
 847                                 DEBUG(4,("failed kerberos session setup with %s\n",
 848                                          ads_errstr(ads_status)));
 849                         }
 850
 851                         result = ads_ntstatus(ads_status);
 852                         if (NT_STATUS_IS_OK(result)) {
 853                                 /* Ensure creds are stored for NTLMSSP authenticated pipe access. */
 854                                 cli_init_creds(*cli, machine_account, domain->name, machine_password);
 855                                 goto session_setup_done;
 856                         }
 857                 }
 858
 859                 /* Fall back to non-kerberos session setup using NTLMSSP SPNEGO with the machine account. */
 860                 (*cli)->use_kerberos = False;
 861
 862                 DEBUG(5, ("connecting to %s from %s with username "
 863                           "[%s]\\[%s]\n",  controller, global_myname(),
 864                           domain->name, machine_account));
 865
 866                 ads_status = cli_session_setup_spnego(*cli,
 867                                                       machine_account,
 868                                                       machine_password,
 869                                                       domain->name);
 870                 if (!ADS_ERR_OK(ads_status)) {
 871                         DEBUG(4, ("authenticated session setup failed with %s\n",
 872                                 ads_errstr(ads_status)));
 873                 }
 874
 875                 result = ads_ntstatus(ads_status);
 876                 if (NT_STATUS_IS_OK(result)) {
 877                         /* Ensure creds are stored for NTLMSSP authenticated pipe access. */
 878                         cli_init_creds(*cli, machine_account, domain->name, machine_password);
 879                         goto session_setup_done;
 880                 }
 881         }
 882
 883         /* Fall back to non-kerberos session setup with auth_user */
 884
 885         (*cli)->use_kerberos = False;
 886
 887         cm_get_ipc_userpass(&ipc_username, &ipc_domain, &ipc_password);
 888
 889         if ((((*cli)->sec_mode & NEGOTIATE_SECURITY_CHALLENGE_RESPONSE) != 0) &&
 890             (strlen(ipc_username) > 0)) {
 891
 892                 /* Only try authenticated if we have a username */
 893
 894                 DEBUG(5, ("connecting to %s from %s with username "
 895                           "[%s]\\[%s]\n",  controller, global_myname(),
 896                           ipc_domain, ipc_username));
 897
 898                 if (NT_STATUS_IS_OK(cli_session_setup(
 899                                             *cli, ipc_username,
 900                                             ipc_password, strlen(ipc_password)+1,
 901                                             ipc_password, strlen(ipc_password)+1,
 902                                             ipc_domain))) {
 903                         /* Successful logon with given username. */
 904                         cli_init_creds(*cli, ipc_username, ipc_domain, ipc_password);
 905                         goto session_setup_done;
 906                 } else {
 907                         DEBUG(4, ("authenticated session setup with user %s\\%s failed.\n",
 908                                 ipc_domain, ipc_username ));
 909                 }
 910         }
 911
 912  anon_fallback:
 913
 914         /* Fall back to anonymous connection, this might fail later */
 915
 916         if (NT_STATUS_IS_OK(cli_session_setup(*cli, "", NULL, 0,
 917                                               NULL, 0, ""))) {
 918                 DEBUG(5, ("Connected anonymously\n"));
 919                 cli_init_creds(*cli, "", "", "");
 920                 goto session_setup_done;
 921         }
 922
 923         result = cli_nt_error(*cli);
 924
 925         if (NT_STATUS_IS_OK(result))
 926                 result = NT_STATUS_UNSUCCESSFUL;
 927
 928         /* We can't session setup */
 929
 930         goto done;
 931
 932  session_setup_done:
 933
 934         /* cache the server name for later connections */
 935
 936         saf_store( domain->name, (*cli)->desthost );
 937         if (domain->alt_name && (*cli)->use_kerberos) {
 938                 saf_store( domain->alt_name, (*cli)->desthost );
 939         }
 940
 941         winbindd_set_locator_kdc_envs(domain);
 942
 943         if (!cli_send_tconX(*cli, "IPC$", "IPC", "", 0)) {
 944
 945                 result = cli_nt_error(*cli);
 946
 947                 DEBUG(1,("failed tcon_X with %s\n", nt_errstr(result)));
 948
 949                 if (NT_STATUS_IS_OK(result))
 950                         result = NT_STATUS_UNSUCCESSFUL;
 951
 952                 goto done;
 953         }
 954
 955         TALLOC_FREE(mutex);
 956         *retry = False;
 957
 958         /* set the domain if empty; needed for schannel connections */
 959         if ( !*(*cli)->domain ) {
 960                 fstrcpy( (*cli)->domain, domain->name );
 961         }
 962
 963         result = NT_STATUS_OK;
 964
 965  done:
 966         TALLOC_FREE(mutex);
 967         SAFE_FREE(machine_account);
 968         SAFE_FREE(machine_password);
 969         SAFE_FREE(machine_krb5_principal);
 970         SAFE_FREE(ipc_username);
 971         SAFE_FREE(ipc_domain);
 972         SAFE_FREE(ipc_password);
 973
 974         if (!NT_STATUS_IS_OK(result)) {
 975                 winbind_add_failed_connection_entry(domain, controller, result);
 976                 if ((*cli) != NULL) {
 977                         cli_shutdown(*cli);
 978                         *cli = NULL;
 979                 }
 980         }
 981
 982         return result;
 983 }
 984
 985 static bool add_one_dc_unique(TALLOC_CTX *mem_ctx, const char *domain_name,
 986                               const char *dcname, struct sockaddr_storage *pss,
 987                               struct dc_name_ip **dcs, int *num)
 988 {
 989         if (!NT_STATUS_IS_OK(check_negative_conn_cache(domain_name, dcname))) {
 990                 DEBUG(10, ("DC %s was in the negative conn cache\n", dcname));
 991                 return False;
 992         }
 993
 994         *dcs = TALLOC_REALLOC_ARRAY(mem_ctx, *dcs, struct dc_name_ip, (*num)+1);
 995
 996         if (*dcs == NULL)
 997                 return False;
 998
 999         fstrcpy((*dcs)[*num].name, dcname);
1000         (*dcs)[*num].ss = *pss;
1001         *num += 1;
1002         return True;
1003 }
1004
1005 static bool add_sockaddr_to_array(TALLOC_CTX *mem_ctx,
1006                                   struct sockaddr_storage *pss, uint16 port,
1007                                   struct sockaddr_storage **addrs, int *num)
1008 {
1009         *addrs = TALLOC_REALLOC_ARRAY(mem_ctx, *addrs, struct sockaddr_storage, (*num)+1);
1010
1011         if (*addrs == NULL) {
1012                 *num = 0;
1013                 return False;
1014         }
1015
1016         (*addrs)[*num] = *pss;
1017         set_sockaddr_port(&(*addrs)[*num], port);
1018
1019         *num += 1;
1020         return True;
1021 }
1022
1023 /*******************************************************************
1024  convert an ip to a name
1025 *******************************************************************/
1026
1027 static bool dcip_to_name(TALLOC_CTX *mem_ctx,
1028                 const struct winbindd_domain *domain,
1029                 struct sockaddr_storage *pss,
1030                 fstring name )
1031 {
1032         struct ip_service ip_list;
1033
1034         ip_list.ss = *pss;
1035         ip_list.port = 0;
1036
1037 #ifdef WITH_ADS
1038         /* For active directory servers, try to get the ldap server name.
1039            None of these failures should be considered critical for now */
1040
1041         if (lp_security() == SEC_ADS) {
1042                 ADS_STRUCT *ads;
1043                 char addr[INET6_ADDRSTRLEN];
1044
1045                 print_sockaddr(addr, sizeof(addr), pss);
1046
1047                 ads = ads_init(domain->alt_name, domain->name, NULL);
1048                 ads->auth.flags |= ADS_AUTH_NO_BIND;
1049
1050                 if (ads_try_connect(ads, addr)) {
1051                         /* We got a cldap packet. */
1052                         fstrcpy(name, ads->config.ldap_server_name);
1053                         namecache_store(name, 0x20, 1, &ip_list);
1054
1055                         DEBUG(10,("dcip_to_name: flags = 0x%x\n", (unsigned int)ads->config.flags));
1056
1057                         if (domain->primary && (ads->config.flags & NBT_SERVER_KDC)) {
1058                                 if (ads_closest_dc(ads)) {
1059                                         char *sitename = sitename_fetch(ads->config.realm);
1060
1061                                         /* We're going to use this KDC for this realm/domain.
1062                                            If we are using sites, then force the krb5 libs
1063                                            to use this KDC. */
1064
1065                                         create_local_private_krb5_conf_for_domain(domain->alt_name,
1066                                                                         domain->name,
1067                                                                         sitename,
1068                                                                         pss);
1069
1070                                         SAFE_FREE(sitename);
1071                                 } else {
1072                                         /* use an off site KDC */
1073                                         create_local_private_krb5_conf_for_domain(domain->alt_name,
1074                                                                         domain->name,
1075                                                                         NULL,
1076                                                                         pss);
1077                                 }
1078                                 winbindd_set_locator_kdc_envs(domain);
1079
1080                                 /* Ensure we contact this DC also. */
1081                                 saf_store( domain->name, name);
1082                                 saf_store( domain->alt_name, name);
1083                         }
1084
1085                         ads_destroy( &ads );
1086                         return True;
1087                 }
1088
1089                 ads_destroy( &ads );
1090         }
1091 #endif
1092
1093         /* try GETDC requests next */
1094
1095         if (send_getdc_request(mem_ctx, winbind_messaging_context(),
1096                                pss, domain->name, &domain->sid)) {
1097                 const char *dc_name = NULL;
1098                 int i;
1099                 smb_msleep(100);
1100                 for (i=0; i<5; i++) {
1101                         if (receive_getdc_response(mem_ctx, pss, domain->name, &dc_name)) {
1102                                 fstrcpy(name, dc_name);
1103                                 namecache_store(name, 0x20, 1, &ip_list);
1104                                 return True;
1105                         }
1106                         smb_msleep(500);
1107                 }
1108         }
1109
1110         /* try node status request */
1111
1112         if ( name_status_find(domain->name, 0x1c, 0x20, pss, name) ) {
1113                 namecache_store(name, 0x20, 1, &ip_list);
1114                 return True;
1115         }
1116         return False;
1117 }
1118
1119 /*******************************************************************
1120  Retreive a list of IP address for domain controllers.  Fill in
1121  the dcs[]  with results.
1122 *******************************************************************/
1123
1124 static bool get_dcs(TALLOC_CTX *mem_ctx, struct winbindd_domain *domain,
1125                     struct dc_name_ip **dcs, int *num_dcs)
1126 {
1127         fstring dcname;
1128         struct  sockaddr_storage ss;
1129         struct  ip_service *ip_list = NULL;
1130         int     iplist_size = 0;
1131         int     i;
1132         bool    is_our_domain;
1133         enum security_types sec = (enum security_types)lp_security();
1134
1135         is_our_domain = strequal(domain->name, lp_workgroup());
1136
1137         if ( !is_our_domain
1138                 && get_dc_name_via_netlogon(domain, dcname, &ss)
1139                 && add_one_dc_unique(mem_ctx, domain->name, dcname, &ss, dcs, num_dcs) )
1140         {
1141                 char addr[INET6_ADDRSTRLEN];
1142                 print_sockaddr(addr, sizeof(addr), &ss);
1143                 DEBUG(10, ("Retrieved DC %s at %s via netlogon\n",
1144                            dcname, addr));
1145                 return True;
1146         }
1147
1148         if (sec == SEC_ADS) {
1149                 char *sitename = NULL;
1150
1151                 /* We need to make sure we know the local site before
1152                    doing any DNS queries, as this will restrict the
1153                    get_sorted_dc_list() call below to only fetching
1154                    DNS records for the correct site. */
1155
1156                 /* Find any DC to get the site record.
1157                    We deliberately don't care about the
1158                    return here. */
1159
1160                 get_dc_name(domain->name, domain->alt_name, dcname, &ss);
1161
1162                 sitename = sitename_fetch(domain->alt_name);
1163                 if (sitename) {
1164
1165                         /* Do the site-specific AD dns lookup first. */
1166                         get_sorted_dc_list(domain->alt_name, sitename, &ip_list, &iplist_size, True);
1167
1168                         for ( i=0; i<iplist_size; i++ ) {
1169                                 char addr[INET6_ADDRSTRLEN];
1170                                 print_sockaddr(addr, sizeof(addr),
1171                                                 &ip_list[i].ss);
1172                                 add_one_dc_unique(mem_ctx,
1173                                                 domain->name,
1174                                                 addr,
1175                                                 &ip_list[i].ss,
1176                                                 dcs,
1177                                                 num_dcs);
1178                         }
1179
1180                         SAFE_FREE(ip_list);
1181                         SAFE_FREE(sitename);
1182                         iplist_size = 0;
1183                 }
1184
1185                 /* Now we add DCs from the main AD dns lookup. */
1186                 get_sorted_dc_list(domain->alt_name, NULL, &ip_list, &iplist_size, True);
1187
1188                 for ( i=0; i<iplist_size; i++ ) {
1189                         char addr[INET6_ADDRSTRLEN];
1190                         print_sockaddr(addr, sizeof(addr),
1191                                         &ip_list[i].ss);
1192                         add_one_dc_unique(mem_ctx,
1193                                         domain->name,
1194                                         addr,
1195                                         &ip_list[i].ss,
1196                                         dcs,
1197                                         num_dcs);
1198                 }
1199         }
1200
1201         /* try standard netbios queries if no ADS */
1202
1203         if (iplist_size==0) {
1204                 get_sorted_dc_list(domain->name, NULL, &ip_list, &iplist_size, False);
1205         }
1206
1207         /* FIXME!! this is where we should re-insert the GETDC requests --jerry */
1208
1209         /* now add to the dc array.  We'll wait until the last minute
1210            to look up the name of the DC.  But we fill in the char* for
1211            the ip now in to make the failed connection cache work */
1212
1213         for ( i=0; i<iplist_size; i++ ) {
1214                 char addr[INET6_ADDRSTRLEN];
1215                 print_sockaddr(addr, sizeof(addr),
1216                                 &ip_list[i].ss);
1217                 add_one_dc_unique(mem_ctx, domain->name, addr,
1218                         &ip_list[i].ss, dcs, num_dcs);
1219         }
1220
1221         SAFE_FREE( ip_list );
1222
1223         return True;
1224 }
1225
1226 static bool find_new_dc(TALLOC_CTX *mem_ctx,
1227                         struct winbindd_domain *domain,
1228                         fstring dcname, struct sockaddr_storage *pss, int *fd)
1229 {
1230         struct dc_name_ip *dcs = NULL;
1231         int num_dcs = 0;
1232
1233         const char **dcnames = NULL;
1234         int num_dcnames = 0;
1235
1236         struct sockaddr_storage *addrs = NULL;
1237         int num_addrs = 0;
1238
1239         int i, fd_index;
1240
1241  again:
1242         if (!get_dcs(mem_ctx, domain, &dcs, &num_dcs) || (num_dcs == 0))
1243                 return False;
1244
1245         for (i=0; i<num_dcs; i++) {
1246
1247                 if (!add_string_to_array(mem_ctx, dcs[i].name,
1248                                     &dcnames, &num_dcnames)) {
1249                         return False;
1250                 }
1251                 if (!add_sockaddr_to_array(mem_ctx, &dcs[i].ss, 445,
1252                                       &addrs, &num_addrs)) {
1253                         return False;
1254                 }
1255
1256                 if (!add_string_to_array(mem_ctx, dcs[i].name,
1257                                     &dcnames, &num_dcnames)) {
1258                         return False;
1259                 }
1260                 if (!add_sockaddr_to_array(mem_ctx, &dcs[i].ss, 139,
1261                                       &addrs, &num_addrs)) {
1262                         return False;
1263                 }
1264         }
1265
1266         if ((num_dcnames == 0) || (num_dcnames != num_addrs))
1267                 return False;
1268
1269         if ((addrs == NULL) || (dcnames == NULL))
1270                 return False;
1271
1272         /* 5 second timeout. */
1273         if (!open_any_socket_out(addrs, num_addrs, 5000, &fd_index, fd) ) {
1274                 for (i=0; i<num_dcs; i++) {
1275                         char ab[INET6_ADDRSTRLEN];
1276                         print_sockaddr(ab, sizeof(ab), &dcs[i].ss);
1277                         DEBUG(10, ("find_new_dc: open_any_socket_out failed for "
1278                                 "domain %s address %s. Error was %s\n",
1279                                 domain->name, ab, strerror(errno) ));
1280                         winbind_add_failed_connection_entry(domain,
1281                                 dcs[i].name, NT_STATUS_UNSUCCESSFUL);
1282                 }
1283                 return False;
1284         }
1285
1286         *pss = addrs[fd_index];
1287
1288         if (*dcnames[fd_index] != '\0' && !is_ipaddress(dcnames[fd_index])) {
1289                 /* Ok, we've got a name for the DC */
1290                 fstrcpy(dcname, dcnames[fd_index]);
1291                 return True;
1292         }
1293
1294         /* Try to figure out the name */
1295         if (dcip_to_name(mem_ctx, domain, pss, dcname)) {
1296                 return True;
1297         }
1298
1299         /* We can not continue without the DC's name */
1300         winbind_add_failed_connection_entry(domain, dcs[fd_index].name,
1301                                     NT_STATUS_UNSUCCESSFUL);
1302         goto again;
1303 }
1304
1305 static NTSTATUS cm_open_connection(struct winbindd_domain *domain,
1306                                    struct winbindd_cm_conn *new_conn)
1307 {
1308         TALLOC_CTX *mem_ctx;
1309         NTSTATUS result;
1310         char *saf_servername = saf_fetch( domain->name );
1311         int retries;
1312
1313         if ((mem_ctx = talloc_init("cm_open_connection")) == NULL) {
1314                 SAFE_FREE(saf_servername);
1315                 set_domain_offline(domain);
1316                 return NT_STATUS_NO_MEMORY;
1317         }
1318
1319         /* we have to check the server affinity cache here since
1320            later we selecte a DC based on response time and not preference */
1321
1322         /* Check the negative connection cache
1323            before talking to it. It going down may have
1324            triggered the reconnection. */
1325
1326         if ( saf_servername && NT_STATUS_IS_OK(check_negative_conn_cache( domain->name, saf_servername))) {
1327
1328                 DEBUG(10,("cm_open_connection: saf_servername is '%s' for domain %s\n",
1329                         saf_servername, domain->name ));
1330
1331                 /* convert an ip address to a name */
1332                 if (is_ipaddress( saf_servername ) ) {
1333                         fstring saf_name;
1334                         struct sockaddr_storage ss;
1335
1336                         if (!interpret_string_addr(&ss, saf_servername,
1337                                                 AI_NUMERICHOST)) {
1338                                 return NT_STATUS_UNSUCCESSFUL;
1339                         }
1340                         if (dcip_to_name(mem_ctx, domain, &ss, saf_name )) {
1341                                 fstrcpy( domain->dcname, saf_name );
1342                         } else {
1343                                 winbind_add_failed_connection_entry(
1344                                         domain, saf_servername,
1345                                         NT_STATUS_UNSUCCESSFUL);
1346                         }
1347                 } else {
1348                         fstrcpy( domain->dcname, saf_servername );
1349                 }
1350
1351                 SAFE_FREE( saf_servername );
1352         }
1353
1354         for (retries = 0; retries < 3; retries++) {
1355                 int fd = -1;
1356                 bool retry = False;
1357
1358                 result = NT_STATUS_DOMAIN_CONTROLLER_NOT_FOUND;
1359
1360                 DEBUG(10,("cm_open_connection: dcname is '%s' for domain %s\n",
1361                         domain->dcname, domain->name ));
1362
1363                 if (*domain->dcname
1364                         && NT_STATUS_IS_OK(check_negative_conn_cache( domain->name, domain->dcname))
1365                         && (resolve_name(domain->dcname, &domain->dcaddr, 0x20)))
1366                 {
1367                         struct sockaddr_storage *addrs = NULL;
1368                         int num_addrs = 0;
1369                         int dummy = 0;
1370
1371                         if (!add_sockaddr_to_array(mem_ctx, &domain->dcaddr, 445, &addrs, &num_addrs)) {
1372                                 set_domain_offline(domain);
1373                                 talloc_destroy(mem_ctx);
1374                                 return NT_STATUS_NO_MEMORY;
1375                         }
1376                         if (!add_sockaddr_to_array(mem_ctx, &domain->dcaddr, 139, &addrs, &num_addrs)) {
1377                                 set_domain_offline(domain);
1378                                 talloc_destroy(mem_ctx);
1379                                 return NT_STATUS_NO_MEMORY;
1380                         }
1381
1382                         /* 5 second timeout. */
1383                         if (!open_any_socket_out(addrs, num_addrs, 5000, &dummy, &fd)) {
1384                                 fd = -1;
1385                         }
1386                 }
1387
1388                 if ((fd == -1)
1389                         && !find_new_dc(mem_ctx, domain, domain->dcname, &domain->dcaddr, &fd))
1390                 {
1391                         /* This is the one place where we will
1392                            set the global winbindd offline state
1393                            to true, if a "WINBINDD_OFFLINE" entry
1394                            is found in the winbindd cache. */
1395                         set_global_winbindd_state_offline();
1396                         break;
1397                 }
1398
1399                 new_conn->cli = NULL;
1400
1401                 result = cm_prepare_connection(domain, fd, domain->dcname,
1402                         &new_conn->cli, &retry);
1403
1404                 if (!retry)
1405                         break;
1406         }
1407
1408         if (NT_STATUS_IS_OK(result)) {
1409
1410                 winbindd_set_locator_kdc_envs(domain);
1411
1412                 if (domain->online == False) {
1413                         /* We're changing state from offline to online. */
1414                         set_global_winbindd_state_online();
1415                 }
1416                 set_domain_online(domain);
1417         } else {
1418                 /* Ensure we setup the retry handler. */
1419                 set_domain_offline(domain);
1420         }
1421
1422         talloc_destroy(mem_ctx);
1423         return result;
1424 }
1425
1426 /* Close down all open pipes on a connection. */
1427
1428 void invalidate_cm_connection(struct winbindd_cm_conn *conn)
1429 {
1430         /* We're closing down a possibly dead
1431            connection. Don't have impossibly long (10s) timeouts. */
1432
1433         if (conn->cli) {
1434                 cli_set_timeout(conn->cli, 1000); /* 1 second. */
1435         }
1436
1437         if (conn->samr_pipe != NULL) {
1438                 if (!cli_rpc_pipe_close(conn->samr_pipe)) {
1439                         /* Ok, it must be dead. Drop timeout to 0.5 sec. */
1440                         if (conn->cli) {
1441                                 cli_set_timeout(conn->cli, 500);
1442                         }
1443                 }
1444                 conn->samr_pipe = NULL;
1445         }
1446
1447         if (conn->lsa_pipe != NULL) {
1448                 if (!cli_rpc_pipe_close(conn->lsa_pipe)) {
1449                         /* Ok, it must be dead. Drop timeout to 0.5 sec. */
1450                         if (conn->cli) {
1451                                 cli_set_timeout(conn->cli, 500);
1452                         }
1453                 }
1454                 conn->lsa_pipe = NULL;
1455         }
1456
1457         if (conn->netlogon_pipe != NULL) {
1458                 if (!cli_rpc_pipe_close(conn->netlogon_pipe)) {
1459                         /* Ok, it must be dead. Drop timeout to 0.5 sec. */
1460                         if (conn->cli) {
1461                                 cli_set_timeout(conn->cli, 500);
1462                         }
1463                 }
1464                 conn->netlogon_pipe = NULL;
1465         }
1466
1467         if (conn->cli) {
1468                 cli_shutdown(conn->cli);
1469         }
1470
1471         conn->cli = NULL;
1472 }
1473
1474 void close_conns_after_fork(void)
1475 {
1476         struct winbindd_domain *domain;
1477
1478         for (domain = domain_list(); domain; domain = domain->next) {
1479                 if (domain->conn.cli == NULL)
1480                         continue;
1481
1482                 if (domain->conn.cli->fd == -1)
1483                         continue;
1484
1485                 close(domain->conn.cli->fd);
1486                 domain->conn.cli->fd = -1;
1487         }
1488 }
1489
1490 static bool connection_ok(struct winbindd_domain *domain)
1491 {
1492         if (domain->conn.cli == NULL) {
1493                 DEBUG(8, ("connection_ok: Connection to %s for domain %s has NULL "
1494                           "cli!\n", domain->dcname, domain->name));
1495                 return False;
1496         }
1497
1498         if (!domain->conn.cli->initialised) {
1499                 DEBUG(3, ("connection_ok: Connection to %s for domain %s was never "
1500                           "initialised!\n", domain->dcname, domain->name));
1501                 return False;
1502         }
1503
1504         if (domain->conn.cli->fd == -1) {
1505                 DEBUG(3, ("connection_ok: Connection to %s for domain %s has died or was "
1506                           "never started (fd == -1)\n",
1507                           domain->dcname, domain->name));
1508                 return False;
1509         }
1510
1511         if (domain->online == False) {
1512                 DEBUG(3, ("connection_ok: Domain %s is offline\n", domain->name));
1513                 return False;
1514         }
1515
1516         return True;
1517 }
1518
1519 /* Initialize a new connection up to the RPC BIND.
1520    Bypass online status check so always does network calls. */
1521
1522 static NTSTATUS init_dc_connection_network(struct winbindd_domain *domain)
1523 {
1524         NTSTATUS result;
1525
1526         /* Internal connections never use the network. */
1527         if (domain->internal) {
1528                 domain->initialized = True;
1529                 return NT_STATUS_OK;
1530         }
1531
1532         if (connection_ok(domain)) {
1533                 if (!domain->initialized) {
1534                         set_dc_type_and_flags(domain);
1535                 }
1536                 return NT_STATUS_OK;
1537         }
1538
1539         invalidate_cm_connection(&domain->conn);
1540
1541         result = cm_open_connection(domain, &domain->conn);
1542
1543         if (NT_STATUS_IS_OK(result) && !domain->initialized) {
1544                 set_dc_type_and_flags(domain);
1545         }
1546
1547         return result;
1548 }
1549
1550 NTSTATUS init_dc_connection(struct winbindd_domain *domain)
1551 {
1552         if (domain->initialized && !domain->online) {
1553                 /* We check for online status elsewhere. */
1554                 return NT_STATUS_DOMAIN_CONTROLLER_NOT_FOUND;
1555         }
1556
1557         return init_dc_connection_network(domain);
1558 }
1559
1560 /******************************************************************************
1561  Set the trust flags (direction and forest location) for a domain
1562 ******************************************************************************/
1563
1564 static bool set_dc_type_and_flags_trustinfo( struct winbindd_domain *domain )
1565 {
1566         struct winbindd_domain *our_domain;
1567         NTSTATUS result = NT_STATUS_UNSUCCESSFUL;
1568         struct netr_DomainTrustList trusts;
1569         int i;
1570         uint32 flags = (NETR_TRUST_FLAG_IN_FOREST |
1571                         NETR_TRUST_FLAG_OUTBOUND |
1572                         NETR_TRUST_FLAG_INBOUND);
1573         struct rpc_pipe_client *cli;
1574         TALLOC_CTX *mem_ctx = NULL;
1575
1576         DEBUG(5, ("set_dc_type_and_flags_trustinfo: domain %s\n", domain->name ));
1577
1578         /* Our primary domain doesn't need to worry about trust flags.
1579            Force it to go through the network setup */
1580         if ( domain->primary ) {
1581                 return False;
1582         }
1583
1584         our_domain = find_our_domain();
1585
1586         if ( !connection_ok(our_domain) ) {
1587                 DEBUG(3,("set_dc_type_and_flags_trustinfo: No connection to our domain!\n"));
1588                 return False;
1589         }
1590
1591         /* This won't work unless our domain is AD */
1592
1593         if ( !our_domain->active_directory ) {
1594                 return False;
1595         }
1596
1597         /* Use DsEnumerateDomainTrusts to get us the trust direction
1598            and type */
1599
1600         result = cm_connect_netlogon(our_domain, &cli);
1601
1602         if (!NT_STATUS_IS_OK(result)) {
1603                 DEBUG(5, ("set_dc_type_and_flags_trustinfo: Could not open "
1604                           "a connection to %s for PIPE_NETLOGON (%s)\n",
1605                           domain->name, nt_errstr(result)));
1606                 return False;
1607         }
1608
1609         if ( (mem_ctx = talloc_init("set_dc_type_and_flags_trustinfo")) == NULL ) {
1610                 DEBUG(0,("set_dc_type_and_flags_trustinfo: talloc_init() failed!\n"));
1611                 return False;
1612         }
1613
1614         result = rpccli_netr_DsrEnumerateDomainTrusts(cli, mem_ctx,
1615                                                       cli->cli->desthost,
1616                                                       flags,
1617                                                       &trusts,
1618                                                       NULL);
1619         if (!NT_STATUS_IS_OK(result)) {
1620                 DEBUG(0,("set_dc_type_and_flags_trustinfo: "
1621                         "failed to query trusted domain list: %s\n",
1622                         nt_errstr(result)));
1623                 talloc_destroy(mem_ctx);
1624                 return false;
1625         }
1626
1627         /* Now find the domain name and get the flags */
1628
1629         for ( i=0; i<trusts.count; i++ ) {
1630                 if ( strequal( domain->name, trusts.array[i].netbios_name) ) {
1631                         domain->domain_flags          = trusts.array[i].trust_flags;
1632                         domain->domain_type           = trusts.array[i].trust_type;
1633                         domain->domain_trust_attribs  = trusts.array[i].trust_attributes;
1634
1635                         if ( domain->domain_type == NETR_TRUST_TYPE_UPLEVEL )
1636                                 domain->active_directory = True;
1637
1638                         /* This flag is only set if the domain is *our*
1639                            primary domain and the primary domain is in
1640                            native mode */
1641
1642                         domain->native_mode = (domain->domain_flags & NETR_TRUST_FLAG_NATIVE);
1643
1644                         DEBUG(5, ("set_dc_type_and_flags_trustinfo: domain %s is %sin "
1645                                   "native mode.\n", domain->name,
1646                                   domain->native_mode ? "" : "NOT "));
1647
1648                         DEBUG(5,("set_dc_type_and_flags_trustinfo: domain %s is %s"
1649                                  "running active directory.\n", domain->name,
1650                                  domain->active_directory ? "" : "NOT "));
1651
1652
1653                         domain->initialized = True;
1654
1655                         if ( !winbindd_can_contact_domain( domain) )
1656                                 domain->internal = True;
1657
1658                         break;
1659                 }
1660         }
1661
1662         talloc_destroy( mem_ctx );
1663
1664         return domain->initialized;
1665 }
1666
1667 /******************************************************************************
1668  We can 'sense' certain things about the DC by it's replies to certain
1669  questions.
1670
1671  This tells us if this particular remote server is Active Directory, and if it
1672  is native mode.
1673 ******************************************************************************/
1674
1675 static void set_dc_type_and_flags_connect( struct winbindd_domain *domain )
1676 {
1677         NTSTATUS                result;
1678         WERROR werr;
1679         TALLOC_CTX              *mem_ctx = NULL;
1680         struct rpc_pipe_client  *cli;
1681         POLICY_HND pol;
1682         union dssetup_DsRoleInfo info;
1683         union lsa_PolicyInformation *lsa_info = NULL;
1684
1685         if (!connection_ok(domain)) {
1686                 return;
1687         }
1688
1689         mem_ctx = talloc_init("set_dc_type_and_flags on domain %s\n",
1690                               domain->name);
1691         if (!mem_ctx) {
1692                 DEBUG(1, ("set_dc_type_and_flags_connect: talloc_init() failed\n"));
1693                 return;
1694         }
1695
1696         DEBUG(5, ("set_dc_type_and_flags_connect: domain %s\n", domain->name ));
1697
1698         cli = cli_rpc_pipe_open_noauth(domain->conn.cli, PI_DSSETUP,
1699                                        &result);
1700
1701         if (cli == NULL) {
1702                 DEBUG(5, ("set_dc_type_and_flags_connect: Could not bind to "
1703                           "PI_DSSETUP on domain %s: (%s)\n",
1704                           domain->name, nt_errstr(result)));
1705
1706                 /* if this is just a non-AD domain we need to continue
1707                  * identifying so that we can in the end return with
1708                  * domain->initialized = True - gd */
1709
1710                 goto no_dssetup;
1711         }
1712
1713         result = rpccli_dssetup_DsRoleGetPrimaryDomainInformation(cli, mem_ctx,
1714                                                                   DS_ROLE_BASIC_INFORMATION,
1715                                                                   &info,
1716                                                                   &werr);
1717         cli_rpc_pipe_close(cli);
1718
1719         if (!NT_STATUS_IS_OK(result)) {
1720                 DEBUG(5, ("set_dc_type_and_flags_connect: rpccli_ds_getprimarydominfo "
1721                           "on domain %s failed: (%s)\n",
1722                           domain->name, nt_errstr(result)));
1723
1724                 /* older samba3 DCs will return DCERPC_FAULT_OP_RNG_ERROR for
1725                  * every opcode on the DSSETUP pipe, continue with
1726                  * no_dssetup mode here as well to get domain->initialized
1727                  * set - gd */
1728
1729                 if (NT_STATUS_V(result) == DCERPC_FAULT_OP_RNG_ERROR) {
1730                         goto no_dssetup;
1731                 }
1732
1733                 TALLOC_FREE(mem_ctx);
1734                 return;
1735         }
1736
1737         if ((info.basic.flags & DS_ROLE_PRIMARY_DS_RUNNING) &&
1738             !(info.basic.flags & DS_ROLE_PRIMARY_DS_MIXED_MODE)) {
1739                 domain->native_mode = True;
1740         } else {
1741                 domain->native_mode = False;
1742         }
1743
1744 no_dssetup:
1745         cli = cli_rpc_pipe_open_noauth(domain->conn.cli, PI_LSARPC, &result);
1746
1747         if (cli == NULL) {
1748                 DEBUG(5, ("set_dc_type_and_flags_connect: Could not bind to "
1749                           "PI_LSARPC on domain %s: (%s)\n",
1750                           domain->name, nt_errstr(result)));
1751                 cli_rpc_pipe_close(cli);
1752                 TALLOC_FREE(mem_ctx);
1753                 return;
1754         }
1755
1756         result = rpccli_lsa_open_policy2(cli, mem_ctx, True,
1757                                          SEC_RIGHTS_MAXIMUM_ALLOWED, &pol);
1758
1759         if (NT_STATUS_IS_OK(result)) {
1760                 /* This particular query is exactly what Win2k clients use
1761                    to determine that the DC is active directory */
1762                 result = rpccli_lsa_QueryInfoPolicy2(cli, mem_ctx,
1763                                                      &pol,
1764                                                      LSA_POLICY_INFO_DNS,
1765                                                      &lsa_info);
1766         }
1767
1768         if (NT_STATUS_IS_OK(result)) {
1769                 domain->active_directory = True;
1770
1771                 if (lsa_info->dns.name.string) {
1772                         fstrcpy(domain->name, lsa_info->dns.name.string);
1773                 }
1774
1775                 if (lsa_info->dns.dns_domain.string) {
1776                         fstrcpy(domain->alt_name,
1777                                 lsa_info->dns.dns_domain.string);
1778                 }
1779
1780                 /* See if we can set some domain trust flags about
1781                    ourself */
1782
1783                 if (lsa_info->dns.dns_forest.string) {
1784                         fstrcpy(domain->forest_name,
1785                                 lsa_info->dns.dns_forest.string);
1786
1787                         if (strequal(domain->forest_name, domain->alt_name)) {
1788                                 domain->domain_flags |= NETR_TRUST_FLAG_TREEROOT;
1789                         }
1790                 }
1791
1792                 if (lsa_info->dns.sid) {
1793                         sid_copy(&domain->sid, lsa_info->dns.sid);
1794                 }
1795         } else {
1796                 domain->active_directory = False;
1797
1798                 result = rpccli_lsa_open_policy(cli, mem_ctx, True,
1799                                                 SEC_RIGHTS_MAXIMUM_ALLOWED,
1800                                                 &pol);
1801
1802                 if (!NT_STATUS_IS_OK(result)) {
1803                         goto done;
1804                 }
1805
1806                 result = rpccli_lsa_QueryInfoPolicy(cli, mem_ctx,
1807                                                     &pol,
1808                                                     LSA_POLICY_INFO_ACCOUNT_DOMAIN,
1809                                                     &lsa_info);
1810
1811                 if (NT_STATUS_IS_OK(result)) {
1812
1813                         if (lsa_info->account_domain.name.string) {
1814                                 fstrcpy(domain->name,
1815                                         lsa_info->account_domain.name.string);
1816                         }
1817
1818                         if (lsa_info->account_domain.sid) {
1819                                 sid_copy(&domain->sid, lsa_info->account_domain.sid);
1820                         }
1821                 }
1822         }
1823 done:
1824
1825         DEBUG(5, ("set_dc_type_and_flags_connect: domain %s is %sin native mode.\n",
1826                   domain->name, domain->native_mode ? "" : "NOT "));
1827
1828         DEBUG(5,("set_dc_type_and_flags_connect: domain %s is %srunning active directory.\n",
1829                   domain->name, domain->active_directory ? "" : "NOT "));
1830
1831         cli_rpc_pipe_close(cli);
1832
1833         TALLOC_FREE(mem_ctx);
1834
1835         domain->initialized = True;
1836 }
1837
1838 /**********************************************************************
1839  Set the domain_flags (trust attributes, domain operating modes, etc...
1840 ***********************************************************************/
1841
1842 static void set_dc_type_and_flags( struct winbindd_domain *domain )
1843 {
1844         /* we always have to contact our primary domain */
1845
1846         if ( domain->primary ) {
1847                 DEBUG(10,("set_dc_type_and_flags: setting up flags for "
1848                           "primary domain\n"));
1849                 set_dc_type_and_flags_connect( domain );
1850                 return;
1851         }
1852
1853         /* Use our DC to get the information if possible */
1854
1855         if ( !set_dc_type_and_flags_trustinfo( domain ) ) {
1856                 /* Otherwise, fallback to contacting the
1857                    domain directly */
1858                 set_dc_type_and_flags_connect( domain );
1859         }
1860
1861         return;
1862 }
1863
1864
1865
1866 /**********************************************************************
1867 ***********************************************************************/
1868
1869 static bool cm_get_schannel_dcinfo(struct winbindd_domain *domain,
1870                                    struct dcinfo **ppdc)
1871 {
1872         NTSTATUS result;
1873         struct rpc_pipe_client *netlogon_pipe;
1874
1875         if (lp_client_schannel() == False) {
1876                 return False;
1877         }
1878
1879         result = cm_connect_netlogon(domain, &netlogon_pipe);
1880         if (!NT_STATUS_IS_OK(result)) {
1881                 return False;
1882         }
1883
1884         /* Return a pointer to the struct dcinfo from the
1885            netlogon pipe. */
1886
1887         *ppdc = domain->conn.netlogon_pipe->dc;
1888         return True;
1889 }
1890
1891 NTSTATUS cm_connect_sam(struct winbindd_domain *domain, TALLOC_CTX *mem_ctx,
1892                         struct rpc_pipe_client **cli, POLICY_HND *sam_handle)
1893 {
1894         struct winbindd_cm_conn *conn;
1895         NTSTATUS result = NT_STATUS_UNSUCCESSFUL;
1896         fstring conn_pwd;
1897         struct dcinfo *p_dcinfo;
1898         char *machine_password = NULL;
1899         char *machine_account = NULL;
1900         char *domain_name = NULL;
1901
1902         result = init_dc_connection(domain);
1903         if (!NT_STATUS_IS_OK(result)) {
1904                 return result;
1905         }
1906
1907         conn = &domain->conn;
1908
1909         if (conn->samr_pipe != NULL) {
1910                 goto done;
1911         }
1912
1913         /*
1914          * No SAMR pipe yet. Attempt to get an NTLMSSP SPNEGO authenticated
1915          * sign and sealed pipe using the machine account password by
1916          * preference. If we can't - try schannel, if that fails, try
1917          * anonymous.
1918          */
1919
1920         pwd_get_cleartext(&conn->cli->pwd, conn_pwd);
1921         if ((conn->cli->user_name[0] == '\0') ||
1922             (conn->cli->domain[0] == '\0') ||
1923             (conn_pwd[0] == '\0'))
1924         {
1925                 result = get_trust_creds(domain, &machine_password,
1926                                          &machine_account, NULL);
1927                 if (!NT_STATUS_IS_OK(result)) {
1928                         DEBUG(10, ("cm_connect_sam: No no user available for "
1929                                    "domain %s, trying schannel\n", conn->cli->domain));
1930                         goto schannel;
1931                 }
1932                 domain_name = domain->name;
1933         } else {
1934                 machine_password = SMB_STRDUP(conn_pwd);
1935                 machine_account = SMB_STRDUP(conn->cli->user_name);
1936                 domain_name = conn->cli->domain;
1937         }
1938
1939         if (!machine_password || !machine_account) {
1940                 result = NT_STATUS_NO_MEMORY;
1941                 goto done;
1942         }
1943
1944         /* We have an authenticated connection. Use a NTLMSSP SPNEGO
1945            authenticated SAMR pipe with sign & seal. */
1946         conn->samr_pipe =
1947                 cli_rpc_pipe_open_spnego_ntlmssp(conn->cli, PI_SAMR,
1948                                                  PIPE_AUTH_LEVEL_PRIVACY,
1949                                                  domain_name,
1950                                                  machine_account,
1951                                                  machine_password, &result);
1952
1953         if (conn->samr_pipe == NULL) {
1954                 DEBUG(10,("cm_connect_sam: failed to connect to SAMR "
1955                           "pipe for domain %s using NTLMSSP "
1956                           "authenticated pipe: user %s\\%s. Error was "
1957                           "%s\n", domain->name, domain_name,
1958                           machine_account, nt_errstr(result)));
1959                 goto schannel;
1960         }
1961
1962         DEBUG(10,("cm_connect_sam: connected to SAMR pipe for "
1963                   "domain %s using NTLMSSP authenticated "
1964                   "pipe: user %s\\%s\n", domain->name,
1965                   domain_name, machine_account));
1966
1967         result = rpccli_samr_Connect2(conn->samr_pipe, mem_ctx,
1968                                       conn->samr_pipe->cli->desthost,
1969                                       SEC_RIGHTS_MAXIMUM_ALLOWED,
1970                                       &conn->sam_connect_handle);
1971         if (NT_STATUS_IS_OK(result)) {
1972                 goto open_domain;
1973         }
1974         DEBUG(10,("cm_connect_sam: ntlmssp-sealed rpccli_samr_Connect2 "
1975                   "failed for domain %s, error was %s. Trying schannel\n",
1976                   domain->name, nt_errstr(result) ));
1977         cli_rpc_pipe_close(conn->samr_pipe);
1978
1979  schannel:
1980
1981         /* Fall back to schannel if it's a W2K pre-SP1 box. */
1982
1983         if (!cm_get_schannel_dcinfo(domain, &p_dcinfo)) {
1984                 /* If this call fails - conn->cli can now be NULL ! */
1985                 DEBUG(10, ("cm_connect_sam: Could not get schannel auth info "
1986                            "for domain %s, trying anon\n", domain->name));
1987                 goto anonymous;
1988         }
1989         conn->samr_pipe = cli_rpc_pipe_open_schannel_with_key
1990                 (conn->cli, PI_SAMR, PIPE_AUTH_LEVEL_PRIVACY,
1991                  domain->name, p_dcinfo, &result);
1992
1993         if (conn->samr_pipe == NULL) {
1994                 DEBUG(10,("cm_connect_sam: failed to connect to SAMR pipe for "
1995                           "domain %s using schannel. Error was %s\n",
1996                           domain->name, nt_errstr(result) ));
1997                 goto anonymous;
1998         }
1999         DEBUG(10,("cm_connect_sam: connected to SAMR pipe for domain %s using "
2000                   "schannel.\n", domain->name ));
2001
2002         result = rpccli_samr_Connect2(conn->samr_pipe, mem_ctx,
2003                                       conn->samr_pipe->cli->desthost,
2004                                       SEC_RIGHTS_MAXIMUM_ALLOWED,
2005                                       &conn->sam_connect_handle);
2006         if (NT_STATUS_IS_OK(result)) {
2007                 goto open_domain;
2008         }
2009         DEBUG(10,("cm_connect_sam: schannel-sealed rpccli_samr_Connect2 failed "
2010                   "for domain %s, error was %s. Trying anonymous\n",
2011                   domain->name, nt_errstr(result) ));
2012         cli_rpc_pipe_close(conn->samr_pipe);
2013
2014  anonymous:
2015
2016         /* Finally fall back to anonymous. */
2017         conn->samr_pipe = cli_rpc_pipe_open_noauth(conn->cli, PI_SAMR,
2018                                                    &result);
2019
2020         if (conn->samr_pipe == NULL) {
2021                 result = NT_STATUS_PIPE_NOT_AVAILABLE;
2022                 goto done;
2023         }
2024
2025         result = rpccli_samr_Connect2(conn->samr_pipe, mem_ctx,
2026                                       conn->samr_pipe->cli->desthost,
2027                                       SEC_RIGHTS_MAXIMUM_ALLOWED,
2028                                       &conn->sam_connect_handle);
2029         if (!NT_STATUS_IS_OK(result)) {
2030                 DEBUG(10,("cm_connect_sam: rpccli_samr_Connect2 failed "
2031                           "for domain %s Error was %s\n",
2032                           domain->name, nt_errstr(result) ));
2033                 goto done;
2034         }
2035
2036  open_domain:
2037         result = rpccli_samr_OpenDomain(conn->samr_pipe,
2038                                         mem_ctx,
2039                                         &conn->sam_connect_handle,
2040                                         SEC_RIGHTS_MAXIMUM_ALLOWED,
2041                                         &domain->sid,
2042                                         &conn->sam_domain_handle);
2043
2044  done:
2045
2046         if (!NT_STATUS_IS_OK(result)) {
2047                 invalidate_cm_connection(conn);
2048                 return result;
2049         }
2050
2051         *cli = conn->samr_pipe;
2052         *sam_handle = conn->sam_domain_handle;
2053         SAFE_FREE(machine_password);
2054         SAFE_FREE(machine_account);
2055         return result;
2056 }
2057
2058 NTSTATUS cm_connect_lsa(struct winbindd_domain *domain, TALLOC_CTX *mem_ctx,
2059                         struct rpc_pipe_client **cli, POLICY_HND *lsa_policy)
2060 {
2061         struct winbindd_cm_conn *conn;
2062         NTSTATUS result = NT_STATUS_UNSUCCESSFUL;
2063         fstring conn_pwd;
2064         struct dcinfo *p_dcinfo;
2065
2066         result = init_dc_connection(domain);
2067         if (!NT_STATUS_IS_OK(result))
2068                 return result;
2069
2070         conn = &domain->conn;
2071
2072         if (conn->lsa_pipe != NULL) {
2073                 goto done;
2074         }
2075
2076         pwd_get_cleartext(&conn->cli->pwd, conn_pwd);
2077         if ((conn->cli->user_name[0] == '\0') ||
2078             (conn->cli->domain[0] == '\0') ||
2079             (conn_pwd[0] == '\0')) {
2080                 DEBUG(10, ("cm_connect_lsa: No no user available for "
2081                            "domain %s, trying schannel\n", conn->cli->domain));
2082                 goto schannel;
2083         }
2084
2085         /* We have an authenticated connection. Use a NTLMSSP SPNEGO
2086          * authenticated LSA pipe with sign & seal. */
2087         conn->lsa_pipe = cli_rpc_pipe_open_spnego_ntlmssp
2088                 (conn->cli, PI_LSARPC, PIPE_AUTH_LEVEL_PRIVACY,
2089                  conn->cli->domain, conn->cli->user_name, conn_pwd, &result);
2090
2091         if (conn->lsa_pipe == NULL) {
2092                 DEBUG(10,("cm_connect_lsa: failed to connect to LSA pipe for "
2093                           "domain %s using NTLMSSP authenticated pipe: user "
2094                           "%s\\%s. Error was %s. Trying schannel.\n",
2095                           domain->name, conn->cli->domain,
2096                           conn->cli->user_name, nt_errstr(result)));
2097                 goto schannel;
2098         }
2099
2100         DEBUG(10,("cm_connect_lsa: connected to LSA pipe for domain %s using "
2101                   "NTLMSSP authenticated pipe: user %s\\%s\n",
2102                   domain->name, conn->cli->domain, conn->cli->user_name ));
2103
2104         result = rpccli_lsa_open_policy(conn->lsa_pipe, mem_ctx, True,
2105                                         SEC_RIGHTS_MAXIMUM_ALLOWED,
2106                                         &conn->lsa_policy);
2107         if (NT_STATUS_IS_OK(result)) {
2108                 goto done;
2109         }
2110
2111         DEBUG(10,("cm_connect_lsa: rpccli_lsa_open_policy failed, trying "
2112                   "schannel\n"));
2113
2114         cli_rpc_pipe_close(conn->lsa_pipe);
2115
2116  schannel:
2117
2118         /* Fall back to schannel if it's a W2K pre-SP1 box. */
2119
2120         if (!cm_get_schannel_dcinfo(domain, &p_dcinfo)) {
2121                 /* If this call fails - conn->cli can now be NULL ! */
2122                 DEBUG(10, ("cm_connect_lsa: Could not get schannel auth info "
2123                            "for domain %s, trying anon\n", domain->name));
2124                 goto anonymous;
2125         }
2126         conn->lsa_pipe = cli_rpc_pipe_open_schannel_with_key
2127                 (conn->cli, PI_LSARPC, PIPE_AUTH_LEVEL_PRIVACY,
2128                  domain->name, p_dcinfo, &result);
2129
2130         if (conn->lsa_pipe == NULL) {
2131                 DEBUG(10,("cm_connect_lsa: failed to connect to LSA pipe for "
2132                           "domain %s using schannel. Error was %s\n",
2133                           domain->name, nt_errstr(result) ));
2134                 goto anonymous;
2135         }
2136         DEBUG(10,("cm_connect_lsa: connected to LSA pipe for domain %s using "
2137                   "schannel.\n", domain->name ));
2138
2139         result = rpccli_lsa_open_policy(conn->lsa_pipe, mem_ctx, True,
2140                                         SEC_RIGHTS_MAXIMUM_ALLOWED,
2141                                         &conn->lsa_policy);
2142         if (NT_STATUS_IS_OK(result)) {
2143                 goto done;
2144         }
2145
2146         DEBUG(10,("cm_connect_lsa: rpccli_lsa_open_policy failed, trying "
2147                   "anonymous\n"));
2148
2149         cli_rpc_pipe_close(conn->lsa_pipe);
2150
2151  anonymous:
2152
2153         conn->lsa_pipe = cli_rpc_pipe_open_noauth(conn->cli, PI_LSARPC,
2154                                                   &result);
2155         if (conn->lsa_pipe == NULL) {
2156                 result = NT_STATUS_PIPE_NOT_AVAILABLE;
2157                 goto done;
2158         }
2159
2160         result = rpccli_lsa_open_policy(conn->lsa_pipe, mem_ctx, True,
2161                                         SEC_RIGHTS_MAXIMUM_ALLOWED,
2162                                         &conn->lsa_policy);
2163  done:
2164         if (!NT_STATUS_IS_OK(result)) {
2165                 invalidate_cm_connection(conn);
2166                 return result;
2167         }
2168
2169         *cli = conn->lsa_pipe;
2170         *lsa_policy = conn->lsa_policy;
2171         return result;
2172 }
2173
2174 /****************************************************************************
2175  Open the netlogon pipe to this DC. Use schannel if specified in client conf.
2176  session key stored in conn->netlogon_pipe->dc->sess_key.
2177 ****************************************************************************/
2178
2179 NTSTATUS cm_connect_netlogon(struct winbindd_domain *domain,
2180                              struct rpc_pipe_client **cli)
2181 {
2182         struct winbindd_cm_conn *conn;
2183         NTSTATUS result;
2184
2185         uint32_t neg_flags = NETLOGON_NEG_AUTH2_ADS_FLAGS;
2186         uint8  mach_pwd[16];
2187         uint32  sec_chan_type;
2188         const char *account_name;
2189         struct rpc_pipe_client *netlogon_pipe = NULL;
2190
2191         *cli = NULL;
2192
2193         result = init_dc_connection(domain);
2194         if (!NT_STATUS_IS_OK(result)) {
2195                 return result;
2196         }
2197
2198         conn = &domain->conn;
2199
2200         if (conn->netlogon_pipe != NULL) {
2201                 *cli = conn->netlogon_pipe;
2202                 return NT_STATUS_OK;
2203         }
2204
2205         netlogon_pipe = cli_rpc_pipe_open_noauth(conn->cli, PI_NETLOGON,
2206                                                  &result);
2207         if (netlogon_pipe == NULL) {
2208                 return result;
2209         }
2210
2211         if ((!IS_DC) && (!domain->primary)) {
2212                 /* Clear the schannel request bit and drop down */
2213                 neg_flags &= ~NETLOGON_NEG_SCHANNEL;
2214                 goto no_schannel;
2215         }
2216
2217         if (lp_client_schannel() != False) {
2218                 neg_flags |= NETLOGON_NEG_SCHANNEL;
2219         }
2220
2221         if (!get_trust_pw_hash(domain->name, mach_pwd, &account_name,
2222                                &sec_chan_type))
2223         {
2224                 cli_rpc_pipe_close(netlogon_pipe);
2225                 return NT_STATUS_CANT_ACCESS_DOMAIN_INFO;
2226         }
2227
2228         result = rpccli_netlogon_setup_creds(
2229                  netlogon_pipe,
2230                  domain->dcname, /* server name. */
2231                  domain->name,   /* domain name */
2232                  global_myname(), /* client name */
2233                  account_name,   /* machine account */
2234                  mach_pwd,       /* machine password */
2235                  sec_chan_type,  /* from get_trust_pw */
2236                  &neg_flags);
2237
2238         if (!NT_STATUS_IS_OK(result)) {
2239                 cli_rpc_pipe_close(netlogon_pipe);
2240                 return result;
2241         }
2242
2243         if ((lp_client_schannel() == True) &&
2244                         ((neg_flags & NETLOGON_NEG_SCHANNEL) == 0)) {
2245                 DEBUG(3, ("Server did not offer schannel\n"));
2246                 cli_rpc_pipe_close(netlogon_pipe);
2247                 return NT_STATUS_ACCESS_DENIED;
2248         }
2249
2250  no_schannel:
2251         if ((lp_client_schannel() == False) ||
2252                         ((neg_flags & NETLOGON_NEG_SCHANNEL) == 0)) {
2253                 /*
2254                  * NetSamLogonEx only works for schannel
2255                  */
2256                 domain->can_do_samlogon_ex = False;
2257
2258                 /* We're done - just keep the existing connection to NETLOGON
2259                  * open */
2260                 conn->netlogon_pipe = netlogon_pipe;
2261                 *cli = conn->netlogon_pipe;
2262                 return NT_STATUS_OK;
2263         }
2264
2265         /* Using the credentials from the first pipe, open a signed and sealed
2266            second netlogon pipe. The session key is stored in the schannel
2267            part of the new pipe auth struct.
2268         */
2269
2270         conn->netlogon_pipe =
2271                 cli_rpc_pipe_open_schannel_with_key(conn->cli,
2272                                                     PI_NETLOGON,
2273                                                     PIPE_AUTH_LEVEL_PRIVACY,
2274                                                     domain->name,
2275                                                     netlogon_pipe->dc,
2276                                                     &result);
2277
2278         /* We can now close the initial netlogon pipe. */
2279         cli_rpc_pipe_close(netlogon_pipe);
2280
2281         if (conn->netlogon_pipe == NULL) {
2282                 DEBUG(3, ("Could not open schannel'ed NETLOGON pipe. Error "
2283                           "was %s\n", nt_errstr(result)));
2284
2285                 /* make sure we return something besides OK */
2286                 return !NT_STATUS_IS_OK(result) ? result : NT_STATUS_PIPE_NOT_AVAILABLE;
2287         }
2288
2289         /*
2290          * Try NetSamLogonEx for AD domains
2291          */
2292         domain->can_do_samlogon_ex = domain->active_directory;
2293
2294         *cli = conn->netlogon_pipe;
2295         return NT_STATUS_OK;
2296 }