gecko-dev/lib/libmime/addr.c
akkana%netscape.com fa56d81545 Mailto landing (ifdef MOZ_MAIL_COMPOSE). Aproved by mwelch.
Turns off MOZILLA_30, which Jamie says is probably a bad idea;
this will be reworked in the future.
1998-09-04 19:07:08 +00:00

1610 lines
41 KiB
C

/* -*- Mode: C; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 2 -*-
*
* The contents of this file are subject to the Netscape Public License
* Version 1.0 (the "NPL"); you may not use this file except in
* compliance with the NPL. You may obtain a copy of the NPL at
* http://www.mozilla.org/NPL/
*
* Software distributed under the NPL is distributed on an "AS IS" basis,
* WITHOUT WARRANTY OF ANY KIND, either express or implied. See the NPL
* for the specific language governing rights and limitations under the
* NPL.
*
* The Initial Developer of this code under the NPL is Netscape
* Communications Corporation. Portions created by Netscape are
* Copyright (C) 1998 Netscape Communications Corporation. All Rights
* Reserved.
*/
/* addrutil.cpp --- parsing RFC822 addresses.
*/
#include "xp.h"
#undef FREEIF
#define FREEIF(obj) do { if (obj) { XP_FREE (obj); obj = 0; }} while (0)
extern int MK_OUT_OF_MEMORY;
static int msg_quote_phrase_or_addr (char *address, int32 length,
XP_Bool addr_p);
static int msg_parse_rfc822_addresses (const char *line,
char **names,
char **addresses,
XP_Bool quote_names_p,
XP_Bool quote_addrs_p,
XP_Bool first_only_p);
/* Given a string which contains a list of RFC822 addresses, parses it into
their component names and mailboxes.
The returned value is the number of addresses, or a negative error code;
the names and addresses are returned into the provided pointers as
consecutive null-terminated strings. It is up to the caller to free them.
Note that some of the strings may be zero-length.
Either of the provided pointers may be NULL if the caller is not interested
in those components.
quote_names_p and quote_addrs_p control whether the returned strings should
be quoted as RFC822 entities, or returned in a more human-presentable (but
not necessarily parsable) form.
If first_only_p is true, then only the first element of the list is
returned; we don't bother parsing the rest.
*/
int
msg_parse_rfc822_addresses (const char *line,
char **names,
char **addresses,
XP_Bool quote_names_p,
XP_Bool quote_addrs_p,
XP_Bool first_only_p)
{
uint32 addr_count = 0;
uint32 line_length;
const char *line_end;
const char *this_start;
char *name_buf = 0, *name_out, *name_start;
char *addr_buf = 0, *addr_out, *addr_start;
XP_ASSERT (line);
if (! line)
return -1;
if (names)
*names = 0;
if (addresses)
*addresses = 0;
line_length = XP_STRLEN (line);
if (line_length == 0)
return 0;
name_buf = (char *) XP_ALLOC (line_length * 2 + 10);
if (! name_buf)
return MK_OUT_OF_MEMORY;
addr_buf = (char *) XP_ALLOC (line_length * 2 + 10);
if (! addr_buf)
{
FREEIF (name_buf);
return MK_OUT_OF_MEMORY;
}
line_end = line;
addr_out = addr_buf;
name_out = name_buf;
name_start = name_buf;
addr_start = addr_buf;
this_start = line;
/* Skip over extra whitespace or commas before addresses. */
while (*line_end &&
(XP_IS_SPACE (*line_end) || *line_end == ','))
line_end++;
while (*line_end)
{
uint32 paren_depth = 0;
const char *oparen = 0;
const char *mailbox_start = 0;
const char *mailbox_end = 0;
while (*line_end &&
!(*line_end == ',' &&
paren_depth <= 0 && /* comma is ok inside () */
(!mailbox_start || mailbox_end))) /* comma is ok inside <> */
{
if (*line_end == '\\')
{
line_end++;
if (!*line_end) /* otherwise, we walk off end of line, right? */
break;
}
else if (*line_end == '"')
{
int leave_quotes = 0;
line_end++; /* remove open " */
/* handle '"John.Van Doe"@space.com' case */
if (paren_depth == 0 && !mailbox_start)
{
char *end_quote = strchr(line_end, '"');
char *mailbox = end_quote ? strchr(end_quote, '<') : (char *)NULL,
*comma = end_quote ? strchr(end_quote, ',') : (char *)NULL;
if (!mailbox || (comma && comma < mailbox))
{
leave_quotes = 1; /* no mailbox for this address */
*addr_out++ = '"';
}
}
while (*line_end)
{
if (*line_end == '\\')
{
if ( paren_depth == 0
&& (*(line_end+1) == '\\' || *(line_end+1) == '"'))
*addr_out++ = *line_end++;
else
line_end++;
}
else if (*line_end == '"')
break;
if (paren_depth == 0)
*addr_out++ = *line_end;
line_end++;
}
if (*line_end) line_end++; /* remove close " */
if (leave_quotes) *addr_out++ = '"';
continue;
}
if (*line_end == '(')
{
if (paren_depth == 0)
oparen = line_end;
paren_depth++;
}
else if (*line_end == '<' && paren_depth == 0)
{
mailbox_start = line_end;
}
else if (*line_end == '>' && mailbox_start && paren_depth == 0)
{
mailbox_end = line_end;
}
else if (*line_end == ')' && paren_depth > 0)
{
paren_depth--;
if (paren_depth == 0)
{
const char *s = oparen + 1;
/* Copy the characters inside the parens onto the
"name" buffer. */
/* Push out some whitespace before the paren, if
there is non-whitespace there already. */
if (name_out > name_start &&
!XP_IS_SPACE (name_out [-1]))
*name_out++ = ' ';
/* Skip leading whitespace. */
while (XP_IS_SPACE (*s) && s < line_end)
s++;
while (s < line_end)
{
if (*s == '\"')
{
/* Strip out " within () unless backslashed */
s++;
continue;
}
if (*s == '\\') /* remove one \ */
s++;
if (XP_IS_SPACE (*s) &&
name_out > name_start &&
XP_IS_SPACE (name_out[-1]))
/* collapse consecutive whitespace */;
else
*name_out++ = *s;
s++;
}
oparen = 0;
}
}
else
{
/* If we're not inside parens or a <mailbox>, tack this
on to the end of the addr_buf. */
if (paren_depth == 0 &&
(!mailbox_start || mailbox_end))
{
/* Eat whitespace at the beginning of the line,
and eat consecutive whitespace within the line. */
if (XP_IS_SPACE (*line_end) &&
(addr_out == addr_start ||
XP_IS_SPACE (addr_out[-1])))
/* skip it */;
else
*addr_out++ = *line_end;
}
}
line_end++;
}
/* Now we have extracted a single address from the comma-separated
list of addresses. The characters have been divided among the
various buffers: the parts inside parens have been placed in the
name_buf, and everything else has been placed in the addr_buf.
Quoted strings and backslashed characters have been `expanded.'
If there was a <mailbox> spec in it, we have remembered where it was.
Copy that on to the addr_buf, replacing what was there, and copy the
characters not inside <> onto the name_buf, replacing what is there
now (which was just the parenthesized parts.) (And we need to do the
quote and backslash hacking again, since we're coming from the
original source.)
Otherwise, we're already done - the addr_buf and name_buf contain
the right data already (de-quoted.)
*/
if (mailbox_end)
{
const char *s;
XP_ASSERT (*mailbox_start == '<');
XP_ASSERT (*mailbox_end == '>');
/* First, copy the name.
*/
name_out = name_start;
s = this_start;
/* Skip leading whitespace. */
while (XP_IS_SPACE (*s) && s < mailbox_start)
s++;
/* Copy up to (not including) the < */
while (s < mailbox_start)
{
if (*s == '\"')
{
s++;
continue;
}
if (*s == '\\')
{
if (s + 1 < mailbox_start && (*(s+1) == '\\' || *(s+1) == '\"'))
*name_out++ = *s++;
else
s++;
}
if (XP_IS_SPACE (*s) &&
name_out > name_start &&
XP_IS_SPACE (name_out[-1]))
/* collapse consecutive whitespace */;
else
*name_out++ = *s;
s++;
}
/* Trim trailing whitespace. */
while (name_out > name_start && XP_IS_SPACE (name_out[-1]))
name_out--;
/* Push out one space. */
*name_out++ = ' ';
s = mailbox_end+1;
/* Skip whitespace after > */
while (XP_IS_SPACE (*s) && s < line_end)
s++;
/* Copy from just after > to the end. */
while (s < line_end)
{
if (*s == '\"')
{
s++;
continue;
}
if (*s == '\\')
{
if (s + 1 < line_end && (*(s+1) == '\\' || *(s+1) == '\"'))
*name_out++ = *s++;
else
s++;
}
if (XP_IS_SPACE (*s) &&
name_out > name_start &&
XP_IS_SPACE (name_out[-1]))
/* collapse consecutive whitespace */;
else
*name_out++ = *s;
s++;
}
/* Trim trailing whitespace. */
while (name_out > name_start && XP_IS_SPACE (name_out[-1]))
name_out--;
/* null-terminate. */
*name_out++ = 0;
/* Now, copy the address.
*/
mailbox_start++;
addr_out = addr_start;
s = mailbox_start;
/* Skip leading whitespace. */
while (XP_IS_SPACE (*s) && s < mailbox_end)
s++;
/* Copy up to (not including) the > */
while (s < mailbox_end)
{
if (*s == '\"')
{
s++;
continue;
}
if (*s == '\\')
{
if (s + 1 < mailbox_end && (*(s+1) == '\\' || *(s+1) == '\"'))
*addr_out++ = *s++;
else
s++;
}
*addr_out++ = *s++;
}
/* Trim trailing whitespace. */
while (addr_out > addr_start && XP_IS_SPACE (addr_out[-1]))
addr_out--;
/* null-terminate. */
*addr_out++ = 0;
}
else /* No component of <mailbox> form. */
{
/* Trim trailing whitespace. */
while (addr_out > addr_start && XP_IS_SPACE (addr_out[-1]))
addr_out--;
/* null-terminate. */
*addr_out++ = 0;
/* Trim trailing whitespace. */
while (name_out > name_start && XP_IS_SPACE (name_out[-1]))
name_out--;
/* null-terminate. */
*name_out++ = 0;
/* Attempt to deal with the simple error case of a missing comma.
We can only really deal with this in the non-<> case.
If there is no name, and if the address doesn't contain
double-quotes, but the address does contain whitespace,
then assume that the whitespace is an address delimiter.
*/
if (!name_start || !*name_start)
{
char *s;
char *space = 0;
for (s = addr_start; s < addr_out; s++)
if (*s == '\\')
s++;
else if (!space && XP_IS_SPACE (*s))
space = s;
else if (*s == '"')
{
space = 0;
break;
}
if (space)
{
for (s = space; s < addr_out; s++)
if (*s == '\\')
s++;
else if (XP_IS_SPACE (*s))
{
*s = 0;
*name_out++ = 0;
addr_count++;
}
}
}
}
/* Now re-quote the names and addresses if necessary.
*/
if (quote_names_p && names)
{
int L = name_out - name_start - 1;
L = msg_quote_phrase_or_addr (name_start, L, FALSE);
name_out = name_start + L + 1;
}
if (quote_addrs_p && addresses)
{
int L = addr_out - addr_start - 1;
L = msg_quote_phrase_or_addr (addr_start, L, TRUE);
addr_out = addr_start + L + 1;
}
addr_count++;
if (first_only_p)
/* If we only want the first address, we can stop now. */
break;
if (*line_end)
line_end++;
/* Skip over extra whitespace or commas between addresses. */
while (*line_end &&
(XP_IS_SPACE (*line_end) || *line_end == ','))
line_end++;
this_start = line_end;
name_start = name_out;
addr_start = addr_out;
}
/* Make one more pass through and convert all whitespace characters
to SPC. We could do that in the first pass, but this is simpler. */
{
char *s;
for (s = name_buf; s < name_out; s++)
if (XP_IS_SPACE (*s) && *s != ' ')
*s = ' ';
for (s = addr_buf; s < addr_out; s++)
if (XP_IS_SPACE (*s) && *s != ' ')
*s = ' ';
}
/* #### Should we bother realloc'ing them smaller? */
if (names)
*names = name_buf;
else
XP_FREE (name_buf);
if (addresses)
*addresses = addr_buf;
else
XP_FREE (addr_buf);
return addr_count;
}
int
MSG_ParseRFC822Addresses (const char *line,
char **names,
char **addresses)
{
return msg_parse_rfc822_addresses(line, names, addresses, TRUE, TRUE, FALSE);
}
/* Given a single mailbox, this quotes the characters in it which need
to be quoted; it writes into `address' and returns a new length.
`address' is assumed to be long enough; worst case, its size will
be (N*2)+2.
*/
static int
msg_quote_phrase_or_addr (char *address, int32 length, XP_Bool addr_p)
{
int quotable_count = 0, in_quote = 0;
int unquotable_count = 0;
int32 i, new_length;
char *in, *out;
XP_Bool atsign = FALSE;
XP_Bool user_quote = FALSE;
/* If the entire address is quoted, fall out now. */
if (address[0] == '"' && address[length - 1] == '"')
return length;
for (i = 0, in = address; i < length; i++, in++)
{
if (*in == 0)
return length; /* #### horrible kludge... */
else if (addr_p && *in == '@' && !atsign && !in_quote)
{
/* Exactly one unquoted at-sign is allowed in an address. */
atsign = TRUE;
/* If address is of the form '"userid"@somewhere.com' don't quote
* the quotes around 'userid'. Also reset the quotable count, since
* any quotables we've seen are already inside quotes.
*/
if (address[0] == '"' && in > address + 2 && *(in - 1) == '"' && *(in - 2) != '\\')
unquotable_count -= 2, quotable_count = 0, user_quote = TRUE;
}
else if (*in == '\\')
{
if (i + 1 < length && (*(in + 1) == '\\' || *(in + 1) == '"'))
/* If the next character is a backslash or quote, this backslash */
/* is an escape backslash; ignore it and the next character. */
i++, in++;
else
/* If the name contains backslashes or quotes, they must be escaped. */
unquotable_count++;
}
else if (*in == '"')
/* If the name contains quotes, they must be escaped. */
unquotable_count++, in_quote = !in_quote;
else if ( *in >= 127 || *in < 0
|| *in == '[' || *in == ']' || *in == '(' || *in == ')'
|| *in == '<' || *in == '>' || *in == '@' || *in == ','
|| *in == ';' || *in == '$')
/* If the name contains control chars or RFC822 specials, it needs to
* be enclosed in quotes. Double-quotes and backslashes will be dealt
* with seperately.
*
* The ":" character is explicitly not in this list, though RFC822 says
* it should be quoted, because that has been seen to break VMS
* systems. (Rather, it has been seen that there are Unix SMTP servers
* which accept RCPT TO:<host::user> but not RCPT TO:<"host::user"> or
* RCPT TO:<host\:\:user>, which is the syntax that VMS/DECNET hosts
* use.
*
* For future reference: it is also claimed that some VMS SMTP servers
* allow \ quoting but not "" quoting; and that sendmail uses self-
* contradcitory quoting conventions that violate both RFCs 821 and
* 822, so any address quoting on a sendmail system will lose badly.
*/
quotable_count++;
else if (addr_p && *in == ' ')
/* Naked spaces are allowed in names, but not addresses. */
quotable_count++;
else if ( !addr_p
&& (*in == '.' || *in == '!' || *in == '$' || *in == '%'))
/* Naked dots are allowed in addresses, but not in names.
* The other characters (!$%) are technically allowed in names, but
* are surely going to cause someone trouble, so we quote them anyway.
*/
quotable_count++;
}
if (quotable_count == 0 && unquotable_count == 0)
return length;
/* Add 2 to the length for the quotes, plus one for each character
* which will need a backslash as well.
*/
new_length = length + unquotable_count + 2;
/* Now walk through the string backwards (so that we can use the same
* block.) First put on the terminating quote, then push out each
* character, backslashing as necessary. Then a final quote.
* Uh, except, put the second quote just before the last @ if there
* is one.
*/
out = address + new_length - 1;
in = address + length - 1;
if (!atsign || (user_quote && quotable_count > 0))
*out-- = '"';
while (out > address)
{
XP_ASSERT(in >= address);
if (*in == '@' && user_quote && quotable_count > 0)
*out-- = '"';
*out-- = *in;
if (*in == '@' && atsign && !user_quote)
{
*out-- = '"';
atsign = FALSE;
}
else if (*in == '\\' || *in == '"')
{
if ( user_quote && *in == '"'
&& ( in == address
|| ( in < address + length - 1 && in > address
&& *(in + 1) == '@' && *(in - 1) != '\\')))
/* Do nothing */;
else if (in > address && *(in - 1) == '\\')
*out-- = *--in;
else
{
XP_ASSERT(out > address);
*out-- = '\\';
}
}
in--;
}
XP_ASSERT(in == address - 1 || (user_quote && in == address));
XP_ASSERT(out == address);
*out = '"';
address[new_length] = 0;
return new_length;
}
/* Given a name or address that might have been quoted
it will take out the escape and double quotes
The caller is responsible for freeing the resulting
string.
*/
int
MSG_UnquotePhraseOrAddr (char *line, char** lineout)
{
int outlen = 0;
char *lineptr = NULL;
char *tmpLine = NULL;
char *outptr = NULL;
int result = 0;
(*lineout) = NULL;
if (line) {
/* if the first character isnt a double quote
then there is nothing to do */
if (*line != '"')
{
(*lineout) = XP_STRDUP (line);
if (!lineout)
return -1;
else
return 0;
}
/* dont count the first character that is the double quote */
lineptr = line;
lineptr++;
/* count up how many characters we are going to output */
while (*lineptr) {
/* if the character is an '\' then
output the escaped character */
if (*lineptr == '\\')
lineptr++;
outlen++;
lineptr++;
}
tmpLine = (char *) XP_ALLOC (outlen + 1);
if (!tmpLine)
return -1;
XP_MEMSET(tmpLine, 0, outlen);
/* dont output the first double quote */
line++;
lineptr = line;
outptr = (tmpLine);
while ((*lineptr) != '\0') {
/* if the character is an '\' then
output the character that was escaped */
/* if it was part of the quote then don't
output it */
if (*lineptr == '\\' || *lineptr == '"') {
lineptr++;
}
*outptr = *lineptr;
if (*lineptr != '\0') {
outptr++;
lineptr++;
}
}
*outptr = '\0';
if (tmpLine)
(*lineout) = XP_STRDUP (tmpLine);
else
result = -1;
XP_FREEIF (tmpLine);
}
return result;
}
/* Given a string which contains a list of RFC822 addresses, returns a
comma-seperated list of just the `mailbox' portions.
*/
char *
MSG_ExtractRFC822AddressMailboxes (const char *line)
{
char *addrs = 0;
char *result, *s, *out;
uint32 i, size = 0;
int status = MSG_ParseRFC822Addresses (line, 0, &addrs);
if (status <= 0)
return 0;
s = addrs;
for (i = 0; (int) i < status; i++)
{
uint32 j = XP_STRLEN (s);
s += j + 1;
size += j + 2;
}
result = (char*)XP_ALLOC (size + 1);
if (! result)
{
XP_FREE (addrs);
return 0;
}
out = result;
s = addrs;
for (i = 0; (int) i < status; i++)
{
uint32 j = XP_STRLEN (s);
XP_MEMCPY (out, s, j);
out += j;
if ((int) (i+1) < status)
{
*out++ = ',';
*out++ = ' ';
}
s += j + 1;
}
*out = 0;
XP_FREE (addrs);
return result;
}
/* Given a string which contains a list of RFC822 addresses, returns a
comma-seperated list of just the `user name' portions. If any of
the addresses doesn't have a name, then the mailbox is used instead.
The names are *unquoted* and therefore cannot be re-parsed in any way.
They are, however, nice and human-readable.
*/
char *
MSG_ExtractRFC822AddressNames (const char *line)
{
char *names = 0;
char *addrs = 0;
char *result, *s1, *s2, *out;
uint32 i, size = 0;
int status = msg_parse_rfc822_addresses(line, &names, &addrs, FALSE, FALSE,
FALSE);
if (status <= 0)
return 0;
s1 = names;
s2 = addrs;
for (i = 0; (int) i < status; i++)
{
uint32 j1 = XP_STRLEN (s1);
uint32 j2 = XP_STRLEN (s2);
s1 += j1 + 1;
s2 += j2 + 1;
size += (j1 ? j1 : j2) + 2;
}
result = (char*)XP_ALLOC (size + 1);
if (! result)
{
XP_FREE (names);
XP_FREE (addrs);
return 0;
}
out = result;
s1 = names;
s2 = addrs;
for (i = 0; (int) i < status; i++)
{
uint32 j1 = XP_STRLEN (s1);
uint32 j2 = XP_STRLEN (s2);
if (j1)
{
XP_MEMCPY (out, s1, j1);
out += j1;
}
else
{
XP_MEMCPY (out, s2, j2);
out += j2;
}
if ((int) (i+1) < status)
{
*out++ = ',';
*out++ = ' ';
}
s1 += j1 + 1;
s2 += j2 + 1;
}
*out = 0;
XP_FREE (names);
XP_FREE (addrs);
return result;
}
/* Like MSG_ExtractRFC822AddressNames(), but only returns the first name
in the list, if there is more than one.
*/
char *
MSG_ExtractRFC822AddressName (const char *line)
{
char *name = 0;
char *addr = 0;
int status = msg_parse_rfc822_addresses(line, &name, &addr, FALSE, FALSE,
TRUE);
if (status <= 0)
return 0;
/* This can happen if there is an address like "From: foo bar" which
we parse as two addresses (that's a syntax error.) In that case,
we'll return just the first one (the rest is after the NULL.)
XP_ASSERT(status == 1);
*/
if (name && *name)
{
FREEIF(addr);
return name;
}
else
{
FREEIF(name);
return addr;
}
}
static char *
msg_format_rfc822_addresses (const char *names, const char *addrs,
int count, XP_Bool wrap_lines_p)
{
char *result, *out;
const char *s1, *s2;
uint32 i, size = 0;
uint32 column = 10;
if (count <= 0)
return 0;
s1 = names;
s2 = addrs;
for (i = 0; (int) i < count; i++)
{
uint32 j1 = XP_STRLEN (s1);
uint32 j2 = XP_STRLEN (s2);
s1 += j1 + 1;
s2 += j2 + 1;
size += j1 + j2 + 10;
}
result = (char *) XP_ALLOC (size + 1);
if (! result) return 0;
out = result;
s1 = names;
s2 = addrs;
for (i = 0; (int) i < count; i++)
{
char *o;
uint32 j1 = XP_STRLEN (s1);
uint32 j2 = XP_STRLEN (s2);
if (wrap_lines_p && i > 0 &&
(column + j1 + j2 + 3 +
(((int) (i+1) < count) ? 2 : 0)
> 76))
{
if (out > result && out[-1] == ' ')
out--;
*out++ = CR;
*out++ = LF;
*out++ = '\t';
column = 8;
}
o = out;
if (j1)
{
XP_MEMCPY (out, s1, j1);
out += j1;
*out++ = ' ';
*out++ = '<';
}
XP_MEMCPY (out, s2, j2);
out += j2;
if (j1)
*out++ = '>';
if ((int) (i+1) < count)
{
*out++ = ',';
*out++ = ' ';
}
s1 += j1 + 1;
s2 += j2 + 1;
column += (out - o);
}
*out = 0;
return result;
}
/* Given a string which contains a list of RFC822 addresses, returns a new
string with the same data, but inserts missing commas, parses and reformats
it, and wraps long lines with newline-tab.
*/
char *
MSG_ReformatRFC822Addresses (const char *line)
{
char *names = 0;
char *addrs = 0;
char *result;
int status = MSG_ParseRFC822Addresses (line, &names, &addrs);
if (status <= 0)
return 0;
result = msg_format_rfc822_addresses (names, addrs, status, TRUE);
XP_FREE (names);
XP_FREE (addrs);
return result;
}
/* Returns a copy of ADDRS which may have had some addresses removed.
Addresses are removed if they are already in either ADDRS or OTHER_ADDRS.
(If OTHER_ADDRS contain addresses which are not in ADDRS, they are not
added. That argument is for passing in addresses that were already
mentioned in other header fields.)
Addresses are considered to be the same if they contain the same mailbox
part (case-insensitive.) Real names and other comments are not compared.
removeAliasesToMe allows the address parser to use the preference which
contains regular expressions which also mean 'me' for the purpose of
stripping the user's email address(es) out of addrs
*/
char *
MSG_RemoveDuplicateAddresses (const char *addrs,
const char *other_addrs,
XP_Bool removeAliasesToMe)
{
/* This is probably way more complicated than it should be... */
char *s1 = 0, *s2 = 0;
char *output = 0, *out = 0;
char *result = 0;
int count1 = 0, count2 = 0, count3 = 0;
int size1 = 0, size2 = 0, size3 = 0;
char *names1 = 0, *names2 = 0;
char *addrs1 = 0, *addrs2 = 0;
char **a_array1 = 0, **a_array2 = 0, **a_array3 = 0;
char **n_array1 = 0, **n_array3 = 0;
int i, j;
if (!addrs) return 0;
count1 = MSG_ParseRFC822Addresses (addrs, &names1, &addrs1);
if (count1 < 0) goto FAIL;
if (count1 == 0)
{
result = XP_STRDUP("");
goto FAIL;
}
if (other_addrs)
count2 = MSG_ParseRFC822Addresses (other_addrs, &names2, &addrs2);
if (count2 < 0) goto FAIL;
s1 = names1;
s2 = addrs1;
for (i = 0; i < count1; i++)
{
uint32 j1 = XP_STRLEN (s1);
uint32 j2 = XP_STRLEN (s2);
s1 += j1 + 1;
s2 += j2 + 1;
size1 += j1 + j2 + 10;
}
s1 = names2;
s2 = addrs2;
for (i = 0; i < count2; i++)
{
uint32 j1 = XP_STRLEN (s1);
uint32 j2 = XP_STRLEN (s2);
s1 += j1 + 1;
s2 += j2 + 1;
size2 += j1 + j2 + 10;
}
a_array1 = (char **) XP_ALLOC (count1 * sizeof(char *));
if (!a_array1) goto FAIL;
n_array1 = (char **) XP_ALLOC (count1 * sizeof(char *));
if (!n_array1) goto FAIL;
if (count2 > 0)
{
a_array2 = (char **) XP_ALLOC (count2 * sizeof(char *));
if (!a_array2) goto FAIL;
/* don't need an n_array2 */
}
a_array3 = (char **) XP_ALLOC (count1 * sizeof(char *));
if (!a_array3) goto FAIL;
n_array3 = (char **) XP_ALLOC (count1 * sizeof(char *));
if (!n_array3) goto FAIL;
/* fill in the input arrays */
s1 = names1;
s2 = addrs1;
for (i = 0; i < count1; i++)
{
n_array1[i] = s1;
a_array1[i] = s2;
s1 += XP_STRLEN (s1) + 1;
s2 += XP_STRLEN (s2) + 1;
}
s2 = addrs2;
for (i = 0; i < count2; i++)
{
a_array2[i] = s2;
s2 += XP_STRLEN (s2) + 1;
}
/* Iterate over all addrs in the "1" arrays.
If those addrs are not present in "3" or "2", add them to "3".
*/
for (i = 0; i < count1; i++) /* iterate over all addrs */
{
XP_Bool found = FALSE;
for (j = 0; j < count2; j++)
if (!strcasecomp (a_array1[i], a_array2[j]))
{
found = TRUE;
break;
}
if (!found)
for (j = 0; j < count3; j++)
if (!strcasecomp (a_array1[i], a_array3[j]))
{
found = TRUE;
break;
}
if (!found && removeAliasesToMe)
{
#ifndef MOZILLA_30
#if CPLUS_PLUS_IN_C_FILE /* C++ in C file! */
found = MSG_Prefs::IsEmailAddressAnAliasForMe (a_array1[i]);
if (found)
break;
#endif
#endif /* MOZILLA_30 */
}
if (!found)
{
n_array3[count3] = n_array1[i];
a_array3[count3] = a_array1[i];
size3 += (XP_STRLEN(n_array3[count3]) + XP_STRLEN(a_array3[count3])
+ 10);
count3++;
XP_ASSERT (count3 <= count1);
if (count3 > count1) break;
}
}
output = (char *) XP_ALLOC (size3 + 1);
if (!output) goto FAIL;
*output = 0;
out = output;
s2 = output;
for (i = 0; i < count3; i++)
{
XP_STRCPY (out, a_array3[i]);
out += XP_STRLEN (out);
*out++ = 0;
}
s1 = out;
for (i = 0; i < count3; i++)
{
XP_STRCPY (out, n_array3[i]);
out += XP_STRLEN (out);
*out++ = 0;
}
result = msg_format_rfc822_addresses (s1, s2, count3, FALSE);
FAIL:
FREEIF (a_array1);
FREEIF (a_array2);
FREEIF (a_array3);
FREEIF (n_array1);
FREEIF (n_array3);
FREEIF (names1);
FREEIF (names2);
FREEIF (addrs1);
FREEIF (addrs2);
FREEIF (output);
return result;
}
/* Given an e-mail address and a person's name, cons them together into a
single string of the form "name <address>", doing all the necessary quoting.
A new string is returned, which you must free when you're done with it.
*/
char *
MSG_MakeFullAddress (const char* name, const char* addr)
{
int nl = name ? XP_STRLEN (name) : 0;
int al = addr ? XP_STRLEN (addr) : 0;
char *buf, *s;
int L;
if (al == 0)
return 0;
buf = (char *) XP_ALLOC ((nl * 2) + (al * 2) + 20);
if (!buf)
return 0;
if (nl > 0)
{
XP_STRCPY (buf, name);
L = msg_quote_phrase_or_addr (buf, nl, FALSE);
s = buf + L;
*s++ = ' ';
*s++ = '<';
}
else
{
s = buf;
}
XP_STRCPY (s, addr);
L = msg_quote_phrase_or_addr (s, al, TRUE);
s += L;
if (nl > 0)
*s++ = '>';
*s = 0;
L = (s - buf) + 1;
buf = (char *) XP_REALLOC (buf, L);
return buf;
}
#if 0
main (int argc, char **argv)
{
fprintf (stderr, "%s\n",
MSG_RemoveDuplicateAddresses (argv[1], argv[2], FALSE));
}
#endif
#if 0
main (int argc, char **argv)
{
fprintf (stderr, "%s\n", MSG_MakeFullAddress (argv[1], argv[2]));
}
#endif
#if 0
/* Test cases for the above routines.
*/
static void
test1 (const char *line, XP_Bool np, XP_Bool ap,
uint32 expect_count, const char *expect_n, const char *expect_a)
{
char *names = 0, *addrs = 0;
int result;
if (! np) expect_n = 0;
if (! ap) expect_a = 0;
result = MSG_ParseRFC822Addresses (line,
(np ? &names : 0),
(ap ? &addrs : 0));
if (result <= 0)
printf (" #### error %d\n", result);
else
{
uint32 i;
char *n = names, *a = addrs;
if (expect_count != result)
printf (" #### wrong number of results (%d instead of %d)\n",
(int) result, (int) expect_count);
for (i = 0; i < result; i++)
{
if (((!!n) != (!!expect_n)) ||
(n && XP_STRCMP (n, expect_n)))
{
printf (" ####### name got: %s\n"
" #### name wanted: %s\n",
(n ? n : "<NULL>"),
(expect_n ? expect_n : "<NULL>"));
}
if (((!!a) != (!!expect_a)) ||
(a && XP_STRCMP (a, expect_a)))
{
printf (" ####### addr got: %s\n"
" #### addr wanted: %s\n",
(a ? a : "<NULL>"),
(expect_a ? expect_a : "<NULL>"));
}
if (n) n += XP_STRLEN (n) + 1;
if (a) a += XP_STRLEN (a) + 1;
if (expect_n) expect_n += XP_STRLEN (expect_n) + 1;
if (expect_a) expect_a += XP_STRLEN (expect_a) + 1;
}
}
FREEIF (names);
FREEIF (addrs);
}
static void
test (const char *line, uint32 expect_n,
const char *expect_names, const char *expect_addrs,
const char *expect_all_names, const char *expect_all_addrs,
const char *canonical)
{
char *s;
printf ("testing %s\n", line);
test1 (line, TRUE, TRUE, expect_n, expect_names, expect_addrs);
test1 (line, TRUE, FALSE, expect_n, expect_names, expect_addrs);
test1 (line, FALSE, TRUE, expect_n, expect_names, expect_addrs);
test1 (line, FALSE, FALSE, expect_n, expect_names, expect_addrs);
s = MSG_ExtractRFC822AddressMailboxes (line);
if (!s || XP_STRCMP (s, expect_all_addrs))
printf (" #### expected addrs: %s\n"
" ######### got addrs: %s\n",
expect_all_addrs, (s ? s : "<NULL>"));
FREEIF (s);
s = MSG_ExtractRFC822AddressNames (line);
if (!s || XP_STRCMP (s, expect_all_names))
printf (" #### expected names: %s\n"
" ######### got names: %s\n",
expect_all_names, (s ? s : "<NULL>"));
FREEIF (s);
s = MSG_ReformatRFC822Addresses (line);
if (!s || XP_STRCMP (s, canonical))
printf (" #### expected canonical: %s\n"
" ######### got canonical: %s\n",
canonical, (s ? s : "<NULL>"));
FREEIF (s);
}
void
main ()
{
test ("spanky",
1, "", "spanky",
"spanky", "spanky",
"spanky");
test ("<spanky>",
1, "", "spanky",
"spanky", "spanky",
"spanky");
test ("< spanky> ",
1, "", "spanky",
"spanky", "spanky",
"spanky");
test ("Simple Case <simple1>",
1,
"Simple Case", "simple1",
"Simple Case", "simple1",
"Simple Case <simple1>");
test (" Simple Case < simple1 > ",
1,
"Simple Case", "simple1",
"Simple Case", "simple1",
"Simple Case <simple1>");
test ("simple2 (Simple Case)",
1,
"Simple Case", "simple2",
"Simple Case", "simple2",
"Simple Case <simple2>");
test ("simple3 (Slightly) (Trickier)",
1,
"Slightly Trickier", "simple3",
"Slightly Trickier", "simple3",
"Slightly Trickier <simple3>");
test ("(Slightly) simple3 (Trickier)",
1,
"Slightly Trickier", "simple3",
"Slightly Trickier", "simple3",
"Slightly Trickier <simple3>");
test ("( Slightly ) simple3 ( Trickier ) ",
1,
"Slightly Trickier", "simple3",
"Slightly Trickier", "simple3",
"Slightly Trickier <simple3>");
test ("(Even) more <trickier> (Trickier\\, I say)",
1,
"\"(Even) more (Trickier, I say)\"", "trickier",
"(Even) more (Trickier, I say)", "trickier",
"\"(Even) more (Trickier, I say)\" <trickier>");
test ("\"this, is\" <\"some loser\"@address> (foo)",
1,
"\"this, is (foo)\"", "\"some loser\"@address",
"this, is (foo)", "\"some loser\"@address",
"\"this, is (foo)\" <\"some loser\"@address>");
test ("foo, bar",
2,
"" "\000" "",
"foo" "\000" "bar",
"foo, bar", "foo, bar",
"foo, bar");
test ("<foo>, <bar>",
2,
"" "\000" "",
"foo" "\000" "bar",
"foo, bar", "foo, bar",
"foo, bar");
test ("< foo > , < bar > ",
2,
"" "\000" "",
"foo" "\000" "bar",
"foo, bar", "foo, bar",
"foo, bar");
test ("< foo > , , , ,,,,, , < bar > ,",
2,
"" "\000" "",
"foo" "\000" "bar",
"foo, bar", "foo, bar",
"foo, bar");
test ("\"this, is\" <\"some loser\"@address> (foo), <bar>",
2,
"\"this, is (foo)\"" "\000" "",
"\"some loser\"@address" "\000" "bar",
"this, is (foo), bar",
"\"some loser\"@address, bar",
"\"this, is (foo)\" <\"some loser\"@address>, bar");
test ("\"this, is\" <some\\ loser@address> (foo), bar",
2,
"\"this, is (foo)\"" "\000" "",
"\"some loser\"@address" "\000" "bar",
"this, is (foo), bar",
"\"some loser\"@address, bar",
"\"this, is (foo)\" <\"some loser\"@address>, bar");
test ("(I'm a (total) loser) \"space address\"",
1,
"\"I'm a (total) loser\"", "\"space address\"",
"I'm a (total) loser", "\"space address\"",
"\"I'm a (total) loser\" <\"space address\">");
test ("(I'm a (total) loser) \"space address\"@host",
1,
"\"I'm a (total) loser\"", "\"space address\"@host",
"I'm a (total) loser", "\"space address\"@host",
"\"I'm a (total) loser\" <\"space address\"@host>");
test ("It\\'s \"me\" <address>, I'm a (total) loser <\"space address\">",
2,
"It's me" "\000" "\"I'm a (total) loser\"",
"address" "\000" "\"space address\"",
"It's me, I'm a (total) loser",
"address, \"space address\"",
"It's me <address>, \"I'm a (total) loser\" <\"space address\">");
test("It\\'s \"me\" <address>, I'm a (total) loser <\"space address\"@host>",
2,
"It's me" "\000" "\"I'm a (total) loser\"",
"address" "\000" "\"space address\"@host",
"It's me, I'm a (total) loser",
"address, \"space address\"@host",
"It's me <address>, \"I'm a (total) loser\" <\"space address\"@host>");
test ("(It\\'s \"me\") address, (I'm a (total) loser) \"space address\"",
2,
"It's me" "\000" "\"I'm a (total) loser\"",
"address" "\000" "\"space address\"",
"It's me, I'm a (total) loser",
"address, \"space address\"",
"It's me <address>, \"I'm a (total) loser\" <\"space address\">");
test ("(It\\'s \"me\") address, (I'm a (total) loser) \"space \\\"address\"",
2,
"It's me" "\000" "\"I'm a (total) loser\"",
"address" "\000" "\"space \\\"address\"",
"It's me, I'm a (total) loser",
"address, \"space \\\"address\"",
"It's me <address>, \"I'm a (total) loser\" <\"space \\\"address\">");
test ("(It\\'s \"me\") address, (I'm a (total) loser) \"space @address\"@host",
2,
"It's me" "\000" "\"I'm a (total) loser\"",
"address" "\000" "\"space @address\"@host",
"It's me, I'm a (total) loser",
"address, \"space @address\"@host",
"It's me <address>, \"I'm a (total) loser\" <\"space @address\"@host>");
test ("Probably Bogus <some@loser@somewhere>",
1,
"Probably Bogus",
"\"some@loser\"@somewhere",
"Probably Bogus",
"\"some@loser\"@somewhere",
"Probably Bogus <\"some@loser\"@somewhere>");
test ("Probably Bogus <\"some$loser,666\"@somewhere>",
1,
"Probably Bogus",
"\"some$loser,666\"@somewhere",
"Probably Bogus",
"\"some$loser,666\"@somewhere",
"Probably Bogus <\"some$loser,666\"@somewhere>");
test ("Probably Bogus <\"some$loser,666\"@somewhere>",
1,
"Probably Bogus",
"\"some$loser,666\"@somewhere",
"Probably Bogus",
"\"some$loser,666\"@somewhere",
"Probably Bogus <\"some$loser,666\"@somewhere>");
test ("\"Probably Bogus, Jr.\" <\"some$loser,666\"@somewhere>",
1,
"\"Probably Bogus, Jr.\"",
"\"some$loser,666\"@somewhere",
"Probably Bogus, Jr.",
"\"some$loser,666\"@somewhere",
"\"Probably Bogus, Jr.\" <\"some$loser,666\"@somewhere>");
test ("Probably Bogus\\, Jr. <\"some$loser,666\"@somewhere>",
1,
"\"Probably Bogus, Jr.\"",
"\"some$loser,666\"@somewhere",
"Probably Bogus, Jr.",
"\"some$loser,666\"@somewhere",
"\"Probably Bogus, Jr.\" <\"some$loser,666\"@somewhere>");
test ("This isn't legal <some$loser,666@somewhere>",
1,
"This isn't legal", "\"some$loser,666\"@somewhere",
"This isn't legal", "\"some$loser,666\"@somewhere",
"This isn't legal <\"some$loser,666\"@somewhere>");
test ("This isn't legal!! <some$loser,666@somewhere>",
1,
"\"This isn't legal!!\"", "\"some$loser,666\"@somewhere",
"This isn't legal!!", "\"some$loser,666\"@somewhere",
"\"This isn't legal!!\" <\"some$loser,666\"@somewhere>");
test ("addr1, addr2, \n\taddr3",
3,
"" "\000" "" "\000" "",
"addr1" "\000" "addr2" "\000" "addr3",
"addr1, addr2, addr3",
"addr1, addr2, addr3",
"addr1, addr2, addr3");
test ("addr1 addr2 addr3",
3,
"" "\000" "" "\000" "",
"addr1" "\000" "addr2" "\000" "addr3",
"addr1, addr2, addr3",
"addr1, addr2, addr3",
"addr1, addr2, addr3");
test (" addr1 addr2 addr3 ,,,,,, ",
3,
"" "\000" "" "\000" "",
"addr1" "\000" "addr2" "\000" "addr3",
"addr1, addr2, addr3",
"addr1, addr2, addr3",
"addr1, addr2, addr3");
test ("addr1, addr2 \n\t addr3",
3,
"" "\000" "" "\000" "",
"addr1" "\000" "addr2" "\000" "addr3",
"addr1, addr2, addr3",
"addr1, addr2, addr3",
"addr1, addr2, addr3");
test ("addr1, addr2, addr3 addr4, <addr5>, (and) addr6 (yeah)",
6,
"" "\000" "" "\000" "" "\000" "" "\000" ""
"\000" "and yeah",
"addr1" "\000" "addr2" "\000" "addr3" "\000" "addr4" "\000" "addr5"
"\000" "addr6",
"addr1, addr2, addr3, addr4, addr5, and yeah",
"addr1, addr2, addr3, addr4, addr5, addr6",
"addr1, addr2, addr3, addr4, addr5, and yeah <addr6>");
test ("addr1 (and some (nested) parens), addr2 <and unbalanced mbox",
2,
"\"and some (nested) parens\"" "\000" "",
"addr1" "\000" "addr2",
"and some (nested) parens, addr2",
"addr1, addr2",
"\"and some (nested) parens\" <addr1>, addr2");
test ("addr1))) ((()))()()()()()()())), addr2 addr3, addr4 (foo, bar)",
4,
"\"(())\"" "\000" "" "\000" "" "\000" "\"foo, bar\"",
"\"addr1))) ))\"" "\000" "addr2" "\000" "addr3" "\000" "addr4",
"(()), addr2, addr3, foo, bar",
"\"addr1))) ))\", addr2, addr3, addr4",
"\"(())\" <\"addr1))) ))\">, addr2, addr3, \"foo, bar\" <addr4>");
test ("avec le quoted quotes <\"a \\\" quote\">",
1,
"avec le quoted quotes", "\"a \\\" quote\"",
"avec le quoted quotes", "\"a \\\" quote\"",
"avec le quoted quotes <\"a \\\" quote\">");
test ("avec le quoted quotes <\"a \\\" quote\"@host>",
1,
"avec le quoted quotes", "\"a \\\" quote\"@host",
"avec le quoted quotes", "\"a \\\" quote\"@host",
"avec le quoted quotes <\"a \\\" quote\"@host>");
/* bang paths work, right? */
test ("nelsonb <abit.com!nelsonb@netscape.com>",
1,
"nelsonb", "abit.com!nelsonb@netscape.com",
"nelsonb", "abit.com!nelsonb@netscape.com",
"nelsonb <abit.com!nelsonb@netscape.com>");
# if 0 /* these tests don't pass, but should. */
/* a perverse example from RFC822: */
test ("Muhammed.(I am the greatest) Ali @(the)Vegas.WBA",
1,
"I am the greatest", "Muhammed.Ali@Vegas.WBA",
"I am the greatest", "Muhammed.Ali@Vegas.WBA",
"I am the greatest <Muhammed.Ali@Vegas.WBA>");
/* Oops, this should work but doesn't. */
test ("nelsonb <@abit.com.tw:nelsonb@netscape.com>",
1,
"nelsonb", "@abit.com.tw:nelsonb@netscape.com",
"nelsonb", "@abit.com.tw:nelsonb@netscape.com",
"nelsonb <@abit.com.tw:nelsonb@netscape.com>");
test ("(Sat43Jan@cyberpromo.com) <Ronald.F.Guilmette#$&'*+-/=?^_`|~@monkeys.com> ((#$&'*+-/=?^_`|~)) ((\\)))",
1,
"(Sat43Jan@cyberpromo.com)", "\"Ronald.F.Guilmette#$&'*+-/=?^_`|~\"@monkeys.com",
"(Sat43Jan@cyberpromo.com)", "\"Ronald.F.Guilmette#$&'*+-/=?^_`|~\"@monkeys.com",
"(Sat43Jan@cyberpromo.com) <\"Ronald.F.Guilmette#$&'*+-/=?^_`|~\"@monkeys.com>");
/* Intentionally fail this one */
test("my . name @ my . host . com",
1,
"", "my.name@my.host.com",
"", "my.name@my.host.com",
"<my.name@my.host.com>");
/* but this one should work */
test("loser < my . name @ my . host . com > ",
1,
"loser", "my.name@my.host.com",
"loser", "my.name@my.host.com",
"loser <my.name@my.host.com>");
test("my(@).(@)name(<)@(>)my(:).(;)host(((\\)))).(@)com",
1,
"@", "my.name@my.host.com",
"@", "my.name@my.host.com",
"\"@\" <my.name@my.host.com>");
# endif /* 0 */
exit (0);
}
#endif /* 0 */