src/src/transports/smtp.c

   1 /*************************************************
   2 *     Exim - an Internet mail transport agent    *
   3 *************************************************/
   4
   5 /* Copyright (c) University of Cambridge 1995 - 2014 */
   6 /* See the file NOTICE for conditions of use and distribution. */
   7
   8 #include "../exim.h"
   9 #include "smtp.h"
  10
  11 #define PENDING          256
  12 #define PENDING_DEFER   (PENDING + DEFER)
  13 #define PENDING_OK      (PENDING + OK)
  14
  15
  16 /* Options specific to the smtp transport. This transport also supports LMTP
  17 over TCP/IP. The options must be in alphabetic order (note that "_" comes
  18 before the lower case letters). Some live in the transport_instance block so as
  19 to be publicly visible; these are flagged with opt_public. */
  20
  21 optionlist smtp_transport_options[] = {
  22   { "*expand_multi_domain",             opt_stringptr | opt_hidden | opt_public,
  23       (void *)offsetof(transport_instance, expand_multi_domain) },
  24   { "*expand_retry_include_ip_address", opt_stringptr | opt_hidden,
  25        (void *)(offsetof(smtp_transport_options_block, expand_retry_include_ip_address)) },
  26
  27   { "address_retry_include_sender", opt_bool,
  28       (void *)offsetof(smtp_transport_options_block, address_retry_include_sender) },
  29   { "allow_localhost",      opt_bool,
  30       (void *)offsetof(smtp_transport_options_block, allow_localhost) },
  31   { "authenticated_sender", opt_stringptr,
  32       (void *)offsetof(smtp_transport_options_block, authenticated_sender) },
  33   { "authenticated_sender_force", opt_bool,
  34       (void *)offsetof(smtp_transport_options_block, authenticated_sender_force) },
  35   { "command_timeout",      opt_time,
  36       (void *)offsetof(smtp_transport_options_block, command_timeout) },
  37   { "connect_timeout",      opt_time,
  38       (void *)offsetof(smtp_transport_options_block, connect_timeout) },
  39   { "connection_max_messages", opt_int | opt_public,
  40       (void *)offsetof(transport_instance, connection_max_messages) },
  41   { "data_timeout",         opt_time,
  42       (void *)offsetof(smtp_transport_options_block, data_timeout) },
  43   { "delay_after_cutoff", opt_bool,
  44       (void *)offsetof(smtp_transport_options_block, delay_after_cutoff) },
  45 #ifndef DISABLE_DKIM
  46   { "dkim_canon", opt_stringptr,
  47       (void *)offsetof(smtp_transport_options_block, dkim_canon) },
  48   { "dkim_domain", opt_stringptr,
  49       (void *)offsetof(smtp_transport_options_block, dkim_domain) },
  50   { "dkim_private_key", opt_stringptr,
  51       (void *)offsetof(smtp_transport_options_block, dkim_private_key) },
  52   { "dkim_selector", opt_stringptr,
  53       (void *)offsetof(smtp_transport_options_block, dkim_selector) },
  54   { "dkim_sign_headers", opt_stringptr,
  55       (void *)offsetof(smtp_transport_options_block, dkim_sign_headers) },
  56   { "dkim_strict", opt_stringptr,
  57       (void *)offsetof(smtp_transport_options_block, dkim_strict) },
  58 #endif
  59   { "dns_qualify_single",   opt_bool,
  60       (void *)offsetof(smtp_transport_options_block, dns_qualify_single) },
  61   { "dns_search_parents",   opt_bool,
  62       (void *)offsetof(smtp_transport_options_block, dns_search_parents) },
  63   { "dnssec_request_domains", opt_stringptr,
  64       (void *)offsetof(smtp_transport_options_block, dnssec_request_domains) },
  65   { "dnssec_require_domains", opt_stringptr,
  66       (void *)offsetof(smtp_transport_options_block, dnssec_require_domains) },
  67   { "dscp",                 opt_stringptr,
  68       (void *)offsetof(smtp_transport_options_block, dscp) },
  69   { "fallback_hosts",       opt_stringptr,
  70       (void *)offsetof(smtp_transport_options_block, fallback_hosts) },
  71   { "final_timeout",        opt_time,
  72       (void *)offsetof(smtp_transport_options_block, final_timeout) },
  73   { "gethostbyname",        opt_bool,
  74       (void *)offsetof(smtp_transport_options_block, gethostbyname) },
  75 #ifdef SUPPORT_TLS
  76   /* These are no longer honoured, as of Exim 4.80; for now, we silently
  77   ignore; 4.83 will warn, and a later-still release will remove
  78   these options, so that using them becomes an error. */
  79   { "gnutls_require_kx",    opt_stringptr,
  80       (void *)offsetof(smtp_transport_options_block, gnutls_require_kx) },
  81   { "gnutls_require_mac",   opt_stringptr,
  82       (void *)offsetof(smtp_transport_options_block, gnutls_require_mac) },
  83   { "gnutls_require_protocols", opt_stringptr,
  84       (void *)offsetof(smtp_transport_options_block, gnutls_require_proto) },
  85 #endif
  86   { "helo_data",            opt_stringptr,
  87       (void *)offsetof(smtp_transport_options_block, helo_data) },
  88   { "hosts",                opt_stringptr,
  89       (void *)offsetof(smtp_transport_options_block, hosts) },
  90   { "hosts_avoid_esmtp",    opt_stringptr,
  91       (void *)offsetof(smtp_transport_options_block, hosts_avoid_esmtp) },
  92   { "hosts_avoid_pipelining", opt_stringptr,
  93       (void *)offsetof(smtp_transport_options_block, hosts_avoid_pipelining) },
  94 #ifdef SUPPORT_TLS
  95   { "hosts_avoid_tls",      opt_stringptr,
  96       (void *)offsetof(smtp_transport_options_block, hosts_avoid_tls) },
  97 #endif
  98   { "hosts_max_try",        opt_int,
  99       (void *)offsetof(smtp_transport_options_block, hosts_max_try) },
 100   { "hosts_max_try_hardlimit", opt_int,
 101       (void *)offsetof(smtp_transport_options_block, hosts_max_try_hardlimit) },
 102 #ifdef SUPPORT_TLS
 103   { "hosts_nopass_tls",     opt_stringptr,
 104       (void *)offsetof(smtp_transport_options_block, hosts_nopass_tls) },
 105 #endif
 106   { "hosts_override",       opt_bool,
 107       (void *)offsetof(smtp_transport_options_block, hosts_override) },
 108   { "hosts_randomize",      opt_bool,
 109       (void *)offsetof(smtp_transport_options_block, hosts_randomize) },
 110 #if defined(SUPPORT_TLS) && !defined(DISABLE_OCSP)
 111   { "hosts_request_ocsp",   opt_stringptr,
 112       (void *)offsetof(smtp_transport_options_block, hosts_request_ocsp) },
 113 #endif
 114   { "hosts_require_auth",   opt_stringptr,
 115       (void *)offsetof(smtp_transport_options_block, hosts_require_auth) },
 116 #ifdef SUPPORT_TLS
 117 # ifdef EXPERIMENTAL_DANE
 118   { "hosts_require_dane",   opt_stringptr,
 119       (void *)offsetof(smtp_transport_options_block, hosts_require_dane) },
 120 # endif
 121 # ifndef DISABLE_OCSP
 122   { "hosts_require_ocsp",   opt_stringptr,
 123       (void *)offsetof(smtp_transport_options_block, hosts_require_ocsp) },
 124 # endif
 125   { "hosts_require_tls",    opt_stringptr,
 126       (void *)offsetof(smtp_transport_options_block, hosts_require_tls) },
 127 #endif
 128   { "hosts_try_auth",       opt_stringptr,
 129       (void *)offsetof(smtp_transport_options_block, hosts_try_auth) },
 130 #if defined(SUPPORT_TLS) && defined(EXPERIMENTAL_DANE)
 131   { "hosts_try_dane",       opt_stringptr,
 132       (void *)offsetof(smtp_transport_options_block, hosts_try_dane) },
 133 #endif
 134 #ifndef DISABLE_PRDR
 135   { "hosts_try_prdr",       opt_stringptr,
 136       (void *)offsetof(smtp_transport_options_block, hosts_try_prdr) },
 137 #endif
 138 #ifdef SUPPORT_TLS
 139   { "hosts_verify_avoid_tls", opt_stringptr,
 140       (void *)offsetof(smtp_transport_options_block, hosts_verify_avoid_tls) },
 141 #endif
 142   { "interface",            opt_stringptr,
 143       (void *)offsetof(smtp_transport_options_block, interface) },
 144   { "keepalive",            opt_bool,
 145       (void *)offsetof(smtp_transport_options_block, keepalive) },
 146   { "lmtp_ignore_quota",    opt_bool,
 147       (void *)offsetof(smtp_transport_options_block, lmtp_ignore_quota) },
 148   { "max_rcpt",             opt_int | opt_public,
 149       (void *)offsetof(transport_instance, max_addresses) },
 150   { "multi_domain",         opt_expand_bool | opt_public,
 151       (void *)offsetof(transport_instance, multi_domain) },
 152   { "port",                 opt_stringptr,
 153       (void *)offsetof(smtp_transport_options_block, port) },
 154   { "protocol",             opt_stringptr,
 155       (void *)offsetof(smtp_transport_options_block, protocol) },
 156   { "retry_include_ip_address", opt_expand_bool,
 157       (void *)offsetof(smtp_transport_options_block, retry_include_ip_address) },
 158   { "serialize_hosts",      opt_stringptr,
 159       (void *)offsetof(smtp_transport_options_block, serialize_hosts) },
 160   { "size_addition",        opt_int,
 161       (void *)offsetof(smtp_transport_options_block, size_addition) }
 162 #ifdef SUPPORT_TLS
 163  ,{ "tls_certificate",      opt_stringptr,
 164       (void *)offsetof(smtp_transport_options_block, tls_certificate) },
 165   { "tls_crl",              opt_stringptr,
 166       (void *)offsetof(smtp_transport_options_block, tls_crl) },
 167   { "tls_dh_min_bits",      opt_int,
 168       (void *)offsetof(smtp_transport_options_block, tls_dh_min_bits) },
 169   { "tls_privatekey",       opt_stringptr,
 170       (void *)offsetof(smtp_transport_options_block, tls_privatekey) },
 171   { "tls_require_ciphers",  opt_stringptr,
 172       (void *)offsetof(smtp_transport_options_block, tls_require_ciphers) },
 173   { "tls_sni",              opt_stringptr,
 174       (void *)offsetof(smtp_transport_options_block, tls_sni) },
 175   { "tls_tempfail_tryclear", opt_bool,
 176       (void *)offsetof(smtp_transport_options_block, tls_tempfail_tryclear) },
 177   { "tls_try_verify_hosts", opt_stringptr,
 178       (void *)offsetof(smtp_transport_options_block, tls_try_verify_hosts) },
 179 #ifdef EXPERIMENTAL_CERTNAMES
 180   { "tls_verify_cert_hostnames", opt_stringptr,
 181       (void *)offsetof(smtp_transport_options_block,tls_verify_cert_hostnames)},
 182 #endif
 183   { "tls_verify_certificates", opt_stringptr,
 184       (void *)offsetof(smtp_transport_options_block, tls_verify_certificates) },
 185   { "tls_verify_hosts",     opt_stringptr,
 186       (void *)offsetof(smtp_transport_options_block, tls_verify_hosts) }
 187 #endif
 188 };
 189
 190 /* Size of the options list. An extern variable has to be used so that its
 191 address can appear in the tables drtables.c. */
 192
 193 int smtp_transport_options_count =
 194   sizeof(smtp_transport_options)/sizeof(optionlist);
 195
 196 /* Default private options block for the smtp transport. */
 197
 198 smtp_transport_options_block smtp_transport_option_defaults = {
 199   NULL,                /* hosts */
 200   NULL,                /* fallback_hosts */
 201   NULL,                /* hostlist */
 202   NULL,                /* fallback_hostlist */
 203   NULL,                /* authenticated_sender */
 204   US"$primary_hostname", /* helo_data */
 205   NULL,                /* interface */
 206   NULL,                /* port */
 207   US"smtp",            /* protocol */
 208   NULL,                /* DSCP */
 209   NULL,                /* serialize_hosts */
 210   NULL,                /* hosts_try_auth */
 211   NULL,                /* hosts_require_auth */
 212 #ifdef EXPERIMENTAL_DANE
 213   NULL,                /* hosts_try_dane */
 214   NULL,                /* hosts_require_dane */
 215 #endif
 216 #ifndef DISABLE_PRDR
 217   NULL,                /* hosts_try_prdr */
 218 #endif
 219 #ifndef DISABLE_OCSP
 220   US"*",               /* hosts_request_ocsp (except under DANE; tls_client_start()) */
 221   NULL,                /* hosts_require_ocsp */
 222 #endif
 223   NULL,                /* hosts_require_tls */
 224   NULL,                /* hosts_avoid_tls */
 225   US"*",               /* hosts_verify_avoid_tls */
 226   NULL,                /* hosts_avoid_pipelining */
 227   NULL,                /* hosts_avoid_esmtp */
 228   NULL,                /* hosts_nopass_tls */
 229   5*60,                /* command_timeout */
 230   5*60,                /* connect_timeout; shorter system default overrides */
 231   5*60,                /* data timeout */
 232   10*60,               /* final timeout */
 233   1024,                /* size_addition */
 234   5,                   /* hosts_max_try */
 235   50,                  /* hosts_max_try_hardlimit */
 236   TRUE,                /* address_retry_include_sender */
 237   FALSE,               /* allow_localhost */
 238   FALSE,               /* authenticated_sender_force */
 239   FALSE,               /* gethostbyname */
 240   TRUE,                /* dns_qualify_single */
 241   FALSE,               /* dns_search_parents */
 242   NULL,                /* dnssec_request_domains */
 243   NULL,                /* dnssec_require_domains */
 244   TRUE,                /* delay_after_cutoff */
 245   FALSE,               /* hosts_override */
 246   FALSE,               /* hosts_randomize */
 247   TRUE,                /* keepalive */
 248   FALSE,               /* lmtp_ignore_quota */
 249   NULL,                /* expand_retry_include_ip_address */
 250   TRUE                 /* retry_include_ip_address */
 251 #ifdef SUPPORT_TLS
 252  ,NULL,                /* tls_certificate */
 253   NULL,                /* tls_crl */
 254   NULL,                /* tls_privatekey */
 255   NULL,                /* tls_require_ciphers */
 256   NULL,                /* gnutls_require_kx */
 257   NULL,                /* gnutls_require_mac */
 258   NULL,                /* gnutls_require_proto */
 259   NULL,                /* tls_sni */
 260   NULL,                /* tls_verify_certificates */
 261   EXIM_CLIENT_DH_DEFAULT_MIN_BITS,
 262                        /* tls_dh_min_bits */
 263   TRUE,                /* tls_tempfail_tryclear */
 264   NULL,                /* tls_verify_hosts */
 265   NULL                 /* tls_try_verify_hosts */
 266 # ifdef EXPERIMENTAL_CERTNAMES
 267  ,NULL                 /* tls_verify_cert_hostnames */
 268 # endif
 269 #endif
 270 #ifndef DISABLE_DKIM
 271  ,NULL,                /* dkim_canon */
 272   NULL,                /* dkim_domain */
 273   NULL,                /* dkim_private_key */
 274   NULL,                /* dkim_selector */
 275   NULL,                /* dkim_sign_headers */
 276   NULL                 /* dkim_strict */
 277 #endif
 278 };
 279
 280 #ifdef EXPERIMENTAL_DSN
 281 /* some DSN flags for use later */
 282
 283 static int     rf_list[] = {rf_notify_never, rf_notify_success,
 284                             rf_notify_failure, rf_notify_delay };
 285
 286 static uschar *rf_names[] = { US"NEVER", US"SUCCESS", US"FAILURE", US"DELAY" };
 287 #endif
 288
 289
 290
 291 /* Local statics */
 292
 293 static uschar *smtp_command;   /* Points to last cmd for error messages */
 294 static uschar *mail_command;   /* Points to MAIL cmd for error messages */
 295 static BOOL    update_waiting; /* TRUE to update the "wait" database */
 296
 297
 298 /*************************************************
 299 *             Setup entry point                  *
 300 *************************************************/
 301
 302 /* This function is called when the transport is about to be used,
 303 but before running it in a sub-process. It is used for two things:
 304
 305   (1) To set the fallback host list in addresses, when delivering.
 306   (2) To pass back the interface, port, protocol, and other options, for use
 307       during callout verification.
 308
 309 Arguments:
 310   tblock    pointer to the transport instance block
 311   addrlist  list of addresses about to be transported
 312   tf        if not NULL, pointer to block in which to return options
 313   uid       the uid that will be set (not used)
 314   gid       the gid that will be set (not used)
 315   errmsg    place for error message (not used)
 316
 317 Returns:  OK always (FAIL, DEFER not used)
 318 */
 319
 320 static int
 321 smtp_transport_setup(transport_instance *tblock, address_item *addrlist,
 322   transport_feedback *tf, uid_t uid, gid_t gid, uschar **errmsg)
 323 {
 324 smtp_transport_options_block *ob =
 325   (smtp_transport_options_block *)(tblock->options_block);
 326
 327 errmsg = errmsg;    /* Keep picky compilers happy */
 328 uid = uid;
 329 gid = gid;
 330
 331 /* Pass back options if required. This interface is getting very messy. */
 332
 333 if (tf != NULL)
 334   {
 335   tf->interface = ob->interface;
 336   tf->port = ob->port;
 337   tf->protocol = ob->protocol;
 338   tf->hosts = ob->hosts;
 339   tf->hosts_override = ob->hosts_override;
 340   tf->hosts_randomize = ob->hosts_randomize;
 341   tf->gethostbyname = ob->gethostbyname;
 342   tf->qualify_single = ob->dns_qualify_single;
 343   tf->search_parents = ob->dns_search_parents;
 344   tf->helo_data = ob->helo_data;
 345   }
 346
 347 /* Set the fallback host list for all the addresses that don't have fallback
 348 host lists, provided that the local host wasn't present in the original host
 349 list. */
 350
 351 if (!testflag(addrlist, af_local_host_removed))
 352   {
 353   for (; addrlist != NULL; addrlist = addrlist->next)
 354     if (addrlist->fallback_hosts == NULL)
 355       addrlist->fallback_hosts = ob->fallback_hostlist;
 356   }
 357
 358 return OK;
 359 }
 360
 361
 362
 363 /*************************************************
 364 *          Initialization entry point            *
 365 *************************************************/
 366
 367 /* Called for each instance, after its options have been read, to
 368 enable consistency checks to be done, or anything else that needs
 369 to be set up.
 370
 371 Argument:   pointer to the transport instance block
 372 Returns:    nothing
 373 */
 374
 375 void
 376 smtp_transport_init(transport_instance *tblock)
 377 {
 378 smtp_transport_options_block *ob =
 379   (smtp_transport_options_block *)(tblock->options_block);
 380
 381 /* Retry_use_local_part defaults FALSE if unset */
 382
 383 if (tblock->retry_use_local_part == TRUE_UNSET)
 384   tblock->retry_use_local_part = FALSE;
 385
 386 /* Set the default port according to the protocol */
 387
 388 if (ob->port == NULL)
 389   ob->port = (strcmpic(ob->protocol, US"lmtp") == 0)? US"lmtp" :
 390     (strcmpic(ob->protocol, US"smtps") == 0)? US"smtps" : US"smtp";
 391
 392 /* Set up the setup entry point, to be called before subprocesses for this
 393 transport. */
 394
 395 tblock->setup = smtp_transport_setup;
 396
 397 /* Complain if any of the timeouts are zero. */
 398
 399 if (ob->command_timeout <= 0 || ob->data_timeout <= 0 ||
 400     ob->final_timeout <= 0)
 401   log_write(0, LOG_PANIC_DIE|LOG_CONFIG,
 402     "command, data, or final timeout value is zero for %s transport",
 403       tblock->name);
 404
 405 /* If hosts_override is set and there are local hosts, set the global
 406 flag that stops verify from showing router hosts. */
 407
 408 if (ob->hosts_override && ob->hosts != NULL) tblock->overrides_hosts = TRUE;
 409
 410 /* If there are any fallback hosts listed, build a chain of host items
 411 for them, but do not do any lookups at this time. */
 412
 413 host_build_hostlist(&(ob->fallback_hostlist), ob->fallback_hosts, FALSE);
 414
 415 #ifdef SUPPORT_TLS
 416 if (  ob->gnutls_require_kx
 417    || ob->gnutls_require_mac
 418    || ob->gnutls_require_proto)
 419   log_write(0, LOG_MAIN, "WARNING: smtp transport options"
 420     " gnutls_require_kx, gnutls_require_mac and gnutls_require_protocols"
 421     " are obsolete\n");
 422 #endif
 423 }
 424
 425
 426
 427
 428
 429 /*************************************************
 430 *   Set delivery info into all active addresses  *
 431 *************************************************/
 432
 433 /* Only addresses whose status is >= PENDING are relevant. A lesser
 434 status means that an address is not currently being processed.
 435
 436 Arguments:
 437   addrlist       points to a chain of addresses
 438   errno_value    to put in each address's errno field
 439   msg            to put in each address's message field
 440   rc             to put in each address's transport_return field
 441   pass_message   if TRUE, set the "pass message" flag in the address
 442   host           if set, mark addrs as having used this host
 443
 444 If errno_value has the special value ERRNO_CONNECTTIMEOUT, ETIMEDOUT is put in
 445 the errno field, and RTEF_CTOUT is ORed into the more_errno field, to indicate
 446 this particular type of timeout.
 447
 448 Returns:       nothing
 449 */
 450
 451 static void
 452 set_errno(address_item *addrlist, int errno_value, uschar *msg, int rc,
 453   BOOL pass_message, host_item * host)
 454 {
 455 address_item *addr;
 456 int orvalue = 0;
 457 if (errno_value == ERRNO_CONNECTTIMEOUT)
 458   {
 459   errno_value = ETIMEDOUT;
 460   orvalue = RTEF_CTOUT;
 461   }
 462 for (addr = addrlist; addr != NULL; addr = addr->next)
 463   {
 464   if (addr->transport_return < PENDING) continue;
 465   addr->basic_errno = errno_value;
 466   addr->more_errno |= orvalue;
 467   if (msg != NULL)
 468     {
 469     addr->message = msg;
 470     if (pass_message) setflag(addr, af_pass_message);
 471     }
 472   addr->transport_return = rc;
 473   if (host)
 474     addr->host_used = host;
 475   }
 476 }
 477
 478
 479
 480 /*************************************************
 481 *          Check an SMTP response                *
 482 *************************************************/
 483
 484 /* This function is given an errno code and the SMTP response buffer
 485 to analyse, together with the host identification for generating messages. It
 486 sets an appropriate message and puts the first digit of the response code into
 487 the yield variable. If no response was actually read, a suitable digit is
 488 chosen.
 489
 490 Arguments:
 491   host           the current host, to get its name for messages
 492   errno_value    pointer to the errno value
 493   more_errno     from the top address for use with ERRNO_FILTER_FAIL
 494   buffer         the SMTP response buffer
 495   yield          where to put a one-digit SMTP response code
 496   message        where to put an errror message
 497   pass_message   set TRUE if message is an SMTP response
 498
 499 Returns:         TRUE if an SMTP "QUIT" command should be sent, else FALSE
 500 */
 501
 502 static BOOL
 503 check_response(host_item *host, int *errno_value, int more_errno,
 504   uschar *buffer, int *yield, uschar **message, BOOL *pass_message)
 505 {
 506 uschar *pl = US"";
 507
 508 if (smtp_use_pipelining &&
 509     (Ustrcmp(smtp_command, "MAIL") == 0 ||
 510      Ustrcmp(smtp_command, "RCPT") == 0 ||
 511      Ustrcmp(smtp_command, "DATA") == 0))
 512   pl = US"pipelined ";
 513
 514 *yield = '4';    /* Default setting is to give a temporary error */
 515
 516 /* Handle response timeout */
 517
 518 if (*errno_value == ETIMEDOUT)
 519   {
 520   *message = US string_sprintf("SMTP timeout after %s%s",
 521       pl, smtp_command);
 522   if (transport_count > 0)
 523     *message = US string_sprintf("%s (%d bytes written)", *message,
 524       transport_count);
 525   return FALSE;
 526   }
 527
 528 /* Handle malformed SMTP response */
 529
 530 if (*errno_value == ERRNO_SMTPFORMAT)
 531   {
 532   uschar *malfresp = string_printing(buffer);
 533   while (isspace(*malfresp)) malfresp++;
 534   *message = *malfresp == 0
 535     ? string_sprintf("Malformed SMTP reply (an empty line) "
 536         "in response to %s%s", pl, smtp_command)
 537     : string_sprintf("Malformed SMTP reply in response to %s%s: %s",
 538         pl, smtp_command, malfresp);
 539   return FALSE;
 540   }
 541
 542 /* Handle a failed filter process error; can't send QUIT as we mustn't
 543 end the DATA. */
 544
 545 if (*errno_value == ERRNO_FILTER_FAIL)
 546   {
 547   *message = US string_sprintf("transport filter process failed (%d)%s",
 548     more_errno,
 549     (more_errno == EX_EXECFAILED)? ": unable to execute command" : "");
 550   return FALSE;
 551   }
 552
 553 /* Handle a failed add_headers expansion; can't send QUIT as we mustn't
 554 end the DATA. */
 555
 556 if (*errno_value == ERRNO_CHHEADER_FAIL)
 557   {
 558   *message =
 559     US string_sprintf("failed to expand headers_add or headers_remove: %s",
 560       expand_string_message);
 561   return FALSE;
 562   }
 563
 564 /* Handle failure to write a complete data block */
 565
 566 if (*errno_value == ERRNO_WRITEINCOMPLETE)
 567   {
 568   *message = US string_sprintf("failed to write a data block");
 569   return FALSE;
 570   }
 571
 572 /* Handle error responses from the remote mailer. */
 573
 574 if (buffer[0] != 0)
 575   {
 576   uschar *s = string_printing(buffer);
 577   *message = US string_sprintf("SMTP error from remote mail server after %s%s: "
 578     "%s", pl, smtp_command, s);
 579   *pass_message = TRUE;
 580   *yield = buffer[0];
 581   return TRUE;
 582   }
 583
 584 /* No data was read. If there is no errno, this must be the EOF (i.e.
 585 connection closed) case, which causes deferral. An explicit connection reset
 586 error has the same effect. Otherwise, put the host's identity in the message,
 587 leaving the errno value to be interpreted as well. In all cases, we have to
 588 assume the connection is now dead. */
 589
 590 if (*errno_value == 0 || *errno_value == ECONNRESET)
 591   {
 592   *errno_value = ERRNO_SMTPCLOSED;
 593   *message = US string_sprintf("Remote host closed connection "
 594     "in response to %s%s",  pl, smtp_command);
 595   }
 596 else *message = US string_sprintf("%s [%s]", host->name, host->address);
 597
 598 return FALSE;
 599 }
 600
 601
 602
 603 /*************************************************
 604 *          Write error message to logs           *
 605 *************************************************/
 606
 607 /* This writes to the main log and to the message log.
 608
 609 Arguments:
 610   addr     the address item containing error information
 611   host     the current host
 612
 613 Returns:   nothing
 614 */
 615
 616 static void
 617 write_logs(address_item *addr, host_item *host)
 618 {
 619 uschar * message = string_sprintf("H=%s [%s]", host->name, host->address);
 620
 621 if (addr->message)
 622   {
 623   message = string_sprintf("%s: %s", message, addr->message);
 624   if (addr->basic_errno > 0)
 625     message = string_sprintf("%s: %s", message, strerror(addr->basic_errno));
 626   log_write(0, LOG_MAIN, "%s", message);
 627   deliver_msglog("%s %s\n", tod_stamp(tod_log), message);
 628   }
 629 else
 630   {
 631   if (log_extra_selector & LX_outgoing_port)
 632     message = string_sprintf("%s:%d", message,
 633                 host->port == PORT_NONE ? 25 : host->port);
 634   log_write(0, LOG_MAIN, "%s %s", message, strerror(addr->basic_errno));
 635   deliver_msglog("%s %s %s\n", tod_stamp(tod_log), message,
 636                 strerror(addr->basic_errno));
 637   }
 638 }
 639
 640 static void
 641 msglog_line(host_item * host, uschar * message)
 642 {
 643   deliver_msglog("%s H=%s [%s] %s\n", tod_stamp(tod_log),
 644     host->name, host->address, message);
 645 }
 646
 647
 648
 649 #ifdef EXPERIMENTAL_EVENT
 650 /*************************************************
 651 *   Post-defer action                            *
 652 *************************************************/
 653
 654 /* This expands an arbitrary per-transport string.
 655    It might, for example, be used to write to the database log.
 656
 657 Arguments:
 658   addr                  the address item containing error information
 659   host                  the current host
 660
 661 Returns:   nothing
 662 */
 663
 664 static void
 665 deferred_event_raise(address_item *addr, host_item *host)
 666 {
 667 uschar * action = addr->transport->event_action;
 668 uschar * save_domain;
 669 uschar * save_local;
 670
 671 if (!action)
 672   return;
 673
 674 save_domain = deliver_domain;
 675 save_local = deliver_localpart;
 676
 677 /*XXX would ip & port already be set up? */
 678 deliver_host_address = string_copy(host->address);
 679 deliver_host_port =    host->port == PORT_NONE ? 25 : host->port;
 680 event_defer_errno =    addr->basic_errno;
 681
 682 router_name =    addr->router->name;
 683 transport_name = addr->transport->name;
 684 deliver_domain = addr->domain;
 685 deliver_localpart = addr->local_part;
 686
 687 (void) event_raise(action, US"msg:host:defer",
 688     addr->message
 689       ? addr->basic_errno > 0
 690         ? string_sprintf("%s: %s", addr->message, strerror(addr->basic_errno))
 691         : string_copy(addr->message)
 692       : addr->basic_errno > 0
 693         ? string_copy(US strerror(addr->basic_errno))
 694         : NULL);
 695
 696 deliver_localpart = save_local;
 697 deliver_domain =    save_domain;
 698 router_name = transport_name = NULL;
 699 }
 700 #endif
 701
 702
 703
 704 /*************************************************
 705 *           Synchronize SMTP responses           *
 706 *************************************************/
 707
 708 /* This function is called from smtp_deliver() to receive SMTP responses from
 709 the server, and match them up with the commands to which they relate. When
 710 PIPELINING is not in use, this function is called after every command, and is
 711 therefore somewhat over-engineered, but it is simpler to use a single scheme
 712 that works both with and without PIPELINING instead of having two separate sets
 713 of code.
 714
 715 The set of commands that are buffered up with pipelining may start with MAIL
 716 and may end with DATA; in between are RCPT commands that correspond to the
 717 addresses whose status is PENDING_DEFER. All other commands (STARTTLS, AUTH,
 718 etc.) are never buffered.
 719
 720 Errors after MAIL or DATA abort the whole process leaving the response in the
 721 buffer. After MAIL, pending responses are flushed, and the original command is
 722 re-instated in big_buffer for error messages. For RCPT commands, the remote is
 723 permitted to reject some recipient addresses while accepting others. However
 724 certain errors clearly abort the whole process. Set the value in
 725 transport_return to PENDING_OK if the address is accepted. If there is a
 726 subsequent general error, it will get reset accordingly. If not, it will get
 727 converted to OK at the end.
 728
 729 Arguments:
 730   addrlist          the complete address list
 731   include_affixes   TRUE if affixes include in RCPT
 732   sync_addr         ptr to the ptr of the one to start scanning at (updated)
 733   host              the host we are connected to
 734   count             the number of responses to read
 735   address_retry_
 736     include_sender  true if 4xx retry is to include the sender it its key
 737   pending_MAIL      true if the first response is for MAIL
 738   pending_DATA      0 if last command sent was not DATA
 739                    +1 if previously had a good recipient
 740                    -1 if not previously had a good recipient
 741   inblock           incoming SMTP block
 742   timeout           timeout value
 743   buffer            buffer for reading response
 744   buffsize          size of buffer
 745
 746 Returns:      3 if at least one address had 2xx and one had 5xx
 747               2 if at least one address had 5xx but none had 2xx
 748               1 if at least one host had a 2xx response, but none had 5xx
 749               0 no address had 2xx or 5xx but no errors (all 4xx, or just DATA)
 750              -1 timeout while reading RCPT response
 751              -2 I/O or other non-response error for RCPT
 752              -3 DATA or MAIL failed - errno and buffer set
 753 */
 754
 755 static int
 756 sync_responses(address_item *addrlist, BOOL include_affixes,
 757   address_item **sync_addr, host_item *host, int count,
 758   BOOL address_retry_include_sender, BOOL pending_MAIL,
 759   int pending_DATA, smtp_inblock *inblock, int timeout, uschar *buffer,
 760   int buffsize)
 761 {
 762 address_item *addr = *sync_addr;
 763 int yield = 0;
 764
 765 /* Handle the response for a MAIL command. On error, reinstate the original
 766 command in big_buffer for error message use, and flush any further pending
 767 responses before returning, except after I/O errors and timeouts. */
 768
 769 if (pending_MAIL)
 770   {
 771   count--;
 772   if (!smtp_read_response(inblock, buffer, buffsize, '2', timeout))
 773     {
 774     Ustrcpy(big_buffer, mail_command);  /* Fits, because it came from there! */
 775     if (errno == 0 && buffer[0] != 0)
 776       {
 777       uschar flushbuffer[4096];
 778       int save_errno = 0;
 779       if (buffer[0] == '4')
 780         {
 781         save_errno = ERRNO_MAIL4XX;
 782         addr->more_errno |= ((buffer[1] - '0')*10 + buffer[2] - '0') << 8;
 783         }
 784       while (count-- > 0)
 785         {
 786         if (!smtp_read_response(inblock, flushbuffer, sizeof(flushbuffer),
 787                    '2', timeout)
 788             && (errno != 0 || flushbuffer[0] == 0))
 789           break;
 790         }
 791       errno = save_errno;
 792       }
 793
 794     if (pending_DATA) count--;  /* Number of RCPT responses to come */
 795     while (count-- > 0)         /* Mark any pending addrs with the host used */
 796       {
 797       while (addr->transport_return != PENDING_DEFER) addr = addr->next;
 798       addr->host_used = host;
 799       addr = addr->next;
 800       }
 801     return -3;
 802     }
 803   }
 804
 805 if (pending_DATA) count--;  /* Number of RCPT responses to come */
 806
 807 /* Read and handle the required number of RCPT responses, matching each one up
 808 with an address by scanning for the next address whose status is PENDING_DEFER.
 809 */
 810
 811 while (count-- > 0)
 812   {
 813   while (addr->transport_return != PENDING_DEFER) addr = addr->next;
 814
 815   /* The address was accepted */
 816   addr->host_used = host;
 817
 818   if (smtp_read_response(inblock, buffer, buffsize, '2', timeout))
 819     {
 820     yield |= 1;
 821     addr->transport_return = PENDING_OK;
 822
 823     /* If af_dr_retry_exists is set, there was a routing delay on this address;
 824     ensure that any address-specific retry record is expunged. We do this both
 825     for the basic key and for the version that also includes the sender. */
 826
 827     if (testflag(addr, af_dr_retry_exists))
 828       {
 829       uschar *altkey = string_sprintf("%s:<%s>", addr->address_retry_key,
 830         sender_address);
 831       retry_add_item(addr, altkey, rf_delete);
 832       retry_add_item(addr, addr->address_retry_key, rf_delete);
 833       }
 834     }
 835
 836   /* Timeout while reading the response */
 837
 838   else if (errno == ETIMEDOUT)
 839     {
 840     int save_errno = errno;
 841     uschar *message = string_sprintf("SMTP timeout after RCPT TO:<%s>",
 842                           transport_rcpt_address(addr, include_affixes));
 843     set_errno(addrlist, save_errno, message, DEFER, FALSE, NULL);
 844     retry_add_item(addr, addr->address_retry_key, 0);
 845     update_waiting = FALSE;
 846     return -1;
 847     }
 848
 849   /* Handle other errors in obtaining an SMTP response by returning -1. This
 850   will cause all the addresses to be deferred. Restore the SMTP command in
 851   big_buffer for which we are checking the response, so the error message
 852   makes sense. */
 853
 854   else if (errno != 0 || buffer[0] == 0)
 855     {
 856     string_format(big_buffer, big_buffer_size, "RCPT TO:<%s>",
 857       transport_rcpt_address(addr, include_affixes));
 858     return -2;
 859     }
 860
 861   /* Handle SMTP permanent and temporary response codes. */
 862
 863   else
 864     {
 865     addr->message =
 866       string_sprintf("SMTP error from remote mail server after RCPT TO:<%s>: "
 867         "%s", transport_rcpt_address(addr, include_affixes),
 868         string_printing(buffer));
 869     setflag(addr, af_pass_message);
 870     msglog_line(host, addr->message);
 871
 872     /* The response was 5xx */
 873
 874     if (buffer[0] == '5')
 875       {
 876       addr->transport_return = FAIL;
 877       yield |= 2;
 878       }
 879
 880     /* The response was 4xx */
 881
 882     else
 883       {
 884       addr->transport_return = DEFER;
 885       addr->basic_errno = ERRNO_RCPT4XX;
 886       addr->more_errno |= ((buffer[1] - '0')*10 + buffer[2] - '0') << 8;
 887
 888       /* Log temporary errors if there are more hosts to be tried.
 889       If not, log this last one in the == line. */
 890
 891       if (host->next)
 892         log_write(0, LOG_MAIN, "H=%s [%s]: %s", host->name, host->address, addr->message);
 893
 894       /* Do not put this message on the list of those waiting for specific
 895       hosts, as otherwise it is likely to be tried too often. */
 896
 897       update_waiting = FALSE;
 898
 899       /* Add a retry item for the address so that it doesn't get tried again
 900       too soon. If address_retry_include_sender is true, add the sender address
 901       to the retry key. */
 902
 903       if (address_retry_include_sender)
 904         {
 905         uschar *altkey = string_sprintf("%s:<%s>", addr->address_retry_key,
 906           sender_address);
 907         retry_add_item(addr, altkey, 0);
 908         }
 909       else retry_add_item(addr, addr->address_retry_key, 0);
 910       }
 911     }
 912   }       /* Loop for next RCPT response */
 913
 914 /* Update where to start at for the next block of responses, unless we
 915 have already handled all the addresses. */
 916
 917 if (addr != NULL) *sync_addr = addr->next;
 918
 919 /* Handle a response to DATA. If we have not had any good recipients, either
 920 previously or in this block, the response is ignored. */
 921
 922 if (pending_DATA != 0 &&
 923     !smtp_read_response(inblock, buffer, buffsize, '3', timeout))
 924   {
 925   int code;
 926   uschar *msg;
 927   BOOL pass_message;
 928   if (pending_DATA > 0 || (yield & 1) != 0)
 929     {
 930     if (errno == 0 && buffer[0] == '4')
 931       {
 932       errno = ERRNO_DATA4XX;
 933       addrlist->more_errno |= ((buffer[1] - '0')*10 + buffer[2] - '0') << 8;
 934       }
 935     return -3;
 936     }
 937   (void)check_response(host, &errno, 0, buffer, &code, &msg, &pass_message);
 938   DEBUG(D_transport) debug_printf("%s\nerror for DATA ignored: pipelining "
 939     "is in use and there were no good recipients\n", msg);
 940   }
 941
 942 /* All responses read and handled; MAIL (if present) received 2xx and DATA (if
 943 present) received 3xx. If any RCPTs were handled and yielded anything other
 944 than 4xx, yield will be set non-zero. */
 945
 946 return yield;
 947 }
 948
 949
 950
 951 /* Do the client side of smtp-level authentication */
 952 /*
 953 Arguments:
 954   buffer        EHLO response from server (gets overwritten)
 955   addrlist      chain of potential addresses to deliver
 956   host          host to deliver to
 957   ob            transport options
 958   ibp, obp      comms channel control blocks
 959
 960 Returns:
 961   OK                    Success, or failed (but not required): global "smtp_authenticated" set
 962   DEFER                 Failed authentication (and was required)
 963   ERROR                 Internal problem
 964
 965   FAIL_SEND             Failed communications - transmit
 966   FAIL                  - response
 967 */
 968
 969 int
 970 smtp_auth(uschar *buffer, unsigned bufsize, address_item *addrlist, host_item *host,
 971     smtp_transport_options_block *ob, BOOL is_esmtp,
 972     smtp_inblock *ibp, smtp_outblock *obp)
 973 {
 974 int require_auth;
 975 uschar *fail_reason = US"server did not advertise AUTH support";
 976
 977 smtp_authenticated = FALSE;
 978 client_authenticator = client_authenticated_id = client_authenticated_sender = NULL;
 979 require_auth = verify_check_this_host(&(ob->hosts_require_auth), NULL,
 980   host->name, host->address, NULL);
 981
 982 if (is_esmtp && !regex_AUTH) regex_AUTH =
 983     regex_must_compile(US"\\n250[\\s\\-]AUTH\\s+([\\-\\w\\s]+)(?:\\n|$)",
 984           FALSE, TRUE);
 985
 986 if (is_esmtp && regex_match_and_setup(regex_AUTH, buffer, 0, -1))
 987   {
 988   uschar *names = string_copyn(expand_nstring[1], expand_nlength[1]);
 989   expand_nmax = -1;                          /* reset */
 990
 991   /* Must not do this check until after we have saved the result of the
 992   regex match above. */
 993
 994   if (require_auth == OK ||
 995       verify_check_this_host(&(ob->hosts_try_auth), NULL, host->name,
 996         host->address, NULL) == OK)
 997     {
 998     auth_instance *au;
 999     fail_reason = US"no common mechanisms were found";
1000
1001     DEBUG(D_transport) debug_printf("scanning authentication mechanisms\n");
1002
1003     /* Scan the configured authenticators looking for one which is configured
1004     for use as a client, which is not suppressed by client_condition, and
1005     whose name matches an authentication mechanism supported by the server.
1006     If one is found, attempt to authenticate by calling its client function.
1007     */
1008
1009     for (au = auths; !smtp_authenticated && au != NULL; au = au->next)
1010       {
1011       uschar *p = names;
1012       if (!au->client ||
1013           (au->client_condition != NULL &&
1014            !expand_check_condition(au->client_condition, au->name,
1015              US"client authenticator")))
1016         {
1017         DEBUG(D_transport) debug_printf("skipping %s authenticator: %s\n",
1018           au->name,
1019           (au->client)? "client_condition is false" :
1020                         "not configured as a client");
1021         continue;
1022         }
1023
1024       /* Loop to scan supported server mechanisms */
1025
1026       while (*p != 0)
1027         {
1028         int rc;
1029         int len = Ustrlen(au->public_name);
1030         while (isspace(*p)) p++;
1031
1032         if (strncmpic(au->public_name, p, len) != 0 ||
1033             (p[len] != 0 && !isspace(p[len])))
1034           {
1035           while (*p != 0 && !isspace(*p)) p++;
1036           continue;
1037           }
1038
1039         /* Found data for a listed mechanism. Call its client entry. Set
1040         a flag in the outblock so that data is overwritten after sending so
1041         that reflections don't show it. */
1042
1043         fail_reason = US"authentication attempt(s) failed";
1044         obp->authenticating = TRUE;
1045         rc = (au->info->clientcode)(au, ibp, obp,
1046           ob->command_timeout, buffer, bufsize);
1047         obp->authenticating = FALSE;
1048         DEBUG(D_transport) debug_printf("%s authenticator yielded %d\n",
1049           au->name, rc);
1050
1051         /* A temporary authentication failure must hold up delivery to
1052         this host. After a permanent authentication failure, we carry on
1053         to try other authentication methods. If all fail hard, try to
1054         deliver the message unauthenticated unless require_auth was set. */
1055
1056         switch(rc)
1057           {
1058           case OK:
1059           smtp_authenticated = TRUE;   /* stops the outer loop */
1060           client_authenticator = au->name;
1061           if (au->set_client_id != NULL)
1062             client_authenticated_id = expand_string(au->set_client_id);
1063           break;
1064
1065           /* Failure after writing a command */
1066
1067           case FAIL_SEND:
1068           return FAIL_SEND;
1069
1070           /* Failure after reading a response */
1071
1072           case FAIL:
1073           if (errno != 0 || buffer[0] != '5') return FAIL;
1074           log_write(0, LOG_MAIN, "%s authenticator failed H=%s [%s] %s",
1075             au->name, host->name, host->address, buffer);
1076           break;
1077
1078           /* Failure by some other means. In effect, the authenticator
1079           decided it wasn't prepared to handle this case. Typically this
1080           is the result of "fail" in an expansion string. Do we need to
1081           log anything here? Feb 2006: a message is now put in the buffer
1082           if logging is required. */
1083
1084           case CANCELLED:
1085           if (*buffer != 0)
1086             log_write(0, LOG_MAIN, "%s authenticator cancelled "
1087               "authentication H=%s [%s] %s", au->name, host->name,
1088               host->address, buffer);
1089           break;
1090
1091           /* Internal problem, message in buffer. */
1092
1093           case ERROR:
1094           set_errno(addrlist, 0, string_copy(buffer), DEFER, FALSE, NULL);
1095           return ERROR;
1096           }
1097
1098         break;  /* If not authenticated, try next authenticator */
1099         }       /* Loop for scanning supported server mechanisms */
1100       }         /* Loop for further authenticators */
1101     }
1102   }
1103
1104 /* If we haven't authenticated, but are required to, give up. */
1105
1106 if (require_auth == OK && !smtp_authenticated)
1107   {
1108   set_errno(addrlist, ERRNO_AUTHFAIL,
1109     string_sprintf("authentication required but %s", fail_reason), DEFER,
1110     FALSE, NULL);
1111   return DEFER;
1112   }
1113
1114 return OK;
1115 }
1116
1117
1118 /* Construct AUTH appendix string for MAIL TO */
1119 /*
1120 Arguments
1121   buffer        to build string
1122   addrlist      chain of potential addresses to deliver
1123   ob            transport options
1124
1125 Globals         smtp_authenticated
1126                 client_authenticated_sender
1127 Return  True on error, otherwise buffer has (possibly empty) terminated string
1128 */
1129
1130 BOOL
1131 smtp_mail_auth_str(uschar *buffer, unsigned bufsize, address_item *addrlist,
1132                     smtp_transport_options_block *ob)
1133 {
1134 uschar *local_authenticated_sender = authenticated_sender;
1135
1136 #ifdef notdef
1137   debug_printf("smtp_mail_auth_str: as<%s> os<%s> SA<%s>\n", authenticated_sender, ob->authenticated_sender, smtp_authenticated?"Y":"N");
1138 #endif
1139
1140 if (ob->authenticated_sender != NULL)
1141   {
1142   uschar *new = expand_string(ob->authenticated_sender);
1143   if (new == NULL)
1144     {
1145     if (!expand_string_forcedfail)
1146       {
1147       uschar *message = string_sprintf("failed to expand "
1148         "authenticated_sender: %s", expand_string_message);
1149       set_errno(addrlist, 0, message, DEFER, FALSE, NULL);
1150       return TRUE;
1151       }
1152     }
1153   else if (new[0] != 0) local_authenticated_sender = new;
1154   }
1155
1156 /* Add the authenticated sender address if present */
1157
1158 if ((smtp_authenticated || ob->authenticated_sender_force) &&
1159     local_authenticated_sender != NULL)
1160   {
1161   string_format(buffer, bufsize, " AUTH=%s",
1162     auth_xtextencode(local_authenticated_sender,
1163     Ustrlen(local_authenticated_sender)));
1164   client_authenticated_sender = string_copy(local_authenticated_sender);
1165   }
1166 else
1167   *buffer= 0;
1168
1169 return FALSE;
1170 }
1171
1172
1173
1174 #ifdef EXPERIMENTAL_DANE
1175 int
1176 tlsa_lookup(host_item * host, dns_answer * dnsa,
1177   BOOL dane_required, BOOL * dane)
1178 {
1179 /* move this out to host.c given the similarity to dns_lookup() ? */
1180 uschar buffer[300];
1181 uschar * fullname = buffer;
1182
1183 /* TLSA lookup string */
1184 (void)sprintf(CS buffer, "_%d._tcp.%.256s", host->port, host->name);
1185
1186 switch (dns_lookup(dnsa, buffer, T_TLSA, &fullname))
1187   {
1188   case DNS_AGAIN:
1189     return DEFER; /* just defer this TLS'd conn */
1190
1191   default:
1192   case DNS_FAIL:
1193     if (dane_required)
1194       {
1195       log_write(0, LOG_MAIN, "DANE error: TLSA lookup failed");
1196       return FAIL;
1197       }
1198     break;
1199
1200   case DNS_SUCCEED:
1201     if (!dns_is_secure(dnsa))
1202       {
1203       log_write(0, LOG_MAIN, "DANE error: TLSA lookup not DNSSEC");
1204       return DEFER;
1205       }
1206     *dane = TRUE;
1207     break;
1208   }
1209 return OK;
1210 }
1211 #endif
1212
1213
1214 /*************************************************
1215 *       Deliver address list to given host       *
1216 *************************************************/
1217
1218 /* If continue_hostname is not null, we get here only when continuing to
1219 deliver down an existing channel. The channel was passed as the standard
1220 input. TLS is never active on a passed channel; the previous process always
1221 closes it down before passing the connection on.
1222
1223 Otherwise, we have to make a connection to the remote host, and do the
1224 initial protocol exchange.
1225
1226 When running as an MUA wrapper, if the sender or any recipient is rejected,
1227 temporarily or permanently, we force failure for all recipients.
1228
1229 Arguments:
1230   addrlist        chain of potential addresses to deliver; only those whose
1231                   transport_return field is set to PENDING_DEFER are currently
1232                   being processed; others should be skipped - they have either
1233                   been delivered to an earlier host or IP address, or been
1234                   failed by one of them.
1235   host            host to deliver to
1236   host_af         AF_INET or AF_INET6
1237   port            default TCP/IP port to use, in host byte order
1238   interface       interface to bind to, or NULL
1239   tblock          transport instance block
1240   copy_host       TRUE if host set in addr->host_used must be copied, because
1241                     it is specific to this call of the transport
1242   message_defer   set TRUE if yield is OK, but all addresses were deferred
1243                     because of a non-recipient, non-host failure, that is, a
1244                     4xx response to MAIL FROM, DATA, or ".". This is a defer
1245                     that is specific to the message.
1246   suppress_tls    if TRUE, don't attempt a TLS connection - this is set for
1247                     a second attempt after TLS initialization fails
1248
1249 Returns:          OK    - the connection was made and the delivery attempted;
1250                           the result for each address is in its data block.
1251                   DEFER - the connection could not be made, or something failed
1252                           while setting up the SMTP session, or there was a
1253                           non-message-specific error, such as a timeout.
1254                   ERROR - a filter command is specified for this transport,
1255                           and there was a problem setting it up; OR helo_data
1256                           or add_headers or authenticated_sender is specified
1257                           for this transport, and the string failed to expand
1258 */
1259
1260 static int
1261 smtp_deliver(address_item *addrlist, host_item *host, int host_af, int port,
1262   uschar *interface, transport_instance *tblock, BOOL copy_host,
1263   BOOL *message_defer, BOOL suppress_tls)
1264 {
1265 address_item *addr;
1266 address_item *sync_addr;
1267 address_item *first_addr = addrlist;
1268 int yield = OK;
1269 int address_count;
1270 int save_errno;
1271 int rc;
1272 time_t start_delivery_time = time(NULL);
1273 smtp_transport_options_block *ob =
1274   (smtp_transport_options_block *)(tblock->options_block);
1275 BOOL lmtp = strcmpic(ob->protocol, US"lmtp") == 0;
1276 BOOL smtps = strcmpic(ob->protocol, US"smtps") == 0;
1277 BOOL ok = FALSE;
1278 BOOL send_rset = TRUE;
1279 BOOL send_quit = TRUE;
1280 BOOL setting_up = TRUE;
1281 BOOL completed_address = FALSE;
1282 BOOL esmtp = TRUE;
1283 BOOL pending_MAIL;
1284 BOOL pass_message = FALSE;
1285 #ifndef DISABLE_PRDR
1286 BOOL prdr_offered = FALSE;
1287 BOOL prdr_active;
1288 #endif
1289 #ifdef EXPERIMENTAL_DSN
1290 BOOL dsn_all_lasthop = TRUE;
1291 #endif
1292 #if defined(SUPPORT_TLS) && defined(EXPERIMENTAL_DANE)
1293 BOOL dane = FALSE;
1294 dns_answer tlsa_dnsa;
1295 #endif
1296 smtp_inblock inblock;
1297 smtp_outblock outblock;
1298 int max_rcpt = tblock->max_addresses;
1299 uschar *igquotstr = US"";
1300 uschar *helo_data = NULL;
1301 uschar *message = NULL;
1302 uschar new_message_id[MESSAGE_ID_LENGTH + 1];
1303 uschar *p;
1304 uschar buffer[4096];
1305 uschar inbuffer[4096];
1306 uschar outbuffer[4096];
1307
1308 suppress_tls = suppress_tls;  /* stop compiler warning when no TLS support */
1309
1310 *message_defer = FALSE;
1311 smtp_command = US"initial connection";
1312 if (max_rcpt == 0) max_rcpt = 999999;
1313
1314 /* Set up the buffer for reading SMTP response packets. */
1315
1316 inblock.buffer = inbuffer;
1317 inblock.buffersize = sizeof(inbuffer);
1318 inblock.ptr = inbuffer;
1319 inblock.ptrend = inbuffer;
1320
1321 /* Set up the buffer for holding SMTP commands while pipelining */
1322
1323 outblock.buffer = outbuffer;
1324 outblock.buffersize = sizeof(outbuffer);
1325 outblock.ptr = outbuffer;
1326 outblock.cmd_count = 0;
1327 outblock.authenticating = FALSE;
1328
1329 /* Reset the parameters of a TLS session. */
1330
1331 tls_out.bits = 0;
1332 tls_out.cipher = NULL;  /* the one we may use for this transport */
1333 tls_out.ourcert = NULL;
1334 tls_out.peercert = NULL;
1335 tls_out.peerdn = NULL;
1336 #if defined(SUPPORT_TLS) && !defined(USE_GNUTLS)
1337 tls_out.sni = NULL;
1338 #endif
1339 tls_out.ocsp = OCSP_NOT_REQ;
1340
1341 /* Flip the legacy TLS-related variables over to the outbound set in case
1342 they're used in the context of the transport.  Don't bother resetting
1343 afterward as we're in a subprocess. */
1344
1345 tls_modify_variables(&tls_out);
1346
1347 #ifndef SUPPORT_TLS
1348 if (smtps)
1349   {
1350   set_errno(addrlist, 0, US"TLS support not available", DEFER, FALSE, NULL);
1351   return ERROR;
1352   }
1353 #endif
1354
1355 /* Make a connection to the host if this isn't a continued delivery, and handle
1356 the initial interaction and HELO/EHLO/LHLO. Connect timeout errors are handled
1357 specially so they can be identified for retries. */
1358
1359 if (continue_hostname == NULL)
1360   {
1361   /* This puts port into host->port */
1362   inblock.sock = outblock.sock =
1363     smtp_connect(host, host_af, port, interface, ob->connect_timeout,
1364                   ob->keepalive, ob->dscp
1365 #ifdef EXPERIMENTAL_EVENT
1366                   , tblock->event_action
1367 #endif
1368                 );
1369
1370   if (inblock.sock < 0)
1371     {
1372     set_errno(addrlist, (errno == ETIMEDOUT)? ERRNO_CONNECTTIMEOUT : errno,
1373       NULL, DEFER, FALSE, NULL);
1374     return DEFER;
1375     }
1376
1377 #if defined(SUPPORT_TLS) && defined(EXPERIMENTAL_DANE)
1378     {
1379     BOOL dane_required;
1380
1381     tls_out.dane_verified = FALSE;
1382     tls_out.tlsa_usage = 0;
1383
1384     dane_required = verify_check_this_host(&ob->hosts_require_dane, NULL,
1385                               host->name, host->address, NULL) == OK;
1386
1387     if (host->dnssec == DS_YES)
1388       {
1389       if(  dane_required
1390         || verify_check_this_host(&ob->hosts_try_dane, NULL,
1391                               host->name, host->address, NULL) == OK
1392         )
1393         if ((rc = tlsa_lookup(host, &tlsa_dnsa, dane_required, &dane)) != OK)
1394           return rc;
1395       }
1396     else if (dane_required)
1397       {
1398       log_write(0, LOG_MAIN, "DANE error: %s lookup not DNSSEC", host->name);
1399       return FAIL;
1400       }
1401
1402     if (dane)
1403       ob->tls_tempfail_tryclear = FALSE;
1404     }
1405 #endif  /*DANE*/
1406
1407   /* Expand the greeting message while waiting for the initial response. (Makes
1408   sense if helo_data contains ${lookup dnsdb ...} stuff). The expansion is
1409   delayed till here so that $sending_interface and $sending_port are set. */
1410
1411   helo_data = expand_string(ob->helo_data);
1412
1413   /* The first thing is to wait for an initial OK response. The dreaded "goto"
1414   is nevertheless a reasonably clean way of programming this kind of logic,
1415   where you want to escape on any error. */
1416
1417   if (!smtps)
1418     {
1419     if (!smtp_read_response(&inblock, buffer, sizeof(buffer), '2',
1420       ob->command_timeout)) goto RESPONSE_FAILED;
1421
1422 #ifdef EXPERIMENTAL_EVENT
1423       {
1424       uschar * s;
1425       lookup_dnssec_authenticated = host->dnssec==DS_YES ? US"yes"
1426         : host->dnssec==DS_NO ? US"no" : NULL;
1427       s = event_raise(tblock->event_action, US"smtp:connect", buffer);
1428       if (s)
1429         {
1430         set_errno(addrlist, 0,
1431           string_sprintf("deferred by smtp:connect event expansion: %s", s),
1432           DEFER, FALSE, NULL);
1433         yield = DEFER;
1434         goto SEND_QUIT;
1435         }
1436       }
1437 #endif
1438
1439     /* Now check if the helo_data expansion went well, and sign off cleanly if
1440     it didn't. */
1441
1442     if (helo_data == NULL)
1443       {
1444       uschar *message = string_sprintf("failed to expand helo_data: %s",
1445         expand_string_message);
1446       set_errno(addrlist, 0, message, DEFER, FALSE, NULL);
1447       yield = DEFER;
1448       goto SEND_QUIT;
1449       }
1450     }
1451
1452 /** Debugging without sending a message
1453 addrlist->transport_return = DEFER;
1454 goto SEND_QUIT;
1455 **/
1456
1457   /* Errors that occur after this point follow an SMTP command, which is
1458   left in big_buffer by smtp_write_command() for use in error messages. */
1459
1460   smtp_command = big_buffer;
1461
1462   /* Tell the remote who we are...
1463
1464   February 1998: A convention has evolved that ESMTP-speaking MTAs include the
1465   string "ESMTP" in their greeting lines, so make Exim send EHLO if the
1466   greeting is of this form. The assumption was that the far end supports it
1467   properly... but experience shows that there are some that give 5xx responses,
1468   even though the banner includes "ESMTP" (there's a bloody-minded one that
1469   says "ESMTP not spoken here"). Cope with that case.
1470
1471   September 2000: Time has passed, and it seems reasonable now to always send
1472   EHLO at the start. It is also convenient to make the change while installing
1473   the TLS stuff.
1474
1475   July 2003: Joachim Wieland met a broken server that advertises "PIPELINING"
1476   but times out after sending MAIL FROM, RCPT TO and DATA all together. There
1477   would be no way to send out the mails, so there is now a host list
1478   "hosts_avoid_esmtp" that disables ESMTP for special hosts and solves the
1479   PIPELINING problem as well. Maybe it can also be useful to cure other
1480   problems with broken servers.
1481
1482   Exim originally sent "Helo" at this point and ran for nearly a year that way.
1483   Then somebody tried it with a Microsoft mailer... It seems that all other
1484   mailers use upper case for some reason (the RFC is quite clear about case
1485   independence) so, for peace of mind, I gave in. */
1486
1487   esmtp = verify_check_this_host(&(ob->hosts_avoid_esmtp), NULL,
1488      host->name, host->address, NULL) != OK;
1489
1490   /* Alas; be careful, since this goto is not an error-out, so conceivably
1491   we might set data between here and the target which we assume to exist
1492   and be usable.  I can see this coming back to bite us. */
1493 #ifdef SUPPORT_TLS
1494   if (smtps)
1495     {
1496     tls_offered = TRUE;
1497     suppress_tls = FALSE;
1498     ob->tls_tempfail_tryclear = FALSE;
1499     smtp_command = US"SSL-on-connect";
1500     goto TLS_NEGOTIATE;
1501     }
1502 #endif
1503
1504   if (esmtp)
1505     {
1506     if (smtp_write_command(&outblock, FALSE, "%s %s\r\n",
1507          lmtp? "LHLO" : "EHLO", helo_data) < 0)
1508       goto SEND_FAILED;
1509     if (!smtp_read_response(&inblock, buffer, sizeof(buffer), '2',
1510            ob->command_timeout))
1511       {
1512       if (errno != 0 || buffer[0] == 0 || lmtp) goto RESPONSE_FAILED;
1513       esmtp = FALSE;
1514       }
1515     }
1516   else
1517     {
1518     DEBUG(D_transport)
1519       debug_printf("not sending EHLO (host matches hosts_avoid_esmtp)\n");
1520     }
1521
1522   if (!esmtp)
1523     {
1524     if (smtp_write_command(&outblock, FALSE, "HELO %s\r\n", helo_data) < 0)
1525       goto SEND_FAILED;
1526     if (!smtp_read_response(&inblock, buffer, sizeof(buffer), '2',
1527       ob->command_timeout)) goto RESPONSE_FAILED;
1528     }
1529
1530   /* Set IGNOREQUOTA if the response to LHLO specifies support and the
1531   lmtp_ignore_quota option was set. */
1532
1533   igquotstr = (lmtp && ob->lmtp_ignore_quota &&
1534     pcre_exec(regex_IGNOREQUOTA, NULL, CS buffer, Ustrlen(CS buffer), 0,
1535       PCRE_EOPT, NULL, 0) >= 0)? US" IGNOREQUOTA" : US"";
1536
1537   /* Set tls_offered if the response to EHLO specifies support for STARTTLS. */
1538
1539 #ifdef SUPPORT_TLS
1540   tls_offered = esmtp &&
1541     pcre_exec(regex_STARTTLS, NULL, CS buffer, Ustrlen(buffer), 0,
1542       PCRE_EOPT, NULL, 0) >= 0;
1543 #endif
1544
1545 #ifndef DISABLE_PRDR
1546   prdr_offered = esmtp &&
1547     (pcre_exec(regex_PRDR, NULL, CS buffer, Ustrlen(buffer), 0,
1548       PCRE_EOPT, NULL, 0) >= 0) &&
1549     (verify_check_this_host(&(ob->hosts_try_prdr), NULL, host->name,
1550       host->address, NULL) == OK);
1551
1552   if (prdr_offered)
1553     {DEBUG(D_transport) debug_printf("PRDR usable\n");}
1554 #endif
1555   }
1556
1557 /* For continuing deliveries down the same channel, the socket is the standard
1558 input, and we don't need to redo EHLO here (but may need to do so for TLS - see
1559 below). Set up the pointer to where subsequent commands will be left, for
1560 error messages. Note that smtp_use_size and smtp_use_pipelining will have been
1561 set from the command line if they were set in the process that passed the
1562 connection on. */
1563
1564 else
1565   {
1566   inblock.sock = outblock.sock = fileno(stdin);
1567   smtp_command = big_buffer;
1568   host->port = port;    /* Record the port that was used */
1569   }
1570
1571 /* If TLS is available on this connection, whether continued or not, attempt to
1572 start up a TLS session, unless the host is in hosts_avoid_tls. If successful,
1573 send another EHLO - the server may give a different answer in secure mode. We
1574 use a separate buffer for reading the response to STARTTLS so that if it is
1575 negative, the original EHLO data is available for subsequent analysis, should
1576 the client not be required to use TLS. If the response is bad, copy the buffer
1577 for error analysis. */
1578
1579 #ifdef SUPPORT_TLS
1580 if (tls_offered && !suppress_tls &&
1581       verify_check_this_host(&(ob->hosts_avoid_tls), NULL, host->name,
1582         host->address, NULL) != OK)
1583   {
1584   uschar buffer2[4096];
1585   if (smtp_write_command(&outblock, FALSE, "STARTTLS\r\n") < 0)
1586     goto SEND_FAILED;
1587
1588   /* If there is an I/O error, transmission of this message is deferred. If
1589   there is a temporary rejection of STARRTLS and tls_tempfail_tryclear is
1590   false, we also defer. However, if there is a temporary rejection of STARTTLS
1591   and tls_tempfail_tryclear is true, or if there is an outright rejection of
1592   STARTTLS, we carry on. This means we will try to send the message in clear,
1593   unless the host is in hosts_require_tls (tested below). */
1594
1595   if (!smtp_read_response(&inblock, buffer2, sizeof(buffer2), '2',
1596       ob->command_timeout))
1597     {
1598     if (errno != 0 || buffer2[0] == 0 ||
1599          (buffer2[0] == '4' && !ob->tls_tempfail_tryclear))
1600       {
1601       Ustrncpy(buffer, buffer2, sizeof(buffer));
1602       goto RESPONSE_FAILED;
1603       }
1604     }
1605
1606   /* STARTTLS accepted: try to negotiate a TLS session. */
1607
1608   else
1609   TLS_NEGOTIATE:
1610     {
1611     int rc = tls_client_start(inblock.sock, host, addrlist, tblock
1612 # ifdef EXPERIMENTAL_DANE
1613                              , dane ? &tlsa_dnsa : NULL
1614 # endif
1615                              );
1616
1617     /* TLS negotiation failed; give an error. From outside, this function may
1618     be called again to try in clear on a new connection, if the options permit
1619     it for this host. */
1620
1621     if (rc != OK)
1622       {
1623       save_errno = ERRNO_TLSFAILURE;
1624       message = US"failure while setting up TLS session";
1625       send_quit = FALSE;
1626       goto TLS_FAILED;
1627       }
1628
1629     /* TLS session is set up */
1630
1631     for (addr = addrlist; addr != NULL; addr = addr->next)
1632       if (addr->transport_return == PENDING_DEFER)
1633         {
1634         addr->cipher = tls_out.cipher;
1635         addr->ourcert = tls_out.ourcert;
1636         addr->peercert = tls_out.peercert;
1637         addr->peerdn = tls_out.peerdn;
1638         addr->ocsp = tls_out.ocsp;
1639         }
1640     }
1641   }
1642
1643 /* if smtps, we'll have smtp_command set to something else; always safe to
1644 reset it here. */
1645 smtp_command = big_buffer;
1646
1647 /* If we started TLS, redo the EHLO/LHLO exchange over the secure channel. If
1648 helo_data is null, we are dealing with a connection that was passed from
1649 another process, and so we won't have expanded helo_data above. We have to
1650 expand it here. $sending_ip_address and $sending_port are set up right at the
1651 start of the Exim process (in exim.c). */
1652
1653 if (tls_out.active >= 0)
1654   {
1655   char *greeting_cmd;
1656   if (helo_data == NULL)
1657     {
1658     helo_data = expand_string(ob->helo_data);
1659     if (helo_data == NULL)
1660       {
1661       uschar *message = string_sprintf("failed to expand helo_data: %s",
1662         expand_string_message);
1663       set_errno(addrlist, 0, message, DEFER, FALSE, NULL);
1664       yield = DEFER;
1665       goto SEND_QUIT;
1666       }
1667     }
1668
1669   /* For SMTPS we need to wait for the initial OK response. */
1670   if (smtps)
1671     {
1672     if (!smtp_read_response(&inblock, buffer, sizeof(buffer), '2',
1673       ob->command_timeout)) goto RESPONSE_FAILED;
1674     }
1675
1676   if (esmtp)
1677     greeting_cmd = "EHLO";
1678   else
1679     {
1680     greeting_cmd = "HELO";
1681     DEBUG(D_transport)
1682       debug_printf("not sending EHLO (host matches hosts_avoid_esmtp)\n");
1683     }
1684
1685   if (smtp_write_command(&outblock, FALSE, "%s %s\r\n",
1686         lmtp? "LHLO" : greeting_cmd, helo_data) < 0)
1687     goto SEND_FAILED;
1688   if (!smtp_read_response(&inblock, buffer, sizeof(buffer), '2',
1689        ob->command_timeout))
1690     goto RESPONSE_FAILED;
1691   }
1692
1693 /* If the host is required to use a secure channel, ensure that we
1694 have one. */
1695
1696 else if (
1697 # ifdef EXPERIMENTAL_DANE
1698         dane ||
1699 # endif
1700         verify_check_this_host(&(ob->hosts_require_tls), NULL, host->name,
1701             host->address, NULL) == OK
1702         )
1703   {
1704   save_errno = ERRNO_TLSREQUIRED;
1705   message = string_sprintf("a TLS session is required, but %s",
1706     tls_offered? "an attempt to start TLS failed" :
1707                  "the server did not offer TLS support");
1708   goto TLS_FAILED;
1709   }
1710 #endif  /*SUPPORT_TLS*/
1711
1712 /* If TLS is active, we have just started it up and re-done the EHLO command,
1713 so its response needs to be analyzed. If TLS is not active and this is a
1714 continued session down a previously-used socket, we haven't just done EHLO, so
1715 we skip this. */
1716
1717 if (continue_hostname == NULL
1718 #ifdef SUPPORT_TLS
1719     || tls_out.active >= 0
1720 #endif
1721     )
1722   {
1723   /* Set for IGNOREQUOTA if the response to LHLO specifies support and the
1724   lmtp_ignore_quota option was set. */
1725
1726   igquotstr = (lmtp && ob->lmtp_ignore_quota &&
1727     pcre_exec(regex_IGNOREQUOTA, NULL, CS buffer, Ustrlen(CS buffer), 0,
1728       PCRE_EOPT, NULL, 0) >= 0)? US" IGNOREQUOTA" : US"";
1729
1730   /* If the response to EHLO specified support for the SIZE parameter, note
1731   this, provided size_addition is non-negative. */
1732
1733   smtp_use_size = esmtp && ob->size_addition >= 0 &&
1734     pcre_exec(regex_SIZE, NULL, CS buffer, Ustrlen(CS buffer), 0,
1735       PCRE_EOPT, NULL, 0) >= 0;
1736
1737   /* Note whether the server supports PIPELINING. If hosts_avoid_esmtp matched
1738   the current host, esmtp will be false, so PIPELINING can never be used. If
1739   the current host matches hosts_avoid_pipelining, don't do it. */
1740
1741   smtp_use_pipelining = esmtp &&
1742     verify_check_this_host(&(ob->hosts_avoid_pipelining), NULL, host->name,
1743       host->address, NULL) != OK &&
1744     pcre_exec(regex_PIPELINING, NULL, CS buffer, Ustrlen(CS buffer), 0,
1745       PCRE_EOPT, NULL, 0) >= 0;
1746
1747   DEBUG(D_transport) debug_printf("%susing PIPELINING\n",
1748     smtp_use_pipelining? "" : "not ");
1749
1750 #ifndef DISABLE_PRDR
1751   prdr_offered = esmtp &&
1752     pcre_exec(regex_PRDR, NULL, CS buffer, Ustrlen(CS buffer), 0,
1753       PCRE_EOPT, NULL, 0) >= 0 &&
1754     verify_check_this_host(&(ob->hosts_try_prdr), NULL, host->name,
1755       host->address, NULL) == OK;
1756
1757   if (prdr_offered)
1758     {DEBUG(D_transport) debug_printf("PRDR usable\n");}
1759 #endif
1760
1761 #ifdef EXPERIMENTAL_DSN
1762   /* Note if the server supports DSN */
1763   smtp_use_dsn = esmtp && pcre_exec(regex_DSN, NULL, CS buffer, (int)Ustrlen(CS buffer), 0,
1764        PCRE_EOPT, NULL, 0) >= 0;
1765   DEBUG(D_transport) debug_printf("use_dsn=%d\n", smtp_use_dsn);
1766 #endif
1767
1768   /* Note if the response to EHLO specifies support for the AUTH extension.
1769   If it has, check that this host is one we want to authenticate to, and do
1770   the business. The host name and address must be available when the
1771   authenticator's client driver is running. */
1772
1773   switch (yield = smtp_auth(buffer, sizeof(buffer), addrlist, host,
1774                             ob, esmtp, &inblock, &outblock))
1775     {
1776     default:            goto SEND_QUIT;
1777     case OK:            break;
1778     case FAIL_SEND:     goto SEND_FAILED;
1779     case FAIL:          goto RESPONSE_FAILED;
1780     }
1781   }
1782
1783 /* The setting up of the SMTP call is now complete. Any subsequent errors are
1784 message-specific. */
1785
1786 setting_up = FALSE;
1787
1788 /* If there is a filter command specified for this transport, we can now
1789 set it up. This cannot be done until the identify of the host is known. */
1790
1791 if (tblock->filter_command != NULL)
1792   {
1793   BOOL rc;
1794   uschar buffer[64];
1795   sprintf(CS buffer, "%.50s transport", tblock->name);
1796   rc = transport_set_up_command(&transport_filter_argv, tblock->filter_command,
1797     TRUE, DEFER, addrlist, buffer, NULL);
1798   transport_filter_timeout = tblock->filter_timeout;
1799
1800   /* On failure, copy the error to all addresses, abandon the SMTP call, and
1801   yield ERROR. */
1802
1803   if (!rc)
1804     {
1805     set_errno(addrlist->next, addrlist->basic_errno, addrlist->message, DEFER,
1806       FALSE, NULL);
1807     yield = ERROR;
1808     goto SEND_QUIT;
1809     }
1810   }
1811
1812
1813 /* For messages that have more than the maximum number of envelope recipients,
1814 we want to send several transactions down the same SMTP connection. (See
1815 comments in deliver.c as to how this reconciles, heuristically, with
1816 remote_max_parallel.) This optimization was added to Exim after the following
1817 code was already working. The simplest way to put it in without disturbing the
1818 code was to use a goto to jump back to this point when there is another
1819 transaction to handle. */
1820
1821 SEND_MESSAGE:
1822 sync_addr = first_addr;
1823 address_count = 0;
1824 ok = FALSE;
1825 send_rset = TRUE;
1826 completed_address = FALSE;
1827
1828
1829 /* Initiate a message transfer. If we know the receiving MTA supports the SIZE
1830 qualification, send it, adding something to the message size to allow for
1831 imprecision and things that get added en route. Exim keeps the number of lines
1832 in a message, so we can give an accurate value for the original message, but we
1833 need some additional to handle added headers. (Double "." characters don't get
1834 included in the count.) */
1835
1836 p = buffer;
1837 *p = 0;
1838
1839 if (smtp_use_size)
1840   {
1841   sprintf(CS p, " SIZE=%d", message_size+message_linecount+ob->size_addition);
1842   while (*p) p++;
1843   }
1844
1845 #ifndef DISABLE_PRDR
1846 prdr_active = FALSE;
1847 if (prdr_offered)
1848   {
1849   for (addr = first_addr; addr; addr = addr->next)
1850     if (addr->transport_return == PENDING_DEFER)
1851       {
1852       for (addr = addr->next; addr; addr = addr->next)
1853         if (addr->transport_return == PENDING_DEFER)
1854           {                     /* at least two recipients to send */
1855           prdr_active = TRUE;
1856           sprintf(CS p, " PRDR"); p += 5;
1857           break;
1858           }
1859       break;
1860       }
1861   }
1862 #endif
1863
1864 #ifdef EXPERIMENTAL_DSN
1865 /* check if all addresses have lasthop flag */
1866 /* do not send RET and ENVID if true */
1867 dsn_all_lasthop = TRUE;
1868 for (addr = first_addr;
1869      address_count < max_rcpt && addr != NULL;
1870      addr = addr->next)
1871   if ((addr->dsn_flags & rf_dsnlasthop) != 1)
1872     dsn_all_lasthop = FALSE;
1873
1874 /* Add any DSN flags to the mail command */
1875
1876 if ((smtp_use_dsn) && (dsn_all_lasthop == FALSE))
1877   {
1878   if (dsn_ret == dsn_ret_hdrs)
1879     {
1880     Ustrcpy(p, " RET=HDRS");
1881     while (*p) p++;
1882     }
1883   else if (dsn_ret == dsn_ret_full)
1884     {
1885     Ustrcpy(p, " RET=FULL");
1886     while (*p) p++;
1887     }
1888   if (dsn_envid != NULL)
1889     {
1890     string_format(p, sizeof(buffer) - (p-buffer), " ENVID=%s", dsn_envid);
1891     while (*p) p++;
1892     }
1893   }
1894 #endif
1895
1896 /* If an authenticated_sender override has been specified for this transport
1897 instance, expand it. If the expansion is forced to fail, and there was already
1898 an authenticated_sender for this message, the original value will be used.
1899 Other expansion failures are serious. An empty result is ignored, but there is
1900 otherwise no check - this feature is expected to be used with LMTP and other
1901 cases where non-standard addresses (e.g. without domains) might be required. */
1902
1903 if (smtp_mail_auth_str(p, sizeof(buffer) - (p-buffer), addrlist, ob))
1904   {
1905   yield = ERROR;
1906   goto SEND_QUIT;
1907   }
1908
1909 /* From here until we send the DATA command, we can make use of PIPELINING
1910 if the server host supports it. The code has to be able to check the responses
1911 at any point, for when the buffer fills up, so we write it totally generally.
1912 When PIPELINING is off, each command written reports that it has flushed the
1913 buffer. */
1914
1915 pending_MAIL = TRUE;     /* The block starts with MAIL */
1916
1917 rc = smtp_write_command(&outblock, smtp_use_pipelining,
1918        "MAIL FROM:<%s>%s\r\n", return_path, buffer);
1919 mail_command = string_copy(big_buffer);  /* Save for later error message */
1920
1921 switch(rc)
1922   {
1923   case -1:                /* Transmission error */
1924   goto SEND_FAILED;
1925
1926   case +1:                /* Block was sent */
1927   if (!smtp_read_response(&inblock, buffer, sizeof(buffer), '2',
1928        ob->command_timeout))
1929     {
1930     if (errno == 0 && buffer[0] == '4')
1931       {
1932       errno = ERRNO_MAIL4XX;
1933       addrlist->more_errno |= ((buffer[1] - '0')*10 + buffer[2] - '0') << 8;
1934       }
1935     goto RESPONSE_FAILED;
1936     }
1937   pending_MAIL = FALSE;
1938   break;
1939   }
1940
1941 /* Pass over all the relevant recipient addresses for this host, which are the
1942 ones that have status PENDING_DEFER. If we are using PIPELINING, we can send
1943 several before we have to read the responses for those seen so far. This
1944 checking is done by a subroutine because it also needs to be done at the end.
1945 Send only up to max_rcpt addresses at a time, leaving first_addr pointing to
1946 the next one if not all are sent.
1947
1948 In the MUA wrapper situation, we want to flush the PIPELINING buffer for the
1949 last address because we want to abort if any recipients have any kind of
1950 problem, temporary or permanent. We know that all recipient addresses will have
1951 the PENDING_DEFER status, because only one attempt is ever made, and we know
1952 that max_rcpt will be large, so all addresses will be done at once. */
1953
1954 for (addr = first_addr;
1955      address_count < max_rcpt && addr != NULL;
1956      addr = addr->next)
1957   {
1958   int count;
1959   BOOL no_flush;
1960
1961 #ifdef EXPERIMENTAL_DSN
1962   addr->dsn_aware = smtp_use_dsn ? dsn_support_yes : dsn_support_no;
1963 #endif
1964
1965   if (addr->transport_return != PENDING_DEFER) continue;
1966
1967   address_count++;
1968   no_flush = smtp_use_pipelining && (!mua_wrapper || addr->next != NULL);
1969
1970 #ifdef EXPERIMENTAL_DSN
1971   /* Add any DSN flags to the rcpt command and add to the sent string */
1972
1973   p = buffer;
1974   *p = 0;
1975
1976   if (smtp_use_dsn && (addr->dsn_flags & rf_dsnlasthop) != 1)
1977     {
1978     if ((addr->dsn_flags & rf_dsnflags) != 0)
1979       {
1980       int i;
1981       BOOL first = TRUE;
1982       Ustrcpy(p, " NOTIFY=");
1983       while (*p) p++;
1984       for (i = 0; i < 4; i++)
1985         if ((addr->dsn_flags & rf_list[i]) != 0)
1986           {
1987           if (!first) *p++ = ',';
1988           first = FALSE;
1989           Ustrcpy(p, rf_names[i]);
1990           while (*p) p++;
1991           }
1992       }
1993
1994     if (addr->dsn_orcpt != NULL)
1995       {
1996       string_format(p, sizeof(buffer) - (p-buffer), " ORCPT=%s",
1997         addr->dsn_orcpt);
1998       while (*p) p++;
1999       }
2000     }
2001 #endif
2002
2003
2004   /* Now send the RCPT command, and process outstanding responses when
2005   necessary. After a timeout on RCPT, we just end the function, leaving the
2006   yield as OK, because this error can often mean that there is a problem with
2007   just one address, so we don't want to delay the host. */
2008
2009 #ifdef EXPERIMENTAL_DSN
2010   count = smtp_write_command(&outblock, no_flush, "RCPT TO:<%s>%s%s\r\n",
2011     transport_rcpt_address(addr, tblock->rcpt_include_affixes), igquotstr, buffer);
2012 #else
2013   count = smtp_write_command(&outblock, no_flush, "RCPT TO:<%s>%s\r\n",
2014     transport_rcpt_address(addr, tblock->rcpt_include_affixes), igquotstr);
2015 #endif
2016
2017   if (count < 0) goto SEND_FAILED;
2018   if (count > 0)
2019     {
2020     switch(sync_responses(first_addr, tblock->rcpt_include_affixes,
2021              &sync_addr, host, count, ob->address_retry_include_sender,
2022              pending_MAIL, 0, &inblock, ob->command_timeout, buffer,
2023              sizeof(buffer)))
2024       {
2025       case 3: ok = TRUE;                   /* 2xx & 5xx => OK & progress made */
2026       case 2: completed_address = TRUE;    /* 5xx (only) => progress made */
2027       break;
2028
2029       case 1: ok = TRUE;                   /* 2xx (only) => OK, but if LMTP, */
2030       if (!lmtp) completed_address = TRUE; /* can't tell about progress yet */
2031       case 0:                              /* No 2xx or 5xx, but no probs */
2032       break;
2033
2034       case -1: goto END_OFF;               /* Timeout on RCPT */
2035       default: goto RESPONSE_FAILED;       /* I/O error, or any MAIL error */
2036       }
2037     pending_MAIL = FALSE;                  /* Dealt with MAIL */
2038     }
2039   }      /* Loop for next address */
2040
2041 /* If we are an MUA wrapper, abort if any RCPTs were rejected, either
2042 permanently or temporarily. We should have flushed and synced after the last
2043 RCPT. */
2044
2045 if (mua_wrapper)
2046   {
2047   address_item *badaddr;
2048   for (badaddr = first_addr; badaddr != NULL; badaddr = badaddr->next)
2049     {
2050     if (badaddr->transport_return != PENDING_OK) break;
2051     }
2052   if (badaddr != NULL)
2053     {
2054     set_errno(addrlist, 0, badaddr->message, FAIL,
2055       testflag(badaddr, af_pass_message), NULL);
2056     ok = FALSE;
2057     }
2058   }
2059
2060 /* If ok is TRUE, we know we have got at least one good recipient, and must now
2061 send DATA, but if it is FALSE (in the normal, non-wrapper case), we may still
2062 have a good recipient buffered up if we are pipelining. We don't want to waste
2063 time sending DATA needlessly, so we only send it if either ok is TRUE or if we
2064 are pipelining. The responses are all handled by sync_responses(). */
2065
2066 if (ok || (smtp_use_pipelining && !mua_wrapper))
2067   {
2068   int count = smtp_write_command(&outblock, FALSE, "DATA\r\n");
2069   if (count < 0) goto SEND_FAILED;
2070   switch(sync_responses(first_addr, tblock->rcpt_include_affixes, &sync_addr,
2071            host, count, ob->address_retry_include_sender, pending_MAIL,
2072            ok? +1 : -1, &inblock, ob->command_timeout, buffer, sizeof(buffer)))
2073     {
2074     case 3: ok = TRUE;                   /* 2xx & 5xx => OK & progress made */
2075     case 2: completed_address = TRUE;    /* 5xx (only) => progress made */
2076     break;
2077
2078     case 1: ok = TRUE;                   /* 2xx (only) => OK, but if LMTP, */
2079     if (!lmtp) completed_address = TRUE; /* can't tell about progress yet */
2080     case 0: break;                       /* No 2xx or 5xx, but no probs */
2081
2082     case -1: goto END_OFF;               /* Timeout on RCPT */
2083     default: goto RESPONSE_FAILED;       /* I/O error, or any MAIL/DATA error */
2084     }
2085   }
2086
2087 /* Save the first address of the next batch. */
2088
2089 first_addr = addr;
2090
2091 /* If there were no good recipients (but otherwise there have been no
2092 problems), just set ok TRUE, since we have handled address-specific errors
2093 already. Otherwise, it's OK to send the message. Use the check/escape mechanism
2094 for handling the SMTP dot-handling protocol, flagging to apply to headers as
2095 well as body. Set the appropriate timeout value to be used for each chunk.
2096 (Haven't been able to make it work using select() for writing yet.) */
2097
2098 if (!ok) ok = TRUE; else
2099   {
2100   sigalrm_seen = FALSE;
2101   transport_write_timeout = ob->data_timeout;
2102   smtp_command = US"sending data block";   /* For error messages */
2103   DEBUG(D_transport|D_v)
2104     debug_printf("  SMTP>> writing message and terminating \".\"\n");
2105   transport_count = 0;
2106
2107 #ifndef DISABLE_DKIM
2108   ok = dkim_transport_write_message(addrlist, inblock.sock,
2109     topt_use_crlf | topt_end_dot | topt_escape_headers |
2110       (tblock->body_only? topt_no_headers : 0) |
2111       (tblock->headers_only? topt_no_body : 0) |
2112       (tblock->return_path_add? topt_add_return_path : 0) |
2113       (tblock->delivery_date_add? topt_add_delivery_date : 0) |
2114       (tblock->envelope_to_add? topt_add_envelope_to : 0),
2115     0,            /* No size limit */
2116     tblock->add_headers, tblock->remove_headers,
2117     US".", US"..",    /* Escaping strings */
2118     tblock->rewrite_rules, tblock->rewrite_existflags,
2119     ob->dkim_private_key, ob->dkim_domain, ob->dkim_selector,
2120     ob->dkim_canon, ob->dkim_strict, ob->dkim_sign_headers
2121     );
2122 #else
2123   ok = transport_write_message(addrlist, inblock.sock,
2124     topt_use_crlf | topt_end_dot | topt_escape_headers |
2125       (tblock->body_only? topt_no_headers : 0) |
2126       (tblock->headers_only? topt_no_body : 0) |
2127       (tblock->return_path_add? topt_add_return_path : 0) |
2128       (tblock->delivery_date_add? topt_add_delivery_date : 0) |
2129       (tblock->envelope_to_add? topt_add_envelope_to : 0),
2130     0,            /* No size limit */
2131     tblock->add_headers, tblock->remove_headers,
2132     US".", US"..",    /* Escaping strings */
2133     tblock->rewrite_rules, tblock->rewrite_existflags);
2134 #endif
2135
2136   /* transport_write_message() uses write() because it is called from other
2137   places to write to non-sockets. This means that under some OS (e.g. Solaris)
2138   it can exit with "Broken pipe" as its error. This really means that the
2139   socket got closed at the far end. */
2140
2141   transport_write_timeout = 0;   /* for subsequent transports */
2142
2143   /* Failure can either be some kind of I/O disaster (including timeout),
2144   or the failure of a transport filter or the expansion of added headers. */
2145
2146   if (!ok)
2147     {
2148     buffer[0] = 0;              /* There hasn't been a response */
2149     goto RESPONSE_FAILED;
2150     }
2151
2152   /* We used to send the terminating "." explicitly here, but because of
2153   buffering effects at both ends of TCP/IP connections, you don't gain
2154   anything by keeping it separate, so it might as well go in the final
2155   data buffer for efficiency. This is now done by setting the topt_end_dot
2156   flag above. */
2157
2158   smtp_command = US"end of data";
2159
2160 #ifndef DISABLE_PRDR
2161   /* For PRDR we optionally get a partial-responses warning
2162    * followed by the individual responses, before going on with
2163    * the overall response.  If we don't get the warning then deal
2164    * with per non-PRDR. */
2165   if(prdr_active)
2166     {
2167     ok = smtp_read_response(&inblock, buffer, sizeof(buffer), '3',
2168       ob->final_timeout);
2169     if (!ok && errno == 0)
2170       switch(buffer[0])
2171         {
2172         case '2': prdr_active = FALSE;
2173                   ok = TRUE;
2174                   break;
2175         case '4': errno = ERRNO_DATA4XX;
2176                   addrlist->more_errno |= ((buffer[1] - '0')*10 + buffer[2] - '0') << 8;
2177                   break;
2178         }
2179     }
2180   else
2181 #endif
2182
2183   /* For non-PRDR SMTP, we now read a single response that applies to the
2184   whole message.  If it is OK, then all the addresses have been delivered. */
2185
2186   if (!lmtp)
2187     {
2188     ok = smtp_read_response(&inblock, buffer, sizeof(buffer), '2',
2189       ob->final_timeout);
2190     if (!ok && errno == 0 && buffer[0] == '4')
2191       {
2192       errno = ERRNO_DATA4XX;
2193       addrlist->more_errno |= ((buffer[1] - '0')*10 + buffer[2] - '0') << 8;
2194       }
2195     }
2196
2197   /* For LMTP, we get back a response for every RCPT command that we sent;
2198   some may be accepted and some rejected. For those that get a response, their
2199   status is fixed; any that are accepted have been handed over, even if later
2200   responses crash - at least, that's how I read RFC 2033.
2201
2202   If all went well, mark the recipient addresses as completed, record which
2203   host/IPaddress they were delivered to, and cut out RSET when sending another
2204   message down the same channel. Write the completed addresses to the journal
2205   now so that they are recorded in case there is a crash of hardware or
2206   software before the spool gets updated. Also record the final SMTP
2207   confirmation if needed (for SMTP only). */
2208
2209   if (ok)
2210     {
2211     int flag = '=';
2212     int delivery_time = (int)(time(NULL) - start_delivery_time);
2213     int len;
2214     host_item *thost;
2215     uschar *conf = NULL;
2216     send_rset = FALSE;
2217
2218     /* Make a copy of the host if it is local to this invocation
2219     of the transport. */
2220
2221     if (copy_host)
2222       {
2223       thost = store_get(sizeof(host_item));
2224       *thost = *host;
2225       thost->name = string_copy(host->name);
2226       thost->address = string_copy(host->address);
2227       }
2228     else thost = host;
2229
2230     /* Set up confirmation if needed - applies only to SMTP */
2231
2232     if (
2233 #ifndef EXPERIMENTAL_EVENT
2234           (log_extra_selector & LX_smtp_confirmation) != 0 &&
2235 #endif
2236           !lmtp
2237        )
2238       {
2239       uschar *s = string_printing(buffer);
2240       conf = (s == buffer)? (uschar *)string_copy(s) : s;
2241       }
2242
2243     /* Process all transported addresses - for LMTP or PRDR, read a status for
2244     each one. */
2245
2246     for (addr = addrlist; addr != first_addr; addr = addr->next)
2247       {
2248       if (addr->transport_return != PENDING_OK) continue;
2249
2250       /* LMTP - if the response fails badly (e.g. timeout), use it for all the
2251       remaining addresses. Otherwise, it's a return code for just the one
2252       address. For temporary errors, add a retry item for the address so that
2253       it doesn't get tried again too soon. */
2254
2255 #ifndef DISABLE_PRDR
2256       if (lmtp || prdr_active)
2257 #else
2258       if (lmtp)
2259 #endif
2260         {
2261         if (!smtp_read_response(&inblock, buffer, sizeof(buffer), '2',
2262             ob->final_timeout))
2263           {
2264           if (errno != 0 || buffer[0] == 0) goto RESPONSE_FAILED;
2265           addr->message = string_sprintf(
2266 #ifndef DISABLE_PRDR
2267             "%s error after %s: %s", prdr_active ? "PRDR":"LMTP",
2268 #else
2269             "LMTP error after %s: %s",
2270 #endif
2271             big_buffer, string_printing(buffer));
2272           setflag(addr, af_pass_message);   /* Allow message to go to user */
2273           if (buffer[0] == '5')
2274             addr->transport_return = FAIL;
2275           else
2276             {
2277             errno = ERRNO_DATA4XX;
2278             addr->more_errno |= ((buffer[1] - '0')*10 + buffer[2] - '0') << 8;
2279             addr->transport_return = DEFER;
2280 #ifndef DISABLE_PRDR
2281             if (!prdr_active)
2282 #endif
2283               retry_add_item(addr, addr->address_retry_key, 0);
2284             }
2285           continue;
2286           }
2287         completed_address = TRUE;   /* NOW we can set this flag */
2288         if ((log_extra_selector & LX_smtp_confirmation) != 0)
2289           {
2290           uschar *s = string_printing(buffer);
2291           conf = (s == buffer)? (uschar *)string_copy(s) : s;
2292           }
2293         }
2294
2295       /* SMTP, or success return from LMTP for this address. Pass back the
2296       actual host that was used. */
2297
2298       addr->transport_return = OK;
2299       addr->more_errno = delivery_time;
2300       addr->host_used = thost;
2301       addr->special_action = flag;
2302       addr->message = conf;
2303 #ifndef DISABLE_PRDR
2304       if (prdr_active) addr->flags |= af_prdr_used;
2305 #endif
2306       flag = '-';
2307
2308 #ifndef DISABLE_PRDR
2309       if (!prdr_active)
2310 #endif
2311         {
2312         /* Update the journal. For homonymic addresses, use the base address plus
2313         the transport name. See lots of comments in deliver.c about the reasons
2314         for the complications when homonyms are involved. Just carry on after
2315         write error, as it may prove possible to update the spool file later. */
2316
2317         if (testflag(addr, af_homonym))
2318           sprintf(CS buffer, "%.500s/%s\n", addr->unique + 3, tblock->name);
2319         else
2320           sprintf(CS buffer, "%.500s\n", addr->unique);
2321
2322         DEBUG(D_deliver) debug_printf("journalling %s", buffer);
2323         len = Ustrlen(CS buffer);
2324         if (write(journal_fd, buffer, len) != len)
2325           log_write(0, LOG_MAIN|LOG_PANIC, "failed to write journal for "
2326             "%s: %s", buffer, strerror(errno));
2327         }
2328       }
2329
2330 #ifndef DISABLE_PRDR
2331       if (prdr_active)
2332         {
2333         /* PRDR - get the final, overall response.  For any non-success
2334         upgrade all the address statuses. */
2335         ok = smtp_read_response(&inblock, buffer, sizeof(buffer), '2',
2336           ob->final_timeout);
2337         if (!ok)
2338           {
2339           if(errno == 0 && buffer[0] == '4')
2340             {
2341             errno = ERRNO_DATA4XX;
2342             addrlist->more_errno |= ((buffer[1] - '0')*10 + buffer[2] - '0') << 8;
2343             }
2344           for (addr = addrlist; addr != first_addr; addr = addr->next)
2345             if (buffer[0] == '5' || addr->transport_return == OK)
2346               addr->transport_return = PENDING_OK; /* allow set_errno action */
2347           goto RESPONSE_FAILED;
2348           }
2349
2350         /* Update the journal, or setup retry. */
2351         for (addr = addrlist; addr != first_addr; addr = addr->next)
2352           if (addr->transport_return == OK)
2353           {
2354           if (testflag(addr, af_homonym))
2355             sprintf(CS buffer, "%.500s/%s\n", addr->unique + 3, tblock->name);
2356           else
2357             sprintf(CS buffer, "%.500s\n", addr->unique);
2358
2359           DEBUG(D_deliver) debug_printf("journalling(PRDR) %s", buffer);
2360           len = Ustrlen(CS buffer);
2361           if (write(journal_fd, buffer, len) != len)
2362             log_write(0, LOG_MAIN|LOG_PANIC, "failed to write journal for "
2363               "%s: %s", buffer, strerror(errno));
2364           }
2365         else if (addr->transport_return == DEFER)
2366           retry_add_item(addr, addr->address_retry_key, -2);
2367         }
2368 #endif
2369
2370     /* Ensure the journal file is pushed out to disk. */
2371
2372     if (EXIMfsync(journal_fd) < 0)
2373       log_write(0, LOG_MAIN|LOG_PANIC, "failed to fsync journal: %s",
2374         strerror(errno));
2375     }
2376   }
2377
2378
2379 /* Handle general (not specific to one address) failures here. The value of ok
2380 is used to skip over this code on the falling through case. A timeout causes a
2381 deferral. Other errors may defer or fail according to the response code, and
2382 may set up a special errno value, e.g. after connection chopped, which is
2383 assumed if errno == 0 and there is no text in the buffer. If control reaches
2384 here during the setting up phase (i.e. before MAIL FROM) then always defer, as
2385 the problem is not related to this specific message. */
2386
2387 if (!ok)
2388   {
2389   int code;
2390
2391   RESPONSE_FAILED:
2392   save_errno = errno;
2393   message = NULL;
2394   send_quit = check_response(host, &save_errno, addrlist->more_errno,
2395     buffer, &code, &message, &pass_message);
2396   goto FAILED;
2397
2398   SEND_FAILED:
2399   save_errno = errno;
2400   code = '4';
2401   message = US string_sprintf("send() to %s [%s] failed: %s",
2402     host->name, host->address, strerror(save_errno));
2403   send_quit = FALSE;
2404   goto FAILED;
2405
2406   /* This label is jumped to directly when a TLS negotiation has failed,
2407   or was not done for a host for which it is required. Values will be set
2408   in message and save_errno, and setting_up will always be true. Treat as
2409   a temporary error. */
2410
2411 #ifdef SUPPORT_TLS
2412   TLS_FAILED:
2413   code = '4';
2414 #endif
2415
2416   /* If the failure happened while setting up the call, see if the failure was
2417   a 5xx response (this will either be on connection, or following HELO - a 5xx
2418   after EHLO causes it to try HELO). If so, fail all addresses, as this host is
2419   never going to accept them. For other errors during setting up (timeouts or
2420   whatever), defer all addresses, and yield DEFER, so that the host is not
2421   tried again for a while. */
2422
2423   FAILED:
2424   ok = FALSE;                /* For when reached by GOTO */
2425
2426   if (setting_up)
2427     {
2428     if (code == '5')
2429       set_errno(addrlist, save_errno, message, FAIL, pass_message, host);
2430     else
2431       {
2432       set_errno(addrlist, save_errno, message, DEFER, pass_message, host);
2433       yield = DEFER;
2434       }
2435     }
2436
2437   /* We want to handle timeouts after MAIL or "." and loss of connection after
2438   "." specially. They can indicate a problem with the sender address or with
2439   the contents of the message rather than a real error on the connection. These
2440   cases are treated in the same way as a 4xx response. This next bit of code
2441   does the classification. */
2442
2443   else
2444     {
2445     BOOL message_error;
2446
2447     switch(save_errno)
2448       {
2449       case 0:
2450       case ERRNO_MAIL4XX:
2451       case ERRNO_DATA4XX:
2452       message_error = TRUE;
2453       break;
2454
2455       case ETIMEDOUT:
2456       message_error = Ustrncmp(smtp_command,"MAIL",4) == 0 ||
2457                       Ustrncmp(smtp_command,"end ",4) == 0;
2458       break;
2459
2460       case ERRNO_SMTPCLOSED:
2461       message_error = Ustrncmp(smtp_command,"end ",4) == 0;
2462       break;
2463
2464       default:
2465       message_error = FALSE;
2466       break;
2467       }
2468
2469     /* Handle the cases that are treated as message errors. These are:
2470
2471       (a) negative response or timeout after MAIL
2472       (b) negative response after DATA
2473       (c) negative response or timeout or dropped connection after "."
2474
2475     It won't be a negative response or timeout after RCPT, as that is dealt
2476     with separately above. The action in all cases is to set an appropriate
2477     error code for all the addresses, but to leave yield set to OK because the
2478     host itself has not failed. Of course, it might in practice have failed
2479     when we've had a timeout, but if so, we'll discover that at the next
2480     delivery attempt. For a temporary error, set the message_defer flag, and
2481     write to the logs for information if this is not the last host. The error
2482     for the last host will be logged as part of the address's log line. */
2483
2484     if (message_error)
2485       {
2486       if (mua_wrapper) code = '5';  /* Force hard failure in wrapper mode */
2487       set_errno(addrlist, save_errno, message, (code == '5')? FAIL : DEFER,
2488         pass_message, host);
2489
2490       /* If there's an errno, the message contains just the identity of
2491       the host. */
2492
2493       if (code != '5')     /* Anything other than 5 is treated as temporary */
2494         {
2495         if (save_errno > 0)
2496           message = US string_sprintf("%s: %s", message, strerror(save_errno));
2497         if (host->next != NULL) log_write(0, LOG_MAIN, "%s", message);
2498         msglog_line(host, message);
2499         *message_defer = TRUE;
2500         }
2501       }
2502
2503     /* Otherwise, we have an I/O error or a timeout other than after MAIL or
2504     ".", or some other transportation error. We defer all addresses and yield
2505     DEFER, except for the case of failed add_headers expansion, or a transport
2506     filter failure, when the yield should be ERROR, to stop it trying other
2507     hosts. */
2508
2509     else
2510       {
2511       yield = (save_errno == ERRNO_CHHEADER_FAIL ||
2512                save_errno == ERRNO_FILTER_FAIL)? ERROR : DEFER;
2513       set_errno(addrlist, save_errno, message, DEFER, pass_message, host);
2514       }
2515     }
2516   }
2517
2518
2519 /* If all has gone well, send_quit will be set TRUE, implying we can end the
2520 SMTP session tidily. However, if there were too many addresses to send in one
2521 message (indicated by first_addr being non-NULL) we want to carry on with the
2522 rest of them. Also, it is desirable to send more than one message down the SMTP
2523 connection if there are several waiting, provided we haven't already sent so
2524 many as to hit the configured limit. The function transport_check_waiting looks
2525 for a waiting message and returns its id. Then transport_pass_socket tries to
2526 set up a continued delivery by passing the socket on to another process. The
2527 variable send_rset is FALSE if a message has just been successfully transfered.
2528
2529 If we are already sending down a continued channel, there may be further
2530 addresses not yet delivered that are aimed at the same host, but which have not
2531 been passed in this run of the transport. In this case, continue_more will be
2532 true, and all we should do is send RSET if necessary, and return, leaving the
2533 channel open.
2534
2535 However, if no address was disposed of, i.e. all addresses got 4xx errors, we
2536 do not want to continue with other messages down the same channel, because that
2537 can lead to looping between two or more messages, all with the same,
2538 temporarily failing address(es). [The retry information isn't updated yet, so
2539 new processes keep on trying.] We probably also don't want to try more of this
2540 message's addresses either.
2541
2542 If we have started a TLS session, we have to end it before passing the
2543 connection to a new process. However, not all servers can handle this (Exim
2544 can), so we do not pass such a connection on if the host matches
2545 hosts_nopass_tls. */
2546
2547 DEBUG(D_transport)
2548   debug_printf("ok=%d send_quit=%d send_rset=%d continue_more=%d "
2549     "yield=%d first_address is %sNULL\n", ok, send_quit, send_rset,
2550     continue_more, yield, (first_addr == NULL)? "":"not ");
2551
2552 if (completed_address && ok && send_quit)
2553   {
2554   BOOL more;
2555   if (first_addr != NULL || continue_more ||
2556         (
2557            (tls_out.active < 0 ||
2558            verify_check_this_host(&(ob->hosts_nopass_tls), NULL, host->name,
2559              host->address, NULL) != OK)
2560         &&
2561            transport_check_waiting(tblock->name, host->name,
2562              tblock->connection_max_messages, new_message_id, &more)
2563         ))
2564     {
2565     uschar *msg;
2566     BOOL pass_message;
2567
2568     if (send_rset)
2569       {
2570       if (! (ok = smtp_write_command(&outblock, FALSE, "RSET\r\n") >= 0))
2571         {
2572         msg = US string_sprintf("send() to %s [%s] failed: %s", host->name,
2573           host->address, strerror(save_errno));
2574         send_quit = FALSE;
2575         }
2576       else if (! (ok = smtp_read_response(&inblock, buffer, sizeof(buffer), '2',
2577                   ob->command_timeout)))
2578         {
2579         int code;
2580         send_quit = check_response(host, &errno, 0, buffer, &code, &msg,
2581           &pass_message);
2582         if (!send_quit)
2583           {
2584           DEBUG(D_transport) debug_printf("H=%s [%s] %s\n",
2585             host->name, host->address, msg);
2586           }
2587         }
2588       }
2589
2590     /* Either RSET was not needed, or it succeeded */
2591
2592     if (ok)
2593       {
2594       if (first_addr != NULL)            /* More addresses still to be sent */
2595         {                                /*   in this run of the transport */
2596         continue_sequence++;             /* Causes * in logging */
2597         goto SEND_MESSAGE;
2598         }
2599       if (continue_more) return yield;   /* More addresses for another run */
2600
2601       /* Pass the socket to a new Exim process. Before doing so, we must shut
2602       down TLS. Not all MTAs allow for the continuation of the SMTP session
2603       when TLS is shut down. We test for this by sending a new EHLO. If we
2604       don't get a good response, we don't attempt to pass the socket on. */
2605
2606 #ifdef SUPPORT_TLS
2607       if (tls_out.active >= 0)
2608         {
2609         tls_close(FALSE, TRUE);
2610         if (smtps)
2611           ok = FALSE;
2612         else
2613           ok = smtp_write_command(&outblock,FALSE,"EHLO %s\r\n",helo_data) >= 0 &&
2614                smtp_read_response(&inblock, buffer, sizeof(buffer), '2',
2615                  ob->command_timeout);
2616         }
2617 #endif
2618
2619       /* If the socket is successfully passed, we musn't send QUIT (or
2620       indeed anything!) from here. */
2621
2622       if (ok && transport_pass_socket(tblock->name, host->name, host->address,
2623             new_message_id, inblock.sock))
2624         {
2625         send_quit = FALSE;
2626         }
2627       }
2628
2629     /* If RSET failed and there are addresses left, they get deferred. */
2630
2631     else set_errno(first_addr, errno, msg, DEFER, FALSE, host);
2632     }
2633   }
2634
2635 /* End off tidily with QUIT unless the connection has died or the socket has
2636 been passed to another process. There has been discussion on the net about what
2637 to do after sending QUIT. The wording of the RFC suggests that it is necessary
2638 to wait for a response, but on the other hand, there isn't anything one can do
2639 with an error response, other than log it. Exim used to do that. However,
2640 further discussion suggested that it is positively advantageous not to wait for
2641 the response, but to close the session immediately. This is supposed to move
2642 the TCP/IP TIME_WAIT state from the server to the client, thereby removing some
2643 load from the server. (Hosts that are both servers and clients may not see much
2644 difference, of course.) Further discussion indicated that this was safe to do
2645 on Unix systems which have decent implementations of TCP/IP that leave the
2646 connection around for a while (TIME_WAIT) after the application has gone away.
2647 This enables the response sent by the server to be properly ACKed rather than
2648 timed out, as can happen on broken TCP/IP implementations on other OS.
2649
2650 This change is being made on 31-Jul-98. After over a year of trouble-free
2651 operation, the old commented-out code was removed on 17-Sep-99. */
2652
2653 SEND_QUIT:
2654 if (send_quit) (void)smtp_write_command(&outblock, FALSE, "QUIT\r\n");
2655
2656 END_OFF:
2657
2658 #ifdef SUPPORT_TLS
2659 tls_close(FALSE, TRUE);
2660 #endif
2661
2662 /* Close the socket, and return the appropriate value, first setting
2663 works because the NULL setting is passed back to the calling process, and
2664 remote_max_parallel is forced to 1 when delivering over an existing connection,
2665
2666 If all went well and continue_more is set, we shouldn't actually get here if
2667 there are further addresses, as the return above will be taken. However,
2668 writing RSET might have failed, or there may be other addresses whose hosts are
2669 specified in the transports, and therefore not visible at top level, in which
2670 case continue_more won't get set. */
2671
2672 (void)close(inblock.sock);
2673
2674 #ifdef EXPERIMENTAL_EVENT
2675 (void) event_raise(tblock->event_action, US"tcp:close", NULL);
2676 #endif
2677
2678 continue_transport = NULL;
2679 continue_hostname = NULL;
2680 return yield;
2681 }
2682
2683
2684
2685
2686 /*************************************************
2687 *              Closedown entry point             *
2688 *************************************************/
2689
2690 /* This function is called when exim is passed an open smtp channel
2691 from another incarnation, but the message which it has been asked
2692 to deliver no longer exists. The channel is on stdin.
2693
2694 We might do fancy things like looking for another message to send down
2695 the channel, but if the one we sought has gone, it has probably been
2696 delivered by some other process that itself will seek further messages,
2697 so just close down our connection.
2698
2699 Argument:   pointer to the transport instance block
2700 Returns:    nothing
2701 */
2702
2703 void
2704 smtp_transport_closedown(transport_instance *tblock)
2705 {
2706 smtp_transport_options_block *ob =
2707   (smtp_transport_options_block *)(tblock->options_block);
2708 smtp_inblock inblock;
2709 smtp_outblock outblock;
2710 uschar buffer[256];
2711 uschar inbuffer[4096];
2712 uschar outbuffer[16];
2713
2714 inblock.sock = fileno(stdin);
2715 inblock.buffer = inbuffer;
2716 inblock.buffersize = sizeof(inbuffer);
2717 inblock.ptr = inbuffer;
2718 inblock.ptrend = inbuffer;
2719
2720 outblock.sock = inblock.sock;
2721 outblock.buffersize = sizeof(outbuffer);
2722 outblock.buffer = outbuffer;
2723 outblock.ptr = outbuffer;
2724 outblock.cmd_count = 0;
2725 outblock.authenticating = FALSE;
2726
2727 (void)smtp_write_command(&outblock, FALSE, "QUIT\r\n");
2728 (void)smtp_read_response(&inblock, buffer, sizeof(buffer), '2',
2729   ob->command_timeout);
2730 (void)close(inblock.sock);
2731 }
2732
2733
2734
2735 /*************************************************
2736 *            Prepare addresses for delivery      *
2737 *************************************************/
2738
2739 /* This function is called to flush out error settings from previous delivery
2740 attempts to other hosts. It also records whether we got here via an MX record
2741 or not in the more_errno field of the address. We are interested only in
2742 addresses that are still marked DEFER - others may have got delivered to a
2743 previously considered IP address. Set their status to PENDING_DEFER to indicate
2744 which ones are relevant this time.
2745
2746 Arguments:
2747   addrlist     the list of addresses
2748   host         the host we are delivering to
2749
2750 Returns:       the first address for this delivery
2751 */
2752
2753 static address_item *
2754 prepare_addresses(address_item *addrlist, host_item *host)
2755 {
2756 address_item *first_addr = NULL;
2757 address_item *addr;
2758 for (addr = addrlist; addr != NULL; addr = addr->next)
2759   {
2760   if (addr->transport_return != DEFER) continue;
2761   if (first_addr == NULL) first_addr = addr;
2762   addr->transport_return = PENDING_DEFER;
2763   addr->basic_errno = 0;
2764   addr->more_errno = (host->mx >= 0)? 'M' : 'A';
2765   addr->message = NULL;
2766 #ifdef SUPPORT_TLS
2767   addr->cipher = NULL;
2768   addr->ourcert = NULL;
2769   addr->peercert = NULL;
2770   addr->peerdn = NULL;
2771   addr->ocsp = OCSP_NOT_REQ;
2772 #endif
2773   }
2774 return first_addr;
2775 }
2776
2777
2778
2779 /*************************************************
2780 *              Main entry point                  *
2781 *************************************************/
2782
2783 /* See local README for interface details. As this is a remote transport, it is
2784 given a chain of addresses to be delivered in one connection, if possible. It
2785 always returns TRUE, indicating that each address has its own independent
2786 status set, except if there is a setting up problem, in which case it returns
2787 FALSE. */
2788
2789 BOOL
2790 smtp_transport_entry(
2791   transport_instance *tblock,      /* data for this instantiation */
2792   address_item *addrlist)          /* addresses we are working on */
2793 {
2794 int cutoff_retry;
2795 int port;
2796 int hosts_defer = 0;
2797 int hosts_fail  = 0;
2798 int hosts_looked_up = 0;
2799 int hosts_retry = 0;
2800 int hosts_serial = 0;
2801 int hosts_total = 0;
2802 int total_hosts_tried = 0;
2803 address_item *addr;
2804 BOOL expired = TRUE;
2805 BOOL continuing = continue_hostname != NULL;
2806 uschar *expanded_hosts = NULL;
2807 uschar *pistring;
2808 uschar *tid = string_sprintf("%s transport", tblock->name);
2809 smtp_transport_options_block *ob =
2810   (smtp_transport_options_block *)(tblock->options_block);
2811 host_item *hostlist = addrlist->host_list;
2812 host_item *host = NULL;
2813
2814 DEBUG(D_transport)
2815   {
2816   debug_printf("%s transport entered\n", tblock->name);
2817   for (addr = addrlist; addr != NULL; addr = addr->next)
2818     debug_printf("  %s\n", addr->address);
2819   if (continuing) debug_printf("already connected to %s [%s]\n",
2820       continue_hostname, continue_host_address);
2821   }
2822
2823 /* Set the flag requesting that these hosts be added to the waiting
2824 database if the delivery fails temporarily or if we are running with
2825 queue_smtp or a 2-stage queue run. This gets unset for certain
2826 kinds of error, typically those that are specific to the message. */
2827
2828 update_waiting =  TRUE;
2829
2830 /* If a host list is not defined for the addresses - they must all have the
2831 same one in order to be passed to a single transport - or if the transport has
2832 a host list with hosts_override set, use the host list supplied with the
2833 transport. It is an error for this not to exist. */
2834
2835 if (hostlist == NULL || (ob->hosts_override && ob->hosts != NULL))
2836   {
2837   if (ob->hosts == NULL)
2838     {
2839     addrlist->message = string_sprintf("%s transport called with no hosts set",
2840       tblock->name);
2841     addrlist->transport_return = PANIC;
2842     return FALSE;   /* Only top address has status */
2843     }
2844
2845   DEBUG(D_transport) debug_printf("using the transport's hosts: %s\n",
2846     ob->hosts);
2847
2848   /* If the transport's host list contains no '$' characters, and we are not
2849   randomizing, it is fixed and therefore a chain of hosts can be built once
2850   and for all, and remembered for subsequent use by other calls to this
2851   transport. If, on the other hand, the host list does contain '$', or we are
2852   randomizing its order, we have to rebuild it each time. In the fixed case,
2853   as the hosts string will never be used again, it doesn't matter that we
2854   replace all the : characters with zeros. */
2855
2856   if (ob->hostlist == NULL)
2857     {
2858     uschar *s = ob->hosts;
2859
2860     if (Ustrchr(s, '$') != NULL)
2861       {
2862       expanded_hosts = expand_string(s);
2863       if (expanded_hosts == NULL)
2864         {
2865         addrlist->message = string_sprintf("failed to expand list of hosts "
2866           "\"%s\" in %s transport: %s", s, tblock->name, expand_string_message);
2867         addrlist->transport_return = search_find_defer? DEFER : PANIC;
2868         return FALSE;     /* Only top address has status */
2869         }
2870       DEBUG(D_transport) debug_printf("expanded list of hosts \"%s\" to "
2871         "\"%s\"\n", s, expanded_hosts);
2872       s = expanded_hosts;
2873       }
2874     else
2875       if (ob->hosts_randomize) s = expanded_hosts = string_copy(s);
2876
2877     host_build_hostlist(&hostlist, s, ob->hosts_randomize);
2878
2879     /* Check that the expansion yielded something useful. */
2880     if (hostlist == NULL)
2881       {
2882       addrlist->message =
2883         string_sprintf("%s transport has empty hosts setting", tblock->name);
2884       addrlist->transport_return = PANIC;
2885       return FALSE;   /* Only top address has status */
2886       }
2887
2888     /* If there was no expansion of hosts, save the host list for
2889     next time. */
2890
2891     if (expanded_hosts == NULL) ob->hostlist = hostlist;
2892     }
2893
2894   /* This is not the first time this transport has been run in this delivery;
2895   the host list was built previously. */
2896
2897   else hostlist = ob->hostlist;
2898   }
2899
2900 /* The host list was supplied with the address. If hosts_randomize is set, we
2901 must sort it into a random order if it did not come from MX records and has not
2902 already been randomized (but don't bother if continuing down an existing
2903 connection). */
2904
2905 else if (ob->hosts_randomize && hostlist->mx == MX_NONE && !continuing)
2906   {
2907   host_item *newlist = NULL;
2908   while (hostlist != NULL)
2909     {
2910     host_item *h = hostlist;
2911     hostlist = hostlist->next;
2912
2913     h->sort_key = random_number(100);
2914
2915     if (newlist == NULL)
2916       {
2917       h->next = NULL;
2918       newlist = h;
2919       }
2920     else if (h->sort_key < newlist->sort_key)
2921       {
2922       h->next = newlist;
2923       newlist = h;
2924       }
2925     else
2926       {
2927       host_item *hh = newlist;
2928       while (hh->next != NULL)
2929         {
2930         if (h->sort_key < hh->next->sort_key) break;
2931         hh = hh->next;
2932         }
2933       h->next = hh->next;
2934       hh->next = h;
2935       }
2936     }
2937
2938   hostlist = addrlist->host_list = newlist;
2939   }
2940
2941
2942 /* Sort out the default port.  */
2943
2944 if (!smtp_get_port(ob->port, addrlist, &port, tid)) return FALSE;
2945
2946
2947 /* For each host-plus-IP-address on the list:
2948
2949 .  If this is a continued delivery and the host isn't the one with the
2950    current connection, skip.
2951
2952 .  If the status is unusable (i.e. previously failed or retry checked), skip.
2953
2954 .  If no IP address set, get the address, either by turning the name into
2955    an address, calling gethostbyname if gethostbyname is on, or by calling
2956    the DNS. The DNS may yield multiple addresses, in which case insert the
2957    extra ones into the list.
2958
2959 .  Get the retry data if not previously obtained for this address and set the
2960    field which remembers the state of this address. Skip if the retry time is
2961    not reached. If not, remember whether retry data was found. The retry string
2962    contains both the name and the IP address.
2963
2964 .  Scan the list of addresses and mark those whose status is DEFER as
2965    PENDING_DEFER. These are the only ones that will be processed in this cycle
2966    of the hosts loop.
2967
2968 .  Make a delivery attempt - addresses marked PENDING_DEFER will be tried.
2969    Some addresses may be successfully delivered, others may fail, and yet
2970    others may get temporary errors and so get marked DEFER.
2971
2972 .  The return from the delivery attempt is OK if a connection was made and a
2973    valid SMTP dialogue was completed. Otherwise it is DEFER.
2974
2975 .  If OK, add a "remove" retry item for this host/IPaddress, if any.
2976
2977 .  If fail to connect, or other defer state, add a retry item.
2978
2979 .  If there are any addresses whose status is still DEFER, carry on to the
2980    next host/IPaddress, unless we have tried the number of hosts given
2981    by hosts_max_try or hosts_max_try_hardlimit; otherwise return. Note that
2982    there is some fancy logic for hosts_max_try that means its limit can be
2983    overstepped in some circumstances.
2984
2985 If we get to the end of the list, all hosts have deferred at least one address,
2986 or not reached their retry times. If delay_after_cutoff is unset, it requests a
2987 delivery attempt to those hosts whose last try was before the arrival time of
2988 the current message. To cope with this, we have to go round the loop a second
2989 time. After that, set the status and error data for any addresses that haven't
2990 had it set already. */
2991
2992 for (cutoff_retry = 0; expired &&
2993      cutoff_retry < ((ob->delay_after_cutoff)? 1 : 2);
2994      cutoff_retry++)
2995   {
2996   host_item *nexthost = NULL;
2997   int unexpired_hosts_tried = 0;
2998
2999   for (host = hostlist;
3000        host != NULL &&
3001          unexpired_hosts_tried < ob->hosts_max_try &&
3002          total_hosts_tried < ob->hosts_max_try_hardlimit;
3003        host = nexthost)
3004     {
3005     int rc;
3006     int host_af;
3007     uschar *rs;
3008     BOOL serialized = FALSE;
3009     BOOL host_is_expired = FALSE;
3010     BOOL message_defer = FALSE;
3011     BOOL ifchanges = FALSE;
3012     BOOL some_deferred = FALSE;
3013     address_item *first_addr = NULL;
3014     uschar *interface = NULL;
3015     uschar *retry_host_key = NULL;
3016     uschar *retry_message_key = NULL;
3017     uschar *serialize_key = NULL;
3018
3019     /* Default next host is next host. :-) But this can vary if the
3020     hosts_max_try limit is hit (see below). It may also be reset if a host
3021     address is looked up here (in case the host was multihomed). */
3022
3023     nexthost = host->next;
3024
3025     /* If the address hasn't yet been obtained from the host name, look it up
3026     now, unless the host is already marked as unusable. If it is marked as
3027     unusable, it means that the router was unable to find its IP address (in
3028     the DNS or wherever) OR we are in the 2nd time round the cutoff loop, and
3029     the lookup failed last time. We don't get this far if *all* MX records
3030     point to non-existent hosts; that is treated as a hard error.
3031
3032     We can just skip this host entirely. When the hosts came from the router,
3033     the address will timeout based on the other host(s); when the address is
3034     looked up below, there is an explicit retry record added.
3035
3036     Note that we mustn't skip unusable hosts if the address is not unset; they
3037     may be needed as expired hosts on the 2nd time round the cutoff loop. */
3038
3039     if (host->address == NULL)
3040       {
3041       int new_port, flags;
3042       host_item *hh;
3043       uschar *canonical_name;
3044
3045       if (host->status >= hstatus_unusable)
3046         {
3047         DEBUG(D_transport) debug_printf("%s has no address and is unusable - skipping\n",
3048           host->name);
3049         continue;
3050         }
3051
3052       DEBUG(D_transport) debug_printf("getting address for %s\n", host->name);
3053
3054       /* The host name is permitted to have an attached port. Find it, and
3055       strip it from the name. Just remember it for now. */
3056
3057       new_port = host_item_get_port(host);
3058
3059       /* Count hosts looked up */
3060
3061       hosts_looked_up++;
3062
3063       /* Find by name if so configured, or if it's an IP address. We don't
3064       just copy the IP address, because we need the test-for-local to happen. */
3065
3066       flags = HOST_FIND_BY_A;
3067       if (ob->dns_qualify_single) flags |= HOST_FIND_QUALIFY_SINGLE;
3068       if (ob->dns_search_parents) flags |= HOST_FIND_SEARCH_PARENTS;
3069
3070       if (ob->gethostbyname || string_is_ip_address(host->name, NULL) != 0)
3071         rc = host_find_byname(host, NULL, flags, &canonical_name, TRUE);
3072       else
3073         rc = host_find_bydns(host, NULL, flags, NULL, NULL, NULL,
3074           ob->dnssec_request_domains, ob->dnssec_require_domains,
3075           &canonical_name, NULL);
3076
3077       /* Update the host (and any additional blocks, resulting from
3078       multihoming) with a host-specific port, if any. */
3079
3080       for (hh = host; hh != nexthost; hh = hh->next) hh->port = new_port;
3081
3082       /* Failure to find the host at this time (usually DNS temporary failure)
3083       is really a kind of routing failure rather than a transport failure.
3084       Therefore we add a retry item of the routing kind, not to stop us trying
3085       to look this name up here again, but to ensure the address gets timed
3086       out if the failures go on long enough. A complete failure at this point
3087       commonly points to a configuration error, but the best action is still
3088       to carry on for the next host. */
3089
3090       if (rc == HOST_FIND_AGAIN || rc == HOST_FIND_FAILED)
3091         {
3092         retry_add_item(addrlist, string_sprintf("R:%s", host->name), 0);
3093         expired = FALSE;
3094         if (rc == HOST_FIND_AGAIN) hosts_defer++; else hosts_fail++;
3095         DEBUG(D_transport) debug_printf("rc = %s for %s\n", (rc == HOST_FIND_AGAIN)?
3096           "HOST_FIND_AGAIN" : "HOST_FIND_FAILED", host->name);
3097         host->status = hstatus_unusable;
3098
3099         for (addr = addrlist; addr != NULL; addr = addr->next)
3100           {
3101           if (addr->transport_return != DEFER) continue;
3102           addr->basic_errno = ERRNO_UNKNOWNHOST;
3103           addr->message =
3104             string_sprintf("failed to lookup IP address for %s", host->name);
3105           }
3106         continue;
3107         }
3108
3109       /* If the host is actually the local host, we may have a problem, or
3110       there may be some cunning configuration going on. In the problem case,
3111       log things and give up. The default transport status is already DEFER. */
3112
3113       if (rc == HOST_FOUND_LOCAL && !ob->allow_localhost)
3114         {
3115         for (addr = addrlist; addr != NULL; addr = addr->next)
3116           {
3117           addr->basic_errno = 0;
3118           addr->message = string_sprintf("%s transport found host %s to be "
3119             "local", tblock->name, host->name);
3120           }
3121         goto END_TRANSPORT;
3122         }
3123       }   /* End of block for IP address lookup */
3124
3125     /* If this is a continued delivery, we are interested only in the host
3126     which matches the name of the existing open channel. The check is put
3127     here after the local host lookup, in case the name gets expanded as a
3128     result of the lookup. Set expired FALSE, to save the outer loop executing
3129     twice. */
3130
3131     if (continuing && (Ustrcmp(continue_hostname, host->name) != 0 ||
3132                        Ustrcmp(continue_host_address, host->address) != 0))
3133       {
3134       expired = FALSE;
3135       continue;      /* With next host */
3136       }
3137
3138     /* Reset the default next host in case a multihomed host whose addresses
3139     are not looked up till just above added to the host list. */
3140
3141     nexthost = host->next;
3142
3143     /* If queue_smtp is set (-odqs or the first part of a 2-stage run), or the
3144     domain is in queue_smtp_domains, we don't actually want to attempt any
3145     deliveries. When doing a queue run, queue_smtp_domains is always unset. If
3146     there is a lookup defer in queue_smtp_domains, proceed as if the domain
3147     were not in it. We don't want to hold up all SMTP deliveries! Except when
3148     doing a two-stage queue run, don't do this if forcing. */
3149
3150     if ((!deliver_force || queue_2stage) && (queue_smtp ||
3151         match_isinlist(addrlist->domain, &queue_smtp_domains, 0,
3152           &domainlist_anchor, NULL, MCL_DOMAIN, TRUE, NULL) == OK))
3153       {
3154       expired = FALSE;
3155       for (addr = addrlist; addr != NULL; addr = addr->next)
3156         {
3157         if (addr->transport_return != DEFER) continue;
3158         addr->message = US"domain matches queue_smtp_domains, or -odqs set";
3159         }
3160       continue;      /* With next host */
3161       }
3162
3163     /* Count hosts being considered - purely for an intelligent comment
3164     if none are usable. */
3165
3166     hosts_total++;
3167
3168     /* Set $host and $host address now in case they are needed for the
3169     interface expansion or the serialize_hosts check; they remain set if an
3170     actual delivery happens. */
3171
3172     deliver_host = host->name;
3173     deliver_host_address = host->address;
3174     lookup_dnssec_authenticated = host->dnssec == DS_YES ? US"yes"
3175                                 : host->dnssec == DS_NO ? US"no"
3176                                 : US"";
3177
3178     /* Set up a string for adding to the retry key if the port number is not
3179     the standard SMTP port. A host may have its own port setting that overrides
3180     the default. */
3181
3182     pistring = string_sprintf(":%d", (host->port == PORT_NONE)?
3183       port : host->port);
3184     if (Ustrcmp(pistring, ":25") == 0) pistring = US"";
3185
3186     /* Select IPv4 or IPv6, and choose an outgoing interface. If the interface
3187     string changes upon expansion, we must add it to the key that is used for
3188     retries, because connections to the same host from a different interface
3189     should be treated separately. */
3190
3191     host_af = (Ustrchr(host->address, ':') == NULL)? AF_INET : AF_INET6;
3192     if (!smtp_get_interface(ob->interface, host_af, addrlist, &ifchanges,
3193          &interface, tid))
3194       return FALSE;
3195     if (ifchanges) pistring = string_sprintf("%s/%s", pistring, interface);
3196
3197     /* The first time round the outer loop, check the status of the host by
3198     inspecting the retry data. The second time round, we are interested only
3199     in expired hosts that haven't been tried since this message arrived. */
3200
3201     if (cutoff_retry == 0)
3202       {
3203       BOOL incl_ip;
3204       /* Ensure the status of the address is set by checking retry data if
3205       necessary. There may be host-specific retry data (applicable to all
3206       messages) and also data for retries of a specific message at this host.
3207       If either of these retry records are actually read, the keys used are
3208       returned to save recomputing them later. */
3209
3210       if (exp_bool(addrlist, US"transport", tblock->name, D_transport,
3211                 US"retry_include_ip_address", ob->retry_include_ip_address,
3212                 ob->expand_retry_include_ip_address, &incl_ip) != OK)
3213         continue;       /* with next host */
3214
3215       host_is_expired = retry_check_address(addrlist->domain, host, pistring,
3216         incl_ip, &retry_host_key, &retry_message_key);
3217
3218       DEBUG(D_transport) debug_printf("%s [%s]%s status = %s\n", host->name,
3219         (host->address == NULL)? US"" : host->address, pistring,
3220         (host->status == hstatus_usable)? "usable" :
3221         (host->status == hstatus_unusable)? "unusable" :
3222         (host->status == hstatus_unusable_expired)? "unusable (expired)" : "?");
3223
3224       /* Skip this address if not usable at this time, noting if it wasn't
3225       actually expired, both locally and in the address. */
3226
3227       switch (host->status)
3228         {
3229         case hstatus_unusable:
3230         expired = FALSE;
3231         setflag(addrlist, af_retry_skipped);
3232         /* Fall through */
3233
3234         case hstatus_unusable_expired:
3235         switch (host->why)
3236           {
3237           case hwhy_retry: hosts_retry++; break;
3238           case hwhy_failed:  hosts_fail++; break;
3239           case hwhy_deferred: hosts_defer++; break;
3240           }
3241
3242         /* If there was a retry message key, implying that previously there
3243         was a message-specific defer, we don't want to update the list of
3244         messages waiting for these hosts. */
3245
3246         if (retry_message_key != NULL) update_waiting = FALSE;
3247         continue;   /* With the next host or IP address */
3248         }
3249       }
3250
3251     /* Second time round the loop: if the address is set but expired, and
3252     the message is newer than the last try, let it through. */
3253
3254     else
3255       {
3256       if (host->address == NULL ||
3257           host->status != hstatus_unusable_expired ||
3258           host->last_try > received_time)
3259         continue;
3260       DEBUG(D_transport)
3261         debug_printf("trying expired host %s [%s]%s\n",
3262           host->name, host->address, pistring);
3263       host_is_expired = TRUE;
3264       }
3265
3266     /* Setting "expired=FALSE" doesn't actually mean not all hosts are expired;
3267     it remains TRUE only if all hosts are expired and none are actually tried.
3268     */
3269
3270     expired = FALSE;
3271
3272     /* If this host is listed as one to which access must be serialized,
3273     see if another Exim process has a connection to it, and if so, skip
3274     this host. If not, update the database to record our connection to it
3275     and remember this for later deletion. Do not do any of this if we are
3276     sending the message down a pre-existing connection. */
3277
3278     if (!continuing &&
3279         verify_check_this_host(&(ob->serialize_hosts), NULL, host->name,
3280           host->address, NULL) == OK)
3281       {
3282       serialize_key = string_sprintf("host-serialize-%s", host->name);
3283       if (!enq_start(serialize_key))
3284         {
3285         DEBUG(D_transport)
3286           debug_printf("skipping host %s because another Exim process "
3287             "is connected to it\n", host->name);
3288         hosts_serial++;
3289         continue;
3290         }
3291       serialized = TRUE;
3292       }
3293
3294     /* OK, we have an IP address that is not waiting for its retry time to
3295     arrive (it might be expired) OR (second time round the loop) we have an
3296     expired host that hasn't been tried since the message arrived. Have a go
3297     at delivering the message to it. First prepare the addresses by flushing
3298     out the result of previous attempts, and finding the first address that
3299     is still to be delivered. */
3300
3301     first_addr = prepare_addresses(addrlist, host);
3302
3303     DEBUG(D_transport) debug_printf("delivering %s to %s [%s] (%s%s)\n",
3304       message_id, host->name, host->address, addrlist->address,
3305       (addrlist->next == NULL)? "" : ", ...");
3306
3307     set_process_info("delivering %s to %s [%s] (%s%s)",
3308       message_id, host->name, host->address, addrlist->address,
3309       (addrlist->next == NULL)? "" : ", ...");
3310
3311     /* This is not for real; don't do the delivery. If there are
3312     any remaining hosts, list them. */
3313
3314     if (dont_deliver)
3315       {
3316       host_item *host2;
3317       set_errno(addrlist, 0, NULL, OK, FALSE, NULL);
3318       for (addr = addrlist; addr != NULL; addr = addr->next)
3319         {
3320         addr->host_used = host;
3321         addr->special_action = '*';
3322         addr->message = US"delivery bypassed by -N option";
3323         }
3324       DEBUG(D_transport)
3325         {
3326         debug_printf("*** delivery by %s transport bypassed by -N option\n"
3327                      "*** host and remaining hosts:\n", tblock->name);
3328         for (host2 = host; host2 != NULL; host2 = host2->next)
3329           debug_printf("    %s [%s]\n", host2->name,
3330             (host2->address == NULL)? US"unset" : host2->address);
3331         }
3332       rc = OK;
3333       }
3334
3335     /* This is for real. If the host is expired, we don't count it for
3336     hosts_max_retry. This ensures that all hosts must expire before an address
3337     is timed out, unless hosts_max_try_hardlimit (which protects against
3338     lunatic DNS configurations) is reached.
3339
3340     If the host is not expired and we are about to hit the hosts_max_retry
3341     limit, check to see if there is a subsequent hosts with a different MX
3342     value. If so, make that the next host, and don't count this one. This is a
3343     heuristic to make sure that different MXs do get tried. With a normal kind
3344     of retry rule, they would get tried anyway when the earlier hosts were
3345     delayed, but if the domain has a "retry every time" type of rule - as is
3346     often used for the the very large ISPs, that won't happen. */
3347
3348     else
3349       {
3350       if (!host_is_expired && ++unexpired_hosts_tried >= ob->hosts_max_try)
3351         {
3352         host_item *h;
3353         DEBUG(D_transport)
3354           debug_printf("hosts_max_try limit reached with this host\n");
3355         for (h = host; h != NULL; h = h->next)
3356           if (h->mx != host->mx) break;
3357         if (h != NULL)
3358           {
3359           nexthost = h;
3360           unexpired_hosts_tried--;
3361           DEBUG(D_transport) debug_printf("however, a higher MX host exists "
3362             "and will be tried\n");
3363           }
3364         }
3365
3366       /* Attempt the delivery. */
3367
3368       total_hosts_tried++;
3369       rc = smtp_deliver(addrlist, host, host_af, port, interface, tblock,
3370         expanded_hosts != NULL, &message_defer, FALSE);
3371
3372       /* Yield is one of:
3373          OK     => connection made, each address contains its result;
3374                      message_defer is set for message-specific defers (when all
3375                      recipients are marked defer)
3376          DEFER  => there was a non-message-specific delivery problem;
3377          ERROR  => there was a problem setting up the arguments for a filter,
3378                    or there was a problem with expanding added headers
3379       */
3380
3381       /* If the result is not OK, there was a non-message-specific problem.
3382       If the result is DEFER, we need to write to the logs saying what happened
3383       for this particular host, except in the case of authentication and TLS
3384       failures, where the log has already been written. If all hosts defer a
3385       general message is written at the end. */
3386
3387       if (rc == DEFER && first_addr->basic_errno != ERRNO_AUTHFAIL &&
3388                          first_addr->basic_errno != ERRNO_TLSFAILURE)
3389         write_logs(first_addr, host);
3390
3391 #ifdef EXPERIMENTAL_EVENT
3392       if (rc == DEFER)
3393         deferred_event_raise(first_addr, host);
3394 #endif
3395
3396       /* If STARTTLS was accepted, but there was a failure in setting up the
3397       TLS session (usually a certificate screwup), and the host is not in
3398       hosts_require_tls, and tls_tempfail_tryclear is true, try again, with
3399       TLS forcibly turned off. We have to start from scratch with a new SMTP
3400       connection. That's why the retry is done from here, not from within
3401       smtp_deliver(). [Rejections of STARTTLS itself don't screw up the
3402       session, so the in-clear transmission after those errors, if permitted,
3403       happens inside smtp_deliver().] */
3404
3405 #ifdef SUPPORT_TLS
3406       if (  rc == DEFER
3407          && first_addr->basic_errno == ERRNO_TLSFAILURE
3408          && ob->tls_tempfail_tryclear
3409          && verify_check_this_host(&(ob->hosts_require_tls), NULL, host->name,
3410              host->address, NULL) != OK
3411          )
3412         {
3413         log_write(0, LOG_MAIN, "TLS session failure: delivering unencrypted "
3414           "to %s [%s] (not in hosts_require_tls)", host->name, host->address);
3415         first_addr = prepare_addresses(addrlist, host);
3416         rc = smtp_deliver(addrlist, host, host_af, port, interface, tblock,
3417           expanded_hosts != NULL, &message_defer, TRUE);
3418         if (rc == DEFER && first_addr->basic_errno != ERRNO_AUTHFAIL)
3419           write_logs(first_addr, host);
3420 # ifdef EXPERIMENTAL_EVENT
3421         if (rc == DEFER)
3422           deferred_event_raise(first_addr, host);
3423 # endif
3424         }
3425 #endif  /*SUPPORT_TLS*/
3426       }
3427
3428     /* Delivery attempt finished */
3429
3430     rs = (rc == OK)? US"OK" : (rc == DEFER)? US"DEFER" : (rc == ERROR)?
3431       US"ERROR" : US"?";
3432
3433     set_process_info("delivering %s: just tried %s [%s] for %s%s: result %s",
3434       message_id, host->name, host->address, addrlist->address,
3435       (addrlist->next == NULL)? "" : " (& others)", rs);
3436
3437     /* Release serialization if set up */
3438
3439     if (serialized) enq_end(serialize_key);
3440
3441     /* If the result is DEFER, or if a host retry record is known to exist, we
3442     need to add an item to the retry chain for updating the retry database
3443     at the end of delivery. We only need to add the item to the top address,
3444     of course. Also, if DEFER, we mark the IP address unusable so as to skip it
3445     for any other delivery attempts using the same address. (It is copied into
3446     the unusable tree at the outer level, so even if different address blocks
3447     contain the same address, it still won't get tried again.) */
3448
3449     if (rc == DEFER || retry_host_key != NULL)
3450       {
3451       int delete_flag = (rc != DEFER)? rf_delete : 0;
3452       if (retry_host_key == NULL)
3453         {
3454         BOOL incl_ip;
3455         if (exp_bool(addrlist, US"transport", tblock->name, D_transport,
3456                   US"retry_include_ip_address", ob->retry_include_ip_address,
3457                   ob->expand_retry_include_ip_address, &incl_ip) != OK)
3458           incl_ip = TRUE;       /* error; use most-specific retry record */
3459
3460         retry_host_key = incl_ip ?
3461           string_sprintf("T:%S:%s%s", host->name, host->address, pistring) :
3462           string_sprintf("T:%S%s", host->name, pistring);
3463         }
3464
3465       /* If a delivery of another message over an existing SMTP connection
3466       yields DEFER, we do NOT set up retry data for the host. This covers the
3467       case when there are delays in routing the addresses in the second message
3468       that are so long that the server times out. This is alleviated by not
3469       routing addresses that previously had routing defers when handling an
3470       existing connection, but even so, this case may occur (e.g. if a
3471       previously happily routed address starts giving routing defers). If the
3472       host is genuinely down, another non-continued message delivery will
3473       notice it soon enough. */
3474
3475       if (delete_flag != 0 || !continuing)
3476         retry_add_item(first_addr, retry_host_key, rf_host | delete_flag);
3477
3478       /* We may have tried an expired host, if its retry time has come; ensure
3479       the status reflects the expiry for the benefit of any other addresses. */
3480
3481       if (rc == DEFER)
3482         {
3483         host->status = (host_is_expired)?
3484           hstatus_unusable_expired : hstatus_unusable;
3485         host->why = hwhy_deferred;
3486         }
3487       }
3488
3489     /* If message_defer is set (host was OK, but every recipient got deferred
3490     because of some message-specific problem), or if that had happened
3491     previously so that a message retry key exists, add an appropriate item
3492     to the retry chain. Note that if there was a message defer but now there is
3493     a host defer, the message defer record gets deleted. That seems perfectly
3494     reasonable. Also, stop the message from being remembered as waiting
3495     for specific hosts. */
3496
3497     if (message_defer || retry_message_key != NULL)
3498       {
3499       int delete_flag = message_defer? 0 : rf_delete;
3500       if (retry_message_key == NULL)
3501         {
3502         BOOL incl_ip;
3503         if (exp_bool(addrlist, US"transport", tblock->name, D_transport,
3504                   US"retry_include_ip_address", ob->retry_include_ip_address,
3505                   ob->expand_retry_include_ip_address, &incl_ip) != OK)
3506           incl_ip = TRUE;       /* error; use most-specific retry record */
3507
3508         retry_message_key = incl_ip ?
3509           string_sprintf("T:%S:%s%s:%s", host->name, host->address, pistring,
3510             message_id) :
3511           string_sprintf("T:%S%s:%s", host->name, pistring, message_id);
3512         }
3513       retry_add_item(addrlist, retry_message_key,
3514         rf_message | rf_host | delete_flag);
3515       update_waiting = FALSE;
3516       }
3517
3518     /* Any return other than DEFER (that is, OK or ERROR) means that the
3519     addresses have got their final statuses filled in for this host. In the OK
3520     case, see if any of them are deferred. */
3521
3522     if (rc == OK)
3523       {
3524       for (addr = addrlist; addr != NULL; addr = addr->next)
3525         {
3526         if (addr->transport_return == DEFER)
3527           {
3528           some_deferred = TRUE;
3529           break;
3530           }
3531         }
3532       }
3533
3534     /* If no addresses deferred or the result was ERROR, return. We do this for
3535     ERROR because a failing filter set-up or add_headers expansion is likely to
3536     fail for any host we try. */
3537
3538     if (rc == ERROR || (rc == OK && !some_deferred))
3539       {
3540       DEBUG(D_transport) debug_printf("Leaving %s transport\n", tblock->name);
3541       return TRUE;    /* Each address has its status */
3542       }
3543
3544     /* If the result was DEFER or some individual addresses deferred, let
3545     the loop run to try other hosts with the deferred addresses, except for the
3546     case when we were trying to deliver down an existing channel and failed.
3547     Don't try any other hosts in this case. */
3548
3549     if (continuing) break;
3550
3551     /* If the whole delivery, or some individual addresses, were deferred and
3552     there are more hosts that could be tried, do not count this host towards
3553     the hosts_max_try limit if the age of the message is greater than the
3554     maximum retry time for this host. This means we may try try all hosts,
3555     ignoring the limit, when messages have been around for some time. This is
3556     important because if we don't try all hosts, the address will never time
3557     out. NOTE: this does not apply to hosts_max_try_hardlimit. */
3558
3559     if ((rc == DEFER || some_deferred) && nexthost != NULL)
3560       {
3561       BOOL timedout;
3562       retry_config *retry = retry_find_config(host->name, NULL, 0, 0);
3563
3564       if (retry != NULL && retry->rules != NULL)
3565         {
3566         retry_rule *last_rule;
3567         for (last_rule = retry->rules;
3568              last_rule->next != NULL;
3569              last_rule = last_rule->next);
3570         timedout = time(NULL) - received_time > last_rule->timeout;
3571         }
3572       else timedout = TRUE;    /* No rule => timed out */
3573
3574       if (timedout)
3575         {
3576         unexpired_hosts_tried--;
3577         DEBUG(D_transport) debug_printf("temporary delivery error(s) override "
3578           "hosts_max_try (message older than host's retry time)\n");
3579         }
3580       }
3581     }   /* End of loop for trying multiple hosts. */
3582
3583   /* This is the end of the loop that repeats iff expired is TRUE and
3584   ob->delay_after_cutoff is FALSE. The second time round we will
3585   try those hosts that haven't been tried since the message arrived. */
3586
3587   DEBUG(D_transport)
3588     {
3589     debug_printf("all IP addresses skipped or deferred at least one address\n");
3590     if (expired && !ob->delay_after_cutoff && cutoff_retry == 0)
3591       debug_printf("retrying IP addresses not tried since message arrived\n");
3592     }
3593   }
3594
3595
3596 /* Get here if all IP addresses are skipped or defer at least one address. In
3597 MUA wrapper mode, this will happen only for connection or other non-message-
3598 specific failures. Force the delivery status for all addresses to FAIL. */
3599
3600 if (mua_wrapper)
3601   {
3602   for (addr = addrlist; addr != NULL; addr = addr->next)
3603     addr->transport_return = FAIL;
3604   goto END_TRANSPORT;
3605   }
3606
3607 /* In the normal, non-wrapper case, add a standard message to each deferred
3608 address if there hasn't been an error, that is, if it hasn't actually been
3609 tried this time. The variable "expired" will be FALSE if any deliveries were
3610 actually tried, or if there was at least one host that was not expired. That
3611 is, it is TRUE only if no deliveries were tried and all hosts were expired. If
3612 a delivery has been tried, an error code will be set, and the failing of the
3613 message is handled by the retry code later.
3614
3615 If queue_smtp is set, or this transport was called to send a subsequent message
3616 down an existing TCP/IP connection, and something caused the host not to be
3617 found, we end up here, but can detect these cases and handle them specially. */
3618
3619 for (addr = addrlist; addr != NULL; addr = addr->next)
3620   {
3621   /* If host is not NULL, it means that we stopped processing the host list
3622   because of hosts_max_try or hosts_max_try_hardlimit. In the former case, this
3623   means we need to behave as if some hosts were skipped because their retry
3624   time had not come. Specifically, this prevents the address from timing out.
3625   However, if we have hit hosts_max_try_hardlimit, we want to behave as if all
3626   hosts were tried. */
3627
3628   if (host != NULL)
3629     {
3630     if (total_hosts_tried >= ob->hosts_max_try_hardlimit)
3631       {
3632       DEBUG(D_transport)
3633         debug_printf("hosts_max_try_hardlimit reached: behave as if all "
3634           "hosts were tried\n");
3635       }
3636     else
3637       {
3638       DEBUG(D_transport)
3639         debug_printf("hosts_max_try limit caused some hosts to be skipped\n");
3640       setflag(addr, af_retry_skipped);
3641       }
3642     }
3643
3644   if (queue_smtp)    /* no deliveries attempted */
3645     {
3646     addr->transport_return = DEFER;
3647     addr->basic_errno = 0;
3648     addr->message = US"SMTP delivery explicitly queued";
3649     }
3650
3651   else if (addr->transport_return == DEFER &&
3652        (addr->basic_errno == ERRNO_UNKNOWNERROR || addr->basic_errno == 0) &&
3653        addr->message == NULL)
3654     {
3655     addr->basic_errno = ERRNO_HRETRY;
3656     if (continue_hostname != NULL)
3657       {
3658       addr->message = US"no host found for existing SMTP connection";
3659       }
3660     else if (expired)
3661       {
3662       setflag(addr, af_pass_message);   /* This is not a security risk */
3663       addr->message = (ob->delay_after_cutoff)?
3664         US"retry time not reached for any host after a long failure period" :
3665         US"all hosts have been failing for a long time and were last tried "
3666           "after this message arrived";
3667
3668       /* If we are already using fallback hosts, or there are no fallback hosts
3669       defined, convert the result to FAIL to cause a bounce. */
3670
3671       if (addr->host_list == addr->fallback_hosts ||
3672           addr->fallback_hosts == NULL)
3673         addr->transport_return = FAIL;
3674       }
3675     else
3676       {
3677       if (hosts_retry == hosts_total)
3678         addr->message = US"retry time not reached for any host";
3679       else if (hosts_fail == hosts_total)
3680         addr->message = US"all host address lookups failed permanently";
3681       else if (hosts_defer == hosts_total)
3682         addr->message = US"all host address lookups failed temporarily";
3683       else if (hosts_serial == hosts_total)
3684         addr->message = US"connection limit reached for all hosts";
3685       else if (hosts_fail+hosts_defer == hosts_total)
3686         addr->message = US"all host address lookups failed";
3687       else addr->message = US"some host address lookups failed and retry time "
3688         "not reached for other hosts or connection limit reached";
3689       }
3690     }
3691   }
3692
3693 /* Update the database which keeps information about which messages are waiting
3694 for which hosts to become available. For some message-specific errors, the
3695 update_waiting flag is turned off because we don't want follow-on deliveries in
3696 those cases.  If this transport instance is explicitly limited to one message
3697 per connection then follow-on deliveries are not possible and there's no need
3698 to create/update the per-transport wait-<transport_name> database. */
3699
3700 if (update_waiting && tblock->connection_max_messages != 1)
3701   transport_update_waiting(hostlist, tblock->name);
3702
3703 END_TRANSPORT:
3704
3705 DEBUG(D_transport) debug_printf("Leaving %s transport\n", tblock->name);
3706
3707 return TRUE;   /* Each address has its status */
3708 }
3709
3710 /* vi: aw ai sw=2
3711 */
3712 /* End of transport/smtp.c */