#include <stdio.h>
#include <ctype.h>
#include <string.h>
#include <stdlib.h>
#ifndef MAIN
#include "fetchmail.h"
#include "i18n.h"
#else
static int verbose;
char *program_name = "rfc822";
#endif
#ifndef TRUE
#define TRUE 1
#define FALSE 0
#endif
#define HEADER_END(p) ((p)[0] == '\n' && ((p)[1] != ' ' && (p)[1] != '\t'))
unsigned char *reply_hack(buf, host)
unsigned char *buf;
const unsigned char *host;
{
unsigned char *from, *cp, last_nws = '\0', *parens_from = NULL;
int parendepth, state, has_bare_name_part, has_host_part;
#ifndef MAIN
int addresscount = 1;
#endif
if (strncasecmp("From:", buf, 5)
&& strncasecmp("To:", buf, 3)
&& strncasecmp("Reply-To:", buf, 9)
&& strncasecmp("Return-Path:", buf, 12)
&& strncasecmp("Cc:", buf, 3)
&& strncasecmp("Bcc:", buf, 4)
&& strncasecmp("Resent-From:", buf, 12)
&& strncasecmp("Resent-To:", buf, 10)
&& strncasecmp("Resent-Cc:", buf, 10)
&& strncasecmp("Resent-Bcc:", buf, 11)
&& strncasecmp("Apparently-From:", buf, 16)
&& strncasecmp("Apparently-To:", buf, 14)
&& strncasecmp("Sender:", buf, 7)
&& strncasecmp("Resent-Sender:", buf, 14)
) {
return(buf);
}
#ifndef MAIN
if (outlevel >= O_DEBUG)
report_build(stdout, GT_("About to rewrite %s"), buf);
for (cp = buf; *cp; cp++)
if (*cp == ',' || isspace(*cp))
addresscount++;
buf = (unsigned char *)xrealloc(buf, strlen(buf) + addresscount * strlen(host) + 1);
#endif
parendepth = state = 0;
has_host_part = has_bare_name_part = FALSE;
for (from = buf; *from; from++)
{
#ifdef MAIN
if (verbose)
{
printf("state %d: %s", state, buf);
printf("%*s^\n", from - buf + 10, " ");
}
#endif
if (state != 2)
{
if (*from == '(')
++parendepth;
else if (*from == ')')
--parendepth;
}
if (!parendepth && !has_host_part)
switch (state)
{
case 0:
if (*from == ':')
state = 1;
break;
case 1:
if (!isspace(*from))
last_nws = *from;
if (*from == '<')
state = 3;
else if (*from == '@' || *from == '!')
has_host_part = TRUE;
else if (*from == '"')
state = 2;
else if ((*from == ',' || HEADER_END(from))
&& has_bare_name_part
&& !has_host_part
&& last_nws != ';')
{
int hostlen;
unsigned char *p;
p = from;
if (parens_from)
from = parens_from;
while (isspace(*from) || (*from == ','))
--from;
from++;
hostlen = strlen(host);
for (cp = from + strlen(from); cp >= from; --cp)
cp[hostlen+1] = *cp;
*from++ = '@';
memcpy(from, host, hostlen);
from = p + hostlen + 1;
has_host_part = TRUE;
}
else if (from[1] == '('
&& has_bare_name_part
&& !has_host_part
&& last_nws != ';' && last_nws != ')')
{
parens_from = from;
}
else if (!isspace(*from))
has_bare_name_part = TRUE;
break;
case 2:
if (*from == '"')
{
char *bp;
int bscount;
bscount = 0;
for (bp = from - 1; *bp == '\\'; bp--)
bscount++;
if (!(bscount % 2))
state = 1;
}
break;
case 3:
if (*from == '@' || *from == '!')
has_host_part = TRUE;
else if (*from == '>' && from[-1] != '<')
{
state = 1;
if (!has_host_part)
{
int hostlen;
hostlen = strlen(host);
for (cp = from + strlen(from); cp >= from; --cp)
cp[hostlen+1] = *cp;
*from++ = '@';
memcpy(from, host, hostlen);
from += hostlen;
has_host_part = TRUE;
}
}
break;
}
if (from[-1] == ',' && !parendepth) {
has_host_part = has_bare_name_part = FALSE;
parens_from = NULL;
}
}
#ifndef MAIN
if (outlevel >= O_DEBUG)
report_complete(stdout, GT_("Rewritten version is %s\n"), buf);
#endif
return(buf);
}
unsigned char *nxtaddr(hdr)
const unsigned char *hdr;
{
static unsigned char address[BUFSIZ];
static int tp;
static const unsigned char *hp;
static int state, oldstate;
#ifdef MAIN
static const unsigned char *orighdr;
#endif
int parendepth = 0;
#define START_HDR 0
#define SKIP_JUNK 1
#define BARE_ADDRESS 2
#define INSIDE_DQUOTE 3
#define INSIDE_PARENS 4
#define INSIDE_BRACKETS 5
#define ENDIT_ALL 6
#define NEXTTP() ((tp < sizeof(address)-1) ? tp++ : tp)
if (hdr)
{
hp = hdr;
state = START_HDR;
#ifdef MAIN
orighdr = hdr;
#endif
tp = 0;
}
for (; *hp; hp++)
{
#ifdef MAIN
if (verbose)
{
printf("state %d: %s", state, orighdr);
printf("%*s^\n", hp - orighdr + 10, " ");
}
#endif
if (state == ENDIT_ALL)
return(NULL);
else if (HEADER_END(hp))
{
state = ENDIT_ALL;
if (tp)
{
while (isspace(address[--tp]))
continue;
address[++tp] = '\0';
tp = 0;
return (address);
}
return((unsigned char *)NULL);
}
else if (*hp == '\\')
{
if (state != INSIDE_PARENS)
{
address[NEXTTP()] = *hp++;
address[NEXTTP()] = *hp;
}
}
else switch (state)
{
case START_HDR:
if (*hp == ':')
state = SKIP_JUNK;
break;
case SKIP_JUNK:
if (*hp == '"')
{
oldstate = SKIP_JUNK;
state = INSIDE_DQUOTE;
address[NEXTTP()] = *hp;
}
else if (*hp == '(')
{
parendepth = 1;
oldstate = SKIP_JUNK;
state = INSIDE_PARENS;
}
else if (*hp == '<')
{
state = INSIDE_BRACKETS;
tp = 0;
}
else if (*hp != ',' && !isspace(*hp))
{
--hp;
state = BARE_ADDRESS;
}
break;
case BARE_ADDRESS:
if (*hp == ',')
{
if (tp)
{
address[NEXTTP()] = '\0';
state = SKIP_JUNK;
tp = 0;
return(address);
}
}
else if (*hp == '(')
{
parendepth = 1;
oldstate = BARE_ADDRESS;
state = INSIDE_PARENS;
}
else if (*hp == '<')
{
state = INSIDE_BRACKETS;
tp = 0;
}
else if (*hp == '"')
{
oldstate = state;
state = INSIDE_DQUOTE;
address[NEXTTP()] = *hp;
}
else if (!isspace(*hp))
address[NEXTTP()] = *hp;
break;
case INSIDE_DQUOTE:
if (*hp != '"')
address[NEXTTP()] = *hp;
else
{
address[NEXTTP()] = *hp;
state = oldstate;
}
break;
case INSIDE_PARENS:
if (*hp == '(')
++parendepth;
else if (*hp == ')')
--parendepth;
if (parendepth == 0)
state = oldstate;
break;
case INSIDE_BRACKETS:
if (*hp == '>')
{
address[NEXTTP()] = '\0';
state = SKIP_JUNK;
++hp;
tp = 0;
return(address);
}
else if (*hp == '<')
tp = 0;
else if (*hp == '"')
{
address[NEXTTP()] = *hp;
oldstate = INSIDE_BRACKETS;
state = INSIDE_DQUOTE;
}
else
address[NEXTTP()] = *hp;
break;
}
}
return(NULL);
}
#ifdef MAIN
static void parsebuf(unsigned char *longbuf, int reply)
{
unsigned char *cp;
if (reply)
{
reply_hack(longbuf, "HOSTNAME.NET");
printf("Rewritten buffer: %s", longbuf);
}
else
if ((cp = nxtaddr(longbuf)) != (unsigned char *)NULL)
do {
printf("\t-> \"%s\"\n", cp);
} while
((cp = nxtaddr((unsigned char *)NULL)) != (unsigned char *)NULL);
}
main(int argc, char *argv[])
{
unsigned char buf[BUFSIZ], longbuf[BUFSIZ];
int ch, reply;
verbose = reply = FALSE;
while ((ch = getopt(argc, argv, "rv")) != EOF)
switch(ch)
{
case 'r':
reply = TRUE;
break;
case 'v':
verbose = TRUE;
break;
}
while (fgets(buf, sizeof(buf)-1, stdin))
{
if (buf[0] == ' ' || buf[0] == '\t')
strcat(longbuf, buf);
else if (!strncasecmp("From: ", buf, 6)
|| !strncasecmp("To: ", buf, 4)
|| !strncasecmp("Reply-", buf, 6)
|| !strncasecmp("Cc: ", buf, 4)
|| !strncasecmp("Bcc: ", buf, 5))
strcpy(longbuf, buf);
else if (longbuf[0])
{
if (verbose)
fputs(longbuf, stdout);
parsebuf(longbuf, reply);
longbuf[0] = '\0';
}
}
if (longbuf[0])
{
if (verbose)
fputs(longbuf, stdout);
parsebuf(longbuf, reply);
}
}
#endif