1c2aa98e2SPeter Wemm /* 2d0cef73dSGregory Neil Shapiro * Copyright (c) 1998-2006 Sendmail, Inc. and its suppliers. 306f25ae9SGregory Neil Shapiro * All rights reserved. 4c2aa98e2SPeter Wemm * Copyright (c) 1983, 1995-1997 Eric P. Allman. All rights reserved. 5c2aa98e2SPeter Wemm * Copyright (c) 1988, 1993 6c2aa98e2SPeter Wemm * The Regents of the University of California. All rights reserved. 7c2aa98e2SPeter Wemm * 8c2aa98e2SPeter Wemm * By using this file, you agree to the terms and conditions set 9c2aa98e2SPeter Wemm * forth in the LICENSE file which can be found at the top level of 10c2aa98e2SPeter Wemm * the sendmail distribution. 11c2aa98e2SPeter Wemm * 12c2aa98e2SPeter Wemm */ 13c2aa98e2SPeter Wemm 1406f25ae9SGregory Neil Shapiro #include <sendmail.h> 1506f25ae9SGregory Neil Shapiro 16ffb83623SGregory Neil Shapiro SM_RCSID("@(#)$Id: parseaddr.c,v 8.401 2007/09/27 23:33:59 ca Exp $") 17d0cef73dSGregory Neil Shapiro 18d0cef73dSGregory Neil Shapiro #include <sm/sendmail.h> 19d0cef73dSGregory Neil Shapiro #include "map.h" 2040266059SGregory Neil Shapiro 2140266059SGregory Neil Shapiro static void allocaddr __P((ADDRESS *, int, char *, ENVELOPE *)); 2206f25ae9SGregory Neil Shapiro static int callsubr __P((char**, int, ENVELOPE *)); 2306f25ae9SGregory Neil Shapiro static char *map_lookup __P((STAB *, char *, char **, int *, ENVELOPE *)); 2406f25ae9SGregory Neil Shapiro static ADDRESS *buildaddr __P((char **, ADDRESS *, int, ENVELOPE *)); 25605302a5SGregory Neil Shapiro static bool hasctrlchar __P((register char *, bool, bool)); 26605302a5SGregory Neil Shapiro 27605302a5SGregory Neil Shapiro /* replacement for illegal characters in addresses */ 28605302a5SGregory Neil Shapiro #define BAD_CHAR_REPLACEMENT '?' 29c2aa98e2SPeter Wemm 30c2aa98e2SPeter Wemm /* 31c2aa98e2SPeter Wemm ** PARSEADDR -- Parse an address 32c2aa98e2SPeter Wemm ** 33c2aa98e2SPeter Wemm ** Parses an address and breaks it up into three parts: a 34c2aa98e2SPeter Wemm ** net to transmit the message on, the host to transmit it 35c2aa98e2SPeter Wemm ** to, and a user on that host. These are loaded into an 36c2aa98e2SPeter Wemm ** ADDRESS header with the values squirreled away if necessary. 37c2aa98e2SPeter Wemm ** The "user" part may not be a real user; the process may 38c2aa98e2SPeter Wemm ** just reoccur on that machine. For example, on a machine 39c2aa98e2SPeter Wemm ** with an arpanet connection, the address 40c2aa98e2SPeter Wemm ** csvax.bill@berkeley 41c2aa98e2SPeter Wemm ** will break up to a "user" of 'csvax.bill' and a host 42c2aa98e2SPeter Wemm ** of 'berkeley' -- to be transmitted over the arpanet. 43c2aa98e2SPeter Wemm ** 44c2aa98e2SPeter Wemm ** Parameters: 45c2aa98e2SPeter Wemm ** addr -- the address to parse. 46c2aa98e2SPeter Wemm ** a -- a pointer to the address descriptor buffer. 4740266059SGregory Neil Shapiro ** If NULL, an address will be created. 48c2aa98e2SPeter Wemm ** flags -- describe detail for parsing. See RF_ definitions 49c2aa98e2SPeter Wemm ** in sendmail.h. 50c2aa98e2SPeter Wemm ** delim -- the character to terminate the address, passed 51c2aa98e2SPeter Wemm ** to prescan. 52c2aa98e2SPeter Wemm ** delimptr -- if non-NULL, set to the location of the 53c2aa98e2SPeter Wemm ** delim character that was found. 54c2aa98e2SPeter Wemm ** e -- the envelope that will contain this address. 5540266059SGregory Neil Shapiro ** isrcpt -- true if the address denotes a recipient; false 5640266059SGregory Neil Shapiro ** indicates a sender. 57c2aa98e2SPeter Wemm ** 58c2aa98e2SPeter Wemm ** Returns: 59c2aa98e2SPeter Wemm ** A pointer to the address descriptor header (`a' if 60c2aa98e2SPeter Wemm ** `a' is non-NULL). 61c2aa98e2SPeter Wemm ** NULL on error. 62c2aa98e2SPeter Wemm ** 63c2aa98e2SPeter Wemm ** Side Effects: 6440266059SGregory Neil Shapiro ** e->e_to = addr 65c2aa98e2SPeter Wemm */ 66c2aa98e2SPeter Wemm 67c2aa98e2SPeter Wemm /* following delimiters are inherent to the internal algorithms */ 68c2aa98e2SPeter Wemm #define DELIMCHARS "()<>,;\r\n" /* default word delimiters */ 69c2aa98e2SPeter Wemm 70c2aa98e2SPeter Wemm ADDRESS * 7140266059SGregory Neil Shapiro parseaddr(addr, a, flags, delim, delimptr, e, isrcpt) 72c2aa98e2SPeter Wemm char *addr; 73c2aa98e2SPeter Wemm register ADDRESS *a; 74c2aa98e2SPeter Wemm int flags; 75c2aa98e2SPeter Wemm int delim; 76c2aa98e2SPeter Wemm char **delimptr; 77c2aa98e2SPeter Wemm register ENVELOPE *e; 7840266059SGregory Neil Shapiro bool isrcpt; 79c2aa98e2SPeter Wemm { 8040266059SGregory Neil Shapiro char **pvp; 81c2aa98e2SPeter Wemm auto char *delimptrbuf; 8206f25ae9SGregory Neil Shapiro bool qup; 83c2aa98e2SPeter Wemm char pvpbuf[PSBUFSIZE]; 84c2aa98e2SPeter Wemm 85c2aa98e2SPeter Wemm /* 86c2aa98e2SPeter Wemm ** Initialize and prescan address. 87c2aa98e2SPeter Wemm */ 88c2aa98e2SPeter Wemm 89c2aa98e2SPeter Wemm e->e_to = addr; 90c2aa98e2SPeter Wemm if (tTd(20, 1)) 9140266059SGregory Neil Shapiro sm_dprintf("\n--parseaddr(%s)\n", addr); 92c2aa98e2SPeter Wemm 93c2aa98e2SPeter Wemm if (delimptr == NULL) 94c2aa98e2SPeter Wemm delimptr = &delimptrbuf; 95c2aa98e2SPeter Wemm 96d0cef73dSGregory Neil Shapiro pvp = prescan(addr, delim, pvpbuf, sizeof(pvpbuf), delimptr, 97d0cef73dSGregory Neil Shapiro ExtTokenTab, false); 98c2aa98e2SPeter Wemm if (pvp == NULL) 99c2aa98e2SPeter Wemm { 100c2aa98e2SPeter Wemm if (tTd(20, 1)) 10140266059SGregory Neil Shapiro sm_dprintf("parseaddr-->NULL\n"); 10206f25ae9SGregory Neil Shapiro return NULL; 103c2aa98e2SPeter Wemm } 104c2aa98e2SPeter Wemm 10540266059SGregory Neil Shapiro if (invalidaddr(addr, delim == '\0' ? NULL : *delimptr, isrcpt)) 106c2aa98e2SPeter Wemm { 107c2aa98e2SPeter Wemm if (tTd(20, 1)) 10840266059SGregory Neil Shapiro sm_dprintf("parseaddr-->bad address\n"); 109c2aa98e2SPeter Wemm return NULL; 110c2aa98e2SPeter Wemm } 111c2aa98e2SPeter Wemm 112c2aa98e2SPeter Wemm /* 113c2aa98e2SPeter Wemm ** Save addr if we are going to have to. 114c2aa98e2SPeter Wemm ** 115c2aa98e2SPeter Wemm ** We have to do this early because there is a chance that 116c2aa98e2SPeter Wemm ** the map lookups in the rewriting rules could clobber 117c2aa98e2SPeter Wemm ** static memory somewhere. 118c2aa98e2SPeter Wemm */ 119c2aa98e2SPeter Wemm 120c2aa98e2SPeter Wemm if (bitset(RF_COPYPADDR, flags) && addr != NULL) 121c2aa98e2SPeter Wemm { 122c2aa98e2SPeter Wemm char savec = **delimptr; 123c2aa98e2SPeter Wemm 124c2aa98e2SPeter Wemm if (savec != '\0') 125c2aa98e2SPeter Wemm **delimptr = '\0'; 12640266059SGregory Neil Shapiro e->e_to = addr = sm_rpool_strdup_x(e->e_rpool, addr); 127c2aa98e2SPeter Wemm if (savec != '\0') 128c2aa98e2SPeter Wemm **delimptr = savec; 129c2aa98e2SPeter Wemm } 130c2aa98e2SPeter Wemm 131c2aa98e2SPeter Wemm /* 132c2aa98e2SPeter Wemm ** Apply rewriting rules. 133c2aa98e2SPeter Wemm ** Ruleset 0 does basic parsing. It must resolve. 134c2aa98e2SPeter Wemm */ 135c2aa98e2SPeter Wemm 13640266059SGregory Neil Shapiro qup = false; 13740266059SGregory Neil Shapiro if (REWRITE(pvp, 3, e) == EX_TEMPFAIL) 13840266059SGregory Neil Shapiro qup = true; 13940266059SGregory Neil Shapiro if (REWRITE(pvp, 0, e) == EX_TEMPFAIL) 14040266059SGregory Neil Shapiro qup = true; 141c2aa98e2SPeter Wemm 142c2aa98e2SPeter Wemm /* 143c2aa98e2SPeter Wemm ** Build canonical address from pvp. 144c2aa98e2SPeter Wemm */ 145c2aa98e2SPeter Wemm 146c2aa98e2SPeter Wemm a = buildaddr(pvp, a, flags, e); 147c2aa98e2SPeter Wemm 148605302a5SGregory Neil Shapiro if (hasctrlchar(a->q_user, isrcpt, true)) 14940266059SGregory Neil Shapiro { 15040266059SGregory Neil Shapiro if (tTd(20, 1)) 15140266059SGregory Neil Shapiro sm_dprintf("parseaddr-->bad q_user\n"); 152605302a5SGregory Neil Shapiro 153605302a5SGregory Neil Shapiro /* 154605302a5SGregory Neil Shapiro ** Just mark the address as bad so DSNs work. 155605302a5SGregory Neil Shapiro ** hasctrlchar() has to make sure that the address 156605302a5SGregory Neil Shapiro ** has been sanitized, e.g., shortened. 157605302a5SGregory Neil Shapiro */ 158605302a5SGregory Neil Shapiro 159605302a5SGregory Neil Shapiro a->q_state = QS_BADADDR; 16040266059SGregory Neil Shapiro } 16140266059SGregory Neil Shapiro 162c2aa98e2SPeter Wemm /* 163c2aa98e2SPeter Wemm ** Make local copies of the host & user and then 164c2aa98e2SPeter Wemm ** transport them out. 165c2aa98e2SPeter Wemm */ 166c2aa98e2SPeter Wemm 16740266059SGregory Neil Shapiro allocaddr(a, flags, addr, e); 16806f25ae9SGregory Neil Shapiro if (QS_IS_BADADDR(a->q_state)) 169605302a5SGregory Neil Shapiro { 170605302a5SGregory Neil Shapiro /* weed out bad characters in the printable address too */ 171605302a5SGregory Neil Shapiro (void) hasctrlchar(a->q_paddr, isrcpt, false); 172c2aa98e2SPeter Wemm return a; 173605302a5SGregory Neil Shapiro } 174c2aa98e2SPeter Wemm 175c2aa98e2SPeter Wemm /* 17640266059SGregory Neil Shapiro ** Select a queue directory for recipient addresses. 17740266059SGregory Neil Shapiro ** This is done here and in split_across_queue_groups(), 17840266059SGregory Neil Shapiro ** but the latter applies to addresses after aliasing, 17940266059SGregory Neil Shapiro ** and only if splitting is done. 18040266059SGregory Neil Shapiro */ 18140266059SGregory Neil Shapiro 18240266059SGregory Neil Shapiro if ((a->q_qgrp == NOAQGRP || a->q_qgrp == ENVQGRP) && 183d0cef73dSGregory Neil Shapiro !bitset(RF_SENDERADDR|RF_HEADERADDR|RF_RM_ADDR, flags) && 18440266059SGregory Neil Shapiro OpMode != MD_INITALIAS) 18540266059SGregory Neil Shapiro { 18640266059SGregory Neil Shapiro int r; 18740266059SGregory Neil Shapiro 18840266059SGregory Neil Shapiro /* call ruleset which should return a queue group name */ 18940266059SGregory Neil Shapiro r = rscap(RS_QUEUEGROUP, a->q_user, NULL, e, &pvp, pvpbuf, 19040266059SGregory Neil Shapiro sizeof(pvpbuf)); 19140266059SGregory Neil Shapiro if (r == EX_OK && 19240266059SGregory Neil Shapiro pvp != NULL && pvp[0] != NULL && 19340266059SGregory Neil Shapiro (pvp[0][0] & 0377) == CANONNET && 19440266059SGregory Neil Shapiro pvp[1] != NULL && pvp[1][0] != '\0') 19540266059SGregory Neil Shapiro { 19640266059SGregory Neil Shapiro r = name2qid(pvp[1]); 19740266059SGregory Neil Shapiro if (r == NOQGRP && LogLevel > 10) 19840266059SGregory Neil Shapiro sm_syslog(LOG_INFO, NOQID, 19940266059SGregory Neil Shapiro "can't find queue group name %s, selection ignored", 20040266059SGregory Neil Shapiro pvp[1]); 20140266059SGregory Neil Shapiro if (tTd(20, 4) && r != NOQGRP) 20240266059SGregory Neil Shapiro sm_syslog(LOG_INFO, NOQID, 20340266059SGregory Neil Shapiro "queue group name %s -> %d", 20440266059SGregory Neil Shapiro pvp[1], r); 20540266059SGregory Neil Shapiro a->q_qgrp = r == NOQGRP ? ENVQGRP : r; 20640266059SGregory Neil Shapiro } 20740266059SGregory Neil Shapiro } 20840266059SGregory Neil Shapiro 20940266059SGregory Neil Shapiro /* 210c2aa98e2SPeter Wemm ** If there was a parsing failure, mark it for queueing. 211c2aa98e2SPeter Wemm */ 212c2aa98e2SPeter Wemm 21306f25ae9SGregory Neil Shapiro if (qup && OpMode != MD_INITALIAS) 214c2aa98e2SPeter Wemm { 215c2aa98e2SPeter Wemm char *msg = "Transient parse error -- message queued for future delivery"; 216c2aa98e2SPeter Wemm 217c2aa98e2SPeter Wemm if (e->e_sendmode == SM_DEFER) 218c2aa98e2SPeter Wemm msg = "Deferring message until queue run"; 219c2aa98e2SPeter Wemm if (tTd(20, 1)) 220ffb83623SGregory Neil Shapiro sm_dprintf("parseaddr: queueing message\n"); 221c2aa98e2SPeter Wemm message(msg); 222c2aa98e2SPeter Wemm if (e->e_message == NULL && e->e_sendmode != SM_DEFER) 22340266059SGregory Neil Shapiro e->e_message = sm_rpool_strdup_x(e->e_rpool, msg); 22406f25ae9SGregory Neil Shapiro a->q_state = QS_QUEUEUP; 225c2aa98e2SPeter Wemm a->q_status = "4.4.3"; 226c2aa98e2SPeter Wemm } 227c2aa98e2SPeter Wemm 228c2aa98e2SPeter Wemm /* 229c2aa98e2SPeter Wemm ** Compute return value. 230c2aa98e2SPeter Wemm */ 231c2aa98e2SPeter Wemm 232c2aa98e2SPeter Wemm if (tTd(20, 1)) 233c2aa98e2SPeter Wemm { 23440266059SGregory Neil Shapiro sm_dprintf("parseaddr-->"); 235e92d3f3fSGregory Neil Shapiro printaddr(sm_debug_file(), a, false); 236c2aa98e2SPeter Wemm } 237c2aa98e2SPeter Wemm 23806f25ae9SGregory Neil Shapiro return a; 239c2aa98e2SPeter Wemm } 24040266059SGregory Neil Shapiro /* 24140266059SGregory Neil Shapiro ** INVALIDADDR -- check for address containing characters used for macros 242c2aa98e2SPeter Wemm ** 243c2aa98e2SPeter Wemm ** Parameters: 244c2aa98e2SPeter Wemm ** addr -- the address to check. 24540266059SGregory Neil Shapiro ** delimptr -- if non-NULL: end of address to check, i.e., 24640266059SGregory Neil Shapiro ** a pointer in the address string. 24740266059SGregory Neil Shapiro ** isrcpt -- true iff the address is for a recipient. 248c2aa98e2SPeter Wemm ** 249c2aa98e2SPeter Wemm ** Returns: 25040266059SGregory Neil Shapiro ** true -- if the address has characters that are reservered 25140266059SGregory Neil Shapiro ** for macros or is too long. 25240266059SGregory Neil Shapiro ** false -- otherwise. 253c2aa98e2SPeter Wemm */ 254c2aa98e2SPeter Wemm 255c2aa98e2SPeter Wemm bool 25640266059SGregory Neil Shapiro invalidaddr(addr, delimptr, isrcpt) 257c2aa98e2SPeter Wemm register char *addr; 258c2aa98e2SPeter Wemm char *delimptr; 25940266059SGregory Neil Shapiro bool isrcpt; 260c2aa98e2SPeter Wemm { 26140266059SGregory Neil Shapiro bool result = false; 262c2aa98e2SPeter Wemm char savedelim = '\0'; 263605302a5SGregory Neil Shapiro char *b = addr; 26440266059SGregory Neil Shapiro int len = 0; 265c2aa98e2SPeter Wemm 266c2aa98e2SPeter Wemm if (delimptr != NULL) 267c2aa98e2SPeter Wemm { 26840266059SGregory Neil Shapiro /* delimptr points to the end of the address to test */ 269c2aa98e2SPeter Wemm savedelim = *delimptr; 27040266059SGregory Neil Shapiro if (savedelim != '\0') /* if that isn't '\0' already: */ 27140266059SGregory Neil Shapiro *delimptr = '\0'; /* set it */ 272c2aa98e2SPeter Wemm } 273c2aa98e2SPeter Wemm for (; *addr != '\0'; addr++) 274c2aa98e2SPeter Wemm { 275d0cef73dSGregory Neil Shapiro if (!EightBitAddrOK && (*addr & 0340) == 0200) 27640266059SGregory Neil Shapiro { 27740266059SGregory Neil Shapiro setstat(EX_USAGE); 27840266059SGregory Neil Shapiro result = true; 279605302a5SGregory Neil Shapiro *addr = BAD_CHAR_REPLACEMENT; 280c2aa98e2SPeter Wemm } 28140266059SGregory Neil Shapiro if (++len > MAXNAME - 1) 282c2aa98e2SPeter Wemm { 283605302a5SGregory Neil Shapiro char saved = *addr; 284605302a5SGregory Neil Shapiro 285605302a5SGregory Neil Shapiro *addr = '\0'; 286605302a5SGregory Neil Shapiro usrerr("553 5.1.0 Address \"%s\" too long (%d bytes max)", 287605302a5SGregory Neil Shapiro b, MAXNAME - 1); 288605302a5SGregory Neil Shapiro *addr = saved; 28940266059SGregory Neil Shapiro result = true; 29040266059SGregory Neil Shapiro goto delim; 291c2aa98e2SPeter Wemm } 29240266059SGregory Neil Shapiro } 29340266059SGregory Neil Shapiro if (result) 29440266059SGregory Neil Shapiro { 29540266059SGregory Neil Shapiro if (isrcpt) 296605302a5SGregory Neil Shapiro usrerr("501 5.1.3 8-bit character in mailbox address \"%s\"", 297605302a5SGregory Neil Shapiro b); 29840266059SGregory Neil Shapiro else 299605302a5SGregory Neil Shapiro usrerr("501 5.1.7 8-bit character in mailbox address \"%s\"", 300605302a5SGregory Neil Shapiro b); 30140266059SGregory Neil Shapiro } 30240266059SGregory Neil Shapiro delim: 30340266059SGregory Neil Shapiro if (delimptr != NULL && savedelim != '\0') 30440266059SGregory Neil Shapiro *delimptr = savedelim; /* restore old character at delimptr */ 30540266059SGregory Neil Shapiro return result; 30640266059SGregory Neil Shapiro } 30740266059SGregory Neil Shapiro /* 30840266059SGregory Neil Shapiro ** HASCTRLCHAR -- check for address containing meta-characters 30940266059SGregory Neil Shapiro ** 31040266059SGregory Neil Shapiro ** Checks that the address contains no meta-characters, and contains 31140266059SGregory Neil Shapiro ** no "non-printable" characters unless they are quoted or escaped. 31240266059SGregory Neil Shapiro ** Quoted or escaped characters are literals. 31340266059SGregory Neil Shapiro ** 31440266059SGregory Neil Shapiro ** Parameters: 31540266059SGregory Neil Shapiro ** addr -- the address to check. 31640266059SGregory Neil Shapiro ** isrcpt -- true if the address is for a recipient; false 31740266059SGregory Neil Shapiro ** indicates a from. 318605302a5SGregory Neil Shapiro ** complain -- true if an error should issued if the address 319605302a5SGregory Neil Shapiro ** is invalid and should be "repaired". 32040266059SGregory Neil Shapiro ** 32140266059SGregory Neil Shapiro ** Returns: 32240266059SGregory Neil Shapiro ** true -- if the address has any "wierd" characters or 32340266059SGregory Neil Shapiro ** non-printable characters or if a quote is unbalanced. 32440266059SGregory Neil Shapiro ** false -- otherwise. 32540266059SGregory Neil Shapiro */ 32640266059SGregory Neil Shapiro 32740266059SGregory Neil Shapiro static bool 328605302a5SGregory Neil Shapiro hasctrlchar(addr, isrcpt, complain) 32940266059SGregory Neil Shapiro register char *addr; 330605302a5SGregory Neil Shapiro bool isrcpt, complain; 33140266059SGregory Neil Shapiro { 33240266059SGregory Neil Shapiro bool quoted = false; 333605302a5SGregory Neil Shapiro int len = 0; 334605302a5SGregory Neil Shapiro char *result = NULL; 335605302a5SGregory Neil Shapiro char *b = addr; 33640266059SGregory Neil Shapiro 33740266059SGregory Neil Shapiro if (addr == NULL) 33840266059SGregory Neil Shapiro return false; 33940266059SGregory Neil Shapiro for (; *addr != '\0'; addr++) 34040266059SGregory Neil Shapiro { 341605302a5SGregory Neil Shapiro if (++len > MAXNAME - 1) 342605302a5SGregory Neil Shapiro { 343605302a5SGregory Neil Shapiro if (complain) 344605302a5SGregory Neil Shapiro { 345605302a5SGregory Neil Shapiro (void) shorten_rfc822_string(b, MAXNAME - 1); 346605302a5SGregory Neil Shapiro usrerr("553 5.1.0 Address \"%s\" too long (%d bytes max)", 347605302a5SGregory Neil Shapiro b, MAXNAME - 1); 348605302a5SGregory Neil Shapiro return true; 349605302a5SGregory Neil Shapiro } 350605302a5SGregory Neil Shapiro result = "too long"; 351605302a5SGregory Neil Shapiro } 352d0cef73dSGregory Neil Shapiro if (!EightBitAddrOK && !quoted && (*addr < 32 || *addr == 127)) 35340266059SGregory Neil Shapiro { 354605302a5SGregory Neil Shapiro result = "non-printable character"; 355605302a5SGregory Neil Shapiro *addr = BAD_CHAR_REPLACEMENT; 356605302a5SGregory Neil Shapiro continue; 35740266059SGregory Neil Shapiro } 35840266059SGregory Neil Shapiro if (*addr == '"') 35940266059SGregory Neil Shapiro quoted = !quoted; 36040266059SGregory Neil Shapiro else if (*addr == '\\') 36140266059SGregory Neil Shapiro { 36240266059SGregory Neil Shapiro /* XXX Generic problem: no '\0' in strings. */ 36340266059SGregory Neil Shapiro if (*++addr == '\0') 36440266059SGregory Neil Shapiro { 365605302a5SGregory Neil Shapiro result = "trailing \\ character"; 366605302a5SGregory Neil Shapiro *--addr = BAD_CHAR_REPLACEMENT; 36740266059SGregory Neil Shapiro break; 36840266059SGregory Neil Shapiro } 36940266059SGregory Neil Shapiro } 370d0cef73dSGregory Neil Shapiro if (!EightBitAddrOK && (*addr & 0340) == 0200) 37140266059SGregory Neil Shapiro { 372c2aa98e2SPeter Wemm setstat(EX_USAGE); 373605302a5SGregory Neil Shapiro result = "8-bit character"; 374605302a5SGregory Neil Shapiro *addr = BAD_CHAR_REPLACEMENT; 375605302a5SGregory Neil Shapiro continue; 37640266059SGregory Neil Shapiro } 37740266059SGregory Neil Shapiro } 37840266059SGregory Neil Shapiro if (quoted) 379605302a5SGregory Neil Shapiro result = "unbalanced quote"; /* unbalanced quote */ 380605302a5SGregory Neil Shapiro if (result != NULL && complain) 38140266059SGregory Neil Shapiro { 38240266059SGregory Neil Shapiro if (isrcpt) 383605302a5SGregory Neil Shapiro usrerr("501 5.1.3 Syntax error in mailbox address \"%s\" (%s)", 384605302a5SGregory Neil Shapiro b, result); 38540266059SGregory Neil Shapiro else 386605302a5SGregory Neil Shapiro usrerr("501 5.1.7 Syntax error in mailbox address \"%s\" (%s)", 387605302a5SGregory Neil Shapiro b, result); 38840266059SGregory Neil Shapiro } 389605302a5SGregory Neil Shapiro return result != NULL; 39040266059SGregory Neil Shapiro } 39140266059SGregory Neil Shapiro /* 392c2aa98e2SPeter Wemm ** ALLOCADDR -- do local allocations of address on demand. 393c2aa98e2SPeter Wemm ** 394c2aa98e2SPeter Wemm ** Also lowercases the host name if requested. 395c2aa98e2SPeter Wemm ** 396c2aa98e2SPeter Wemm ** Parameters: 397c2aa98e2SPeter Wemm ** a -- the address to reallocate. 398c2aa98e2SPeter Wemm ** flags -- the copy flag (see RF_ definitions in sendmail.h 399c2aa98e2SPeter Wemm ** for a description). 400c2aa98e2SPeter Wemm ** paddr -- the printname of the address. 40140266059SGregory Neil Shapiro ** e -- envelope 402c2aa98e2SPeter Wemm ** 403c2aa98e2SPeter Wemm ** Returns: 404c2aa98e2SPeter Wemm ** none. 405c2aa98e2SPeter Wemm ** 406c2aa98e2SPeter Wemm ** Side Effects: 407c2aa98e2SPeter Wemm ** Copies portions of a into local buffers as requested. 408c2aa98e2SPeter Wemm */ 409c2aa98e2SPeter Wemm 41006f25ae9SGregory Neil Shapiro static void 41140266059SGregory Neil Shapiro allocaddr(a, flags, paddr, e) 412c2aa98e2SPeter Wemm register ADDRESS *a; 413c2aa98e2SPeter Wemm int flags; 414c2aa98e2SPeter Wemm char *paddr; 41540266059SGregory Neil Shapiro ENVELOPE *e; 416c2aa98e2SPeter Wemm { 417c2aa98e2SPeter Wemm if (tTd(24, 4)) 41840266059SGregory Neil Shapiro sm_dprintf("allocaddr(flags=%x, paddr=%s)\n", flags, paddr); 419c2aa98e2SPeter Wemm 420c2aa98e2SPeter Wemm a->q_paddr = paddr; 421c2aa98e2SPeter Wemm 422c2aa98e2SPeter Wemm if (a->q_user == NULL) 42340266059SGregory Neil Shapiro a->q_user = ""; 424c2aa98e2SPeter Wemm if (a->q_host == NULL) 42540266059SGregory Neil Shapiro a->q_host = ""; 426c2aa98e2SPeter Wemm 427c2aa98e2SPeter Wemm if (bitset(RF_COPYPARSE, flags)) 428c2aa98e2SPeter Wemm { 42940266059SGregory Neil Shapiro a->q_host = sm_rpool_strdup_x(e->e_rpool, a->q_host); 430c2aa98e2SPeter Wemm if (a->q_user != a->q_paddr) 43140266059SGregory Neil Shapiro a->q_user = sm_rpool_strdup_x(e->e_rpool, a->q_user); 432c2aa98e2SPeter Wemm } 433c2aa98e2SPeter Wemm 434c2aa98e2SPeter Wemm if (a->q_paddr == NULL) 43540266059SGregory Neil Shapiro a->q_paddr = sm_rpool_strdup_x(e->e_rpool, a->q_user); 43640266059SGregory Neil Shapiro a->q_qgrp = NOAQGRP; 437c2aa98e2SPeter Wemm } 438d0cef73dSGregory Neil Shapiro 43940266059SGregory Neil Shapiro /* 440c2aa98e2SPeter Wemm ** PRESCAN -- Prescan name and make it canonical 441c2aa98e2SPeter Wemm ** 442c2aa98e2SPeter Wemm ** Scans a name and turns it into a set of tokens. This process 44306f25ae9SGregory Neil Shapiro ** deletes blanks and comments (in parentheses) (if the token type 44406f25ae9SGregory Neil Shapiro ** for left paren is SPC). 445c2aa98e2SPeter Wemm ** 446c2aa98e2SPeter Wemm ** This routine knows about quoted strings and angle brackets. 447c2aa98e2SPeter Wemm ** 448c2aa98e2SPeter Wemm ** There are certain subtleties to this routine. The one that 449c2aa98e2SPeter Wemm ** comes to mind now is that backslashes on the ends of names 450c2aa98e2SPeter Wemm ** are silently stripped off; this is intentional. The problem 451c2aa98e2SPeter Wemm ** is that some versions of sndmsg (like at LBL) set the kill 452c2aa98e2SPeter Wemm ** character to something other than @ when reading addresses; 453c2aa98e2SPeter Wemm ** so people type "csvax.eric\@berkeley" -- which screws up the 454c2aa98e2SPeter Wemm ** berknet mailer. 455c2aa98e2SPeter Wemm ** 456c2aa98e2SPeter Wemm ** Parameters: 457c2aa98e2SPeter Wemm ** addr -- the name to chomp. 458c2aa98e2SPeter Wemm ** delim -- the delimiter for the address, normally 459c2aa98e2SPeter Wemm ** '\0' or ','; \0 is accepted in any case. 460c2aa98e2SPeter Wemm ** If '\t' then we are reading the .cf file. 461c2aa98e2SPeter Wemm ** pvpbuf -- place to put the saved text -- note that 462c2aa98e2SPeter Wemm ** the pointers are static. 463c2aa98e2SPeter Wemm ** pvpbsize -- size of pvpbuf. 464c2aa98e2SPeter Wemm ** delimptr -- if non-NULL, set to the location of the 465c2aa98e2SPeter Wemm ** terminating delimiter. 466c2aa98e2SPeter Wemm ** toktab -- if set, a token table to use for parsing. 467c2aa98e2SPeter Wemm ** If NULL, use the default table. 468e92d3f3fSGregory Neil Shapiro ** ignore -- if true, ignore unbalanced addresses 469c2aa98e2SPeter Wemm ** 470c2aa98e2SPeter Wemm ** Returns: 471c2aa98e2SPeter Wemm ** A pointer to a vector of tokens. 472c2aa98e2SPeter Wemm ** NULL on error. 473c2aa98e2SPeter Wemm */ 474c2aa98e2SPeter Wemm 475c2aa98e2SPeter Wemm /* states and character types */ 476c2aa98e2SPeter Wemm #define OPR 0 /* operator */ 477c2aa98e2SPeter Wemm #define ATM 1 /* atom */ 478c2aa98e2SPeter Wemm #define QST 2 /* in quoted string */ 479c2aa98e2SPeter Wemm #define SPC 3 /* chewing up spaces */ 480c2aa98e2SPeter Wemm #define ONE 4 /* pick up one character */ 481c2aa98e2SPeter Wemm #define ILL 5 /* illegal character */ 482c2aa98e2SPeter Wemm 483c2aa98e2SPeter Wemm #define NSTATES 6 /* number of states */ 484c2aa98e2SPeter Wemm #define TYPE 017 /* mask to select state type */ 485c2aa98e2SPeter Wemm 486c2aa98e2SPeter Wemm /* meta bits for table */ 487c2aa98e2SPeter Wemm #define M 020 /* meta character; don't pass through */ 488c2aa98e2SPeter Wemm #define B 040 /* cause a break */ 489c2aa98e2SPeter Wemm #define MB M|B /* meta-break */ 490c2aa98e2SPeter Wemm 491c2aa98e2SPeter Wemm static short StateTab[NSTATES][NSTATES] = 492c2aa98e2SPeter Wemm { 493c2aa98e2SPeter Wemm /* oldst chtype> OPR ATM QST SPC ONE ILL */ 494c2aa98e2SPeter Wemm /*OPR*/ { OPR|B, ATM|B, QST|B, SPC|MB, ONE|B, ILL|MB }, 495c2aa98e2SPeter Wemm /*ATM*/ { OPR|B, ATM, QST|B, SPC|MB, ONE|B, ILL|MB }, 496c2aa98e2SPeter Wemm /*QST*/ { QST, QST, OPR, QST, QST, QST }, 497c2aa98e2SPeter Wemm /*SPC*/ { OPR, ATM, QST, SPC|M, ONE, ILL|MB }, 498c2aa98e2SPeter Wemm /*ONE*/ { OPR, OPR, OPR, OPR, OPR, ILL|MB }, 499d0cef73dSGregory Neil Shapiro /*ILL*/ { OPR|B, ATM|B, QST|B, SPC|MB, ONE|B, ILL|M } 500c2aa98e2SPeter Wemm }; 501c2aa98e2SPeter Wemm 502d0cef73dSGregory Neil Shapiro /* these all get modified with the OperatorChars */ 503d0cef73dSGregory Neil Shapiro 504d0cef73dSGregory Neil Shapiro /* token type table for external strings */ 505d0cef73dSGregory Neil Shapiro unsigned char ExtTokenTab[256] = 506d0cef73dSGregory Neil Shapiro { 507d0cef73dSGregory Neil Shapiro /* nul soh stx etx eot enq ack bel bs ht nl vt np cr so si */ 508d0cef73dSGregory Neil Shapiro ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,SPC,SPC,SPC,SPC,SPC,ATM,ATM, 509d0cef73dSGregory Neil Shapiro /* dle dc1 dc2 dc3 dc4 nak syn etb can em sub esc fs gs rs us */ 510d0cef73dSGregory Neil Shapiro ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, 511d0cef73dSGregory Neil Shapiro /* sp ! " # $ % & ' ( ) * + , - . / */ 512d0cef73dSGregory Neil Shapiro SPC,ATM,QST,ATM,ATM,ATM,ATM,ATM, SPC,SPC,ATM,ATM,ATM,ATM,ATM,ATM, 513d0cef73dSGregory Neil Shapiro /* 0 1 2 3 4 5 6 7 8 9 : ; < = > ? */ 514d0cef73dSGregory Neil Shapiro ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, 515d0cef73dSGregory Neil Shapiro /* @ A B C D E F G H I J K L M N O */ 516d0cef73dSGregory Neil Shapiro ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, 517d0cef73dSGregory Neil Shapiro /* P Q R S T U V W X Y Z [ \ ] ^ _ */ 518d0cef73dSGregory Neil Shapiro ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, 519d0cef73dSGregory Neil Shapiro /* ` a b c d e f g h i j k l m n o */ 520d0cef73dSGregory Neil Shapiro ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, 521d0cef73dSGregory Neil Shapiro /* p q r s t u v w x y z { | } ~ del */ 522d0cef73dSGregory Neil Shapiro ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, 523d0cef73dSGregory Neil Shapiro 524d0cef73dSGregory Neil Shapiro /* nul soh stx etx eot enq ack bel bs ht nl vt np cr so si */ 525d0cef73dSGregory Neil Shapiro ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, 526d0cef73dSGregory Neil Shapiro /* dle dc1 dc2 dc3 dc4 nak syn etb can em sub esc fs gs rs us */ 527d0cef73dSGregory Neil Shapiro ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, 528d0cef73dSGregory Neil Shapiro /* sp ! " # $ % & ' ( ) * + , - . / */ 529d0cef73dSGregory Neil Shapiro ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, 530d0cef73dSGregory Neil Shapiro /* 0 1 2 3 4 5 6 7 8 9 : ; < = > ? */ 531d0cef73dSGregory Neil Shapiro ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, 532d0cef73dSGregory Neil Shapiro /* @ A B C D E F G H I J K L M N O */ 533d0cef73dSGregory Neil Shapiro ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, 534d0cef73dSGregory Neil Shapiro /* P Q R S T U V W X Y Z [ \ ] ^ _ */ 535d0cef73dSGregory Neil Shapiro ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, 536d0cef73dSGregory Neil Shapiro /* ` a b c d e f g h i j k l m n o */ 537d0cef73dSGregory Neil Shapiro ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, 538d0cef73dSGregory Neil Shapiro /* p q r s t u v w x y z { | } ~ del */ 539d0cef73dSGregory Neil Shapiro ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM 540d0cef73dSGregory Neil Shapiro }; 541d0cef73dSGregory Neil Shapiro 542d0cef73dSGregory Neil Shapiro /* token type table for internal strings */ 543d0cef73dSGregory Neil Shapiro unsigned char IntTokenTab[256] = 544c2aa98e2SPeter Wemm { 545c2aa98e2SPeter Wemm /* nul soh stx etx eot enq ack bel bs ht nl vt np cr so si */ 546c2aa98e2SPeter Wemm ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,SPC,SPC,SPC,SPC,SPC,ATM,ATM, 547c2aa98e2SPeter Wemm /* dle dc1 dc2 dc3 dc4 nak syn etb can em sub esc fs gs rs us */ 548c2aa98e2SPeter Wemm ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, 549c2aa98e2SPeter Wemm /* sp ! " # $ % & ' ( ) * + , - . / */ 55006f25ae9SGregory Neil Shapiro SPC,ATM,QST,ATM,ATM,ATM,ATM,ATM, SPC,SPC,ATM,ATM,ATM,ATM,ATM,ATM, 551c2aa98e2SPeter Wemm /* 0 1 2 3 4 5 6 7 8 9 : ; < = > ? */ 552c2aa98e2SPeter Wemm ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, 553c2aa98e2SPeter Wemm /* @ A B C D E F G H I J K L M N O */ 554c2aa98e2SPeter Wemm ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, 555c2aa98e2SPeter Wemm /* P Q R S T U V W X Y Z [ \ ] ^ _ */ 556c2aa98e2SPeter Wemm ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, 557c2aa98e2SPeter Wemm /* ` a b c d e f g h i j k l m n o */ 558c2aa98e2SPeter Wemm ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, 559c2aa98e2SPeter Wemm /* p q r s t u v w x y z { | } ~ del */ 560c2aa98e2SPeter Wemm ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, 561c2aa98e2SPeter Wemm 562c2aa98e2SPeter Wemm /* nul soh stx etx eot enq ack bel bs ht nl vt np cr so si */ 563c2aa98e2SPeter Wemm OPR,OPR,ONE,OPR,OPR,OPR,OPR,OPR, OPR,OPR,OPR,OPR,OPR,OPR,OPR,OPR, 564c2aa98e2SPeter Wemm /* dle dc1 dc2 dc3 dc4 nak syn etb can em sub esc fs gs rs us */ 565c2aa98e2SPeter Wemm OPR,OPR,OPR,ONE,ONE,ONE,OPR,OPR, OPR,OPR,OPR,OPR,OPR,OPR,OPR,OPR, 566c2aa98e2SPeter Wemm /* sp ! " # $ % & ' ( ) * + , - . / */ 567c2aa98e2SPeter Wemm ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, 568c2aa98e2SPeter Wemm /* 0 1 2 3 4 5 6 7 8 9 : ; < = > ? */ 569c2aa98e2SPeter Wemm ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, 570c2aa98e2SPeter Wemm /* @ A B C D E F G H I J K L M N O */ 571c2aa98e2SPeter Wemm ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, 572c2aa98e2SPeter Wemm /* P Q R S T U V W X Y Z [ \ ] ^ _ */ 573c2aa98e2SPeter Wemm ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, 574c2aa98e2SPeter Wemm /* ` a b c d e f g h i j k l m n o */ 575c2aa98e2SPeter Wemm ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, 576c2aa98e2SPeter Wemm /* p q r s t u v w x y z { | } ~ del */ 577d0cef73dSGregory Neil Shapiro ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ONE 578c2aa98e2SPeter Wemm }; 579c2aa98e2SPeter Wemm 580c2aa98e2SPeter Wemm /* token type table for MIME parsing */ 58140266059SGregory Neil Shapiro unsigned char MimeTokenTab[256] = 582c2aa98e2SPeter Wemm { 583c2aa98e2SPeter Wemm /* nul soh stx etx eot enq ack bel bs ht nl vt np cr so si */ 584c2aa98e2SPeter Wemm ILL,ILL,ILL,ILL,ILL,ILL,ILL,ILL, ILL,SPC,SPC,SPC,SPC,SPC,ILL,ILL, 585c2aa98e2SPeter Wemm /* dle dc1 dc2 dc3 dc4 nak syn etb can em sub esc fs gs rs us */ 586c2aa98e2SPeter Wemm ILL,ILL,ILL,ILL,ILL,ILL,ILL,ILL, ILL,ILL,ILL,ILL,ILL,ILL,ILL,ILL, 587c2aa98e2SPeter Wemm /* sp ! " # $ % & ' ( ) * + , - . / */ 58806f25ae9SGregory Neil Shapiro SPC,ATM,QST,ATM,ATM,ATM,ATM,ATM, SPC,SPC,ATM,ATM,OPR,ATM,ATM,OPR, 589c2aa98e2SPeter Wemm /* 0 1 2 3 4 5 6 7 8 9 : ; < = > ? */ 590c2aa98e2SPeter Wemm ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,OPR,OPR,OPR,OPR,OPR,OPR, 591c2aa98e2SPeter Wemm /* @ A B C D E F G H I J K L M N O */ 592c2aa98e2SPeter Wemm OPR,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, 593c2aa98e2SPeter Wemm /* P Q R S T U V W X Y Z [ \ ] ^ _ */ 594c2aa98e2SPeter Wemm ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,OPR,OPR,OPR,ATM,ATM, 595c2aa98e2SPeter Wemm /* ` a b c d e f g h i j k l m n o */ 596c2aa98e2SPeter Wemm ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, 597c2aa98e2SPeter Wemm /* p q r s t u v w x y z { | } ~ del */ 598c2aa98e2SPeter Wemm ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, 599c2aa98e2SPeter Wemm 600c2aa98e2SPeter Wemm /* nul soh stx etx eot enq ack bel bs ht nl vt np cr so si */ 601c2aa98e2SPeter Wemm ILL,ILL,ILL,ILL,ILL,ILL,ILL,ILL, ILL,ILL,ILL,ILL,ILL,ILL,ILL,ILL, 602c2aa98e2SPeter Wemm /* dle dc1 dc2 dc3 dc4 nak syn etb can em sub esc fs gs rs us */ 603c2aa98e2SPeter Wemm ILL,ILL,ILL,ILL,ILL,ILL,ILL,ILL, ILL,ILL,ILL,ILL,ILL,ILL,ILL,ILL, 604c2aa98e2SPeter Wemm /* sp ! " # $ % & ' ( ) * + , - . / */ 605c2aa98e2SPeter Wemm ILL,ILL,ILL,ILL,ILL,ILL,ILL,ILL, ILL,ILL,ILL,ILL,ILL,ILL,ILL,ILL, 606c2aa98e2SPeter Wemm /* 0 1 2 3 4 5 6 7 8 9 : ; < = > ? */ 607c2aa98e2SPeter Wemm ILL,ILL,ILL,ILL,ILL,ILL,ILL,ILL, ILL,ILL,ILL,ILL,ILL,ILL,ILL,ILL, 608c2aa98e2SPeter Wemm /* @ A B C D E F G H I J K L M N O */ 609c2aa98e2SPeter Wemm ILL,ILL,ILL,ILL,ILL,ILL,ILL,ILL, ILL,ILL,ILL,ILL,ILL,ILL,ILL,ILL, 610c2aa98e2SPeter Wemm /* P Q R S T U V W X Y Z [ \ ] ^ _ */ 611c2aa98e2SPeter Wemm ILL,ILL,ILL,ILL,ILL,ILL,ILL,ILL, ILL,ILL,ILL,ILL,ILL,ILL,ILL,ILL, 612c2aa98e2SPeter Wemm /* ` a b c d e f g h i j k l m n o */ 613c2aa98e2SPeter Wemm ILL,ILL,ILL,ILL,ILL,ILL,ILL,ILL, ILL,ILL,ILL,ILL,ILL,ILL,ILL,ILL, 614c2aa98e2SPeter Wemm /* p q r s t u v w x y z { | } ~ del */ 615d0cef73dSGregory Neil Shapiro ILL,ILL,ILL,ILL,ILL,ILL,ILL,ILL, ILL,ILL,ILL,ILL,ILL,ILL,ILL,ONE 616c2aa98e2SPeter Wemm }; 617c2aa98e2SPeter Wemm 61806f25ae9SGregory Neil Shapiro /* token type table: don't strip comments */ 61940266059SGregory Neil Shapiro unsigned char TokTypeNoC[256] = 62006f25ae9SGregory Neil Shapiro { 62106f25ae9SGregory Neil Shapiro /* nul soh stx etx eot enq ack bel bs ht nl vt np cr so si */ 62206f25ae9SGregory Neil Shapiro ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,SPC,SPC,SPC,SPC,SPC,ATM,ATM, 62306f25ae9SGregory Neil Shapiro /* dle dc1 dc2 dc3 dc4 nak syn etb can em sub esc fs gs rs us */ 62406f25ae9SGregory Neil Shapiro ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, 62506f25ae9SGregory Neil Shapiro /* sp ! " # $ % & ' ( ) * + , - . / */ 62606f25ae9SGregory Neil Shapiro SPC,ATM,QST,ATM,ATM,ATM,ATM,ATM, OPR,OPR,ATM,ATM,ATM,ATM,ATM,ATM, 62706f25ae9SGregory Neil Shapiro /* 0 1 2 3 4 5 6 7 8 9 : ; < = > ? */ 62806f25ae9SGregory Neil Shapiro ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, 62906f25ae9SGregory Neil Shapiro /* @ A B C D E F G H I J K L M N O */ 63006f25ae9SGregory Neil Shapiro ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, 63106f25ae9SGregory Neil Shapiro /* P Q R S T U V W X Y Z [ \ ] ^ _ */ 63206f25ae9SGregory Neil Shapiro ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, 63306f25ae9SGregory Neil Shapiro /* ` a b c d e f g h i j k l m n o */ 63406f25ae9SGregory Neil Shapiro ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, 63506f25ae9SGregory Neil Shapiro /* p q r s t u v w x y z { | } ~ del */ 63606f25ae9SGregory Neil Shapiro ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, 63706f25ae9SGregory Neil Shapiro 63806f25ae9SGregory Neil Shapiro /* nul soh stx etx eot enq ack bel bs ht nl vt np cr so si */ 63906f25ae9SGregory Neil Shapiro OPR,OPR,ONE,OPR,OPR,OPR,OPR,OPR, OPR,OPR,OPR,OPR,OPR,OPR,OPR,OPR, 64006f25ae9SGregory Neil Shapiro /* dle dc1 dc2 dc3 dc4 nak syn etb can em sub esc fs gs rs us */ 64106f25ae9SGregory Neil Shapiro OPR,OPR,OPR,ONE,ONE,ONE,OPR,OPR, OPR,OPR,OPR,OPR,OPR,OPR,OPR,OPR, 64206f25ae9SGregory Neil Shapiro /* sp ! " # $ % & ' ( ) * + , - . / */ 64306f25ae9SGregory Neil Shapiro ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, 64406f25ae9SGregory Neil Shapiro /* 0 1 2 3 4 5 6 7 8 9 : ; < = > ? */ 64506f25ae9SGregory Neil Shapiro ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, 64606f25ae9SGregory Neil Shapiro /* @ A B C D E F G H I J K L M N O */ 64706f25ae9SGregory Neil Shapiro ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, 64806f25ae9SGregory Neil Shapiro /* P Q R S T U V W X Y Z [ \ ] ^ _ */ 64906f25ae9SGregory Neil Shapiro ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, 65006f25ae9SGregory Neil Shapiro /* ` a b c d e f g h i j k l m n o */ 65106f25ae9SGregory Neil Shapiro ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, 65206f25ae9SGregory Neil Shapiro /* p q r s t u v w x y z { | } ~ del */ 653d0cef73dSGregory Neil Shapiro ATM,ATM,ATM,ATM,ATM,ATM,ATM,ATM, ATM,ATM,ATM,ATM,ATM,ATM,ATM,ONE 65406f25ae9SGregory Neil Shapiro }; 65506f25ae9SGregory Neil Shapiro 656c2aa98e2SPeter Wemm 6575ef517c0SGregory Neil Shapiro #define NOCHAR (-1) /* signal nothing in lookahead token */ 658c2aa98e2SPeter Wemm 659c2aa98e2SPeter Wemm char ** 660e92d3f3fSGregory Neil Shapiro prescan(addr, delim, pvpbuf, pvpbsize, delimptr, toktab, ignore) 661c2aa98e2SPeter Wemm char *addr; 662c2aa98e2SPeter Wemm int delim; 663c2aa98e2SPeter Wemm char pvpbuf[]; 664c2aa98e2SPeter Wemm int pvpbsize; 665c2aa98e2SPeter Wemm char **delimptr; 66640266059SGregory Neil Shapiro unsigned char *toktab; 667e92d3f3fSGregory Neil Shapiro bool ignore; 668c2aa98e2SPeter Wemm { 669c2aa98e2SPeter Wemm register char *p; 670c2aa98e2SPeter Wemm register char *q; 671c2aa98e2SPeter Wemm register int c; 672c2aa98e2SPeter Wemm char **avp; 673c2aa98e2SPeter Wemm bool bslashmode; 674c2aa98e2SPeter Wemm bool route_syntax; 675c2aa98e2SPeter Wemm int cmntcnt; 676c2aa98e2SPeter Wemm int anglecnt; 677c2aa98e2SPeter Wemm char *tok; 678c2aa98e2SPeter Wemm int state; 679c2aa98e2SPeter Wemm int newstate; 680c2aa98e2SPeter Wemm char *saveto = CurEnv->e_to; 681c2aa98e2SPeter Wemm static char *av[MAXATOM + 1]; 68240266059SGregory Neil Shapiro static bool firsttime = true; 683c2aa98e2SPeter Wemm 684c2aa98e2SPeter Wemm if (firsttime) 685c2aa98e2SPeter Wemm { 686c2aa98e2SPeter Wemm /* initialize the token type table */ 687c2aa98e2SPeter Wemm char obuf[50]; 688c2aa98e2SPeter Wemm 68940266059SGregory Neil Shapiro firsttime = false; 690c2aa98e2SPeter Wemm if (OperatorChars == NULL) 691c2aa98e2SPeter Wemm { 692c2aa98e2SPeter Wemm if (ConfigLevel < 7) 693c2aa98e2SPeter Wemm OperatorChars = macvalue('o', CurEnv); 694c2aa98e2SPeter Wemm if (OperatorChars == NULL) 695c2aa98e2SPeter Wemm OperatorChars = ".:@[]"; 696c2aa98e2SPeter Wemm } 697d0cef73dSGregory Neil Shapiro expand(OperatorChars, obuf, sizeof(obuf) - sizeof(DELIMCHARS), 69806f25ae9SGregory Neil Shapiro CurEnv); 699d0cef73dSGregory Neil Shapiro (void) sm_strlcat(obuf, DELIMCHARS, sizeof(obuf)); 700c2aa98e2SPeter Wemm for (p = obuf; *p != '\0'; p++) 701c2aa98e2SPeter Wemm { 702d0cef73dSGregory Neil Shapiro if (IntTokenTab[*p & 0xff] == ATM) 703d0cef73dSGregory Neil Shapiro IntTokenTab[*p & 0xff] = OPR; 704d0cef73dSGregory Neil Shapiro if (ExtTokenTab[*p & 0xff] == ATM) 705d0cef73dSGregory Neil Shapiro ExtTokenTab[*p & 0xff] = OPR; 70606f25ae9SGregory Neil Shapiro if (TokTypeNoC[*p & 0xff] == ATM) 70706f25ae9SGregory Neil Shapiro TokTypeNoC[*p & 0xff] = OPR; 708c2aa98e2SPeter Wemm } 709c2aa98e2SPeter Wemm } 710c2aa98e2SPeter Wemm if (toktab == NULL) 711d0cef73dSGregory Neil Shapiro toktab = ExtTokenTab; 712c2aa98e2SPeter Wemm 713c2aa98e2SPeter Wemm /* make sure error messages don't have garbage on them */ 714c2aa98e2SPeter Wemm errno = 0; 715c2aa98e2SPeter Wemm 716c2aa98e2SPeter Wemm q = pvpbuf; 71740266059SGregory Neil Shapiro bslashmode = false; 71840266059SGregory Neil Shapiro route_syntax = false; 719c2aa98e2SPeter Wemm cmntcnt = 0; 720c2aa98e2SPeter Wemm anglecnt = 0; 721c2aa98e2SPeter Wemm avp = av; 722c2aa98e2SPeter Wemm state = ATM; 723c2aa98e2SPeter Wemm c = NOCHAR; 724c2aa98e2SPeter Wemm p = addr; 725c2aa98e2SPeter Wemm CurEnv->e_to = p; 726c2aa98e2SPeter Wemm if (tTd(22, 11)) 727c2aa98e2SPeter Wemm { 72840266059SGregory Neil Shapiro sm_dprintf("prescan: "); 729e92d3f3fSGregory Neil Shapiro xputs(sm_debug_file(), p); 73040266059SGregory Neil Shapiro sm_dprintf("\n"); 731c2aa98e2SPeter Wemm } 732c2aa98e2SPeter Wemm 733c2aa98e2SPeter Wemm do 734c2aa98e2SPeter Wemm { 735c2aa98e2SPeter Wemm /* read a token */ 736c2aa98e2SPeter Wemm tok = q; 737c2aa98e2SPeter Wemm for (;;) 738c2aa98e2SPeter Wemm { 739c2aa98e2SPeter Wemm /* store away any old lookahead character */ 740c2aa98e2SPeter Wemm if (c != NOCHAR && !bslashmode) 741c2aa98e2SPeter Wemm { 742c2aa98e2SPeter Wemm /* see if there is room */ 743c2aa98e2SPeter Wemm if (q >= &pvpbuf[pvpbsize - 5]) 744c2aa98e2SPeter Wemm { 7455ef517c0SGregory Neil Shapiro addrtoolong: 74606f25ae9SGregory Neil Shapiro usrerr("553 5.1.1 Address too long"); 74740266059SGregory Neil Shapiro if (strlen(addr) > MAXNAME) 748c2aa98e2SPeter Wemm addr[MAXNAME] = '\0'; 749c2aa98e2SPeter Wemm returnnull: 750c2aa98e2SPeter Wemm if (delimptr != NULL) 75158fec675SJacques Vidrine { 75258fec675SJacques Vidrine if (p > addr) 753a7ec597cSGregory Neil Shapiro --p; 754c2aa98e2SPeter Wemm *delimptr = p; 75558fec675SJacques Vidrine } 756c2aa98e2SPeter Wemm CurEnv->e_to = saveto; 75706f25ae9SGregory Neil Shapiro return NULL; 758c2aa98e2SPeter Wemm } 759c2aa98e2SPeter Wemm 760c2aa98e2SPeter Wemm /* squirrel it away */ 7615ef517c0SGregory Neil Shapiro #if !ALLOW_255 762d0cef73dSGregory Neil Shapiro if ((char) c == (char) -1 && !tTd(82, 101) && 763d0cef73dSGregory Neil Shapiro !EightBitAddrOK) 7645ef517c0SGregory Neil Shapiro c &= 0x7f; 7655ef517c0SGregory Neil Shapiro #endif /* !ALLOW_255 */ 766c2aa98e2SPeter Wemm *q++ = c; 767c2aa98e2SPeter Wemm } 768c2aa98e2SPeter Wemm 769c2aa98e2SPeter Wemm /* read a new input character */ 7705ef517c0SGregory Neil Shapiro c = (*p++) & 0x00ff; 771c2aa98e2SPeter Wemm if (c == '\0') 772c2aa98e2SPeter Wemm { 773c2aa98e2SPeter Wemm /* diagnose and patch up bad syntax */ 774e92d3f3fSGregory Neil Shapiro if (ignore) 775e92d3f3fSGregory Neil Shapiro break; 776e92d3f3fSGregory Neil Shapiro else if (state == QST) 777c2aa98e2SPeter Wemm { 77840266059SGregory Neil Shapiro usrerr("553 Unbalanced '\"'"); 779c2aa98e2SPeter Wemm c = '"'; 780c2aa98e2SPeter Wemm } 781c2aa98e2SPeter Wemm else if (cmntcnt > 0) 782c2aa98e2SPeter Wemm { 78340266059SGregory Neil Shapiro usrerr("553 Unbalanced '('"); 784c2aa98e2SPeter Wemm c = ')'; 785c2aa98e2SPeter Wemm } 786c2aa98e2SPeter Wemm else if (anglecnt > 0) 787c2aa98e2SPeter Wemm { 788c2aa98e2SPeter Wemm c = '>'; 78940266059SGregory Neil Shapiro usrerr("553 Unbalanced '<'"); 790c2aa98e2SPeter Wemm } 791c2aa98e2SPeter Wemm else 792c2aa98e2SPeter Wemm break; 793c2aa98e2SPeter Wemm 794c2aa98e2SPeter Wemm p--; 795c2aa98e2SPeter Wemm } 796c2aa98e2SPeter Wemm else if (c == delim && cmntcnt <= 0 && state != QST) 797c2aa98e2SPeter Wemm { 798c2aa98e2SPeter Wemm if (anglecnt <= 0) 799c2aa98e2SPeter Wemm break; 800c2aa98e2SPeter Wemm 801c2aa98e2SPeter Wemm /* special case for better error management */ 802e92d3f3fSGregory Neil Shapiro if (delim == ',' && !route_syntax && !ignore) 803c2aa98e2SPeter Wemm { 80440266059SGregory Neil Shapiro usrerr("553 Unbalanced '<'"); 805c2aa98e2SPeter Wemm c = '>'; 806c2aa98e2SPeter Wemm p--; 807c2aa98e2SPeter Wemm } 808c2aa98e2SPeter Wemm } 809c2aa98e2SPeter Wemm 810c2aa98e2SPeter Wemm if (tTd(22, 101)) 81140266059SGregory Neil Shapiro sm_dprintf("c=%c, s=%d; ", c, state); 812c2aa98e2SPeter Wemm 813c2aa98e2SPeter Wemm /* chew up special characters */ 814c2aa98e2SPeter Wemm *q = '\0'; 815c2aa98e2SPeter Wemm if (bslashmode) 816c2aa98e2SPeter Wemm { 81740266059SGregory Neil Shapiro bslashmode = false; 818c2aa98e2SPeter Wemm 819c2aa98e2SPeter Wemm /* kludge \! for naive users */ 820c2aa98e2SPeter Wemm if (cmntcnt > 0) 821c2aa98e2SPeter Wemm { 822c2aa98e2SPeter Wemm c = NOCHAR; 823c2aa98e2SPeter Wemm continue; 824c2aa98e2SPeter Wemm } 825c2aa98e2SPeter Wemm else if (c != '!' || state == QST) 826c2aa98e2SPeter Wemm { 8275ef517c0SGregory Neil Shapiro /* see if there is room */ 8285ef517c0SGregory Neil Shapiro if (q >= &pvpbuf[pvpbsize - 5]) 8295ef517c0SGregory Neil Shapiro goto addrtoolong; 830c2aa98e2SPeter Wemm *q++ = '\\'; 831c2aa98e2SPeter Wemm continue; 832c2aa98e2SPeter Wemm } 833c2aa98e2SPeter Wemm } 834c2aa98e2SPeter Wemm 835c2aa98e2SPeter Wemm if (c == '\\') 836c2aa98e2SPeter Wemm { 83740266059SGregory Neil Shapiro bslashmode = true; 838c2aa98e2SPeter Wemm } 839c2aa98e2SPeter Wemm else if (state == QST) 840c2aa98e2SPeter Wemm { 84106f25ae9SGregory Neil Shapiro /* EMPTY */ 842c2aa98e2SPeter Wemm /* do nothing, just avoid next clauses */ 843c2aa98e2SPeter Wemm } 84406f25ae9SGregory Neil Shapiro else if (c == '(' && toktab['('] == SPC) 845c2aa98e2SPeter Wemm { 846c2aa98e2SPeter Wemm cmntcnt++; 847c2aa98e2SPeter Wemm c = NOCHAR; 848c2aa98e2SPeter Wemm } 84906f25ae9SGregory Neil Shapiro else if (c == ')' && toktab['('] == SPC) 850c2aa98e2SPeter Wemm { 851c2aa98e2SPeter Wemm if (cmntcnt <= 0) 852c2aa98e2SPeter Wemm { 853e92d3f3fSGregory Neil Shapiro if (!ignore) 854e92d3f3fSGregory Neil Shapiro { 85540266059SGregory Neil Shapiro usrerr("553 Unbalanced ')'"); 856c2aa98e2SPeter Wemm c = NOCHAR; 857c2aa98e2SPeter Wemm } 858e92d3f3fSGregory Neil Shapiro } 859c2aa98e2SPeter Wemm else 860c2aa98e2SPeter Wemm cmntcnt--; 861c2aa98e2SPeter Wemm } 862c2aa98e2SPeter Wemm else if (cmntcnt > 0) 86306f25ae9SGregory Neil Shapiro { 864c2aa98e2SPeter Wemm c = NOCHAR; 86506f25ae9SGregory Neil Shapiro } 866c2aa98e2SPeter Wemm else if (c == '<') 867c2aa98e2SPeter Wemm { 86806f25ae9SGregory Neil Shapiro char *ptr = p; 869c2aa98e2SPeter Wemm 870c2aa98e2SPeter Wemm anglecnt++; 87106f25ae9SGregory Neil Shapiro while (isascii(*ptr) && isspace(*ptr)) 87206f25ae9SGregory Neil Shapiro ptr++; 87306f25ae9SGregory Neil Shapiro if (*ptr == '@') 87440266059SGregory Neil Shapiro route_syntax = true; 875c2aa98e2SPeter Wemm } 876c2aa98e2SPeter Wemm else if (c == '>') 877c2aa98e2SPeter Wemm { 878c2aa98e2SPeter Wemm if (anglecnt <= 0) 879c2aa98e2SPeter Wemm { 880e92d3f3fSGregory Neil Shapiro if (!ignore) 881e92d3f3fSGregory Neil Shapiro { 88240266059SGregory Neil Shapiro usrerr("553 Unbalanced '>'"); 883c2aa98e2SPeter Wemm c = NOCHAR; 884c2aa98e2SPeter Wemm } 885e92d3f3fSGregory Neil Shapiro } 886c2aa98e2SPeter Wemm else 887c2aa98e2SPeter Wemm anglecnt--; 88840266059SGregory Neil Shapiro route_syntax = false; 889c2aa98e2SPeter Wemm } 890c2aa98e2SPeter Wemm else if (delim == ' ' && isascii(c) && isspace(c)) 891c2aa98e2SPeter Wemm c = ' '; 892c2aa98e2SPeter Wemm 893c2aa98e2SPeter Wemm if (c == NOCHAR) 894c2aa98e2SPeter Wemm continue; 895c2aa98e2SPeter Wemm 896c2aa98e2SPeter Wemm /* see if this is end of input */ 897c2aa98e2SPeter Wemm if (c == delim && anglecnt <= 0 && state != QST) 898c2aa98e2SPeter Wemm break; 899c2aa98e2SPeter Wemm 900c2aa98e2SPeter Wemm newstate = StateTab[state][toktab[c & 0xff]]; 901c2aa98e2SPeter Wemm if (tTd(22, 101)) 90240266059SGregory Neil Shapiro sm_dprintf("ns=%02o\n", newstate); 903c2aa98e2SPeter Wemm state = newstate & TYPE; 904c2aa98e2SPeter Wemm if (state == ILL) 905c2aa98e2SPeter Wemm { 906c2aa98e2SPeter Wemm if (isascii(c) && isprint(c)) 90740266059SGregory Neil Shapiro usrerr("553 Illegal character %c", c); 908c2aa98e2SPeter Wemm else 90940266059SGregory Neil Shapiro usrerr("553 Illegal character 0x%02x", 91040266059SGregory Neil Shapiro c & 0x0ff); 911c2aa98e2SPeter Wemm } 912c2aa98e2SPeter Wemm if (bitset(M, newstate)) 913c2aa98e2SPeter Wemm c = NOCHAR; 914c2aa98e2SPeter Wemm if (bitset(B, newstate)) 915c2aa98e2SPeter Wemm break; 916c2aa98e2SPeter Wemm } 917c2aa98e2SPeter Wemm 918c2aa98e2SPeter Wemm /* new token */ 919c2aa98e2SPeter Wemm if (tok != q) 920c2aa98e2SPeter Wemm { 9215ef517c0SGregory Neil Shapiro /* see if there is room */ 9225ef517c0SGregory Neil Shapiro if (q >= &pvpbuf[pvpbsize - 5]) 9235ef517c0SGregory Neil Shapiro goto addrtoolong; 924c2aa98e2SPeter Wemm *q++ = '\0'; 925c2aa98e2SPeter Wemm if (tTd(22, 36)) 926c2aa98e2SPeter Wemm { 92740266059SGregory Neil Shapiro sm_dprintf("tok="); 928e92d3f3fSGregory Neil Shapiro xputs(sm_debug_file(), tok); 92940266059SGregory Neil Shapiro sm_dprintf("\n"); 930c2aa98e2SPeter Wemm } 931c2aa98e2SPeter Wemm if (avp >= &av[MAXATOM]) 932c2aa98e2SPeter Wemm { 93306f25ae9SGregory Neil Shapiro usrerr("553 5.1.0 prescan: too many tokens"); 934c2aa98e2SPeter Wemm goto returnnull; 935c2aa98e2SPeter Wemm } 936c2aa98e2SPeter Wemm if (q - tok > MAXNAME) 937c2aa98e2SPeter Wemm { 93806f25ae9SGregory Neil Shapiro usrerr("553 5.1.0 prescan: token too long"); 939c2aa98e2SPeter Wemm goto returnnull; 940c2aa98e2SPeter Wemm } 941c2aa98e2SPeter Wemm *avp++ = tok; 942c2aa98e2SPeter Wemm } 943c2aa98e2SPeter Wemm } while (c != '\0' && (c != delim || anglecnt > 0)); 944c2aa98e2SPeter Wemm *avp = NULL; 945c2aa98e2SPeter Wemm if (delimptr != NULL) 946a7ec597cSGregory Neil Shapiro { 947a7ec597cSGregory Neil Shapiro if (p > addr) 948a7ec597cSGregory Neil Shapiro p--; 949c2aa98e2SPeter Wemm *delimptr = p; 950a7ec597cSGregory Neil Shapiro } 951c2aa98e2SPeter Wemm if (tTd(22, 12)) 952c2aa98e2SPeter Wemm { 95340266059SGregory Neil Shapiro sm_dprintf("prescan==>"); 954e92d3f3fSGregory Neil Shapiro printav(sm_debug_file(), av); 955c2aa98e2SPeter Wemm } 956c2aa98e2SPeter Wemm CurEnv->e_to = saveto; 957c2aa98e2SPeter Wemm if (av[0] == NULL) 958c2aa98e2SPeter Wemm { 959c2aa98e2SPeter Wemm if (tTd(22, 1)) 96040266059SGregory Neil Shapiro sm_dprintf("prescan: null leading token\n"); 96106f25ae9SGregory Neil Shapiro return NULL; 962c2aa98e2SPeter Wemm } 96306f25ae9SGregory Neil Shapiro return av; 964c2aa98e2SPeter Wemm } 96540266059SGregory Neil Shapiro /* 966c2aa98e2SPeter Wemm ** REWRITE -- apply rewrite rules to token vector. 967c2aa98e2SPeter Wemm ** 968c2aa98e2SPeter Wemm ** This routine is an ordered production system. Each rewrite 969c2aa98e2SPeter Wemm ** rule has a LHS (called the pattern) and a RHS (called the 970c2aa98e2SPeter Wemm ** rewrite); 'rwr' points the the current rewrite rule. 971c2aa98e2SPeter Wemm ** 972c2aa98e2SPeter Wemm ** For each rewrite rule, 'avp' points the address vector we 973c2aa98e2SPeter Wemm ** are trying to match against, and 'pvp' points to the pattern. 974c2aa98e2SPeter Wemm ** If pvp points to a special match value (MATCHZANY, MATCHANY, 975c2aa98e2SPeter Wemm ** MATCHONE, MATCHCLASS, MATCHNCLASS) then the address in avp 976c2aa98e2SPeter Wemm ** matched is saved away in the match vector (pointed to by 'mvp'). 977c2aa98e2SPeter Wemm ** 978c2aa98e2SPeter Wemm ** When a match between avp & pvp does not match, we try to 979c2aa98e2SPeter Wemm ** back out. If we back up over MATCHONE, MATCHCLASS, or MATCHNCLASS 980c2aa98e2SPeter Wemm ** we must also back out the match in mvp. If we reach a 981c2aa98e2SPeter Wemm ** MATCHANY or MATCHZANY we just extend the match and start 982c2aa98e2SPeter Wemm ** over again. 983c2aa98e2SPeter Wemm ** 984c2aa98e2SPeter Wemm ** When we finally match, we rewrite the address vector 985c2aa98e2SPeter Wemm ** and try over again. 986c2aa98e2SPeter Wemm ** 987c2aa98e2SPeter Wemm ** Parameters: 988c2aa98e2SPeter Wemm ** pvp -- pointer to token vector. 989c2aa98e2SPeter Wemm ** ruleset -- the ruleset to use for rewriting. 990c2aa98e2SPeter Wemm ** reclevel -- recursion level (to catch loops). 991c2aa98e2SPeter Wemm ** e -- the current envelope. 99240266059SGregory Neil Shapiro ** maxatom -- maximum length of buffer (usually MAXATOM) 993c2aa98e2SPeter Wemm ** 994c2aa98e2SPeter Wemm ** Returns: 995c2aa98e2SPeter Wemm ** A status code. If EX_TEMPFAIL, higher level code should 996c2aa98e2SPeter Wemm ** attempt recovery. 997c2aa98e2SPeter Wemm ** 998c2aa98e2SPeter Wemm ** Side Effects: 999c2aa98e2SPeter Wemm ** pvp is modified. 1000c2aa98e2SPeter Wemm */ 1001c2aa98e2SPeter Wemm 1002c2aa98e2SPeter Wemm struct match 1003c2aa98e2SPeter Wemm { 100406f25ae9SGregory Neil Shapiro char **match_first; /* first token matched */ 100506f25ae9SGregory Neil Shapiro char **match_last; /* last token matched */ 100606f25ae9SGregory Neil Shapiro char **match_pattern; /* pointer to pattern */ 1007c2aa98e2SPeter Wemm }; 1008c2aa98e2SPeter Wemm 1009c2aa98e2SPeter Wemm int 101040266059SGregory Neil Shapiro rewrite(pvp, ruleset, reclevel, e, maxatom) 1011c2aa98e2SPeter Wemm char **pvp; 1012c2aa98e2SPeter Wemm int ruleset; 1013c2aa98e2SPeter Wemm int reclevel; 1014c2aa98e2SPeter Wemm register ENVELOPE *e; 101540266059SGregory Neil Shapiro int maxatom; 1016c2aa98e2SPeter Wemm { 1017c2aa98e2SPeter Wemm register char *ap; /* address pointer */ 1018c2aa98e2SPeter Wemm register char *rp; /* rewrite pointer */ 101906f25ae9SGregory Neil Shapiro register char *rulename; /* ruleset name */ 102006f25ae9SGregory Neil Shapiro register char *prefix; 1021c2aa98e2SPeter Wemm register char **avp; /* address vector pointer */ 1022c2aa98e2SPeter Wemm register char **rvp; /* rewrite vector pointer */ 1023c2aa98e2SPeter Wemm register struct match *mlp; /* cur ptr into mlist */ 1024c2aa98e2SPeter Wemm register struct rewrite *rwr; /* pointer to current rewrite rule */ 1025c2aa98e2SPeter Wemm int ruleno; /* current rule number */ 1026c2aa98e2SPeter Wemm int rstat = EX_OK; /* return status */ 1027c2aa98e2SPeter Wemm int loopcount; 1028c2aa98e2SPeter Wemm struct match mlist[MAXMATCH]; /* stores match on LHS */ 1029c2aa98e2SPeter Wemm char *npvp[MAXATOM + 1]; /* temporary space for rebuild */ 1030c2aa98e2SPeter Wemm char buf[MAXLINE]; 103106f25ae9SGregory Neil Shapiro char name[6]; 1032c2aa98e2SPeter Wemm 1033a7ec597cSGregory Neil Shapiro /* 1034a7ec597cSGregory Neil Shapiro ** mlp will not exceed mlist[] because readcf enforces 1035a7ec597cSGregory Neil Shapiro ** the upper limit of entries when reading rulesets. 1036a7ec597cSGregory Neil Shapiro */ 1037a7ec597cSGregory Neil Shapiro 1038c2aa98e2SPeter Wemm if (ruleset < 0 || ruleset >= MAXRWSETS) 1039c2aa98e2SPeter Wemm { 104006f25ae9SGregory Neil Shapiro syserr("554 5.3.5 rewrite: illegal ruleset number %d", ruleset); 1041c2aa98e2SPeter Wemm return EX_CONFIG; 1042c2aa98e2SPeter Wemm } 104306f25ae9SGregory Neil Shapiro rulename = RuleSetNames[ruleset]; 104406f25ae9SGregory Neil Shapiro if (rulename == NULL) 104506f25ae9SGregory Neil Shapiro { 1046d0cef73dSGregory Neil Shapiro (void) sm_snprintf(name, sizeof(name), "%d", ruleset); 104706f25ae9SGregory Neil Shapiro rulename = name; 104806f25ae9SGregory Neil Shapiro } 104906f25ae9SGregory Neil Shapiro if (OpMode == MD_TEST) 105006f25ae9SGregory Neil Shapiro prefix = ""; 105106f25ae9SGregory Neil Shapiro else 105206f25ae9SGregory Neil Shapiro prefix = "rewrite: ruleset "; 105306f25ae9SGregory Neil Shapiro if (OpMode == MD_TEST) 105406f25ae9SGregory Neil Shapiro { 105540266059SGregory Neil Shapiro (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, 105640266059SGregory Neil Shapiro "%s%-16.16s input:", prefix, rulename); 1057e92d3f3fSGregory Neil Shapiro printav(smioout, pvp); 105806f25ae9SGregory Neil Shapiro } 105906f25ae9SGregory Neil Shapiro else if (tTd(21, 1)) 106006f25ae9SGregory Neil Shapiro { 106140266059SGregory Neil Shapiro sm_dprintf("%s%-16.16s input:", prefix, rulename); 1062e92d3f3fSGregory Neil Shapiro printav(sm_debug_file(), pvp); 106306f25ae9SGregory Neil Shapiro } 1064c2aa98e2SPeter Wemm if (reclevel++ > MaxRuleRecursion) 1065c2aa98e2SPeter Wemm { 106606f25ae9SGregory Neil Shapiro syserr("rewrite: excessive recursion (max %d), ruleset %s", 106706f25ae9SGregory Neil Shapiro MaxRuleRecursion, rulename); 1068c2aa98e2SPeter Wemm return EX_CONFIG; 1069c2aa98e2SPeter Wemm } 1070c2aa98e2SPeter Wemm if (pvp == NULL) 1071c2aa98e2SPeter Wemm return EX_USAGE; 1072a7ec597cSGregory Neil Shapiro if (maxatom <= 0) 1073a7ec597cSGregory Neil Shapiro return EX_USAGE; 1074c2aa98e2SPeter Wemm 1075c2aa98e2SPeter Wemm /* 1076c2aa98e2SPeter Wemm ** Run through the list of rewrite rules, applying 1077c2aa98e2SPeter Wemm ** any that match. 1078c2aa98e2SPeter Wemm */ 1079c2aa98e2SPeter Wemm 1080c2aa98e2SPeter Wemm ruleno = 1; 1081c2aa98e2SPeter Wemm loopcount = 0; 1082c2aa98e2SPeter Wemm for (rwr = RewriteRules[ruleset]; rwr != NULL; ) 1083c2aa98e2SPeter Wemm { 108406f25ae9SGregory Neil Shapiro int status; 1085c2aa98e2SPeter Wemm 1086c2aa98e2SPeter Wemm /* if already canonical, quit now */ 1087c2aa98e2SPeter Wemm if (pvp[0] != NULL && (pvp[0][0] & 0377) == CANONNET) 1088c2aa98e2SPeter Wemm break; 1089c2aa98e2SPeter Wemm 1090c2aa98e2SPeter Wemm if (tTd(21, 12)) 1091c2aa98e2SPeter Wemm { 109206f25ae9SGregory Neil Shapiro if (tTd(21, 15)) 109340266059SGregory Neil Shapiro sm_dprintf("-----trying rule (line %d):", 109406f25ae9SGregory Neil Shapiro rwr->r_line); 109506f25ae9SGregory Neil Shapiro else 109640266059SGregory Neil Shapiro sm_dprintf("-----trying rule:"); 1097e92d3f3fSGregory Neil Shapiro printav(sm_debug_file(), rwr->r_lhs); 1098c2aa98e2SPeter Wemm } 1099c2aa98e2SPeter Wemm 1100c2aa98e2SPeter Wemm /* try to match on this rule */ 1101c2aa98e2SPeter Wemm mlp = mlist; 1102c2aa98e2SPeter Wemm rvp = rwr->r_lhs; 1103c2aa98e2SPeter Wemm avp = pvp; 1104c2aa98e2SPeter Wemm if (++loopcount > 100) 1105c2aa98e2SPeter Wemm { 110606f25ae9SGregory Neil Shapiro syserr("554 5.3.5 Infinite loop in ruleset %s, rule %d", 110706f25ae9SGregory Neil Shapiro rulename, ruleno); 1108c2aa98e2SPeter Wemm if (tTd(21, 1)) 1109c2aa98e2SPeter Wemm { 111040266059SGregory Neil Shapiro sm_dprintf("workspace: "); 1111e92d3f3fSGregory Neil Shapiro printav(sm_debug_file(), pvp); 1112c2aa98e2SPeter Wemm } 1113c2aa98e2SPeter Wemm break; 1114c2aa98e2SPeter Wemm } 1115c2aa98e2SPeter Wemm 1116c2aa98e2SPeter Wemm while ((ap = *avp) != NULL || *rvp != NULL) 1117c2aa98e2SPeter Wemm { 1118c2aa98e2SPeter Wemm rp = *rvp; 1119c2aa98e2SPeter Wemm if (tTd(21, 35)) 1120c2aa98e2SPeter Wemm { 112140266059SGregory Neil Shapiro sm_dprintf("ADVANCE rp="); 1122e92d3f3fSGregory Neil Shapiro xputs(sm_debug_file(), rp); 112340266059SGregory Neil Shapiro sm_dprintf(", ap="); 1124e92d3f3fSGregory Neil Shapiro xputs(sm_debug_file(), ap); 112540266059SGregory Neil Shapiro sm_dprintf("\n"); 1126c2aa98e2SPeter Wemm } 1127c2aa98e2SPeter Wemm if (rp == NULL) 1128c2aa98e2SPeter Wemm { 1129c2aa98e2SPeter Wemm /* end-of-pattern before end-of-address */ 1130c2aa98e2SPeter Wemm goto backup; 1131c2aa98e2SPeter Wemm } 1132d0cef73dSGregory Neil Shapiro if (ap == NULL && 1133d0cef73dSGregory Neil Shapiro (rp[0] & 0377) != MATCHZANY && 1134d0cef73dSGregory Neil Shapiro (rp[0] & 0377) != MATCHZERO) 1135c2aa98e2SPeter Wemm { 1136c2aa98e2SPeter Wemm /* end-of-input with patterns left */ 1137c2aa98e2SPeter Wemm goto backup; 1138c2aa98e2SPeter Wemm } 1139c2aa98e2SPeter Wemm 1140d0cef73dSGregory Neil Shapiro switch (rp[0] & 0377) 1141c2aa98e2SPeter Wemm { 1142c2aa98e2SPeter Wemm case MATCHCLASS: 1143c2aa98e2SPeter Wemm /* match any phrase in a class */ 114406f25ae9SGregory Neil Shapiro mlp->match_pattern = rvp; 114506f25ae9SGregory Neil Shapiro mlp->match_first = avp; 1146c2aa98e2SPeter Wemm extendclass: 1147c2aa98e2SPeter Wemm ap = *avp; 1148c2aa98e2SPeter Wemm if (ap == NULL) 1149c2aa98e2SPeter Wemm goto backup; 115006f25ae9SGregory Neil Shapiro mlp->match_last = avp++; 115106f25ae9SGregory Neil Shapiro cataddr(mlp->match_first, mlp->match_last, 1152d0cef73dSGregory Neil Shapiro buf, sizeof(buf), '\0', true); 1153c2aa98e2SPeter Wemm if (!wordinclass(buf, rp[1])) 1154c2aa98e2SPeter Wemm { 1155c2aa98e2SPeter Wemm if (tTd(21, 36)) 1156c2aa98e2SPeter Wemm { 115740266059SGregory Neil Shapiro sm_dprintf("EXTEND rp="); 1158e92d3f3fSGregory Neil Shapiro xputs(sm_debug_file(), rp); 115940266059SGregory Neil Shapiro sm_dprintf(", ap="); 1160e92d3f3fSGregory Neil Shapiro xputs(sm_debug_file(), ap); 116140266059SGregory Neil Shapiro sm_dprintf("\n"); 1162c2aa98e2SPeter Wemm } 1163c2aa98e2SPeter Wemm goto extendclass; 1164c2aa98e2SPeter Wemm } 1165c2aa98e2SPeter Wemm if (tTd(21, 36)) 116640266059SGregory Neil Shapiro sm_dprintf("CLMATCH\n"); 1167c2aa98e2SPeter Wemm mlp++; 1168c2aa98e2SPeter Wemm break; 1169c2aa98e2SPeter Wemm 1170c2aa98e2SPeter Wemm case MATCHNCLASS: 1171c2aa98e2SPeter Wemm /* match any token not in a class */ 1172c2aa98e2SPeter Wemm if (wordinclass(ap, rp[1])) 1173c2aa98e2SPeter Wemm goto backup; 1174c2aa98e2SPeter Wemm 117506f25ae9SGregory Neil Shapiro /* FALLTHROUGH */ 1176c2aa98e2SPeter Wemm 1177c2aa98e2SPeter Wemm case MATCHONE: 1178c2aa98e2SPeter Wemm case MATCHANY: 1179c2aa98e2SPeter Wemm /* match exactly one token */ 118006f25ae9SGregory Neil Shapiro mlp->match_pattern = rvp; 118106f25ae9SGregory Neil Shapiro mlp->match_first = avp; 118206f25ae9SGregory Neil Shapiro mlp->match_last = avp++; 1183c2aa98e2SPeter Wemm mlp++; 1184c2aa98e2SPeter Wemm break; 1185c2aa98e2SPeter Wemm 1186c2aa98e2SPeter Wemm case MATCHZANY: 1187c2aa98e2SPeter Wemm /* match zero or more tokens */ 118806f25ae9SGregory Neil Shapiro mlp->match_pattern = rvp; 118906f25ae9SGregory Neil Shapiro mlp->match_first = avp; 119006f25ae9SGregory Neil Shapiro mlp->match_last = avp - 1; 1191c2aa98e2SPeter Wemm mlp++; 1192c2aa98e2SPeter Wemm break; 1193c2aa98e2SPeter Wemm 1194c2aa98e2SPeter Wemm case MATCHZERO: 1195c2aa98e2SPeter Wemm /* match zero tokens */ 1196c2aa98e2SPeter Wemm break; 1197c2aa98e2SPeter Wemm 1198c2aa98e2SPeter Wemm case MACRODEXPAND: 1199c2aa98e2SPeter Wemm /* 1200c2aa98e2SPeter Wemm ** Match against run-time macro. 1201c2aa98e2SPeter Wemm ** This algorithm is broken for the 1202c2aa98e2SPeter Wemm ** general case (no recursive macros, 1203c2aa98e2SPeter Wemm ** improper tokenization) but should 1204c2aa98e2SPeter Wemm ** work for the usual cases. 1205c2aa98e2SPeter Wemm */ 1206c2aa98e2SPeter Wemm 1207c2aa98e2SPeter Wemm ap = macvalue(rp[1], e); 120806f25ae9SGregory Neil Shapiro mlp->match_first = avp; 1209c2aa98e2SPeter Wemm if (tTd(21, 2)) 1210739ac4d4SGregory Neil Shapiro sm_dprintf("rewrite: LHS $&{%s} => \"%s\"\n", 1211c2aa98e2SPeter Wemm macname(rp[1]), 1212c2aa98e2SPeter Wemm ap == NULL ? "(NULL)" : ap); 1213c2aa98e2SPeter Wemm 1214c2aa98e2SPeter Wemm if (ap == NULL) 1215c2aa98e2SPeter Wemm break; 1216c2aa98e2SPeter Wemm while (*ap != '\0') 1217c2aa98e2SPeter Wemm { 1218c2aa98e2SPeter Wemm if (*avp == NULL || 121940266059SGregory Neil Shapiro sm_strncasecmp(ap, *avp, 122040266059SGregory Neil Shapiro strlen(*avp)) != 0) 1221c2aa98e2SPeter Wemm { 1222c2aa98e2SPeter Wemm /* no match */ 122306f25ae9SGregory Neil Shapiro avp = mlp->match_first; 1224c2aa98e2SPeter Wemm goto backup; 1225c2aa98e2SPeter Wemm } 1226c2aa98e2SPeter Wemm ap += strlen(*avp++); 1227c2aa98e2SPeter Wemm } 1228c2aa98e2SPeter Wemm 1229c2aa98e2SPeter Wemm /* match */ 1230c2aa98e2SPeter Wemm break; 1231c2aa98e2SPeter Wemm 1232c2aa98e2SPeter Wemm default: 1233c2aa98e2SPeter Wemm /* must have exact match */ 1234c2aa98e2SPeter Wemm if (sm_strcasecmp(rp, ap)) 1235c2aa98e2SPeter Wemm goto backup; 1236c2aa98e2SPeter Wemm avp++; 1237c2aa98e2SPeter Wemm break; 1238c2aa98e2SPeter Wemm } 1239c2aa98e2SPeter Wemm 1240c2aa98e2SPeter Wemm /* successful match on this token */ 1241c2aa98e2SPeter Wemm rvp++; 1242c2aa98e2SPeter Wemm continue; 1243c2aa98e2SPeter Wemm 1244c2aa98e2SPeter Wemm backup: 1245c2aa98e2SPeter Wemm /* match failed -- back up */ 1246c2aa98e2SPeter Wemm while (--mlp >= mlist) 1247c2aa98e2SPeter Wemm { 124806f25ae9SGregory Neil Shapiro rvp = mlp->match_pattern; 1249c2aa98e2SPeter Wemm rp = *rvp; 125006f25ae9SGregory Neil Shapiro avp = mlp->match_last + 1; 1251c2aa98e2SPeter Wemm ap = *avp; 1252c2aa98e2SPeter Wemm 1253c2aa98e2SPeter Wemm if (tTd(21, 36)) 1254c2aa98e2SPeter Wemm { 125540266059SGregory Neil Shapiro sm_dprintf("BACKUP rp="); 1256e92d3f3fSGregory Neil Shapiro xputs(sm_debug_file(), rp); 125740266059SGregory Neil Shapiro sm_dprintf(", ap="); 1258e92d3f3fSGregory Neil Shapiro xputs(sm_debug_file(), ap); 125940266059SGregory Neil Shapiro sm_dprintf("\n"); 1260c2aa98e2SPeter Wemm } 1261c2aa98e2SPeter Wemm 1262c2aa98e2SPeter Wemm if (ap == NULL) 1263c2aa98e2SPeter Wemm { 1264c2aa98e2SPeter Wemm /* run off the end -- back up again */ 1265c2aa98e2SPeter Wemm continue; 1266c2aa98e2SPeter Wemm } 1267d0cef73dSGregory Neil Shapiro 1268d0cef73dSGregory Neil Shapiro if ((rp[0] & 0377) == MATCHANY || 1269d0cef73dSGregory Neil Shapiro (rp[0] & 0377) == MATCHZANY) 1270c2aa98e2SPeter Wemm { 1271c2aa98e2SPeter Wemm /* extend binding and continue */ 127206f25ae9SGregory Neil Shapiro mlp->match_last = avp++; 1273c2aa98e2SPeter Wemm rvp++; 1274c2aa98e2SPeter Wemm mlp++; 1275c2aa98e2SPeter Wemm break; 1276c2aa98e2SPeter Wemm } 1277d0cef73dSGregory Neil Shapiro if ((rp[0] & 0377) == MATCHCLASS) 1278c2aa98e2SPeter Wemm { 1279c2aa98e2SPeter Wemm /* extend binding and try again */ 128006f25ae9SGregory Neil Shapiro mlp->match_last = avp; 1281c2aa98e2SPeter Wemm goto extendclass; 1282c2aa98e2SPeter Wemm } 1283c2aa98e2SPeter Wemm } 1284c2aa98e2SPeter Wemm 1285c2aa98e2SPeter Wemm if (mlp < mlist) 1286c2aa98e2SPeter Wemm { 1287c2aa98e2SPeter Wemm /* total failure to match */ 1288c2aa98e2SPeter Wemm break; 1289c2aa98e2SPeter Wemm } 1290c2aa98e2SPeter Wemm } 1291c2aa98e2SPeter Wemm 1292c2aa98e2SPeter Wemm /* 1293c2aa98e2SPeter Wemm ** See if we successfully matched 1294c2aa98e2SPeter Wemm */ 1295c2aa98e2SPeter Wemm 1296c2aa98e2SPeter Wemm if (mlp < mlist || *rvp != NULL) 1297c2aa98e2SPeter Wemm { 1298c2aa98e2SPeter Wemm if (tTd(21, 10)) 129940266059SGregory Neil Shapiro sm_dprintf("----- rule fails\n"); 1300c2aa98e2SPeter Wemm rwr = rwr->r_next; 1301c2aa98e2SPeter Wemm ruleno++; 1302c2aa98e2SPeter Wemm loopcount = 0; 1303c2aa98e2SPeter Wemm continue; 1304c2aa98e2SPeter Wemm } 1305c2aa98e2SPeter Wemm 1306c2aa98e2SPeter Wemm rvp = rwr->r_rhs; 1307c2aa98e2SPeter Wemm if (tTd(21, 12)) 1308c2aa98e2SPeter Wemm { 130940266059SGregory Neil Shapiro sm_dprintf("-----rule matches:"); 1310e92d3f3fSGregory Neil Shapiro printav(sm_debug_file(), rvp); 1311c2aa98e2SPeter Wemm } 1312c2aa98e2SPeter Wemm 1313c2aa98e2SPeter Wemm rp = *rvp; 131406f25ae9SGregory Neil Shapiro if (rp != NULL) 131506f25ae9SGregory Neil Shapiro { 1316d0cef73dSGregory Neil Shapiro if ((rp[0] & 0377) == CANONUSER) 1317c2aa98e2SPeter Wemm { 1318c2aa98e2SPeter Wemm rvp++; 1319c2aa98e2SPeter Wemm rwr = rwr->r_next; 1320c2aa98e2SPeter Wemm ruleno++; 1321c2aa98e2SPeter Wemm loopcount = 0; 1322c2aa98e2SPeter Wemm } 1323d0cef73dSGregory Neil Shapiro else if ((rp[0] & 0377) == CANONHOST) 1324c2aa98e2SPeter Wemm { 1325c2aa98e2SPeter Wemm rvp++; 1326c2aa98e2SPeter Wemm rwr = NULL; 1327c2aa98e2SPeter Wemm } 132806f25ae9SGregory Neil Shapiro } 1329c2aa98e2SPeter Wemm 1330c2aa98e2SPeter Wemm /* substitute */ 1331c2aa98e2SPeter Wemm for (avp = npvp; *rvp != NULL; rvp++) 1332c2aa98e2SPeter Wemm { 1333c2aa98e2SPeter Wemm register struct match *m; 1334c2aa98e2SPeter Wemm register char **pp; 1335c2aa98e2SPeter Wemm 1336c2aa98e2SPeter Wemm rp = *rvp; 1337d0cef73dSGregory Neil Shapiro if ((rp[0] & 0377) == MATCHREPL) 1338c2aa98e2SPeter Wemm { 1339c2aa98e2SPeter Wemm /* substitute from LHS */ 1340c2aa98e2SPeter Wemm m = &mlist[rp[1] - '1']; 1341c2aa98e2SPeter Wemm if (m < mlist || m >= mlp) 1342c2aa98e2SPeter Wemm { 134306f25ae9SGregory Neil Shapiro syserr("554 5.3.5 rewrite: ruleset %s: replacement $%c out of bounds", 134406f25ae9SGregory Neil Shapiro rulename, rp[1]); 1345c2aa98e2SPeter Wemm return EX_CONFIG; 1346c2aa98e2SPeter Wemm } 1347c2aa98e2SPeter Wemm if (tTd(21, 15)) 1348c2aa98e2SPeter Wemm { 134940266059SGregory Neil Shapiro sm_dprintf("$%c:", rp[1]); 135006f25ae9SGregory Neil Shapiro pp = m->match_first; 135106f25ae9SGregory Neil Shapiro while (pp <= m->match_last) 1352c2aa98e2SPeter Wemm { 135340266059SGregory Neil Shapiro sm_dprintf(" %p=\"", *pp); 135440266059SGregory Neil Shapiro sm_dflush(); 135540266059SGregory Neil Shapiro sm_dprintf("%s\"", *pp++); 1356c2aa98e2SPeter Wemm } 135740266059SGregory Neil Shapiro sm_dprintf("\n"); 1358c2aa98e2SPeter Wemm } 135906f25ae9SGregory Neil Shapiro pp = m->match_first; 136006f25ae9SGregory Neil Shapiro while (pp <= m->match_last) 1361c2aa98e2SPeter Wemm { 136240266059SGregory Neil Shapiro if (avp >= &npvp[maxatom]) 1363a7ec597cSGregory Neil Shapiro goto toolong; 1364c2aa98e2SPeter Wemm *avp++ = *pp++; 1365c2aa98e2SPeter Wemm } 1366c2aa98e2SPeter Wemm } 1367c2aa98e2SPeter Wemm else 1368c2aa98e2SPeter Wemm { 1369c2aa98e2SPeter Wemm /* some sort of replacement */ 137040266059SGregory Neil Shapiro if (avp >= &npvp[maxatom]) 1371c2aa98e2SPeter Wemm { 1372c2aa98e2SPeter Wemm toolong: 137306f25ae9SGregory Neil Shapiro syserr("554 5.3.0 rewrite: expansion too long"); 137440266059SGregory Neil Shapiro if (LogLevel > 9) 137540266059SGregory Neil Shapiro sm_syslog(LOG_ERR, e->e_id, 137640266059SGregory Neil Shapiro "rewrite: expansion too long, ruleset=%s, ruleno=%d", 137740266059SGregory Neil Shapiro rulename, ruleno); 1378c2aa98e2SPeter Wemm return EX_DATAERR; 1379c2aa98e2SPeter Wemm } 1380d0cef73dSGregory Neil Shapiro if ((rp[0] & 0377) != MACRODEXPAND) 1381c2aa98e2SPeter Wemm { 1382d0cef73dSGregory Neil Shapiro /* vanilla replacement from RHS */ 1383c2aa98e2SPeter Wemm *avp++ = rp; 1384c2aa98e2SPeter Wemm } 1385c2aa98e2SPeter Wemm else 1386c2aa98e2SPeter Wemm { 1387739ac4d4SGregory Neil Shapiro /* $&{x} replacement */ 1388c2aa98e2SPeter Wemm char *mval = macvalue(rp[1], e); 1389c2aa98e2SPeter Wemm char **xpvp; 13904e4196cbSGregory Neil Shapiro size_t trsize = 0; 1391c2aa98e2SPeter Wemm static size_t pvpb1_size = 0; 1392c2aa98e2SPeter Wemm static char **pvpb1 = NULL; 1393c2aa98e2SPeter Wemm char pvpbuf[PSBUFSIZE]; 1394c2aa98e2SPeter Wemm 1395c2aa98e2SPeter Wemm if (tTd(21, 2)) 1396739ac4d4SGregory Neil Shapiro sm_dprintf("rewrite: RHS $&{%s} => \"%s\"\n", 1397c2aa98e2SPeter Wemm macname(rp[1]), 1398c2aa98e2SPeter Wemm mval == NULL ? "(NULL)" : mval); 1399c2aa98e2SPeter Wemm if (mval == NULL || *mval == '\0') 1400c2aa98e2SPeter Wemm continue; 1401c2aa98e2SPeter Wemm 1402c2aa98e2SPeter Wemm /* save the remainder of the input */ 1403c2aa98e2SPeter Wemm for (xpvp = pvp; *xpvp != NULL; xpvp++) 1404d0cef73dSGregory Neil Shapiro trsize += sizeof(*xpvp); 14054e4196cbSGregory Neil Shapiro if (trsize > pvpb1_size) 1406c2aa98e2SPeter Wemm { 1407c2aa98e2SPeter Wemm if (pvpb1 != NULL) 14088774250cSGregory Neil Shapiro sm_free(pvpb1); 140940266059SGregory Neil Shapiro pvpb1 = (char **) 141040266059SGregory Neil Shapiro sm_pmalloc_x(trsize); 1411c2aa98e2SPeter Wemm pvpb1_size = trsize; 1412c2aa98e2SPeter Wemm } 1413c2aa98e2SPeter Wemm 141406f25ae9SGregory Neil Shapiro memmove((char *) pvpb1, 141506f25ae9SGregory Neil Shapiro (char *) pvp, 141606f25ae9SGregory Neil Shapiro trsize); 1417c2aa98e2SPeter Wemm 1418c2aa98e2SPeter Wemm /* scan the new replacement */ 1419c2aa98e2SPeter Wemm xpvp = prescan(mval, '\0', pvpbuf, 1420d0cef73dSGregory Neil Shapiro sizeof(pvpbuf), NULL, 1421e92d3f3fSGregory Neil Shapiro NULL, false); 1422c2aa98e2SPeter Wemm if (xpvp == NULL) 1423c2aa98e2SPeter Wemm { 1424c2aa98e2SPeter Wemm /* prescan pre-printed error */ 1425c2aa98e2SPeter Wemm return EX_DATAERR; 1426c2aa98e2SPeter Wemm } 1427c2aa98e2SPeter Wemm 1428c2aa98e2SPeter Wemm /* insert it into the output stream */ 1429c2aa98e2SPeter Wemm while (*xpvp != NULL) 1430c2aa98e2SPeter Wemm { 1431c2aa98e2SPeter Wemm if (tTd(21, 19)) 143240266059SGregory Neil Shapiro sm_dprintf(" ... %s\n", 143306f25ae9SGregory Neil Shapiro *xpvp); 143440266059SGregory Neil Shapiro *avp++ = sm_rpool_strdup_x( 143540266059SGregory Neil Shapiro e->e_rpool, *xpvp); 143640266059SGregory Neil Shapiro if (avp >= &npvp[maxatom]) 1437c2aa98e2SPeter Wemm goto toolong; 1438c2aa98e2SPeter Wemm xpvp++; 1439c2aa98e2SPeter Wemm } 1440c2aa98e2SPeter Wemm if (tTd(21, 19)) 144140266059SGregory Neil Shapiro sm_dprintf(" ... DONE\n"); 1442c2aa98e2SPeter Wemm 1443c2aa98e2SPeter Wemm /* restore the old trailing input */ 144406f25ae9SGregory Neil Shapiro memmove((char *) pvp, 144506f25ae9SGregory Neil Shapiro (char *) pvpb1, 144606f25ae9SGregory Neil Shapiro trsize); 1447c2aa98e2SPeter Wemm } 1448c2aa98e2SPeter Wemm } 1449c2aa98e2SPeter Wemm } 1450c2aa98e2SPeter Wemm *avp++ = NULL; 1451c2aa98e2SPeter Wemm 1452c2aa98e2SPeter Wemm /* 1453c2aa98e2SPeter Wemm ** Check for any hostname/keyword lookups. 1454c2aa98e2SPeter Wemm */ 1455c2aa98e2SPeter Wemm 1456c2aa98e2SPeter Wemm for (rvp = npvp; *rvp != NULL; rvp++) 1457c2aa98e2SPeter Wemm { 1458c2aa98e2SPeter Wemm char **hbrvp; 1459c2aa98e2SPeter Wemm char **xpvp; 14604e4196cbSGregory Neil Shapiro size_t trsize; 1461c2aa98e2SPeter Wemm char *replac; 1462c2aa98e2SPeter Wemm int endtoken; 1463c2aa98e2SPeter Wemm STAB *map; 1464c2aa98e2SPeter Wemm char *mapname; 1465c2aa98e2SPeter Wemm char **key_rvp; 1466c2aa98e2SPeter Wemm char **arg_rvp; 1467c2aa98e2SPeter Wemm char **default_rvp; 14684e4196cbSGregory Neil Shapiro char cbuf[MAXKEY]; 1469c2aa98e2SPeter Wemm char *pvpb1[MAXATOM + 1]; 1470a7ec597cSGregory Neil Shapiro char *argvect[MAX_MAP_ARGS]; 1471c2aa98e2SPeter Wemm char pvpbuf[PSBUFSIZE]; 1472c2aa98e2SPeter Wemm char *nullpvp[1]; 1473c2aa98e2SPeter Wemm 1474c2aa98e2SPeter Wemm hbrvp = rvp; 1475d0cef73dSGregory Neil Shapiro if ((rvp[0][0] & 0377) == HOSTBEGIN) 1476c2aa98e2SPeter Wemm { 1477c2aa98e2SPeter Wemm endtoken = HOSTEND; 1478c2aa98e2SPeter Wemm mapname = "host"; 1479c2aa98e2SPeter Wemm } 1480d0cef73dSGregory Neil Shapiro else if ((rvp[0][0] & 0377) == LOOKUPBEGIN) 1481c2aa98e2SPeter Wemm { 1482c2aa98e2SPeter Wemm endtoken = LOOKUPEND; 1483c2aa98e2SPeter Wemm mapname = *++rvp; 1484a7ec597cSGregory Neil Shapiro if (mapname == NULL) 1485af9557fdSGregory Neil Shapiro { 1486a7ec597cSGregory Neil Shapiro syserr("554 5.3.0 rewrite: missing mapname"); 1487af9557fdSGregory Neil Shapiro /* NOTREACHED */ 1488af9557fdSGregory Neil Shapiro SM_ASSERT(0); 1489af9557fdSGregory Neil Shapiro } 1490c2aa98e2SPeter Wemm } 1491d0cef73dSGregory Neil Shapiro else 1492d0cef73dSGregory Neil Shapiro continue; 1493d0cef73dSGregory Neil Shapiro 1494d0cef73dSGregory Neil Shapiro /* 1495d0cef73dSGregory Neil Shapiro ** Got a hostname/keyword lookup. 1496d0cef73dSGregory Neil Shapiro ** 1497d0cef73dSGregory Neil Shapiro ** This could be optimized fairly easily. 1498d0cef73dSGregory Neil Shapiro */ 1499d0cef73dSGregory Neil Shapiro 1500c2aa98e2SPeter Wemm map = stab(mapname, ST_MAP, ST_FIND); 1501c2aa98e2SPeter Wemm if (map == NULL) 1502a7ec597cSGregory Neil Shapiro syserr("554 5.3.0 rewrite: map %s not found", 1503a7ec597cSGregory Neil Shapiro mapname); 1504c2aa98e2SPeter Wemm 1505c2aa98e2SPeter Wemm /* extract the match part */ 1506c2aa98e2SPeter Wemm key_rvp = ++rvp; 1507a7ec597cSGregory Neil Shapiro if (key_rvp == NULL) 1508af9557fdSGregory Neil Shapiro { 1509a7ec597cSGregory Neil Shapiro syserr("554 5.3.0 rewrite: missing key for map %s", 1510a7ec597cSGregory Neil Shapiro mapname); 1511af9557fdSGregory Neil Shapiro /* NOTREACHED */ 1512af9557fdSGregory Neil Shapiro SM_ASSERT(0); 1513af9557fdSGregory Neil Shapiro } 1514c2aa98e2SPeter Wemm default_rvp = NULL; 1515c2aa98e2SPeter Wemm arg_rvp = argvect; 1516c2aa98e2SPeter Wemm xpvp = NULL; 1517c2aa98e2SPeter Wemm replac = pvpbuf; 1518d0cef73dSGregory Neil Shapiro while (*rvp != NULL && ((rvp[0][0] & 0377) != endtoken)) 1519c2aa98e2SPeter Wemm { 1520d0cef73dSGregory Neil Shapiro int nodetype = rvp[0][0] & 0377; 1521c2aa98e2SPeter Wemm 1522a7ec597cSGregory Neil Shapiro if (nodetype != CANONHOST && 1523a7ec597cSGregory Neil Shapiro nodetype != CANONUSER) 1524c2aa98e2SPeter Wemm { 1525c2aa98e2SPeter Wemm rvp++; 1526c2aa98e2SPeter Wemm continue; 1527c2aa98e2SPeter Wemm } 1528c2aa98e2SPeter Wemm 1529c2aa98e2SPeter Wemm *rvp++ = NULL; 1530c2aa98e2SPeter Wemm 1531c2aa98e2SPeter Wemm if (xpvp != NULL) 1532c2aa98e2SPeter Wemm { 1533c2aa98e2SPeter Wemm cataddr(xpvp, NULL, replac, 1534d0cef73dSGregory Neil Shapiro &pvpbuf[sizeof(pvpbuf)] - replac, 1535d0cef73dSGregory Neil Shapiro '\0', false); 1536a7ec597cSGregory Neil Shapiro if (arg_rvp < 1537a7ec597cSGregory Neil Shapiro &argvect[MAX_MAP_ARGS - 1]) 1538c2aa98e2SPeter Wemm *++arg_rvp = replac; 1539c2aa98e2SPeter Wemm replac += strlen(replac) + 1; 1540c2aa98e2SPeter Wemm xpvp = NULL; 1541c2aa98e2SPeter Wemm } 1542c2aa98e2SPeter Wemm switch (nodetype) 1543c2aa98e2SPeter Wemm { 1544c2aa98e2SPeter Wemm case CANONHOST: 1545c2aa98e2SPeter Wemm xpvp = rvp; 1546c2aa98e2SPeter Wemm break; 1547c2aa98e2SPeter Wemm 1548c2aa98e2SPeter Wemm case CANONUSER: 1549c2aa98e2SPeter Wemm default_rvp = rvp; 1550c2aa98e2SPeter Wemm break; 1551c2aa98e2SPeter Wemm } 1552c2aa98e2SPeter Wemm } 1553c2aa98e2SPeter Wemm if (*rvp != NULL) 1554c2aa98e2SPeter Wemm *rvp++ = NULL; 1555c2aa98e2SPeter Wemm if (xpvp != NULL) 1556c2aa98e2SPeter Wemm { 1557c2aa98e2SPeter Wemm cataddr(xpvp, NULL, replac, 1558d0cef73dSGregory Neil Shapiro &pvpbuf[sizeof(pvpbuf)] - replac, 1559d0cef73dSGregory Neil Shapiro '\0', false); 1560a7ec597cSGregory Neil Shapiro if (arg_rvp < &argvect[MAX_MAP_ARGS - 1]) 1561c2aa98e2SPeter Wemm *++arg_rvp = replac; 1562c2aa98e2SPeter Wemm } 1563a7ec597cSGregory Neil Shapiro if (arg_rvp >= &argvect[MAX_MAP_ARGS - 1]) 1564a7ec597cSGregory Neil Shapiro argvect[MAX_MAP_ARGS - 1] = NULL; 1565a7ec597cSGregory Neil Shapiro else 1566c2aa98e2SPeter Wemm *++arg_rvp = NULL; 1567c2aa98e2SPeter Wemm 1568c2aa98e2SPeter Wemm /* save the remainder of the input string */ 1569d0cef73dSGregory Neil Shapiro trsize = (avp - rvp + 1) * sizeof(*rvp); 157006f25ae9SGregory Neil Shapiro memmove((char *) pvpb1, (char *) rvp, trsize); 1571c2aa98e2SPeter Wemm 1572c2aa98e2SPeter Wemm /* look it up */ 1573d0cef73dSGregory Neil Shapiro cataddr(key_rvp, NULL, cbuf, sizeof(cbuf), 1574d0cef73dSGregory Neil Shapiro map == NULL ? '\0' : map->s_map.map_spacesub, 1575d0cef73dSGregory Neil Shapiro true); 157606f25ae9SGregory Neil Shapiro argvect[0] = cbuf; 157706f25ae9SGregory Neil Shapiro replac = map_lookup(map, cbuf, argvect, &rstat, e); 1578c2aa98e2SPeter Wemm 1579c2aa98e2SPeter Wemm /* if no replacement, use default */ 1580c2aa98e2SPeter Wemm if (replac == NULL && default_rvp != NULL) 1581c2aa98e2SPeter Wemm { 1582c2aa98e2SPeter Wemm /* create the default */ 1583d0cef73dSGregory Neil Shapiro cataddr(default_rvp, NULL, cbuf, sizeof(cbuf), 1584d0cef73dSGregory Neil Shapiro '\0', false); 158506f25ae9SGregory Neil Shapiro replac = cbuf; 1586c2aa98e2SPeter Wemm } 1587c2aa98e2SPeter Wemm 1588c2aa98e2SPeter Wemm if (replac == NULL) 1589c2aa98e2SPeter Wemm { 1590c2aa98e2SPeter Wemm xpvp = key_rvp; 1591c2aa98e2SPeter Wemm } 1592c2aa98e2SPeter Wemm else if (*replac == '\0') 1593c2aa98e2SPeter Wemm { 1594c2aa98e2SPeter Wemm /* null replacement */ 1595c2aa98e2SPeter Wemm nullpvp[0] = NULL; 1596c2aa98e2SPeter Wemm xpvp = nullpvp; 1597c2aa98e2SPeter Wemm } 1598c2aa98e2SPeter Wemm else 1599c2aa98e2SPeter Wemm { 1600c2aa98e2SPeter Wemm /* scan the new replacement */ 1601c2aa98e2SPeter Wemm xpvp = prescan(replac, '\0', pvpbuf, 1602d0cef73dSGregory Neil Shapiro sizeof(pvpbuf), NULL, NULL, 1603d0cef73dSGregory Neil Shapiro false); 1604c2aa98e2SPeter Wemm if (xpvp == NULL) 1605c2aa98e2SPeter Wemm { 1606c2aa98e2SPeter Wemm /* prescan already printed error */ 1607c2aa98e2SPeter Wemm return EX_DATAERR; 1608c2aa98e2SPeter Wemm } 1609c2aa98e2SPeter Wemm } 1610c2aa98e2SPeter Wemm 1611c2aa98e2SPeter Wemm /* append it to the token list */ 1612c2aa98e2SPeter Wemm for (avp = hbrvp; *xpvp != NULL; xpvp++) 1613c2aa98e2SPeter Wemm { 161440266059SGregory Neil Shapiro *avp++ = sm_rpool_strdup_x(e->e_rpool, *xpvp); 161540266059SGregory Neil Shapiro if (avp >= &npvp[maxatom]) 1616c2aa98e2SPeter Wemm goto toolong; 1617c2aa98e2SPeter Wemm } 1618c2aa98e2SPeter Wemm 1619c2aa98e2SPeter Wemm /* restore the old trailing information */ 1620c2aa98e2SPeter Wemm rvp = avp - 1; 1621c2aa98e2SPeter Wemm for (xpvp = pvpb1; (*avp++ = *xpvp++) != NULL; ) 162240266059SGregory Neil Shapiro if (avp >= &npvp[maxatom]) 1623c2aa98e2SPeter Wemm goto toolong; 1624c2aa98e2SPeter Wemm } 1625c2aa98e2SPeter Wemm 1626c2aa98e2SPeter Wemm /* 1627c2aa98e2SPeter Wemm ** Check for subroutine calls. 1628c2aa98e2SPeter Wemm */ 1629c2aa98e2SPeter Wemm 163006f25ae9SGregory Neil Shapiro status = callsubr(npvp, reclevel, e); 163106f25ae9SGregory Neil Shapiro if (rstat == EX_OK || status == EX_TEMPFAIL) 163206f25ae9SGregory Neil Shapiro rstat = status; 1633c2aa98e2SPeter Wemm 1634c2aa98e2SPeter Wemm /* copy vector back into original space. */ 1635c2aa98e2SPeter Wemm for (avp = npvp; *avp++ != NULL;) 1636c2aa98e2SPeter Wemm continue; 163706f25ae9SGregory Neil Shapiro memmove((char *) pvp, (char *) npvp, 1638d0cef73dSGregory Neil Shapiro (int) (avp - npvp) * sizeof(*avp)); 1639c2aa98e2SPeter Wemm 1640c2aa98e2SPeter Wemm if (tTd(21, 4)) 1641c2aa98e2SPeter Wemm { 164240266059SGregory Neil Shapiro sm_dprintf("rewritten as:"); 1643e92d3f3fSGregory Neil Shapiro printav(sm_debug_file(), pvp); 1644c2aa98e2SPeter Wemm } 1645c2aa98e2SPeter Wemm } 1646c2aa98e2SPeter Wemm 164706f25ae9SGregory Neil Shapiro if (OpMode == MD_TEST) 1648c2aa98e2SPeter Wemm { 164940266059SGregory Neil Shapiro (void) sm_io_fprintf(smioout, SM_TIME_DEFAULT, 165040266059SGregory Neil Shapiro "%s%-16.16s returns:", prefix, rulename); 1651e92d3f3fSGregory Neil Shapiro printav(smioout, pvp); 1652c2aa98e2SPeter Wemm } 165306f25ae9SGregory Neil Shapiro else if (tTd(21, 1)) 165406f25ae9SGregory Neil Shapiro { 165540266059SGregory Neil Shapiro sm_dprintf("%s%-16.16s returns:", prefix, rulename); 1656e92d3f3fSGregory Neil Shapiro printav(sm_debug_file(), pvp); 165706f25ae9SGregory Neil Shapiro } 1658c2aa98e2SPeter Wemm return rstat; 1659c2aa98e2SPeter Wemm } 166040266059SGregory Neil Shapiro /* 1661c2aa98e2SPeter Wemm ** CALLSUBR -- call subroutines in rewrite vector 1662c2aa98e2SPeter Wemm ** 1663c2aa98e2SPeter Wemm ** Parameters: 1664c2aa98e2SPeter Wemm ** pvp -- pointer to token vector. 1665c2aa98e2SPeter Wemm ** reclevel -- the current recursion level. 1666c2aa98e2SPeter Wemm ** e -- the current envelope. 1667c2aa98e2SPeter Wemm ** 1668c2aa98e2SPeter Wemm ** Returns: 1669c2aa98e2SPeter Wemm ** The status from the subroutine call. 1670c2aa98e2SPeter Wemm ** 1671c2aa98e2SPeter Wemm ** Side Effects: 1672c2aa98e2SPeter Wemm ** pvp is modified. 1673c2aa98e2SPeter Wemm */ 1674c2aa98e2SPeter Wemm 167506f25ae9SGregory Neil Shapiro static int 1676c2aa98e2SPeter Wemm callsubr(pvp, reclevel, e) 1677c2aa98e2SPeter Wemm char **pvp; 1678c2aa98e2SPeter Wemm int reclevel; 1679c2aa98e2SPeter Wemm ENVELOPE *e; 1680c2aa98e2SPeter Wemm { 1681c2aa98e2SPeter Wemm char **avp; 1682c2aa98e2SPeter Wemm register int i; 168340266059SGregory Neil Shapiro int subr, j; 168440266059SGregory Neil Shapiro int nsubr; 168506f25ae9SGregory Neil Shapiro int status; 1686c2aa98e2SPeter Wemm int rstat = EX_OK; 168740266059SGregory Neil Shapiro #define MAX_SUBR 16 168840266059SGregory Neil Shapiro int subrnumber[MAX_SUBR]; 168940266059SGregory Neil Shapiro int subrindex[MAX_SUBR]; 1690c2aa98e2SPeter Wemm 169140266059SGregory Neil Shapiro nsubr = 0; 169240266059SGregory Neil Shapiro 169340266059SGregory Neil Shapiro /* 169440266059SGregory Neil Shapiro ** Look for subroutine calls in pvp, collect them into subr*[] 169540266059SGregory Neil Shapiro ** We will perform the calls in the next loop, because we will 169640266059SGregory Neil Shapiro ** call the "last" subroutine first to avoid recursive calls 169740266059SGregory Neil Shapiro ** and too much copying. 169840266059SGregory Neil Shapiro */ 169940266059SGregory Neil Shapiro 170040266059SGregory Neil Shapiro for (avp = pvp, j = 0; *avp != NULL; avp++, j++) 1701c2aa98e2SPeter Wemm { 1702d0cef73dSGregory Neil Shapiro if ((avp[0][0] & 0377) == CALLSUBR && avp[1] != NULL) 1703c2aa98e2SPeter Wemm { 1704c2aa98e2SPeter Wemm stripquotes(avp[1]); 1705c2aa98e2SPeter Wemm subr = strtorwset(avp[1], NULL, ST_FIND); 1706c2aa98e2SPeter Wemm if (subr < 0) 1707c2aa98e2SPeter Wemm { 170840266059SGregory Neil Shapiro syserr("554 5.3.5 Unknown ruleset %s", avp[1]); 1709c2aa98e2SPeter Wemm return EX_CONFIG; 1710c2aa98e2SPeter Wemm } 1711c2aa98e2SPeter Wemm 1712c2aa98e2SPeter Wemm /* 171340266059SGregory Neil Shapiro ** XXX instead of doing this we could optimize 171440266059SGregory Neil Shapiro ** the rules after reading them: just remove 171540266059SGregory Neil Shapiro ** calls to empty rulesets 1716c2aa98e2SPeter Wemm */ 1717c2aa98e2SPeter Wemm 171840266059SGregory Neil Shapiro /* subroutine is an empty ruleset? don't call it */ 171940266059SGregory Neil Shapiro if (RewriteRules[subr] == NULL) 172040266059SGregory Neil Shapiro { 172140266059SGregory Neil Shapiro if (tTd(21, 3)) 172240266059SGregory Neil Shapiro sm_dprintf("-----skip subr %s (%d)\n", 172340266059SGregory Neil Shapiro avp[1], subr); 1724c2aa98e2SPeter Wemm for (i = 2; avp[i] != NULL; i++) 172540266059SGregory Neil Shapiro avp[i - 2] = avp[i]; 172640266059SGregory Neil Shapiro avp[i - 2] = NULL; 172740266059SGregory Neil Shapiro continue; 172840266059SGregory Neil Shapiro } 172940266059SGregory Neil Shapiro if (++nsubr >= MAX_SUBR) 173040266059SGregory Neil Shapiro { 173140266059SGregory Neil Shapiro syserr("554 5.3.0 Too many subroutine calls (%d max)", 173240266059SGregory Neil Shapiro MAX_SUBR); 173340266059SGregory Neil Shapiro return EX_CONFIG; 173440266059SGregory Neil Shapiro } 173540266059SGregory Neil Shapiro subrnumber[nsubr] = subr; 173640266059SGregory Neil Shapiro subrindex[nsubr] = j; 173740266059SGregory Neil Shapiro } 173840266059SGregory Neil Shapiro } 1739c2aa98e2SPeter Wemm 174040266059SGregory Neil Shapiro /* 174140266059SGregory Neil Shapiro ** Perform the actual subroutines calls, "last" one first, i.e., 174240266059SGregory Neil Shapiro ** go from the right to the left through all calls, 174340266059SGregory Neil Shapiro ** do the rewriting in place. 174440266059SGregory Neil Shapiro */ 174540266059SGregory Neil Shapiro 174640266059SGregory Neil Shapiro for (; nsubr > 0; nsubr--) 174740266059SGregory Neil Shapiro { 174840266059SGregory Neil Shapiro subr = subrnumber[nsubr]; 174940266059SGregory Neil Shapiro avp = pvp + subrindex[nsubr]; 175040266059SGregory Neil Shapiro 175140266059SGregory Neil Shapiro /* remove the subroutine call and name */ 175240266059SGregory Neil Shapiro for (i = 2; avp[i] != NULL; i++) 175340266059SGregory Neil Shapiro avp[i - 2] = avp[i]; 175440266059SGregory Neil Shapiro avp[i - 2] = NULL; 1755c2aa98e2SPeter Wemm 1756c2aa98e2SPeter Wemm /* 1757c2aa98e2SPeter Wemm ** Now we need to call the ruleset specified for 1758a7ec597cSGregory Neil Shapiro ** the subroutine. We can do this in place since 175940266059SGregory Neil Shapiro ** we call the "last" subroutine first. 1760c2aa98e2SPeter Wemm */ 1761c2aa98e2SPeter Wemm 176240266059SGregory Neil Shapiro status = rewrite(avp, subr, reclevel, e, 176340266059SGregory Neil Shapiro MAXATOM - subrindex[nsubr]); 176440266059SGregory Neil Shapiro if (status != EX_OK && status != EX_TEMPFAIL) 176540266059SGregory Neil Shapiro return status; 176606f25ae9SGregory Neil Shapiro if (rstat == EX_OK || status == EX_TEMPFAIL) 176706f25ae9SGregory Neil Shapiro rstat = status; 1768c2aa98e2SPeter Wemm } 1769c2aa98e2SPeter Wemm return rstat; 1770c2aa98e2SPeter Wemm } 177140266059SGregory Neil Shapiro /* 1772c2aa98e2SPeter Wemm ** MAP_LOOKUP -- do lookup in map 1773c2aa98e2SPeter Wemm ** 1774c2aa98e2SPeter Wemm ** Parameters: 177540266059SGregory Neil Shapiro ** smap -- the map to use for the lookup. 1776c2aa98e2SPeter Wemm ** key -- the key to look up. 1777c2aa98e2SPeter Wemm ** argvect -- arguments to pass to the map lookup. 1778c2aa98e2SPeter Wemm ** pstat -- a pointer to an integer in which to store the 1779c2aa98e2SPeter Wemm ** status from the lookup. 1780c2aa98e2SPeter Wemm ** e -- the current envelope. 1781c2aa98e2SPeter Wemm ** 1782c2aa98e2SPeter Wemm ** Returns: 1783c2aa98e2SPeter Wemm ** The result of the lookup. 1784c2aa98e2SPeter Wemm ** NULL -- if there was no data for the given key. 1785c2aa98e2SPeter Wemm */ 1786c2aa98e2SPeter Wemm 178706f25ae9SGregory Neil Shapiro static char * 178806f25ae9SGregory Neil Shapiro map_lookup(smap, key, argvect, pstat, e) 178906f25ae9SGregory Neil Shapiro STAB *smap; 1790c2aa98e2SPeter Wemm char key[]; 1791c2aa98e2SPeter Wemm char **argvect; 1792c2aa98e2SPeter Wemm int *pstat; 1793c2aa98e2SPeter Wemm ENVELOPE *e; 1794c2aa98e2SPeter Wemm { 179506f25ae9SGregory Neil Shapiro auto int status = EX_OK; 179606f25ae9SGregory Neil Shapiro MAP *map; 1797c2aa98e2SPeter Wemm char *replac; 1798c2aa98e2SPeter Wemm 179906f25ae9SGregory Neil Shapiro if (smap == NULL) 180006f25ae9SGregory Neil Shapiro return NULL; 180106f25ae9SGregory Neil Shapiro 180206f25ae9SGregory Neil Shapiro map = &smap->s_map; 180306f25ae9SGregory Neil Shapiro DYNOPENMAP(map); 180406f25ae9SGregory Neil Shapiro 180506f25ae9SGregory Neil Shapiro if (e->e_sendmode == SM_DEFER && 180606f25ae9SGregory Neil Shapiro bitset(MF_DEFER, map->map_mflags)) 1807c2aa98e2SPeter Wemm { 1808c2aa98e2SPeter Wemm /* don't do any map lookups */ 1809c2aa98e2SPeter Wemm if (tTd(60, 1)) 181040266059SGregory Neil Shapiro sm_dprintf("map_lookup(%s, %s) => DEFERRED\n", 181106f25ae9SGregory Neil Shapiro smap->s_name, key); 1812c2aa98e2SPeter Wemm *pstat = EX_TEMPFAIL; 1813c2aa98e2SPeter Wemm return NULL; 1814c2aa98e2SPeter Wemm } 1815c2aa98e2SPeter Wemm 181606f25ae9SGregory Neil Shapiro if (!bitset(MF_KEEPQUOTES, map->map_mflags)) 1817c2aa98e2SPeter Wemm stripquotes(key); 1818c2aa98e2SPeter Wemm 1819c2aa98e2SPeter Wemm if (tTd(60, 1)) 1820065a643dSPeter Wemm { 1821d0cef73dSGregory Neil Shapiro sm_dprintf("map_lookup(%s, ", smap->s_name); 1822d0cef73dSGregory Neil Shapiro xputs(sm_debug_file(), key); 1823065a643dSPeter Wemm if (tTd(60, 5)) 1824065a643dSPeter Wemm { 1825065a643dSPeter Wemm int i; 1826065a643dSPeter Wemm 1827065a643dSPeter Wemm for (i = 0; argvect[i] != NULL; i++) 182840266059SGregory Neil Shapiro sm_dprintf(", %%%d=%s", i, argvect[i]); 1829065a643dSPeter Wemm } 183040266059SGregory Neil Shapiro sm_dprintf(") => "); 1831065a643dSPeter Wemm } 183206f25ae9SGregory Neil Shapiro replac = (*map->map_class->map_lookup)(map, key, argvect, &status); 1833c2aa98e2SPeter Wemm if (tTd(60, 1)) 183440266059SGregory Neil Shapiro sm_dprintf("%s (%d)\n", 1835c2aa98e2SPeter Wemm replac != NULL ? replac : "NOT FOUND", 183606f25ae9SGregory Neil Shapiro status); 1837c2aa98e2SPeter Wemm 183806f25ae9SGregory Neil Shapiro /* should recover if status == EX_TEMPFAIL */ 183906f25ae9SGregory Neil Shapiro if (status == EX_TEMPFAIL && !bitset(MF_NODEFER, map->map_mflags)) 1840c2aa98e2SPeter Wemm { 1841c2aa98e2SPeter Wemm *pstat = EX_TEMPFAIL; 1842c2aa98e2SPeter Wemm if (tTd(60, 1)) 184340266059SGregory Neil Shapiro sm_dprintf("map_lookup(%s, %s) tempfail: errno=%d\n", 184406f25ae9SGregory Neil Shapiro smap->s_name, key, errno); 1845c2aa98e2SPeter Wemm if (e->e_message == NULL) 1846c2aa98e2SPeter Wemm { 1847c2aa98e2SPeter Wemm char mbuf[320]; 1848c2aa98e2SPeter Wemm 1849d0cef73dSGregory Neil Shapiro (void) sm_snprintf(mbuf, sizeof(mbuf), 1850c2aa98e2SPeter Wemm "%.80s map: lookup (%s): deferred", 185106f25ae9SGregory Neil Shapiro smap->s_name, 1852c2aa98e2SPeter Wemm shortenstring(key, MAXSHORTSTR)); 185340266059SGregory Neil Shapiro e->e_message = sm_rpool_strdup_x(e->e_rpool, mbuf); 1854c2aa98e2SPeter Wemm } 1855c2aa98e2SPeter Wemm } 185606f25ae9SGregory Neil Shapiro if (status == EX_TEMPFAIL && map->map_tapp != NULL) 1857c2aa98e2SPeter Wemm { 185806f25ae9SGregory Neil Shapiro size_t i = strlen(key) + strlen(map->map_tapp) + 1; 1859c2aa98e2SPeter Wemm static char *rwbuf = NULL; 1860c2aa98e2SPeter Wemm static size_t rwbuflen = 0; 1861c2aa98e2SPeter Wemm 1862c2aa98e2SPeter Wemm if (i > rwbuflen) 1863c2aa98e2SPeter Wemm { 1864c2aa98e2SPeter Wemm if (rwbuf != NULL) 18658774250cSGregory Neil Shapiro sm_free(rwbuf); 1866c2aa98e2SPeter Wemm rwbuflen = i; 186740266059SGregory Neil Shapiro rwbuf = (char *) sm_pmalloc_x(rwbuflen); 1868c2aa98e2SPeter Wemm } 186940266059SGregory Neil Shapiro (void) sm_strlcpyn(rwbuf, rwbuflen, 2, key, map->map_tapp); 1870c2aa98e2SPeter Wemm if (tTd(60, 4)) 187140266059SGregory Neil Shapiro sm_dprintf("map_lookup tempfail: returning \"%s\"\n", 1872c2aa98e2SPeter Wemm rwbuf); 1873c2aa98e2SPeter Wemm return rwbuf; 1874c2aa98e2SPeter Wemm } 1875c2aa98e2SPeter Wemm return replac; 1876c2aa98e2SPeter Wemm } 187740266059SGregory Neil Shapiro /* 187806f25ae9SGregory Neil Shapiro ** INITERRMAILERS -- initialize error and discard mailers 187906f25ae9SGregory Neil Shapiro ** 188006f25ae9SGregory Neil Shapiro ** Parameters: 188106f25ae9SGregory Neil Shapiro ** none. 188206f25ae9SGregory Neil Shapiro ** 188306f25ae9SGregory Neil Shapiro ** Returns: 188406f25ae9SGregory Neil Shapiro ** none. 188506f25ae9SGregory Neil Shapiro ** 188606f25ae9SGregory Neil Shapiro ** Side Effects: 188706f25ae9SGregory Neil Shapiro ** initializes error and discard mailers. 188806f25ae9SGregory Neil Shapiro */ 188906f25ae9SGregory Neil Shapiro 189006f25ae9SGregory Neil Shapiro static MAILER discardmailer; 189106f25ae9SGregory Neil Shapiro static MAILER errormailer; 189206f25ae9SGregory Neil Shapiro static char *discardargv[] = { "DISCARD", NULL }; 189306f25ae9SGregory Neil Shapiro static char *errorargv[] = { "ERROR", NULL }; 189406f25ae9SGregory Neil Shapiro 189506f25ae9SGregory Neil Shapiro void 189606f25ae9SGregory Neil Shapiro initerrmailers() 189706f25ae9SGregory Neil Shapiro { 189806f25ae9SGregory Neil Shapiro if (discardmailer.m_name == NULL) 189906f25ae9SGregory Neil Shapiro { 190006f25ae9SGregory Neil Shapiro /* initialize the discard mailer */ 190106f25ae9SGregory Neil Shapiro discardmailer.m_name = "*discard*"; 190206f25ae9SGregory Neil Shapiro discardmailer.m_mailer = "DISCARD"; 190306f25ae9SGregory Neil Shapiro discardmailer.m_argv = discardargv; 190406f25ae9SGregory Neil Shapiro } 190506f25ae9SGregory Neil Shapiro if (errormailer.m_name == NULL) 190606f25ae9SGregory Neil Shapiro { 190706f25ae9SGregory Neil Shapiro /* initialize the bogus mailer */ 190806f25ae9SGregory Neil Shapiro errormailer.m_name = "*error*"; 190906f25ae9SGregory Neil Shapiro errormailer.m_mailer = "ERROR"; 191006f25ae9SGregory Neil Shapiro errormailer.m_argv = errorargv; 191106f25ae9SGregory Neil Shapiro } 191206f25ae9SGregory Neil Shapiro } 191340266059SGregory Neil Shapiro /* 1914c2aa98e2SPeter Wemm ** BUILDADDR -- build address from token vector. 1915c2aa98e2SPeter Wemm ** 1916c2aa98e2SPeter Wemm ** Parameters: 1917c2aa98e2SPeter Wemm ** tv -- token vector. 1918c2aa98e2SPeter Wemm ** a -- pointer to address descriptor to fill. 1919c2aa98e2SPeter Wemm ** If NULL, one will be allocated. 1920c2aa98e2SPeter Wemm ** flags -- info regarding whether this is a sender or 1921c2aa98e2SPeter Wemm ** a recipient. 1922c2aa98e2SPeter Wemm ** e -- the current envelope. 1923c2aa98e2SPeter Wemm ** 1924c2aa98e2SPeter Wemm ** Returns: 1925c2aa98e2SPeter Wemm ** NULL if there was an error. 1926c2aa98e2SPeter Wemm ** 'a' otherwise. 1927c2aa98e2SPeter Wemm ** 1928c2aa98e2SPeter Wemm ** Side Effects: 1929c2aa98e2SPeter Wemm ** fills in 'a' 1930c2aa98e2SPeter Wemm */ 1931c2aa98e2SPeter Wemm 193206f25ae9SGregory Neil Shapiro static struct errcodes 1933c2aa98e2SPeter Wemm { 1934c2aa98e2SPeter Wemm char *ec_name; /* name of error code */ 1935c2aa98e2SPeter Wemm int ec_code; /* numeric code */ 1936c2aa98e2SPeter Wemm } ErrorCodes[] = 1937c2aa98e2SPeter Wemm { 1938c2aa98e2SPeter Wemm { "usage", EX_USAGE }, 1939c2aa98e2SPeter Wemm { "nouser", EX_NOUSER }, 1940c2aa98e2SPeter Wemm { "nohost", EX_NOHOST }, 1941c2aa98e2SPeter Wemm { "unavailable", EX_UNAVAILABLE }, 1942c2aa98e2SPeter Wemm { "software", EX_SOFTWARE }, 1943c2aa98e2SPeter Wemm { "tempfail", EX_TEMPFAIL }, 1944c2aa98e2SPeter Wemm { "protocol", EX_PROTOCOL }, 1945c2aa98e2SPeter Wemm { "config", EX_CONFIG }, 1946c2aa98e2SPeter Wemm { NULL, EX_UNAVAILABLE } 1947c2aa98e2SPeter Wemm }; 1948c2aa98e2SPeter Wemm 194906f25ae9SGregory Neil Shapiro static ADDRESS * 1950c2aa98e2SPeter Wemm buildaddr(tv, a, flags, e) 1951c2aa98e2SPeter Wemm register char **tv; 1952c2aa98e2SPeter Wemm register ADDRESS *a; 1953c2aa98e2SPeter Wemm int flags; 1954c2aa98e2SPeter Wemm register ENVELOPE *e; 1955c2aa98e2SPeter Wemm { 1956605302a5SGregory Neil Shapiro bool tempfail = false; 1957a7ec597cSGregory Neil Shapiro int maxatom; 1958c2aa98e2SPeter Wemm struct mailer **mp; 1959c2aa98e2SPeter Wemm register struct mailer *m; 1960c2aa98e2SPeter Wemm register char *p; 1961c2aa98e2SPeter Wemm char *mname; 1962c2aa98e2SPeter Wemm char **hostp; 1963c2aa98e2SPeter Wemm char hbuf[MAXNAME + 1]; 1964065a643dSPeter Wemm static char ubuf[MAXNAME + 2]; 1965c2aa98e2SPeter Wemm 1966c2aa98e2SPeter Wemm if (tTd(24, 5)) 1967c2aa98e2SPeter Wemm { 196840266059SGregory Neil Shapiro sm_dprintf("buildaddr, flags=%x, tv=", flags); 1969e92d3f3fSGregory Neil Shapiro printav(sm_debug_file(), tv); 1970c2aa98e2SPeter Wemm } 1971c2aa98e2SPeter Wemm 1972a7ec597cSGregory Neil Shapiro maxatom = MAXATOM; 1973c2aa98e2SPeter Wemm if (a == NULL) 1974d0cef73dSGregory Neil Shapiro a = (ADDRESS *) sm_rpool_malloc_x(e->e_rpool, sizeof(*a)); 1975d0cef73dSGregory Neil Shapiro memset((char *) a, '\0', sizeof(*a)); 197606f25ae9SGregory Neil Shapiro hbuf[0] = '\0'; 1977c2aa98e2SPeter Wemm 1978c2aa98e2SPeter Wemm /* set up default error return flags */ 1979c2aa98e2SPeter Wemm a->q_flags |= DefaultNotify; 1980c2aa98e2SPeter Wemm 1981c2aa98e2SPeter Wemm /* figure out what net/mailer to use */ 1982c2aa98e2SPeter Wemm if (*tv == NULL || (**tv & 0377) != CANONNET) 1983c2aa98e2SPeter Wemm { 198406f25ae9SGregory Neil Shapiro syserr("554 5.3.5 buildaddr: no mailer in parsed address"); 1985c2aa98e2SPeter Wemm badaddr: 1986605302a5SGregory Neil Shapiro /* 1987605302a5SGregory Neil Shapiro ** ExitStat may have been set by an earlier map open 1988605302a5SGregory Neil Shapiro ** failure (to a permanent error (EX_OSERR) in syserr()) 1989605302a5SGregory Neil Shapiro ** so we also need to check if this particular $#error 1990605302a5SGregory Neil Shapiro ** return wanted a 4XX failure. 1991605302a5SGregory Neil Shapiro ** 1992605302a5SGregory Neil Shapiro ** XXX the real fix is probably to set ExitStat correctly, 1993605302a5SGregory Neil Shapiro ** i.e., to EX_TEMPFAIL if the map open is just a temporary 1994605302a5SGregory Neil Shapiro ** error. 1995605302a5SGregory Neil Shapiro */ 1996605302a5SGregory Neil Shapiro 1997605302a5SGregory Neil Shapiro if (ExitStat == EX_TEMPFAIL || tempfail) 199806f25ae9SGregory Neil Shapiro a->q_state = QS_QUEUEUP; 199906f25ae9SGregory Neil Shapiro else 2000c2aa98e2SPeter Wemm { 200106f25ae9SGregory Neil Shapiro a->q_state = QS_BADADDR; 200206f25ae9SGregory Neil Shapiro a->q_mailer = &errormailer; 2003c2aa98e2SPeter Wemm } 2004c2aa98e2SPeter Wemm return a; 2005c2aa98e2SPeter Wemm } 2006c2aa98e2SPeter Wemm mname = *++tv; 2007a7ec597cSGregory Neil Shapiro --maxatom; 2008c2aa98e2SPeter Wemm 2009c2aa98e2SPeter Wemm /* extract host and user portions */ 2010c2aa98e2SPeter Wemm if (*++tv != NULL && (**tv & 0377) == CANONHOST) 2011a7ec597cSGregory Neil Shapiro { 2012c2aa98e2SPeter Wemm hostp = ++tv; 2013a7ec597cSGregory Neil Shapiro --maxatom; 2014a7ec597cSGregory Neil Shapiro } 2015c2aa98e2SPeter Wemm else 2016c2aa98e2SPeter Wemm hostp = NULL; 2017a7ec597cSGregory Neil Shapiro --maxatom; 2018c2aa98e2SPeter Wemm while (*tv != NULL && (**tv & 0377) != CANONUSER) 2019a7ec597cSGregory Neil Shapiro { 2020c2aa98e2SPeter Wemm tv++; 2021a7ec597cSGregory Neil Shapiro --maxatom; 2022a7ec597cSGregory Neil Shapiro } 2023c2aa98e2SPeter Wemm if (*tv == NULL) 2024c2aa98e2SPeter Wemm { 202506f25ae9SGregory Neil Shapiro syserr("554 5.3.5 buildaddr: no user"); 2026c2aa98e2SPeter Wemm goto badaddr; 2027c2aa98e2SPeter Wemm } 2028c2aa98e2SPeter Wemm if (tv == hostp) 2029c2aa98e2SPeter Wemm hostp = NULL; 2030c2aa98e2SPeter Wemm else if (hostp != NULL) 2031d0cef73dSGregory Neil Shapiro cataddr(hostp, tv - 1, hbuf, sizeof(hbuf), '\0', false); 2032d0cef73dSGregory Neil Shapiro cataddr(++tv, NULL, ubuf, sizeof(ubuf), ' ', false); 2033a7ec597cSGregory Neil Shapiro --maxatom; 2034c2aa98e2SPeter Wemm 2035c2aa98e2SPeter Wemm /* save away the host name */ 203640266059SGregory Neil Shapiro if (sm_strcasecmp(mname, "error") == 0) 2037c2aa98e2SPeter Wemm { 203806f25ae9SGregory Neil Shapiro /* Set up triplet for use by -bv */ 203906f25ae9SGregory Neil Shapiro a->q_mailer = &errormailer; 204040266059SGregory Neil Shapiro a->q_user = sm_rpool_strdup_x(e->e_rpool, ubuf); 204140266059SGregory Neil Shapiro /* XXX wrong place? */ 204206f25ae9SGregory Neil Shapiro 2043c2aa98e2SPeter Wemm if (hostp != NULL) 2044c2aa98e2SPeter Wemm { 2045c2aa98e2SPeter Wemm register struct errcodes *ep; 2046c2aa98e2SPeter Wemm 204740266059SGregory Neil Shapiro a->q_host = sm_rpool_strdup_x(e->e_rpool, hbuf); 2048c2aa98e2SPeter Wemm if (strchr(hbuf, '.') != NULL) 2049c2aa98e2SPeter Wemm { 205040266059SGregory Neil Shapiro a->q_status = sm_rpool_strdup_x(e->e_rpool, 205140266059SGregory Neil Shapiro hbuf); 2052c2aa98e2SPeter Wemm setstat(dsntoexitstat(hbuf)); 2053c2aa98e2SPeter Wemm } 2054c2aa98e2SPeter Wemm else if (isascii(hbuf[0]) && isdigit(hbuf[0])) 2055c2aa98e2SPeter Wemm { 2056c2aa98e2SPeter Wemm setstat(atoi(hbuf)); 2057c2aa98e2SPeter Wemm } 2058c2aa98e2SPeter Wemm else 2059c2aa98e2SPeter Wemm { 2060c2aa98e2SPeter Wemm for (ep = ErrorCodes; ep->ec_name != NULL; ep++) 206140266059SGregory Neil Shapiro if (sm_strcasecmp(ep->ec_name, hbuf) == 0) 2062c2aa98e2SPeter Wemm break; 2063c2aa98e2SPeter Wemm setstat(ep->ec_code); 2064c2aa98e2SPeter Wemm } 2065c2aa98e2SPeter Wemm } 2066c2aa98e2SPeter Wemm else 206706f25ae9SGregory Neil Shapiro { 206806f25ae9SGregory Neil Shapiro a->q_host = NULL; 2069c2aa98e2SPeter Wemm setstat(EX_UNAVAILABLE); 2070c2aa98e2SPeter Wemm } 207106f25ae9SGregory Neil Shapiro stripquotes(ubuf); 207206f25ae9SGregory Neil Shapiro if (ISSMTPCODE(ubuf) && ubuf[3] == ' ') 207306f25ae9SGregory Neil Shapiro { 207406f25ae9SGregory Neil Shapiro char fmt[16]; 207506f25ae9SGregory Neil Shapiro int off; 207606f25ae9SGregory Neil Shapiro 207706f25ae9SGregory Neil Shapiro if ((off = isenhsc(ubuf + 4, ' ')) > 0) 207806f25ae9SGregory Neil Shapiro { 207906f25ae9SGregory Neil Shapiro ubuf[off + 4] = '\0'; 208006f25ae9SGregory Neil Shapiro off += 5; 2081c2aa98e2SPeter Wemm } 2082c2aa98e2SPeter Wemm else 2083c2aa98e2SPeter Wemm { 208406f25ae9SGregory Neil Shapiro off = 4; 208506f25ae9SGregory Neil Shapiro ubuf[3] = '\0'; 208606f25ae9SGregory Neil Shapiro } 2087d0cef73dSGregory Neil Shapiro (void) sm_strlcpyn(fmt, sizeof(fmt), 2, ubuf, " %s"); 208806f25ae9SGregory Neil Shapiro if (off > 4) 208906f25ae9SGregory Neil Shapiro usrerr(fmt, ubuf + off); 209006f25ae9SGregory Neil Shapiro else if (isenhsc(hbuf, '\0') > 0) 209106f25ae9SGregory Neil Shapiro usrerrenh(hbuf, fmt, ubuf + off); 209206f25ae9SGregory Neil Shapiro else 209306f25ae9SGregory Neil Shapiro usrerr(fmt, ubuf + off); 209406f25ae9SGregory Neil Shapiro /* XXX ubuf[off - 1] = ' '; */ 2095605302a5SGregory Neil Shapiro if (ubuf[0] == '4') 2096605302a5SGregory Neil Shapiro tempfail = true; 209706f25ae9SGregory Neil Shapiro } 209806f25ae9SGregory Neil Shapiro else 209906f25ae9SGregory Neil Shapiro { 210006f25ae9SGregory Neil Shapiro usrerr("553 5.3.0 %s", ubuf); 2101c2aa98e2SPeter Wemm } 2102c2aa98e2SPeter Wemm goto badaddr; 2103c2aa98e2SPeter Wemm } 2104c2aa98e2SPeter Wemm 2105c2aa98e2SPeter Wemm for (mp = Mailer; (m = *mp++) != NULL; ) 2106c2aa98e2SPeter Wemm { 210740266059SGregory Neil Shapiro if (sm_strcasecmp(m->m_name, mname) == 0) 2108c2aa98e2SPeter Wemm break; 2109c2aa98e2SPeter Wemm } 2110c2aa98e2SPeter Wemm if (m == NULL) 2111c2aa98e2SPeter Wemm { 211206f25ae9SGregory Neil Shapiro syserr("554 5.3.5 buildaddr: unknown mailer %s", mname); 2113c2aa98e2SPeter Wemm goto badaddr; 2114c2aa98e2SPeter Wemm } 2115c2aa98e2SPeter Wemm a->q_mailer = m; 2116c2aa98e2SPeter Wemm 2117c2aa98e2SPeter Wemm /* figure out what host (if any) */ 2118c2aa98e2SPeter Wemm if (hostp == NULL) 2119c2aa98e2SPeter Wemm { 2120c2aa98e2SPeter Wemm if (!bitnset(M_LOCALMAILER, m->m_flags)) 2121c2aa98e2SPeter Wemm { 212206f25ae9SGregory Neil Shapiro syserr("554 5.3.5 buildaddr: no host"); 2123c2aa98e2SPeter Wemm goto badaddr; 2124c2aa98e2SPeter Wemm } 2125c2aa98e2SPeter Wemm a->q_host = NULL; 2126c2aa98e2SPeter Wemm } 2127c2aa98e2SPeter Wemm else 212840266059SGregory Neil Shapiro a->q_host = sm_rpool_strdup_x(e->e_rpool, hbuf); 2129c2aa98e2SPeter Wemm 2130c2aa98e2SPeter Wemm /* figure out the user */ 2131c2aa98e2SPeter Wemm p = ubuf; 2132c2aa98e2SPeter Wemm if (bitnset(M_CHECKUDB, m->m_flags) && *p == '@') 2133c2aa98e2SPeter Wemm { 2134c2aa98e2SPeter Wemm p++; 2135c2aa98e2SPeter Wemm tv++; 2136a7ec597cSGregory Neil Shapiro --maxatom; 2137c2aa98e2SPeter Wemm a->q_flags |= QNOTREMOTE; 2138c2aa98e2SPeter Wemm } 2139c2aa98e2SPeter Wemm 2140c2aa98e2SPeter Wemm /* do special mapping for local mailer */ 2141c2aa98e2SPeter Wemm if (*p == '"') 2142c2aa98e2SPeter Wemm p++; 2143c2aa98e2SPeter Wemm if (*p == '|' && bitnset(M_CHECKPROG, m->m_flags)) 2144c2aa98e2SPeter Wemm a->q_mailer = m = ProgMailer; 2145c2aa98e2SPeter Wemm else if (*p == '/' && bitnset(M_CHECKFILE, m->m_flags)) 2146c2aa98e2SPeter Wemm a->q_mailer = m = FileMailer; 2147c2aa98e2SPeter Wemm else if (*p == ':' && bitnset(M_CHECKINCLUDE, m->m_flags)) 2148c2aa98e2SPeter Wemm { 2149c2aa98e2SPeter Wemm /* may be :include: */ 2150c2aa98e2SPeter Wemm stripquotes(ubuf); 215140266059SGregory Neil Shapiro if (sm_strncasecmp(ubuf, ":include:", 9) == 0) 2152c2aa98e2SPeter Wemm { 2153c2aa98e2SPeter Wemm /* if :include:, don't need further rewriting */ 2154c2aa98e2SPeter Wemm a->q_mailer = m = InclMailer; 215540266059SGregory Neil Shapiro a->q_user = sm_rpool_strdup_x(e->e_rpool, &ubuf[9]); 2156c2aa98e2SPeter Wemm return a; 2157c2aa98e2SPeter Wemm } 2158c2aa98e2SPeter Wemm } 2159c2aa98e2SPeter Wemm 2160c2aa98e2SPeter Wemm /* rewrite according recipient mailer rewriting rules */ 216140266059SGregory Neil Shapiro macdefine(&e->e_macro, A_PERM, 'h', a->q_host); 216206f25ae9SGregory Neil Shapiro 216340266059SGregory Neil Shapiro if (ConfigLevel >= 10 || 216406f25ae9SGregory Neil Shapiro !bitset(RF_SENDERADDR|RF_HEADERADDR, flags)) 2165c2aa98e2SPeter Wemm { 2166c2aa98e2SPeter Wemm /* sender addresses done later */ 2167a7ec597cSGregory Neil Shapiro (void) rewrite(tv, 2, 0, e, maxatom); 2168c2aa98e2SPeter Wemm if (m->m_re_rwset > 0) 2169a7ec597cSGregory Neil Shapiro (void) rewrite(tv, m->m_re_rwset, 0, e, maxatom); 2170c2aa98e2SPeter Wemm } 2171a7ec597cSGregory Neil Shapiro (void) rewrite(tv, 4, 0, e, maxatom); 2172c2aa98e2SPeter Wemm 2173c2aa98e2SPeter Wemm /* save the result for the command line/RCPT argument */ 2174d0cef73dSGregory Neil Shapiro cataddr(tv, NULL, ubuf, sizeof(ubuf), '\0', true); 217540266059SGregory Neil Shapiro a->q_user = sm_rpool_strdup_x(e->e_rpool, ubuf); 2176c2aa98e2SPeter Wemm 2177c2aa98e2SPeter Wemm /* 2178c2aa98e2SPeter Wemm ** Do mapping to lower case as requested by mailer 2179c2aa98e2SPeter Wemm */ 2180c2aa98e2SPeter Wemm 2181c2aa98e2SPeter Wemm if (a->q_host != NULL && !bitnset(M_HST_UPPER, m->m_flags)) 2182c2aa98e2SPeter Wemm makelower(a->q_host); 2183c2aa98e2SPeter Wemm if (!bitnset(M_USR_UPPER, m->m_flags)) 2184c2aa98e2SPeter Wemm makelower(a->q_user); 2185c2aa98e2SPeter Wemm 2186c2aa98e2SPeter Wemm if (tTd(24, 6)) 2187c2aa98e2SPeter Wemm { 218840266059SGregory Neil Shapiro sm_dprintf("buildaddr => "); 2189e92d3f3fSGregory Neil Shapiro printaddr(sm_debug_file(), a, false); 2190c2aa98e2SPeter Wemm } 2191c2aa98e2SPeter Wemm return a; 2192c2aa98e2SPeter Wemm } 219313bd1963SGregory Neil Shapiro 219440266059SGregory Neil Shapiro /* 2195c2aa98e2SPeter Wemm ** CATADDR -- concatenate pieces of addresses (putting in <LWSP> subs) 2196c2aa98e2SPeter Wemm ** 2197c2aa98e2SPeter Wemm ** Parameters: 2198c2aa98e2SPeter Wemm ** pvp -- parameter vector to rebuild. 2199c2aa98e2SPeter Wemm ** evp -- last parameter to include. Can be NULL to 2200c2aa98e2SPeter Wemm ** use entire pvp. 2201c2aa98e2SPeter Wemm ** buf -- buffer to build the string into. 2202c2aa98e2SPeter Wemm ** sz -- size of buf. 220340266059SGregory Neil Shapiro ** spacesub -- the space separator character; if '\0', 2204c2aa98e2SPeter Wemm ** use SpaceSub. 2205d0cef73dSGregory Neil Shapiro ** external -- convert to external form? 2206d0cef73dSGregory Neil Shapiro ** (no metacharacters; METAQUOTEs removed, see below) 2207c2aa98e2SPeter Wemm ** 2208c2aa98e2SPeter Wemm ** Returns: 2209c2aa98e2SPeter Wemm ** none. 2210c2aa98e2SPeter Wemm ** 2211c2aa98e2SPeter Wemm ** Side Effects: 2212c2aa98e2SPeter Wemm ** Destroys buf. 2213d0cef73dSGregory Neil Shapiro ** 2214d0cef73dSGregory Neil Shapiro ** Notes: 2215d0cef73dSGregory Neil Shapiro ** There are two formats for strings: internal and external. 2216d0cef73dSGregory Neil Shapiro ** The external format is just an eight-bit clean string (no 2217d0cef73dSGregory Neil Shapiro ** null bytes, everything else OK). The internal format can 2218d0cef73dSGregory Neil Shapiro ** include sendmail metacharacters. The special character 2219d0cef73dSGregory Neil Shapiro ** METAQUOTE essentially quotes the character following, stripping 2220d0cef73dSGregory Neil Shapiro ** it of all special semantics. 2221d0cef73dSGregory Neil Shapiro ** 2222d0cef73dSGregory Neil Shapiro ** The cataddr routine needs to be aware of whether it is producing 2223d0cef73dSGregory Neil Shapiro ** an internal or external form as output (it only takes internal 2224d0cef73dSGregory Neil Shapiro ** form as input). 2225d0cef73dSGregory Neil Shapiro ** 2226d0cef73dSGregory Neil Shapiro ** The parseaddr routine has a similar issue on input, but that 2227d0cef73dSGregory Neil Shapiro ** is flagged on the basis of which token table is passed in. 2228c2aa98e2SPeter Wemm */ 2229c2aa98e2SPeter Wemm 2230c2aa98e2SPeter Wemm void 2231d0cef73dSGregory Neil Shapiro cataddr(pvp, evp, buf, sz, spacesub, external) 2232c2aa98e2SPeter Wemm char **pvp; 2233c2aa98e2SPeter Wemm char **evp; 2234c2aa98e2SPeter Wemm char *buf; 2235c2aa98e2SPeter Wemm register int sz; 2236c2aa98e2SPeter Wemm int spacesub; 2237d0cef73dSGregory Neil Shapiro bool external; 2238c2aa98e2SPeter Wemm { 2239d0cef73dSGregory Neil Shapiro bool oatomtok, natomtok; 2240d0cef73dSGregory Neil Shapiro char *p; 2241d0cef73dSGregory Neil Shapiro 2242d0cef73dSGregory Neil Shapiro oatomtok = natomtok = false; 2243d0cef73dSGregory Neil Shapiro if (tTd(59, 14)) 2244d0cef73dSGregory Neil Shapiro { 2245d0cef73dSGregory Neil Shapiro sm_dprintf("cataddr(%d) <==", external); 2246d0cef73dSGregory Neil Shapiro printav(sm_debug_file(), pvp); 2247d0cef73dSGregory Neil Shapiro } 2248c2aa98e2SPeter Wemm 224906f25ae9SGregory Neil Shapiro if (sz <= 0) 225006f25ae9SGregory Neil Shapiro return; 225106f25ae9SGregory Neil Shapiro 2252c2aa98e2SPeter Wemm if (spacesub == '\0') 2253c2aa98e2SPeter Wemm spacesub = SpaceSub; 2254c2aa98e2SPeter Wemm 2255c2aa98e2SPeter Wemm if (pvp == NULL) 2256c2aa98e2SPeter Wemm { 225706f25ae9SGregory Neil Shapiro *buf = '\0'; 2258c2aa98e2SPeter Wemm return; 2259c2aa98e2SPeter Wemm } 2260c2aa98e2SPeter Wemm p = buf; 2261c2aa98e2SPeter Wemm sz -= 2; 226240266059SGregory Neil Shapiro while (*pvp != NULL && sz > 0) 2263c2aa98e2SPeter Wemm { 2264d0cef73dSGregory Neil Shapiro char *q; 2265d0cef73dSGregory Neil Shapiro 2266d0cef73dSGregory Neil Shapiro natomtok = (ExtTokenTab[**pvp & 0xff] == ATM); 2267c2aa98e2SPeter Wemm if (oatomtok && natomtok) 226806f25ae9SGregory Neil Shapiro { 2269c2aa98e2SPeter Wemm *p++ = spacesub; 227040266059SGregory Neil Shapiro if (--sz <= 0) 227140266059SGregory Neil Shapiro break; 227206f25ae9SGregory Neil Shapiro } 2273d0cef73dSGregory Neil Shapiro for (q = *pvp; *q != '\0'; ) 2274d0cef73dSGregory Neil Shapiro { 2275d0cef73dSGregory Neil Shapiro int c; 2276d0cef73dSGregory Neil Shapiro 2277d0cef73dSGregory Neil Shapiro if (--sz <= 0) 2278d0cef73dSGregory Neil Shapiro break; 2279d0cef73dSGregory Neil Shapiro *p++ = c = *q++; 2280d0cef73dSGregory Neil Shapiro 2281d0cef73dSGregory Neil Shapiro /* 2282d0cef73dSGregory Neil Shapiro ** If the current character (c) is METAQUOTE and we 2283d0cef73dSGregory Neil Shapiro ** want the "external" form and the next character 2284d0cef73dSGregory Neil Shapiro ** is not NUL, then overwrite METAQUOTE with that 2285d0cef73dSGregory Neil Shapiro ** character (i.e., METAQUOTE ch is changed to 2286d0cef73dSGregory Neil Shapiro ** ch). p[-1] is used because p is advanced (above). 2287d0cef73dSGregory Neil Shapiro */ 2288d0cef73dSGregory Neil Shapiro 2289d0cef73dSGregory Neil Shapiro if ((c & 0377) == METAQUOTE && external && *q != '\0') 2290d0cef73dSGregory Neil Shapiro p[-1] = *q++; 2291d0cef73dSGregory Neil Shapiro } 2292e92d3f3fSGregory Neil Shapiro if (sz <= 0) 229340266059SGregory Neil Shapiro break; 2294c2aa98e2SPeter Wemm oatomtok = natomtok; 2295c2aa98e2SPeter Wemm if (pvp++ == evp) 2296c2aa98e2SPeter Wemm break; 2297c2aa98e2SPeter Wemm } 2298e92d3f3fSGregory Neil Shapiro 229913d88268SGregory Neil Shapiro #if 0 230013d88268SGregory Neil Shapiro /* 230113d88268SGregory Neil Shapiro ** Silently truncate long strings: even though this doesn't 230213d88268SGregory Neil Shapiro ** seem like a good idea it is necessary because header checks 230313d88268SGregory Neil Shapiro ** send the whole header value to rscheck() and hence rewrite(). 230413d88268SGregory Neil Shapiro ** The latter however sometimes uses a "short" buffer (e.g., 230513d88268SGregory Neil Shapiro ** cbuf[MAXNAME + 1]) to call cataddr() which then triggers this 230613d88268SGregory Neil Shapiro ** error function. One possible fix to the problem is to pass 230713d88268SGregory Neil Shapiro ** flags to rscheck() and rewrite() to distinguish the various 230813d88268SGregory Neil Shapiro ** calls and only trigger the error if necessary. For now just 230913d88268SGregory Neil Shapiro ** undo the change from 8.13.0. 231013d88268SGregory Neil Shapiro */ 231113d88268SGregory Neil Shapiro 2312e92d3f3fSGregory Neil Shapiro if (sz <= 0) 2313b6bacd31SGregory Neil Shapiro usrerr("cataddr: string too long"); 231413d88268SGregory Neil Shapiro #endif 2315c2aa98e2SPeter Wemm *p = '\0'; 2316d0cef73dSGregory Neil Shapiro 2317d0cef73dSGregory Neil Shapiro if (tTd(59, 14)) 2318d0cef73dSGregory Neil Shapiro sm_dprintf(" cataddr => %s\n", str2prt(buf)); 2319c2aa98e2SPeter Wemm } 2320d0cef73dSGregory Neil Shapiro 232140266059SGregory Neil Shapiro /* 2322c2aa98e2SPeter Wemm ** SAMEADDR -- Determine if two addresses are the same 2323c2aa98e2SPeter Wemm ** 2324c2aa98e2SPeter Wemm ** This is not just a straight comparison -- if the mailer doesn't 2325c2aa98e2SPeter Wemm ** care about the host we just ignore it, etc. 2326c2aa98e2SPeter Wemm ** 2327c2aa98e2SPeter Wemm ** Parameters: 2328c2aa98e2SPeter Wemm ** a, b -- pointers to the internal forms to compare. 2329c2aa98e2SPeter Wemm ** 2330c2aa98e2SPeter Wemm ** Returns: 233140266059SGregory Neil Shapiro ** true -- they represent the same mailbox. 233240266059SGregory Neil Shapiro ** false -- they don't. 2333c2aa98e2SPeter Wemm ** 2334c2aa98e2SPeter Wemm ** Side Effects: 2335c2aa98e2SPeter Wemm ** none. 2336c2aa98e2SPeter Wemm */ 2337c2aa98e2SPeter Wemm 2338c2aa98e2SPeter Wemm bool 2339c2aa98e2SPeter Wemm sameaddr(a, b) 2340c2aa98e2SPeter Wemm register ADDRESS *a; 2341c2aa98e2SPeter Wemm register ADDRESS *b; 2342c2aa98e2SPeter Wemm { 2343c2aa98e2SPeter Wemm register ADDRESS *ca, *cb; 2344c2aa98e2SPeter Wemm 2345c2aa98e2SPeter Wemm /* if they don't have the same mailer, forget it */ 2346c2aa98e2SPeter Wemm if (a->q_mailer != b->q_mailer) 234740266059SGregory Neil Shapiro return false; 2348c2aa98e2SPeter Wemm 2349c2aa98e2SPeter Wemm /* if the user isn't the same, we can drop out */ 2350c2aa98e2SPeter Wemm if (strcmp(a->q_user, b->q_user) != 0) 235140266059SGregory Neil Shapiro return false; 2352c2aa98e2SPeter Wemm 2353c2aa98e2SPeter Wemm /* if we have good uids for both but they differ, these are different */ 2354c2aa98e2SPeter Wemm if (a->q_mailer == ProgMailer) 2355c2aa98e2SPeter Wemm { 2356c2aa98e2SPeter Wemm ca = getctladdr(a); 2357c2aa98e2SPeter Wemm cb = getctladdr(b); 2358c2aa98e2SPeter Wemm if (ca != NULL && cb != NULL && 2359c2aa98e2SPeter Wemm bitset(QGOODUID, ca->q_flags & cb->q_flags) && 2360c2aa98e2SPeter Wemm ca->q_uid != cb->q_uid) 236140266059SGregory Neil Shapiro return false; 2362c2aa98e2SPeter Wemm } 2363c2aa98e2SPeter Wemm 2364c2aa98e2SPeter Wemm /* otherwise compare hosts (but be careful for NULL ptrs) */ 2365c2aa98e2SPeter Wemm if (a->q_host == b->q_host) 2366c2aa98e2SPeter Wemm { 2367c2aa98e2SPeter Wemm /* probably both null pointers */ 236840266059SGregory Neil Shapiro return true; 2369c2aa98e2SPeter Wemm } 2370c2aa98e2SPeter Wemm if (a->q_host == NULL || b->q_host == NULL) 2371c2aa98e2SPeter Wemm { 2372c2aa98e2SPeter Wemm /* only one is a null pointer */ 237340266059SGregory Neil Shapiro return false; 2374c2aa98e2SPeter Wemm } 2375c2aa98e2SPeter Wemm if (strcmp(a->q_host, b->q_host) != 0) 237640266059SGregory Neil Shapiro return false; 2377c2aa98e2SPeter Wemm 237840266059SGregory Neil Shapiro return true; 2379c2aa98e2SPeter Wemm } 238040266059SGregory Neil Shapiro /* 2381c2aa98e2SPeter Wemm ** PRINTADDR -- print address (for debugging) 2382c2aa98e2SPeter Wemm ** 2383c2aa98e2SPeter Wemm ** Parameters: 2384c2aa98e2SPeter Wemm ** a -- the address to print 2385c2aa98e2SPeter Wemm ** follow -- follow the q_next chain. 2386c2aa98e2SPeter Wemm ** 2387c2aa98e2SPeter Wemm ** Returns: 2388c2aa98e2SPeter Wemm ** none. 2389c2aa98e2SPeter Wemm ** 2390c2aa98e2SPeter Wemm ** Side Effects: 2391c2aa98e2SPeter Wemm ** none. 2392c2aa98e2SPeter Wemm */ 2393c2aa98e2SPeter Wemm 2394c2aa98e2SPeter Wemm struct qflags 2395c2aa98e2SPeter Wemm { 2396c2aa98e2SPeter Wemm char *qf_name; 239740266059SGregory Neil Shapiro unsigned long qf_bit; 2398c2aa98e2SPeter Wemm }; 2399c2aa98e2SPeter Wemm 240006f25ae9SGregory Neil Shapiro static struct qflags AddressFlags[] = 2401c2aa98e2SPeter Wemm { 2402c2aa98e2SPeter Wemm { "QGOODUID", QGOODUID }, 2403c2aa98e2SPeter Wemm { "QPRIMARY", QPRIMARY }, 2404c2aa98e2SPeter Wemm { "QNOTREMOTE", QNOTREMOTE }, 2405c2aa98e2SPeter Wemm { "QSELFREF", QSELFREF }, 2406c2aa98e2SPeter Wemm { "QBOGUSSHELL", QBOGUSSHELL }, 2407c2aa98e2SPeter Wemm { "QUNSAFEADDR", QUNSAFEADDR }, 2408c2aa98e2SPeter Wemm { "QPINGONSUCCESS", QPINGONSUCCESS }, 2409c2aa98e2SPeter Wemm { "QPINGONFAILURE", QPINGONFAILURE }, 2410c2aa98e2SPeter Wemm { "QPINGONDELAY", QPINGONDELAY }, 2411c2aa98e2SPeter Wemm { "QHASNOTIFY", QHASNOTIFY }, 2412c2aa98e2SPeter Wemm { "QRELAYED", QRELAYED }, 2413c2aa98e2SPeter Wemm { "QEXPANDED", QEXPANDED }, 2414c2aa98e2SPeter Wemm { "QDELIVERED", QDELIVERED }, 2415c2aa98e2SPeter Wemm { "QDELAYED", QDELAYED }, 2416c2aa98e2SPeter Wemm { "QTHISPASS", QTHISPASS }, 2417c2aa98e2SPeter Wemm { "QRCPTOK", QRCPTOK }, 2418193538b7SGregory Neil Shapiro { NULL, 0 } 2419c2aa98e2SPeter Wemm }; 2420c2aa98e2SPeter Wemm 2421c2aa98e2SPeter Wemm void 2422e92d3f3fSGregory Neil Shapiro printaddr(fp, a, follow) 2423e92d3f3fSGregory Neil Shapiro SM_FILE_T *fp; 2424c2aa98e2SPeter Wemm register ADDRESS *a; 2425c2aa98e2SPeter Wemm bool follow; 2426c2aa98e2SPeter Wemm { 2427c2aa98e2SPeter Wemm register MAILER *m; 2428c2aa98e2SPeter Wemm MAILER pseudomailer; 2429c2aa98e2SPeter Wemm register struct qflags *qfp; 2430c2aa98e2SPeter Wemm bool firstone; 2431c2aa98e2SPeter Wemm 2432c2aa98e2SPeter Wemm if (a == NULL) 2433c2aa98e2SPeter Wemm { 2434e92d3f3fSGregory Neil Shapiro (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, "[NULL]\n"); 2435c2aa98e2SPeter Wemm return; 2436c2aa98e2SPeter Wemm } 2437c2aa98e2SPeter Wemm 2438c2aa98e2SPeter Wemm while (a != NULL) 2439c2aa98e2SPeter Wemm { 2440e92d3f3fSGregory Neil Shapiro (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, "%p=", a); 2441e92d3f3fSGregory Neil Shapiro (void) sm_io_flush(fp, SM_TIME_DEFAULT); 2442c2aa98e2SPeter Wemm 2443c2aa98e2SPeter Wemm /* find the mailer -- carefully */ 2444c2aa98e2SPeter Wemm m = a->q_mailer; 2445c2aa98e2SPeter Wemm if (m == NULL) 2446c2aa98e2SPeter Wemm { 2447c2aa98e2SPeter Wemm m = &pseudomailer; 2448c2aa98e2SPeter Wemm m->m_mno = -1; 2449c2aa98e2SPeter Wemm m->m_name = "NULL"; 2450c2aa98e2SPeter Wemm } 2451c2aa98e2SPeter Wemm 2452e92d3f3fSGregory Neil Shapiro (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, 245340266059SGregory Neil Shapiro "%s:\n\tmailer %d (%s), host `%s'\n", 2454c2aa98e2SPeter Wemm a->q_paddr == NULL ? "<null>" : a->q_paddr, 2455c2aa98e2SPeter Wemm m->m_mno, m->m_name, 2456c2aa98e2SPeter Wemm a->q_host == NULL ? "<null>" : a->q_host); 2457e92d3f3fSGregory Neil Shapiro (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, 245840266059SGregory Neil Shapiro "\tuser `%s', ruser `%s'\n", 2459c2aa98e2SPeter Wemm a->q_user, 2460c2aa98e2SPeter Wemm a->q_ruser == NULL ? "<null>" : a->q_ruser); 2461e92d3f3fSGregory Neil Shapiro (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, "\tstate="); 246206f25ae9SGregory Neil Shapiro switch (a->q_state) 246306f25ae9SGregory Neil Shapiro { 246406f25ae9SGregory Neil Shapiro case QS_OK: 2465e92d3f3fSGregory Neil Shapiro (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, "OK"); 246606f25ae9SGregory Neil Shapiro break; 246706f25ae9SGregory Neil Shapiro 246806f25ae9SGregory Neil Shapiro case QS_DONTSEND: 2469e92d3f3fSGregory Neil Shapiro (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, 247040266059SGregory Neil Shapiro "DONTSEND"); 247106f25ae9SGregory Neil Shapiro break; 247206f25ae9SGregory Neil Shapiro 247306f25ae9SGregory Neil Shapiro case QS_BADADDR: 2474e92d3f3fSGregory Neil Shapiro (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, 247540266059SGregory Neil Shapiro "BADADDR"); 247606f25ae9SGregory Neil Shapiro break; 247706f25ae9SGregory Neil Shapiro 247806f25ae9SGregory Neil Shapiro case QS_QUEUEUP: 2479e92d3f3fSGregory Neil Shapiro (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, 248040266059SGregory Neil Shapiro "QUEUEUP"); 248140266059SGregory Neil Shapiro break; 248240266059SGregory Neil Shapiro 248340266059SGregory Neil Shapiro case QS_RETRY: 2484e92d3f3fSGregory Neil Shapiro (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, "RETRY"); 248506f25ae9SGregory Neil Shapiro break; 248606f25ae9SGregory Neil Shapiro 248706f25ae9SGregory Neil Shapiro case QS_SENT: 2488e92d3f3fSGregory Neil Shapiro (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, "SENT"); 248906f25ae9SGregory Neil Shapiro break; 249006f25ae9SGregory Neil Shapiro 249106f25ae9SGregory Neil Shapiro case QS_VERIFIED: 2492e92d3f3fSGregory Neil Shapiro (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, 249340266059SGregory Neil Shapiro "VERIFIED"); 249406f25ae9SGregory Neil Shapiro break; 249506f25ae9SGregory Neil Shapiro 249606f25ae9SGregory Neil Shapiro case QS_EXPANDED: 2497e92d3f3fSGregory Neil Shapiro (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, 249840266059SGregory Neil Shapiro "EXPANDED"); 249906f25ae9SGregory Neil Shapiro break; 250006f25ae9SGregory Neil Shapiro 250106f25ae9SGregory Neil Shapiro case QS_SENDER: 2502e92d3f3fSGregory Neil Shapiro (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, 250340266059SGregory Neil Shapiro "SENDER"); 250406f25ae9SGregory Neil Shapiro break; 250506f25ae9SGregory Neil Shapiro 250606f25ae9SGregory Neil Shapiro case QS_CLONED: 2507e92d3f3fSGregory Neil Shapiro (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, 250840266059SGregory Neil Shapiro "CLONED"); 250906f25ae9SGregory Neil Shapiro break; 251006f25ae9SGregory Neil Shapiro 251106f25ae9SGregory Neil Shapiro case QS_DISCARDED: 2512e92d3f3fSGregory Neil Shapiro (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, 251340266059SGregory Neil Shapiro "DISCARDED"); 251406f25ae9SGregory Neil Shapiro break; 251506f25ae9SGregory Neil Shapiro 251606f25ae9SGregory Neil Shapiro case QS_REPLACED: 2517e92d3f3fSGregory Neil Shapiro (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, 251840266059SGregory Neil Shapiro "REPLACED"); 251906f25ae9SGregory Neil Shapiro break; 252006f25ae9SGregory Neil Shapiro 252106f25ae9SGregory Neil Shapiro case QS_REMOVED: 2522e92d3f3fSGregory Neil Shapiro (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, 252340266059SGregory Neil Shapiro "REMOVED"); 252406f25ae9SGregory Neil Shapiro break; 252506f25ae9SGregory Neil Shapiro 252606f25ae9SGregory Neil Shapiro case QS_DUPLICATE: 2527e92d3f3fSGregory Neil Shapiro (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, 252840266059SGregory Neil Shapiro "DUPLICATE"); 252906f25ae9SGregory Neil Shapiro break; 253006f25ae9SGregory Neil Shapiro 253106f25ae9SGregory Neil Shapiro case QS_INCLUDED: 2532e92d3f3fSGregory Neil Shapiro (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, 253340266059SGregory Neil Shapiro "INCLUDED"); 253406f25ae9SGregory Neil Shapiro break; 253506f25ae9SGregory Neil Shapiro 253606f25ae9SGregory Neil Shapiro default: 2537e92d3f3fSGregory Neil Shapiro (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, 253840266059SGregory Neil Shapiro "%d", a->q_state); 253906f25ae9SGregory Neil Shapiro break; 254006f25ae9SGregory Neil Shapiro } 2541e92d3f3fSGregory Neil Shapiro (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, 254240266059SGregory Neil Shapiro ", next=%p, alias %p, uid %d, gid %d\n", 254340266059SGregory Neil Shapiro a->q_next, a->q_alias, 2544c2aa98e2SPeter Wemm (int) a->q_uid, (int) a->q_gid); 2545e92d3f3fSGregory Neil Shapiro (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, "\tflags=%lx<", 254640266059SGregory Neil Shapiro a->q_flags); 254740266059SGregory Neil Shapiro firstone = true; 2548c2aa98e2SPeter Wemm for (qfp = AddressFlags; qfp->qf_name != NULL; qfp++) 2549c2aa98e2SPeter Wemm { 2550c2aa98e2SPeter Wemm if (!bitset(qfp->qf_bit, a->q_flags)) 2551c2aa98e2SPeter Wemm continue; 2552c2aa98e2SPeter Wemm if (!firstone) 2553e92d3f3fSGregory Neil Shapiro (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, 255440266059SGregory Neil Shapiro ","); 255540266059SGregory Neil Shapiro firstone = false; 2556e92d3f3fSGregory Neil Shapiro (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, "%s", 255740266059SGregory Neil Shapiro qfp->qf_name); 2558c2aa98e2SPeter Wemm } 2559e92d3f3fSGregory Neil Shapiro (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, ">\n"); 2560e92d3f3fSGregory Neil Shapiro (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, 256140266059SGregory Neil Shapiro "\towner=%s, home=\"%s\", fullname=\"%s\"\n", 2562c2aa98e2SPeter Wemm a->q_owner == NULL ? "(none)" : a->q_owner, 2563c2aa98e2SPeter Wemm a->q_home == NULL ? "(none)" : a->q_home, 2564c2aa98e2SPeter Wemm a->q_fullname == NULL ? "(none)" : a->q_fullname); 2565e92d3f3fSGregory Neil Shapiro (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, 256640266059SGregory Neil Shapiro "\torcpt=\"%s\", statmta=%s, status=%s\n", 2567c2aa98e2SPeter Wemm a->q_orcpt == NULL ? "(none)" : a->q_orcpt, 2568c2aa98e2SPeter Wemm a->q_statmta == NULL ? "(none)" : a->q_statmta, 2569c2aa98e2SPeter Wemm a->q_status == NULL ? "(none)" : a->q_status); 2570e92d3f3fSGregory Neil Shapiro (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, 257140266059SGregory Neil Shapiro "\tfinalrcpt=\"%s\"\n", 257240266059SGregory Neil Shapiro a->q_finalrcpt == NULL ? "(none)" : a->q_finalrcpt); 2573e92d3f3fSGregory Neil Shapiro (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, 257440266059SGregory Neil Shapiro "\trstatus=\"%s\"\n", 2575c2aa98e2SPeter Wemm a->q_rstatus == NULL ? "(none)" : a->q_rstatus); 2576e92d3f3fSGregory Neil Shapiro (void) sm_io_fprintf(fp, SM_TIME_DEFAULT, 257740266059SGregory Neil Shapiro "\tstatdate=%s\n", 257806f25ae9SGregory Neil Shapiro a->q_statdate == 0 ? "(none)" : ctime(&a->q_statdate)); 2579c2aa98e2SPeter Wemm 2580c2aa98e2SPeter Wemm if (!follow) 2581c2aa98e2SPeter Wemm return; 2582c2aa98e2SPeter Wemm a = a->q_next; 2583c2aa98e2SPeter Wemm } 2584c2aa98e2SPeter Wemm } 258540266059SGregory Neil Shapiro /* 258640266059SGregory Neil Shapiro ** EMPTYADDR -- return true if this address is empty (``<>'') 2587c2aa98e2SPeter Wemm ** 2588c2aa98e2SPeter Wemm ** Parameters: 2589c2aa98e2SPeter Wemm ** a -- pointer to the address 2590c2aa98e2SPeter Wemm ** 2591c2aa98e2SPeter Wemm ** Returns: 259240266059SGregory Neil Shapiro ** true -- if this address is "empty" (i.e., no one should 2593c2aa98e2SPeter Wemm ** ever generate replies to it. 259440266059SGregory Neil Shapiro ** false -- if it is a "regular" (read: replyable) address. 2595c2aa98e2SPeter Wemm */ 2596c2aa98e2SPeter Wemm 2597c2aa98e2SPeter Wemm bool 2598c2aa98e2SPeter Wemm emptyaddr(a) 2599c2aa98e2SPeter Wemm register ADDRESS *a; 2600c2aa98e2SPeter Wemm { 2601c2aa98e2SPeter Wemm return a->q_paddr == NULL || strcmp(a->q_paddr, "<>") == 0 || 2602c2aa98e2SPeter Wemm a->q_user == NULL || strcmp(a->q_user, "<>") == 0; 2603c2aa98e2SPeter Wemm } 260440266059SGregory Neil Shapiro /* 2605c2aa98e2SPeter Wemm ** REMOTENAME -- return the name relative to the current mailer 2606c2aa98e2SPeter Wemm ** 2607c2aa98e2SPeter Wemm ** Parameters: 2608c2aa98e2SPeter Wemm ** name -- the name to translate. 2609a7ec597cSGregory Neil Shapiro ** m -- the mailer that we want to do rewriting relative to. 2610c2aa98e2SPeter Wemm ** flags -- fine tune operations. 2611c2aa98e2SPeter Wemm ** pstat -- pointer to status word. 2612c2aa98e2SPeter Wemm ** e -- the current envelope. 2613c2aa98e2SPeter Wemm ** 2614c2aa98e2SPeter Wemm ** Returns: 2615c2aa98e2SPeter Wemm ** the text string representing this address relative to 2616c2aa98e2SPeter Wemm ** the receiving mailer. 2617c2aa98e2SPeter Wemm ** 2618c2aa98e2SPeter Wemm ** Side Effects: 2619c2aa98e2SPeter Wemm ** none. 2620c2aa98e2SPeter Wemm ** 2621c2aa98e2SPeter Wemm ** Warnings: 2622c2aa98e2SPeter Wemm ** The text string returned is tucked away locally; 2623c2aa98e2SPeter Wemm ** copy it if you intend to save it. 2624c2aa98e2SPeter Wemm */ 2625c2aa98e2SPeter Wemm 2626c2aa98e2SPeter Wemm char * 2627c2aa98e2SPeter Wemm remotename(name, m, flags, pstat, e) 2628c2aa98e2SPeter Wemm char *name; 2629c2aa98e2SPeter Wemm struct mailer *m; 2630c2aa98e2SPeter Wemm int flags; 2631c2aa98e2SPeter Wemm int *pstat; 2632c2aa98e2SPeter Wemm register ENVELOPE *e; 2633c2aa98e2SPeter Wemm { 2634c2aa98e2SPeter Wemm register char **pvp; 263540266059SGregory Neil Shapiro char *SM_NONVOLATILE fancy; 263640266059SGregory Neil Shapiro char *oldg; 2637c2aa98e2SPeter Wemm int rwset; 2638c2aa98e2SPeter Wemm static char buf[MAXNAME + 1]; 2639c2aa98e2SPeter Wemm char lbuf[MAXNAME + 1]; 2640c2aa98e2SPeter Wemm char pvpbuf[PSBUFSIZE]; 264106f25ae9SGregory Neil Shapiro char addrtype[4]; 2642c2aa98e2SPeter Wemm 2643c2aa98e2SPeter Wemm if (tTd(12, 1)) 2644d0cef73dSGregory Neil Shapiro { 2645d0cef73dSGregory Neil Shapiro sm_dprintf("remotename("); 2646d0cef73dSGregory Neil Shapiro xputs(sm_debug_file(), name); 2647d0cef73dSGregory Neil Shapiro sm_dprintf(")\n"); 2648d0cef73dSGregory Neil Shapiro } 2649c2aa98e2SPeter Wemm 2650c2aa98e2SPeter Wemm /* don't do anything if we are tagging it as special */ 2651c2aa98e2SPeter Wemm if (bitset(RF_SENDERADDR, flags)) 265206f25ae9SGregory Neil Shapiro { 2653c2aa98e2SPeter Wemm rwset = bitset(RF_HEADERADDR, flags) ? m->m_sh_rwset 2654c2aa98e2SPeter Wemm : m->m_se_rwset; 265506f25ae9SGregory Neil Shapiro addrtype[2] = 's'; 265606f25ae9SGregory Neil Shapiro } 2657c2aa98e2SPeter Wemm else 265806f25ae9SGregory Neil Shapiro { 2659c2aa98e2SPeter Wemm rwset = bitset(RF_HEADERADDR, flags) ? m->m_rh_rwset 2660c2aa98e2SPeter Wemm : m->m_re_rwset; 266106f25ae9SGregory Neil Shapiro addrtype[2] = 'r'; 266206f25ae9SGregory Neil Shapiro } 2663c2aa98e2SPeter Wemm if (rwset < 0) 266406f25ae9SGregory Neil Shapiro return name; 266506f25ae9SGregory Neil Shapiro addrtype[1] = ' '; 266606f25ae9SGregory Neil Shapiro addrtype[3] = '\0'; 266706f25ae9SGregory Neil Shapiro addrtype[0] = bitset(RF_HEADERADDR, flags) ? 'h' : 'e'; 266840266059SGregory Neil Shapiro macdefine(&e->e_macro, A_TEMP, macid("{addr_type}"), addrtype); 2669c2aa98e2SPeter Wemm 2670c2aa98e2SPeter Wemm /* 2671c2aa98e2SPeter Wemm ** Do a heuristic crack of this name to extract any comment info. 2672c2aa98e2SPeter Wemm ** This will leave the name as a comment and a $g macro. 2673c2aa98e2SPeter Wemm */ 2674c2aa98e2SPeter Wemm 2675c2aa98e2SPeter Wemm if (bitset(RF_CANONICAL, flags) || bitnset(M_NOCOMMENT, m->m_flags)) 2676c2aa98e2SPeter Wemm fancy = "\201g"; 2677c2aa98e2SPeter Wemm else 2678d9986b26SGregory Neil Shapiro fancy = crackaddr(name, e); 2679c2aa98e2SPeter Wemm 2680c2aa98e2SPeter Wemm /* 2681c2aa98e2SPeter Wemm ** Turn the name into canonical form. 2682c2aa98e2SPeter Wemm ** Normally this will be RFC 822 style, i.e., "user@domain". 2683c2aa98e2SPeter Wemm ** If this only resolves to "user", and the "C" flag is 2684c2aa98e2SPeter Wemm ** specified in the sending mailer, then the sender's 2685c2aa98e2SPeter Wemm ** domain will be appended. 2686c2aa98e2SPeter Wemm */ 2687c2aa98e2SPeter Wemm 2688d0cef73dSGregory Neil Shapiro pvp = prescan(name, '\0', pvpbuf, sizeof(pvpbuf), NULL, NULL, false); 2689c2aa98e2SPeter Wemm if (pvp == NULL) 269006f25ae9SGregory Neil Shapiro return name; 269140266059SGregory Neil Shapiro if (REWRITE(pvp, 3, e) == EX_TEMPFAIL) 2692c2aa98e2SPeter Wemm *pstat = EX_TEMPFAIL; 2693c2aa98e2SPeter Wemm if (bitset(RF_ADDDOMAIN, flags) && e->e_fromdomain != NULL) 2694c2aa98e2SPeter Wemm { 2695c2aa98e2SPeter Wemm /* append from domain to this address */ 2696c2aa98e2SPeter Wemm register char **pxp = pvp; 269706f25ae9SGregory Neil Shapiro int l = MAXATOM; /* size of buffer for pvp */ 2698c2aa98e2SPeter Wemm 2699c2aa98e2SPeter Wemm /* see if there is an "@domain" in the current name */ 2700c2aa98e2SPeter Wemm while (*pxp != NULL && strcmp(*pxp, "@") != 0) 270106f25ae9SGregory Neil Shapiro { 2702c2aa98e2SPeter Wemm pxp++; 270306f25ae9SGregory Neil Shapiro --l; 270406f25ae9SGregory Neil Shapiro } 2705c2aa98e2SPeter Wemm if (*pxp == NULL) 2706c2aa98e2SPeter Wemm { 2707c2aa98e2SPeter Wemm /* no.... append the "@domain" from the sender */ 2708c2aa98e2SPeter Wemm register char **qxq = e->e_fromdomain; 2709c2aa98e2SPeter Wemm 2710c2aa98e2SPeter Wemm while ((*pxp++ = *qxq++) != NULL) 271106f25ae9SGregory Neil Shapiro { 271206f25ae9SGregory Neil Shapiro if (--l <= 0) 271306f25ae9SGregory Neil Shapiro { 271406f25ae9SGregory Neil Shapiro *--pxp = NULL; 271506f25ae9SGregory Neil Shapiro usrerr("553 5.1.0 remotename: too many tokens"); 271606f25ae9SGregory Neil Shapiro *pstat = EX_UNAVAILABLE; 271706f25ae9SGregory Neil Shapiro break; 271806f25ae9SGregory Neil Shapiro } 271906f25ae9SGregory Neil Shapiro } 272040266059SGregory Neil Shapiro if (REWRITE(pvp, 3, e) == EX_TEMPFAIL) 2721c2aa98e2SPeter Wemm *pstat = EX_TEMPFAIL; 2722c2aa98e2SPeter Wemm } 2723c2aa98e2SPeter Wemm } 2724c2aa98e2SPeter Wemm 2725c2aa98e2SPeter Wemm /* 2726c2aa98e2SPeter Wemm ** Do more specific rewriting. 2727c2aa98e2SPeter Wemm ** Rewrite using ruleset 1 or 2 depending on whether this is 2728c2aa98e2SPeter Wemm ** a sender address or not. 2729c2aa98e2SPeter Wemm ** Then run it through any receiving-mailer-specific rulesets. 2730c2aa98e2SPeter Wemm */ 2731c2aa98e2SPeter Wemm 2732c2aa98e2SPeter Wemm if (bitset(RF_SENDERADDR, flags)) 2733c2aa98e2SPeter Wemm { 273440266059SGregory Neil Shapiro if (REWRITE(pvp, 1, e) == EX_TEMPFAIL) 2735c2aa98e2SPeter Wemm *pstat = EX_TEMPFAIL; 2736c2aa98e2SPeter Wemm } 2737c2aa98e2SPeter Wemm else 2738c2aa98e2SPeter Wemm { 273940266059SGregory Neil Shapiro if (REWRITE(pvp, 2, e) == EX_TEMPFAIL) 2740c2aa98e2SPeter Wemm *pstat = EX_TEMPFAIL; 2741c2aa98e2SPeter Wemm } 2742c2aa98e2SPeter Wemm if (rwset > 0) 2743c2aa98e2SPeter Wemm { 274440266059SGregory Neil Shapiro if (REWRITE(pvp, rwset, e) == EX_TEMPFAIL) 2745c2aa98e2SPeter Wemm *pstat = EX_TEMPFAIL; 2746c2aa98e2SPeter Wemm } 2747c2aa98e2SPeter Wemm 2748c2aa98e2SPeter Wemm /* 2749c2aa98e2SPeter Wemm ** Do any final sanitation the address may require. 2750c2aa98e2SPeter Wemm ** This will normally be used to turn internal forms 2751c2aa98e2SPeter Wemm ** (e.g., user@host.LOCAL) into external form. This 2752c2aa98e2SPeter Wemm ** may be used as a default to the above rules. 2753c2aa98e2SPeter Wemm */ 2754c2aa98e2SPeter Wemm 275540266059SGregory Neil Shapiro if (REWRITE(pvp, 4, e) == EX_TEMPFAIL) 2756c2aa98e2SPeter Wemm *pstat = EX_TEMPFAIL; 2757c2aa98e2SPeter Wemm 2758c2aa98e2SPeter Wemm /* 2759c2aa98e2SPeter Wemm ** Now restore the comment information we had at the beginning. 2760c2aa98e2SPeter Wemm */ 2761c2aa98e2SPeter Wemm 2762d0cef73dSGregory Neil Shapiro cataddr(pvp, NULL, lbuf, sizeof(lbuf), '\0', false); 276340266059SGregory Neil Shapiro oldg = macget(&e->e_macro, 'g'); 276440266059SGregory Neil Shapiro macset(&e->e_macro, 'g', lbuf); 2765c2aa98e2SPeter Wemm 276640266059SGregory Neil Shapiro SM_TRY 2767c2aa98e2SPeter Wemm /* need to make sure route-addrs have <angle brackets> */ 2768c2aa98e2SPeter Wemm if (bitset(RF_CANONICAL, flags) && lbuf[0] == '@') 2769d0cef73dSGregory Neil Shapiro expand("<\201g>", buf, sizeof(buf), e); 2770c2aa98e2SPeter Wemm else 2771d0cef73dSGregory Neil Shapiro expand(fancy, buf, sizeof(buf), e); 277240266059SGregory Neil Shapiro SM_FINALLY 277340266059SGregory Neil Shapiro macset(&e->e_macro, 'g', oldg); 277440266059SGregory Neil Shapiro SM_END_TRY 2775c2aa98e2SPeter Wemm 2776c2aa98e2SPeter Wemm if (tTd(12, 1)) 2777d0cef73dSGregory Neil Shapiro { 2778d0cef73dSGregory Neil Shapiro sm_dprintf("remotename => `"); 2779d0cef73dSGregory Neil Shapiro xputs(sm_debug_file(), buf); 2780d0cef73dSGregory Neil Shapiro sm_dprintf("'\n"); 2781d0cef73dSGregory Neil Shapiro } 278206f25ae9SGregory Neil Shapiro return buf; 2783c2aa98e2SPeter Wemm } 278440266059SGregory Neil Shapiro /* 2785c2aa98e2SPeter Wemm ** MAPLOCALUSER -- run local username through ruleset 5 for final redirection 2786c2aa98e2SPeter Wemm ** 2787c2aa98e2SPeter Wemm ** Parameters: 2788c2aa98e2SPeter Wemm ** a -- the address to map (but just the user name part). 2789c2aa98e2SPeter Wemm ** sendq -- the sendq in which to install any replacement 2790c2aa98e2SPeter Wemm ** addresses. 2791c2aa98e2SPeter Wemm ** aliaslevel -- the alias nesting depth. 2792c2aa98e2SPeter Wemm ** e -- the envelope. 2793c2aa98e2SPeter Wemm ** 2794c2aa98e2SPeter Wemm ** Returns: 2795c2aa98e2SPeter Wemm ** none. 2796c2aa98e2SPeter Wemm */ 2797c2aa98e2SPeter Wemm 2798c2aa98e2SPeter Wemm #define Q_COPYFLAGS (QPRIMARY|QBOGUSSHELL|QUNSAFEADDR|\ 2799c2aa98e2SPeter Wemm Q_PINGFLAGS|QHASNOTIFY|\ 280040266059SGregory Neil Shapiro QRELAYED|QEXPANDED|QDELIVERED|QDELAYED|\ 280140266059SGregory Neil Shapiro QBYTRACE|QBYNDELAY|QBYNRELAY) 2802c2aa98e2SPeter Wemm 2803c2aa98e2SPeter Wemm void 2804c2aa98e2SPeter Wemm maplocaluser(a, sendq, aliaslevel, e) 2805c2aa98e2SPeter Wemm register ADDRESS *a; 2806c2aa98e2SPeter Wemm ADDRESS **sendq; 2807c2aa98e2SPeter Wemm int aliaslevel; 2808c2aa98e2SPeter Wemm ENVELOPE *e; 2809c2aa98e2SPeter Wemm { 2810c2aa98e2SPeter Wemm register char **pvp; 281140266059SGregory Neil Shapiro register ADDRESS *SM_NONVOLATILE a1 = NULL; 2812c2aa98e2SPeter Wemm char pvpbuf[PSBUFSIZE]; 2813c2aa98e2SPeter Wemm 2814c2aa98e2SPeter Wemm if (tTd(29, 1)) 2815c2aa98e2SPeter Wemm { 281640266059SGregory Neil Shapiro sm_dprintf("maplocaluser: "); 2817e92d3f3fSGregory Neil Shapiro printaddr(sm_debug_file(), a, false); 2818c2aa98e2SPeter Wemm } 2819d0cef73dSGregory Neil Shapiro pvp = prescan(a->q_user, '\0', pvpbuf, sizeof(pvpbuf), NULL, NULL, 2820d0cef73dSGregory Neil Shapiro false); 2821c2aa98e2SPeter Wemm if (pvp == NULL) 2822c2aa98e2SPeter Wemm { 2823c2aa98e2SPeter Wemm if (tTd(29, 9)) 282440266059SGregory Neil Shapiro sm_dprintf("maplocaluser: cannot prescan %s\n", 282506f25ae9SGregory Neil Shapiro a->q_user); 2826c2aa98e2SPeter Wemm return; 2827c2aa98e2SPeter Wemm } 2828c2aa98e2SPeter Wemm 282940266059SGregory Neil Shapiro macdefine(&e->e_macro, A_PERM, 'h', a->q_host); 283040266059SGregory Neil Shapiro macdefine(&e->e_macro, A_PERM, 'u', a->q_user); 283140266059SGregory Neil Shapiro macdefine(&e->e_macro, A_PERM, 'z', a->q_home); 2832c2aa98e2SPeter Wemm 283340266059SGregory Neil Shapiro macdefine(&e->e_macro, A_PERM, macid("{addr_type}"), "e r"); 283440266059SGregory Neil Shapiro if (REWRITE(pvp, 5, e) == EX_TEMPFAIL) 2835c2aa98e2SPeter Wemm { 2836c2aa98e2SPeter Wemm if (tTd(29, 9)) 283740266059SGregory Neil Shapiro sm_dprintf("maplocaluser: rewrite tempfail\n"); 283806f25ae9SGregory Neil Shapiro a->q_state = QS_QUEUEUP; 2839c2aa98e2SPeter Wemm a->q_status = "4.4.3"; 2840c2aa98e2SPeter Wemm return; 2841c2aa98e2SPeter Wemm } 2842c2aa98e2SPeter Wemm if (pvp[0] == NULL || (pvp[0][0] & 0377) != CANONNET) 2843c2aa98e2SPeter Wemm { 2844c2aa98e2SPeter Wemm if (tTd(29, 9)) 284540266059SGregory Neil Shapiro sm_dprintf("maplocaluser: doesn't resolve\n"); 2846c2aa98e2SPeter Wemm return; 2847c2aa98e2SPeter Wemm } 2848c2aa98e2SPeter Wemm 284940266059SGregory Neil Shapiro SM_TRY 2850c2aa98e2SPeter Wemm a1 = buildaddr(pvp, NULL, 0, e); 285140266059SGregory Neil Shapiro SM_EXCEPT(exc, "E:mta.quickabort") 285240266059SGregory Neil Shapiro 285340266059SGregory Neil Shapiro /* 285440266059SGregory Neil Shapiro ** mark address as bad, S5 returned an error 285540266059SGregory Neil Shapiro ** and we gave that back to the SMTP client. 285640266059SGregory Neil Shapiro */ 285740266059SGregory Neil Shapiro 285840266059SGregory Neil Shapiro a->q_state = QS_DONTSEND; 285940266059SGregory Neil Shapiro sm_exc_raisenew_x(&EtypeQuickAbort, 2); 286040266059SGregory Neil Shapiro SM_END_TRY 286140266059SGregory Neil Shapiro 286240266059SGregory Neil Shapiro /* if non-null, mailer destination specified -- has it changed? */ 2863c2aa98e2SPeter Wemm if (a1 == NULL || sameaddr(a, a1)) 2864c2aa98e2SPeter Wemm { 2865c2aa98e2SPeter Wemm if (tTd(29, 9)) 286640266059SGregory Neil Shapiro sm_dprintf("maplocaluser: address unchanged\n"); 2867c2aa98e2SPeter Wemm return; 2868c2aa98e2SPeter Wemm } 2869c2aa98e2SPeter Wemm 2870c2aa98e2SPeter Wemm /* make new address take on flags and print attributes of old */ 2871c2aa98e2SPeter Wemm a1->q_flags &= ~Q_COPYFLAGS; 2872c2aa98e2SPeter Wemm a1->q_flags |= a->q_flags & Q_COPYFLAGS; 287340266059SGregory Neil Shapiro a1->q_paddr = sm_rpool_strdup_x(e->e_rpool, a->q_paddr); 287440266059SGregory Neil Shapiro a1->q_finalrcpt = a->q_finalrcpt; 287506f25ae9SGregory Neil Shapiro a1->q_orcpt = a->q_orcpt; 2876c2aa98e2SPeter Wemm 2877c2aa98e2SPeter Wemm /* mark old address as dead; insert new address */ 287806f25ae9SGregory Neil Shapiro a->q_state = QS_REPLACED; 2879c2aa98e2SPeter Wemm if (tTd(29, 5)) 2880c2aa98e2SPeter Wemm { 288140266059SGregory Neil Shapiro sm_dprintf("maplocaluser: QS_REPLACED "); 2882e92d3f3fSGregory Neil Shapiro printaddr(sm_debug_file(), a, false); 2883c2aa98e2SPeter Wemm } 2884c2aa98e2SPeter Wemm a1->q_alias = a; 288540266059SGregory Neil Shapiro allocaddr(a1, RF_COPYALL, sm_rpool_strdup_x(e->e_rpool, a->q_paddr), e); 2886c2aa98e2SPeter Wemm (void) recipient(a1, sendq, aliaslevel, e); 2887c2aa98e2SPeter Wemm } 288840266059SGregory Neil Shapiro /* 2889c2aa98e2SPeter Wemm ** DEQUOTE_INIT -- initialize dequote map 2890c2aa98e2SPeter Wemm ** 2891c2aa98e2SPeter Wemm ** Parameters: 2892c2aa98e2SPeter Wemm ** map -- the internal map structure. 2893c2aa98e2SPeter Wemm ** args -- arguments. 2894c2aa98e2SPeter Wemm ** 2895c2aa98e2SPeter Wemm ** Returns: 289640266059SGregory Neil Shapiro ** true. 2897c2aa98e2SPeter Wemm */ 2898c2aa98e2SPeter Wemm 2899c2aa98e2SPeter Wemm bool 2900c2aa98e2SPeter Wemm dequote_init(map, args) 2901c2aa98e2SPeter Wemm MAP *map; 2902c2aa98e2SPeter Wemm char *args; 2903c2aa98e2SPeter Wemm { 2904c2aa98e2SPeter Wemm register char *p = args; 2905c2aa98e2SPeter Wemm 290606f25ae9SGregory Neil Shapiro /* there is no check whether there is really an argument */ 2907c2aa98e2SPeter Wemm map->map_mflags |= MF_KEEPQUOTES; 2908c2aa98e2SPeter Wemm for (;;) 2909c2aa98e2SPeter Wemm { 2910c2aa98e2SPeter Wemm while (isascii(*p) && isspace(*p)) 2911c2aa98e2SPeter Wemm p++; 2912c2aa98e2SPeter Wemm if (*p != '-') 2913c2aa98e2SPeter Wemm break; 2914c2aa98e2SPeter Wemm switch (*++p) 2915c2aa98e2SPeter Wemm { 2916c2aa98e2SPeter Wemm case 'a': 2917c2aa98e2SPeter Wemm map->map_app = ++p; 2918c2aa98e2SPeter Wemm break; 2919c2aa98e2SPeter Wemm 292006f25ae9SGregory Neil Shapiro case 'D': 292106f25ae9SGregory Neil Shapiro map->map_mflags |= MF_DEFER; 292206f25ae9SGregory Neil Shapiro break; 292306f25ae9SGregory Neil Shapiro 292406f25ae9SGregory Neil Shapiro case 'S': 2925c2aa98e2SPeter Wemm case 's': 292606f25ae9SGregory Neil Shapiro map->map_spacesub = *++p; 2927c2aa98e2SPeter Wemm break; 2928c2aa98e2SPeter Wemm } 2929c2aa98e2SPeter Wemm while (*p != '\0' && !(isascii(*p) && isspace(*p))) 2930c2aa98e2SPeter Wemm p++; 2931c2aa98e2SPeter Wemm if (*p != '\0') 2932c2aa98e2SPeter Wemm *p = '\0'; 2933c2aa98e2SPeter Wemm } 2934c2aa98e2SPeter Wemm if (map->map_app != NULL) 2935c2aa98e2SPeter Wemm map->map_app = newstr(map->map_app); 2936c2aa98e2SPeter Wemm 293740266059SGregory Neil Shapiro return true; 2938c2aa98e2SPeter Wemm } 293940266059SGregory Neil Shapiro /* 2940c2aa98e2SPeter Wemm ** DEQUOTE_MAP -- unquote an address 2941c2aa98e2SPeter Wemm ** 2942c2aa98e2SPeter Wemm ** Parameters: 2943c2aa98e2SPeter Wemm ** map -- the internal map structure (ignored). 2944c2aa98e2SPeter Wemm ** name -- the name to dequote. 2945c2aa98e2SPeter Wemm ** av -- arguments (ignored). 2946c2aa98e2SPeter Wemm ** statp -- pointer to status out-parameter. 2947c2aa98e2SPeter Wemm ** 2948c2aa98e2SPeter Wemm ** Returns: 2949c2aa98e2SPeter Wemm ** NULL -- if there were no quotes, or if the resulting 2950c2aa98e2SPeter Wemm ** unquoted buffer would not be acceptable to prescan. 2951c2aa98e2SPeter Wemm ** else -- The dequoted buffer. 2952c2aa98e2SPeter Wemm */ 2953c2aa98e2SPeter Wemm 2954c2aa98e2SPeter Wemm /* ARGSUSED2 */ 2955c2aa98e2SPeter Wemm char * 2956c2aa98e2SPeter Wemm dequote_map(map, name, av, statp) 2957c2aa98e2SPeter Wemm MAP *map; 2958c2aa98e2SPeter Wemm char *name; 2959c2aa98e2SPeter Wemm char **av; 2960c2aa98e2SPeter Wemm int *statp; 2961c2aa98e2SPeter Wemm { 2962c2aa98e2SPeter Wemm register char *p; 2963c2aa98e2SPeter Wemm register char *q; 2964c2aa98e2SPeter Wemm register char c; 2965c2aa98e2SPeter Wemm int anglecnt = 0; 2966c2aa98e2SPeter Wemm int cmntcnt = 0; 2967c2aa98e2SPeter Wemm int quotecnt = 0; 2968c2aa98e2SPeter Wemm int spacecnt = 0; 296940266059SGregory Neil Shapiro bool quotemode = false; 297040266059SGregory Neil Shapiro bool bslashmode = false; 297106f25ae9SGregory Neil Shapiro char spacesub = map->map_spacesub; 2972c2aa98e2SPeter Wemm 2973c2aa98e2SPeter Wemm for (p = q = name; (c = *p++) != '\0'; ) 2974c2aa98e2SPeter Wemm { 2975c2aa98e2SPeter Wemm if (bslashmode) 2976c2aa98e2SPeter Wemm { 297740266059SGregory Neil Shapiro bslashmode = false; 2978c2aa98e2SPeter Wemm *q++ = c; 2979c2aa98e2SPeter Wemm continue; 2980c2aa98e2SPeter Wemm } 2981c2aa98e2SPeter Wemm 2982c2aa98e2SPeter Wemm if (c == ' ' && spacesub != '\0') 2983c2aa98e2SPeter Wemm c = spacesub; 2984c2aa98e2SPeter Wemm 2985c2aa98e2SPeter Wemm switch (c) 2986c2aa98e2SPeter Wemm { 2987c2aa98e2SPeter Wemm case '\\': 298840266059SGregory Neil Shapiro bslashmode = true; 2989c2aa98e2SPeter Wemm break; 2990c2aa98e2SPeter Wemm 2991c2aa98e2SPeter Wemm case '(': 2992c2aa98e2SPeter Wemm cmntcnt++; 2993c2aa98e2SPeter Wemm break; 2994c2aa98e2SPeter Wemm 2995c2aa98e2SPeter Wemm case ')': 2996c2aa98e2SPeter Wemm if (cmntcnt-- <= 0) 2997c2aa98e2SPeter Wemm return NULL; 2998c2aa98e2SPeter Wemm break; 2999c2aa98e2SPeter Wemm 3000c2aa98e2SPeter Wemm case ' ': 300106f25ae9SGregory Neil Shapiro case '\t': 3002c2aa98e2SPeter Wemm spacecnt++; 3003c2aa98e2SPeter Wemm break; 3004c2aa98e2SPeter Wemm } 3005c2aa98e2SPeter Wemm 3006c2aa98e2SPeter Wemm if (cmntcnt > 0) 3007c2aa98e2SPeter Wemm { 3008c2aa98e2SPeter Wemm *q++ = c; 3009c2aa98e2SPeter Wemm continue; 3010c2aa98e2SPeter Wemm } 3011c2aa98e2SPeter Wemm 3012c2aa98e2SPeter Wemm switch (c) 3013c2aa98e2SPeter Wemm { 3014c2aa98e2SPeter Wemm case '"': 3015c2aa98e2SPeter Wemm quotemode = !quotemode; 3016c2aa98e2SPeter Wemm quotecnt++; 3017c2aa98e2SPeter Wemm continue; 3018c2aa98e2SPeter Wemm 3019c2aa98e2SPeter Wemm case '<': 3020c2aa98e2SPeter Wemm anglecnt++; 3021c2aa98e2SPeter Wemm break; 3022c2aa98e2SPeter Wemm 3023c2aa98e2SPeter Wemm case '>': 3024c2aa98e2SPeter Wemm if (anglecnt-- <= 0) 3025c2aa98e2SPeter Wemm return NULL; 3026c2aa98e2SPeter Wemm break; 3027c2aa98e2SPeter Wemm } 3028c2aa98e2SPeter Wemm *q++ = c; 3029c2aa98e2SPeter Wemm } 3030c2aa98e2SPeter Wemm 3031c2aa98e2SPeter Wemm if (anglecnt != 0 || cmntcnt != 0 || bslashmode || 3032c2aa98e2SPeter Wemm quotemode || quotecnt <= 0 || spacecnt != 0) 3033c2aa98e2SPeter Wemm return NULL; 3034c2aa98e2SPeter Wemm *q++ = '\0'; 3035c2aa98e2SPeter Wemm return map_rewrite(map, name, strlen(name), NULL); 3036c2aa98e2SPeter Wemm } 303740266059SGregory Neil Shapiro /* 3038c2aa98e2SPeter Wemm ** RSCHECK -- check string(s) for validity using rewriting sets 3039c2aa98e2SPeter Wemm ** 3040c2aa98e2SPeter Wemm ** Parameters: 3041c2aa98e2SPeter Wemm ** rwset -- the rewriting set to use. 3042c2aa98e2SPeter Wemm ** p1 -- the first string to check. 3043c2aa98e2SPeter Wemm ** p2 -- the second string to check -- may be null. 3044c2aa98e2SPeter Wemm ** e -- the current envelope. 3045959366dcSGregory Neil Shapiro ** flags -- control some behavior, see RSF_ in sendmail.h 304640266059SGregory Neil Shapiro ** logl -- logging level. 3047193538b7SGregory Neil Shapiro ** host -- NULL or relay host. 304840266059SGregory Neil Shapiro ** logid -- id for sm_syslog. 3049d0cef73dSGregory Neil Shapiro ** addr -- if not NULL and ruleset returns $#error: 3050d0cef73dSGregory Neil Shapiro ** store mailer triple here. 3051c2aa98e2SPeter Wemm ** 3052c2aa98e2SPeter Wemm ** Returns: 3053c2aa98e2SPeter Wemm ** EX_OK -- if the rwset doesn't resolve to $#error 3054c2aa98e2SPeter Wemm ** else -- the failure status (message printed) 3055c2aa98e2SPeter Wemm */ 3056c2aa98e2SPeter Wemm 3057c2aa98e2SPeter Wemm int 3058d0cef73dSGregory Neil Shapiro rscheck(rwset, p1, p2, e, flags, logl, host, logid, addr) 3059c2aa98e2SPeter Wemm char *rwset; 3060c2aa98e2SPeter Wemm char *p1; 3061c2aa98e2SPeter Wemm char *p2; 3062c2aa98e2SPeter Wemm ENVELOPE *e; 3063959366dcSGregory Neil Shapiro int flags; 306406f25ae9SGregory Neil Shapiro int logl; 3065193538b7SGregory Neil Shapiro char *host; 306640266059SGregory Neil Shapiro char *logid; 3067d0cef73dSGregory Neil Shapiro ADDRESS *addr; 3068c2aa98e2SPeter Wemm { 306940266059SGregory Neil Shapiro char *volatile buf; 30704e4196cbSGregory Neil Shapiro size_t bufsize; 3071c2aa98e2SPeter Wemm int saveexitstat; 307240266059SGregory Neil Shapiro int volatile rstat = EX_OK; 3073c2aa98e2SPeter Wemm char **pvp; 3074c2aa98e2SPeter Wemm int rsno; 307540266059SGregory Neil Shapiro bool volatile discard = false; 3076c2aa98e2SPeter Wemm bool saveQuickAbort = QuickAbort; 3077c2aa98e2SPeter Wemm bool saveSuprErrs = SuprErrs; 307840266059SGregory Neil Shapiro bool quarantine = false; 307940266059SGregory Neil Shapiro char ubuf[BUFSIZ * 2]; 3080c2aa98e2SPeter Wemm char buf0[MAXLINE]; 3081c2aa98e2SPeter Wemm char pvpbuf[PSBUFSIZE]; 3082c2aa98e2SPeter Wemm extern char MsgBuf[]; 3083c2aa98e2SPeter Wemm 3084c2aa98e2SPeter Wemm if (tTd(48, 2)) 308540266059SGregory Neil Shapiro sm_dprintf("rscheck(%s, %s, %s)\n", rwset, p1, 3086c2aa98e2SPeter Wemm p2 == NULL ? "(NULL)" : p2); 3087c2aa98e2SPeter Wemm 3088c2aa98e2SPeter Wemm rsno = strtorwset(rwset, NULL, ST_FIND); 3089c2aa98e2SPeter Wemm if (rsno < 0) 3090c2aa98e2SPeter Wemm return EX_OK; 3091c2aa98e2SPeter Wemm 3092c2aa98e2SPeter Wemm if (p2 != NULL) 3093c2aa98e2SPeter Wemm { 3094c2aa98e2SPeter Wemm bufsize = strlen(p1) + strlen(p2) + 2; 3095d0cef73dSGregory Neil Shapiro if (bufsize > sizeof(buf0)) 309640266059SGregory Neil Shapiro buf = sm_malloc_x(bufsize); 3097c2aa98e2SPeter Wemm else 3098c2aa98e2SPeter Wemm { 3099c2aa98e2SPeter Wemm buf = buf0; 3100d0cef73dSGregory Neil Shapiro bufsize = sizeof(buf0); 3101c2aa98e2SPeter Wemm } 310240266059SGregory Neil Shapiro (void) sm_snprintf(buf, bufsize, "%s%c%s", p1, CONDELSE, p2); 3103c2aa98e2SPeter Wemm } 3104c2aa98e2SPeter Wemm else 3105c2aa98e2SPeter Wemm { 3106c2aa98e2SPeter Wemm bufsize = strlen(p1) + 1; 3107d0cef73dSGregory Neil Shapiro if (bufsize > sizeof(buf0)) 310840266059SGregory Neil Shapiro buf = sm_malloc_x(bufsize); 3109c2aa98e2SPeter Wemm else 3110c2aa98e2SPeter Wemm { 3111c2aa98e2SPeter Wemm buf = buf0; 3112d0cef73dSGregory Neil Shapiro bufsize = sizeof(buf0); 3113c2aa98e2SPeter Wemm } 311440266059SGregory Neil Shapiro (void) sm_strlcpy(buf, p1, bufsize); 3115c2aa98e2SPeter Wemm } 311640266059SGregory Neil Shapiro SM_TRY 311740266059SGregory Neil Shapiro { 311840266059SGregory Neil Shapiro SuprErrs = true; 311940266059SGregory Neil Shapiro QuickAbort = false; 3120d0cef73dSGregory Neil Shapiro pvp = prescan(buf, '\0', pvpbuf, sizeof(pvpbuf), NULL, 3121d0cef73dSGregory Neil Shapiro bitset(RSF_RMCOMM, flags) ? 3122d0cef73dSGregory Neil Shapiro IntTokenTab : TokTypeNoC, 3123e92d3f3fSGregory Neil Shapiro bitset(RSF_RMCOMM, flags) ? false : true); 3124c2aa98e2SPeter Wemm SuprErrs = saveSuprErrs; 3125c2aa98e2SPeter Wemm if (pvp == NULL) 3126c2aa98e2SPeter Wemm { 3127c2aa98e2SPeter Wemm if (tTd(48, 2)) 312840266059SGregory Neil Shapiro sm_dprintf("rscheck: cannot prescan input\n"); 3129c2aa98e2SPeter Wemm /* 3130c2aa98e2SPeter Wemm syserr("rscheck: cannot prescan input: \"%s\"", 3131c2aa98e2SPeter Wemm shortenstring(buf, MAXSHORTSTR)); 3132c2aa98e2SPeter Wemm rstat = EX_DATAERR; 3133c2aa98e2SPeter Wemm */ 3134c2aa98e2SPeter Wemm goto finis; 3135c2aa98e2SPeter Wemm } 3136959366dcSGregory Neil Shapiro if (bitset(RSF_UNSTRUCTURED, flags)) 3137959366dcSGregory Neil Shapiro SuprErrs = true; 313840266059SGregory Neil Shapiro (void) REWRITE(pvp, rsno, e); 3139959366dcSGregory Neil Shapiro if (bitset(RSF_UNSTRUCTURED, flags)) 3140959366dcSGregory Neil Shapiro SuprErrs = saveSuprErrs; 3141c2aa98e2SPeter Wemm if (pvp[0] == NULL || (pvp[0][0] & 0377) != CANONNET || 3142c2aa98e2SPeter Wemm pvp[1] == NULL || (strcmp(pvp[1], "error") != 0 && 3143c2aa98e2SPeter Wemm strcmp(pvp[1], "discard") != 0)) 3144c2aa98e2SPeter Wemm { 3145c2aa98e2SPeter Wemm goto finis; 3146c2aa98e2SPeter Wemm } 3147c2aa98e2SPeter Wemm 3148c2aa98e2SPeter Wemm if (strcmp(pvp[1], "discard") == 0) 3149c2aa98e2SPeter Wemm { 3150c2aa98e2SPeter Wemm if (tTd(48, 2)) 315140266059SGregory Neil Shapiro sm_dprintf("rscheck: discard mailer selected\n"); 3152c2aa98e2SPeter Wemm e->e_flags |= EF_DISCARD; 315340266059SGregory Neil Shapiro discard = true; 3154c2aa98e2SPeter Wemm } 315540266059SGregory Neil Shapiro else if (strcmp(pvp[1], "error") == 0 && 315640266059SGregory Neil Shapiro pvp[2] != NULL && (pvp[2][0] & 0377) == CANONHOST && 315740266059SGregory Neil Shapiro pvp[3] != NULL && strcmp(pvp[3], "quarantine") == 0) 315840266059SGregory Neil Shapiro { 315940266059SGregory Neil Shapiro if (pvp[4] == NULL || 316040266059SGregory Neil Shapiro (pvp[4][0] & 0377) != CANONUSER || 316140266059SGregory Neil Shapiro pvp[5] == NULL) 316240266059SGregory Neil Shapiro e->e_quarmsg = sm_rpool_strdup_x(e->e_rpool, 316340266059SGregory Neil Shapiro rwset); 316440266059SGregory Neil Shapiro else 316540266059SGregory Neil Shapiro { 316640266059SGregory Neil Shapiro cataddr(&(pvp[5]), NULL, ubuf, 3167d0cef73dSGregory Neil Shapiro sizeof(ubuf), ' ', true); 316840266059SGregory Neil Shapiro e->e_quarmsg = sm_rpool_strdup_x(e->e_rpool, 316940266059SGregory Neil Shapiro ubuf); 317040266059SGregory Neil Shapiro } 317140266059SGregory Neil Shapiro macdefine(&e->e_macro, A_PERM, 317240266059SGregory Neil Shapiro macid("{quarantine}"), e->e_quarmsg); 317340266059SGregory Neil Shapiro quarantine = true; 317440266059SGregory Neil Shapiro } 3175c2aa98e2SPeter Wemm else 3176c2aa98e2SPeter Wemm { 3177d0cef73dSGregory Neil Shapiro auto ADDRESS a1; 3178c2aa98e2SPeter Wemm int savelogusrerrs = LogUsrErrs; 317940266059SGregory Neil Shapiro static bool logged = false; 3180c2aa98e2SPeter Wemm 3181c2aa98e2SPeter Wemm /* got an error -- process it */ 3182c2aa98e2SPeter Wemm saveexitstat = ExitStat; 318340266059SGregory Neil Shapiro LogUsrErrs = false; 3184c2aa98e2SPeter Wemm (void) buildaddr(pvp, &a1, 0, e); 3185d0cef73dSGregory Neil Shapiro if (addr != NULL) 3186d0cef73dSGregory Neil Shapiro { 3187d0cef73dSGregory Neil Shapiro addr->q_mailer = a1.q_mailer; 3188d0cef73dSGregory Neil Shapiro addr->q_user = a1.q_user; 3189d0cef73dSGregory Neil Shapiro addr->q_host = a1.q_host; 3190d0cef73dSGregory Neil Shapiro } 3191c2aa98e2SPeter Wemm LogUsrErrs = savelogusrerrs; 3192c2aa98e2SPeter Wemm rstat = ExitStat; 3193c2aa98e2SPeter Wemm ExitStat = saveexitstat; 3194c2aa98e2SPeter Wemm if (!logged) 3195c2aa98e2SPeter Wemm { 3196959366dcSGregory Neil Shapiro if (bitset(RSF_COUNT, flags)) 319740266059SGregory Neil Shapiro markstats(e, &a1, STATS_REJECT); 319840266059SGregory Neil Shapiro logged = true; 3199c2aa98e2SPeter Wemm } 3200c2aa98e2SPeter Wemm } 3201c2aa98e2SPeter Wemm 320240266059SGregory Neil Shapiro if (LogLevel > logl) 3203c2aa98e2SPeter Wemm { 3204c2aa98e2SPeter Wemm char *relay; 3205c2aa98e2SPeter Wemm char *p; 3206c2aa98e2SPeter Wemm char lbuf[MAXLINE]; 3207c2aa98e2SPeter Wemm 3208c2aa98e2SPeter Wemm p = lbuf; 3209c2aa98e2SPeter Wemm if (p2 != NULL) 3210c2aa98e2SPeter Wemm { 321140266059SGregory Neil Shapiro (void) sm_snprintf(p, SPACELEFT(lbuf, p), 3212c2aa98e2SPeter Wemm ", arg2=%s", 3213c2aa98e2SPeter Wemm p2); 3214c2aa98e2SPeter Wemm p += strlen(p); 3215c2aa98e2SPeter Wemm } 3216193538b7SGregory Neil Shapiro 3217193538b7SGregory Neil Shapiro if (host != NULL) 3218193538b7SGregory Neil Shapiro relay = host; 3219193538b7SGregory Neil Shapiro else 3220193538b7SGregory Neil Shapiro relay = macvalue('_', e); 3221193538b7SGregory Neil Shapiro if (relay != NULL) 3222c2aa98e2SPeter Wemm { 322340266059SGregory Neil Shapiro (void) sm_snprintf(p, SPACELEFT(lbuf, p), 3224c2aa98e2SPeter Wemm ", relay=%s", relay); 3225c2aa98e2SPeter Wemm p += strlen(p); 3226c2aa98e2SPeter Wemm } 3227c2aa98e2SPeter Wemm *p = '\0'; 3228c2aa98e2SPeter Wemm if (discard) 322940266059SGregory Neil Shapiro sm_syslog(LOG_NOTICE, logid, 3230c2aa98e2SPeter Wemm "ruleset=%s, arg1=%s%s, discard", 3231c2aa98e2SPeter Wemm rwset, p1, lbuf); 323240266059SGregory Neil Shapiro else if (quarantine) 323340266059SGregory Neil Shapiro sm_syslog(LOG_NOTICE, logid, 323440266059SGregory Neil Shapiro "ruleset=%s, arg1=%s%s, quarantine=%s", 323540266059SGregory Neil Shapiro rwset, p1, lbuf, ubuf); 3236c2aa98e2SPeter Wemm else 323740266059SGregory Neil Shapiro sm_syslog(LOG_NOTICE, logid, 3238c2aa98e2SPeter Wemm "ruleset=%s, arg1=%s%s, reject=%s", 3239c2aa98e2SPeter Wemm rwset, p1, lbuf, MsgBuf); 3240c2aa98e2SPeter Wemm } 3241c2aa98e2SPeter Wemm 324240266059SGregory Neil Shapiro finis: ; 324340266059SGregory Neil Shapiro } 324440266059SGregory Neil Shapiro SM_FINALLY 324540266059SGregory Neil Shapiro { 3246c2aa98e2SPeter Wemm /* clean up */ 3247c2aa98e2SPeter Wemm if (buf != buf0) 32488774250cSGregory Neil Shapiro sm_free(buf); 324940266059SGregory Neil Shapiro QuickAbort = saveQuickAbort; 325040266059SGregory Neil Shapiro } 325140266059SGregory Neil Shapiro SM_END_TRY 3252c2aa98e2SPeter Wemm 325340266059SGregory Neil Shapiro setstat(rstat); 325440266059SGregory Neil Shapiro 325540266059SGregory Neil Shapiro /* rulesets don't set errno */ 325640266059SGregory Neil Shapiro errno = 0; 3257c2aa98e2SPeter Wemm if (rstat != EX_OK && QuickAbort) 325840266059SGregory Neil Shapiro sm_exc_raisenew_x(&EtypeQuickAbort, 2); 325940266059SGregory Neil Shapiro return rstat; 326040266059SGregory Neil Shapiro } 326140266059SGregory Neil Shapiro /* 326240266059SGregory Neil Shapiro ** RSCAP -- call rewriting set to return capabilities 326340266059SGregory Neil Shapiro ** 326440266059SGregory Neil Shapiro ** Parameters: 326540266059SGregory Neil Shapiro ** rwset -- the rewriting set to use. 326640266059SGregory Neil Shapiro ** p1 -- the first string to check. 326740266059SGregory Neil Shapiro ** p2 -- the second string to check -- may be null. 326840266059SGregory Neil Shapiro ** e -- the current envelope. 326940266059SGregory Neil Shapiro ** pvp -- pointer to token vector. 327040266059SGregory Neil Shapiro ** pvpbuf -- buffer space. 3271a7ec597cSGregory Neil Shapiro ** size -- size of buffer space. 327240266059SGregory Neil Shapiro ** 327340266059SGregory Neil Shapiro ** Returns: 327440266059SGregory Neil Shapiro ** EX_UNAVAILABLE -- ruleset doesn't exist. 327540266059SGregory Neil Shapiro ** EX_DATAERR -- prescan() failed. 327640266059SGregory Neil Shapiro ** EX_OK -- rewrite() was successful. 327740266059SGregory Neil Shapiro ** else -- return status from rewrite(). 327840266059SGregory Neil Shapiro */ 327940266059SGregory Neil Shapiro 328040266059SGregory Neil Shapiro int 328140266059SGregory Neil Shapiro rscap(rwset, p1, p2, e, pvp, pvpbuf, size) 328240266059SGregory Neil Shapiro char *rwset; 328340266059SGregory Neil Shapiro char *p1; 328440266059SGregory Neil Shapiro char *p2; 328540266059SGregory Neil Shapiro ENVELOPE *e; 328640266059SGregory Neil Shapiro char ***pvp; 328740266059SGregory Neil Shapiro char *pvpbuf; 328840266059SGregory Neil Shapiro int size; 328940266059SGregory Neil Shapiro { 329040266059SGregory Neil Shapiro char *volatile buf; 32914e4196cbSGregory Neil Shapiro size_t bufsize; 329240266059SGregory Neil Shapiro int volatile rstat = EX_OK; 329340266059SGregory Neil Shapiro int rsno; 329440266059SGregory Neil Shapiro bool saveQuickAbort = QuickAbort; 329540266059SGregory Neil Shapiro bool saveSuprErrs = SuprErrs; 329640266059SGregory Neil Shapiro char buf0[MAXLINE]; 329740266059SGregory Neil Shapiro extern char MsgBuf[]; 329840266059SGregory Neil Shapiro 329940266059SGregory Neil Shapiro if (tTd(48, 2)) 330040266059SGregory Neil Shapiro sm_dprintf("rscap(%s, %s, %s)\n", rwset, p1, 330140266059SGregory Neil Shapiro p2 == NULL ? "(NULL)" : p2); 330240266059SGregory Neil Shapiro 3303af9557fdSGregory Neil Shapiro SM_REQUIRE(pvp != NULL); 330440266059SGregory Neil Shapiro rsno = strtorwset(rwset, NULL, ST_FIND); 330540266059SGregory Neil Shapiro if (rsno < 0) 330640266059SGregory Neil Shapiro return EX_UNAVAILABLE; 330740266059SGregory Neil Shapiro 330840266059SGregory Neil Shapiro if (p2 != NULL) 330940266059SGregory Neil Shapiro { 331040266059SGregory Neil Shapiro bufsize = strlen(p1) + strlen(p2) + 2; 3311d0cef73dSGregory Neil Shapiro if (bufsize > sizeof(buf0)) 331240266059SGregory Neil Shapiro buf = sm_malloc_x(bufsize); 331340266059SGregory Neil Shapiro else 331440266059SGregory Neil Shapiro { 331540266059SGregory Neil Shapiro buf = buf0; 3316d0cef73dSGregory Neil Shapiro bufsize = sizeof(buf0); 331740266059SGregory Neil Shapiro } 331840266059SGregory Neil Shapiro (void) sm_snprintf(buf, bufsize, "%s%c%s", p1, CONDELSE, p2); 331940266059SGregory Neil Shapiro } 332040266059SGregory Neil Shapiro else 332140266059SGregory Neil Shapiro { 332240266059SGregory Neil Shapiro bufsize = strlen(p1) + 1; 3323d0cef73dSGregory Neil Shapiro if (bufsize > sizeof(buf0)) 332440266059SGregory Neil Shapiro buf = sm_malloc_x(bufsize); 332540266059SGregory Neil Shapiro else 332640266059SGregory Neil Shapiro { 332740266059SGregory Neil Shapiro buf = buf0; 3328d0cef73dSGregory Neil Shapiro bufsize = sizeof(buf0); 332940266059SGregory Neil Shapiro } 333040266059SGregory Neil Shapiro (void) sm_strlcpy(buf, p1, bufsize); 333140266059SGregory Neil Shapiro } 333240266059SGregory Neil Shapiro SM_TRY 333340266059SGregory Neil Shapiro { 333440266059SGregory Neil Shapiro SuprErrs = true; 333540266059SGregory Neil Shapiro QuickAbort = false; 3336d0cef73dSGregory Neil Shapiro *pvp = prescan(buf, '\0', pvpbuf, size, NULL, IntTokenTab, 3337d0cef73dSGregory Neil Shapiro false); 333840266059SGregory Neil Shapiro if (*pvp != NULL) 3339a7ec597cSGregory Neil Shapiro rstat = rewrite(*pvp, rsno, 0, e, size); 334040266059SGregory Neil Shapiro else 334140266059SGregory Neil Shapiro { 334240266059SGregory Neil Shapiro if (tTd(48, 2)) 334340266059SGregory Neil Shapiro sm_dprintf("rscap: cannot prescan input\n"); 334440266059SGregory Neil Shapiro rstat = EX_DATAERR; 334540266059SGregory Neil Shapiro } 334640266059SGregory Neil Shapiro } 334740266059SGregory Neil Shapiro SM_FINALLY 334840266059SGregory Neil Shapiro { 334940266059SGregory Neil Shapiro /* clean up */ 335040266059SGregory Neil Shapiro if (buf != buf0) 335140266059SGregory Neil Shapiro sm_free(buf); 335240266059SGregory Neil Shapiro SuprErrs = saveSuprErrs; 335340266059SGregory Neil Shapiro QuickAbort = saveQuickAbort; 335440266059SGregory Neil Shapiro 335540266059SGregory Neil Shapiro /* prevent information leak, this may contain rewrite error */ 335640266059SGregory Neil Shapiro MsgBuf[0] = '\0'; 335740266059SGregory Neil Shapiro } 335840266059SGregory Neil Shapiro SM_END_TRY 3359c2aa98e2SPeter Wemm return rstat; 3360c2aa98e2SPeter Wemm } 3361