void doheaders(void)
{
int flaggoodfield,match;
if (act == AC_DIGEST)
copy(&qq,"headeradd",'H');
hdr_add2s("Mailing-List: ",MSG(TXT_MAILING_LIST));
if (listid.len > 0)
hdr_add2("List-ID: ",listid.s,listid.len);
hdr_datemsgid(when);
hdr_from("-help");
if (!stralloc_copys(&mydtline,"Delivered-To: responder for ")) die_nomem();
if (!stralloc_catb(&mydtline,outlocal.s,outlocal.len)) die_nomem();
if (!stralloc_cats(&mydtline,"@")) die_nomem();
if (!stralloc_catb(&mydtline,outhost.s,outhost.len)) die_nomem();
if (!stralloc_cats(&mydtline,"\n")) die_nomem();
qmail_put(&qq,mydtline.s,mydtline.len);
flaggoodfield = 0;
if (act != AC_DIGEST)
for (;;) {
if (getln(&ssin,&line,&match,'\n') == -1)
strerr_die2sys(111,FATAL,MSG(ERR_READ_INPUT));
if (!match) break;
if (line.len == 1) break;
if ((line.s[0] != ' ') && (line.s[0] != '\t')) {
flaggoodfield = 0;
if (case_startb(line.s,line.len,"mailing-list:")) {
if (flageditor) /* we may be running from a sublist */
flaggoodfield = 0;
else
strerr_die2x(100,FATAL,MSG(ERR_MAILING_LIST));
}
if (line.len == mydtline.len)
if (byte_equal(line.s,line.len,mydtline.s))
strerr_die2x(100,FATAL,MSG(ERR_LOOPING));
if (case_startb(line.s,line.len,"delivered-to:"))
flaggoodfield = 1;
if (case_startb(line.s,line.len,"received:"))
flaggoodfield = 1;
}
if (flaggoodfield)
qmail_put(&qq,line.s,line.len);
}
}
void msg_headers(int act)
/* Writes all the headers up to but not including subject */
{
int flaggoodfield;
int flaggetfrom;
unsigned int pos;
hdr_add2s("Mailing-List: ",MSG(TXT_MAILING_LIST));
if (listid.len > 0)
hdr_add2("List-ID: ",listid.s,listid.len);
quote("ed,&outlocal); /* quoted has outlocal */
qmail_puts(&qq,"List-Help: <mailto:"); /* General rfc2369 headers */
qmail_put(&qq,quoted.s,quoted.len);
qmail_puts(&qq,"-help@");
qmail_put(&qq,outhost.s,outhost.len);
qmail_puts(&qq,">\nList-Post: <mailto:");
qmail_put(&qq,quoted.s,quoted.len);
qmail_puts(&qq,"@");
qmail_put(&qq,outhost.s,outhost.len);
qmail_puts(&qq,">\nList-Subscribe: <mailto:");
qmail_put(&qq,quoted.s,quoted.len);
qmail_puts(&qq,"-subscribe@");
qmail_put(&qq,outhost.s,outhost.len);
qmail_puts(&qq,">\n");
hdr_datemsgid(when);
/* differnt "From:" for help to break auto-responder loops */
hdr_from((act == AC_HELP) ? "-return-" : "-help");
quote2("ed,target.s);
hdr_add2("To: ",quoted.s,quoted.len);
stralloc_copys(&mydtline,"Delivered-To: responder for ");
stralloc_catb(&mydtline,outlocal.s,outlocal.len);
stralloc_cats(&mydtline,"@");
stralloc_catb(&mydtline,outhost.s,outhost.len);
stralloc_cats(&mydtline,"\n");
qmail_put(&qq,mydtline.s,mydtline.len);
flaggoodfield = 0;
/* do it for -sc, but if the -S flag is used, do it for -subscribe */
flaggetfrom = flagstorefrom &&
((act == AC_SC) || ((act == AC_SUBSCRIBE) && !flagsubconf));
for (;;) {
if (gethdrln(&ssin,&line,&match,'\n') == -1)
strerr_die2sys(111,FATAL,MSG(ERR_READ_INPUT));
if (!match) break;
if (line.len == 1) break;
flaggoodfield = 0;
if (case_startb(line.s,line.len,"mailing-list:"))
strerr_die2x(100,FATAL,MSG(ERR_MAILING_LIST));
if (line.len == mydtline.len)
if (byte_equal(line.s,line.len,mydtline.s))
strerr_die2x(100,FATAL,MSG(ERR_LOOPING));
if (case_startb(line.s,line.len,"delivered-to:"))
flaggoodfield = 1;
else if (case_startb(line.s,line.len,"received:"))
flaggoodfield = 1;
else if (case_startb(line.s,line.len,"content-transfer-encoding:")) {
pos = 26;
while (line.s[pos] == ' ' || line.s[pos] == '\t') ++pos;
if (case_startb(line.s+pos,line.len-pos,"base64"))
encin = 'B';
else if (case_startb(line.s+pos,line.len-pos,"quoted-printable"))
encin = 'Q';
} else if (flaggetfrom && case_startb(line.s,line.len,"from:")) {
/* for logging subscriber data */
concatHDR(line.s+5,line.len-5,&fromline);
}
if (flaggoodfield)
qmail_put(&qq,line.s,line.len);
}
hdr_mime(flagcd ? CTYPE_MULTIPART : CTYPE_TEXT);
}
void doit(int flagw)
{
unsigned int i;
int fd;
int match;
int fdhash;
const char *err;
fd = open_read(fn.s);
if (fd == -1) die_read();
substdio_fdbuf(&ssin,read,fd,inbuf,sizeof(inbuf));
if (getln(&ssin,&addr,&match,'\0') == -1) die_read();
if (!match) { close(fd); return; }
if (!issub(workdir,0,addr.s)) { close(fd); /*XXX*/unlink(fn.s); return; }
cookie(hash,"",0,"",addr.s,"");
if (!stralloc_copys(&fnhash,workdir)) die_nomem();
if (!stralloc_cats(&fnhash,"/bounce/h/")) die_nomem();
if (!stralloc_catb(&fnhash,hash,1)) die_nomem();
if (!stralloc_cats(&fnhash,"/h")) die_nomem();
if (!stralloc_catb(&fnhash,hash+1,COOKIE-1)) die_nomem();
if (!stralloc_0(&fnhash)) die_nomem();
if (qmail_open(&qq, (stralloc *) 0) == -1)
strerr_die2sys(111,FATAL,ERR_QMAIL_QUEUE);
hdr_add2("Mailing-List: ",mailinglist.s,mailinglist.len);
if (listid.len > 0)
hdr_add2("\nList-ID: ",listid.s,listid.len);
hdr_datemsgid(now());
if (flagcd) {
if (!stralloc_0(&line)) die_nomem();
}
hdr_from("-help");
if (!quote2("ed,addr.s)) die_nomem();
hdr_add2("To: ",quoted.s,quoted.len);
/* to accomodate transfer-encoding */
hdr_mime(flagcd ? CTYPE_MULTIPART : CTYPE_TEXT);
hdr_listsubject1(flagw ? "probe from " : "warning from ");
if (flagcd) { /* first part for QP/base64 multipart msg */
hdr_boundary(0);
hdr_ctype(CTYPE_TEXT);
hdr_transferenc();
} else
qmail_puts(&qq,"\n");
copy(&qq,"text/top",flagcd);
copy(&qq,flagw ? "text/bounce-probe" : "text/bounce-warn",flagcd);
if (!flagw) {
if (flagdig)
copy(&qq,"text/dig-bounce-num",flagcd);
else
copy(&qq,"text/bounce-num",flagcd);
if (!flagcd) {
fdhash = open_read(fnhash.s);
if (fdhash == -1) {
if (errno != error_noent)
strerr_die4sys(111,FATAL,ERR_OPEN,fnhash.s,": ");
} else {
substdio_fdbuf(&sstext,read,fdhash,textbuf,sizeof(textbuf));
for(;;) {
if (getln(&sstext,&line,&match,'\n') == -1)
strerr_die4sys(111,FATAL,ERR_READ,fnhash.s,": ");
if (!match) break;
code_qput(line.s,line.len);
}
}
close(fdhash);
} else {
if (!stralloc_copys(&line,"")) die_nomem(); /* slurp adds! */
if (slurp(fnhash.s,&line,256) < 0)
strerr_die4sys(111,FATAL,ERR_OPEN,fnhash.s,": ");
code_qput(line.s,line.len);
}
}
copy(&qq,"text/bounce-bottom",flagcd);
if (flagcd) {
if (flagcd == 'B') {
encodeB("",0,&line,2);
qmail_put(&qq,line.s,line.len); /* flush */
}
hdr_boundary(0);
hdr_ctype(CTYPE_MESSAGE);
qmail_puts(&qq,"\n");
}
if (qmail_copy(&qq,&ssin,copylines) < 0) die_read();
close(fd);
if (flagcd) /* end multipart/mixed */
hdr_boundary(1);
strnum[fmt_ulong(strnum,when)] = 0;
cookie(hash,key.s,key.len,strnum,addr.s,flagw ? "P" : "W");
if (!stralloc_copy(&line,&outlocal)) die_nomem();
if (!stralloc_cats(&line,flagw ? "-return-probe-" : "-return-warn-"))
die_nomem();
if (!stralloc_cats(&line,strnum)) die_nomem();
if (!stralloc_cats(&line,".")) die_nomem();
if (!stralloc_catb(&line,hash,COOKIE)) die_nomem();
if (!stralloc_cats(&line,"-")) die_nomem();
i = str_chr(addr.s,'@');
if (!stralloc_catb(&line,addr.s,i)) die_nomem();
if (addr.s[i]) {
if (!stralloc_cats(&line,"=")) die_nomem();
if (!stralloc_cats(&line,addr.s + i + 1)) die_nomem();
}
if (!stralloc_cats(&line,"@")) die_nomem();
if (!stralloc_cat(&line,&outhost)) die_nomem();
if (!stralloc_0(&line)) die_nomem();
qmail_from(&qq,line.s);
qmail_to(&qq,addr.s);
if (*(err = qmail_close(&qq)) != '\0')
strerr_die3x(111,FATAL,ERR_TMP_QMAIL_QUEUE, err + 1);
strnum[fmt_ulong(strnum,qmail_qp(&qq))] = 0;
strerr_warn2("ezmlm-warn: info: qp ",strnum,0);
if (!flagw) {
if (unlink(fnhash.s) == -1)
if (errno != error_noent)
strerr_die4sys(111,FATAL,ERR_DELETE,fnhash.s,": ");
}
if (unlink(fn.s) == -1)
strerr_die4sys(111,FATAL,ERR_DELETE,fn.s,": ");
}
void main(int argc,char **argv)
{
char *sender;
char *def;
char *local;
char *action;
int flaginheader;
int flagcomment;
int flaggoodfield;
int flagdone;
int fd, fdlock;
int match;
const char *err;
char encin = '\0';
unsigned int start,confnum;
unsigned int pos,i;
int child;
int opt;
char *cp,*cpnext,*cpfirst,*cplast,*cpafter;
(void) umask(022);
sig_pipeignore();
when = now();
if (!stralloc_copys(&sendopt,"-")) die_nomem();
opt = getconfopt(argc,argv,options,1,&dir);
sender = get_sender();
if (!sender) strerr_die2x(100,FATAL,MSG(ERR_NOSENDER));
local = env_get("LOCAL");
if (!local) strerr_die2x(100,FATAL,MSG(ERR_NOLOCAL));
def = env_get("DEFAULT");
if (!def) strerr_die2x(100,FATAL,MSG(ERR_NODEFAULT));
if (!*sender)
strerr_die2x(100,FATAL,MSG(ERR_BOUNCE));
if (!sender[str_chr(sender,'@')])
strerr_die2x(100,FATAL,MSG(ERR_ANONYMOUS));
if (str_equal(sender,"#@[]"))
strerr_die2x(100,FATAL,MSG(ERR_BOUNCE));
/* local should be >= def, but who knows ... */
cp = local + str_len(local) - str_len(def) - 2;
if (cp < local) die_badformat();
action = local + byte_rchr(local,cp - local,'-');
if (action == cp) die_badformat();
action++;
if (!action[0]) die_badformat();
if (!str_start(action,ACTION_ACCEPT) && !str_start(action,ACTION_REJECT))
die_badformat();
start = str_chr(action,'-');
if (!action[start]) die_badformat();
confnum = 1 + start + str_chr(action + start + 1,'.');
if (!action[confnum]) die_badformat();
confnum += 1 + str_chr(action + confnum + 1,'.');
if (!action[confnum]) die_badformat();
if (!stralloc_copyb(&fnbase,action+start+1,confnum-start-1)) die_nomem();
if (!stralloc_0(&fnbase)) die_nomem();
cookie(hash,key.s,key.len,fnbase.s,"","a");
if (byte_diff(hash,COOKIE,action+confnum+1))
die_badformat();
fdlock = lockfile("mod/lock");
switch(checkfile(fnbase.s)) {
case 0:
strerr_die2x(100,FATAL,MSG(ERR_MOD_TIMEOUT));
case -1: /* only error if new request != action taken */
if (str_start(action,ACTION_ACCEPT))
strerr_die2x(0,INFO,MSG(ERR_MOD_ACCEPTED));
else
strerr_die2x(100,FATAL,MSG(ERR_MOD_ACCEPTED));
case -2:
if (str_start(action,ACTION_REJECT))
strerr_die2x(0,INFO,MSG(ERR_MOD_REJECTED));
else
strerr_die2x(100,FATAL,MSG(ERR_MOD_REJECTED));
default:
break;
}
/* Here, we have an existing filename in fnbase with the complete path */
/* from the current dir in fnmsg. */
if (str_start(action,ACTION_REJECT)) {
if (qmail_open(&qq, (stralloc *) 0) == -1)
strerr_die2sys(111,FATAL,MSG(ERR_QMAIL_QUEUE));
/* Build recipient from msg return-path */
fd = open_read(fnmsg.s);
if (fd == -1) {
if (errno != error_noent)
strerr_die2sys(111,FATAL,MSG1(ERR_OPEN,fnmsg.s));
else
strerr_die2x(100,FATAL,MSG(ERR_MOD_TIMEOUT));
}
substdio_fdbuf(&sstext,read,fd,textbuf,sizeof(textbuf));
if (getln(&sstext,&line,&match,'\n') == -1 || !match)
strerr_die2sys(111,FATAL,MSG(ERR_READ_INPUT));
maketo(); /* extract SENDER from return-path */
/* Build message */
hdr_add2s("Mailing-List: ",MSG(TXT_MAILING_LIST));
if (listid.len > 0)
hdr_add2("List-ID: ",listid.s,listid.len);
hdr_datemsgid(when);
hdr_from("-owner");
if (replyto)
hdr_add2s("Reply-To: ",replyto);
hdr_add2s("To: ",to.s);
hdr_subject(MSG(SUB_RETURNED_POST));
if (flagmime) {
hdr_mime(CTYPE_MULTIPART);
hdr_boundary(0);
hdr_ctype(CTYPE_TEXT);
hdr_transferenc();
}
copy(&qq,"text/top",flagcd);
copy(&qq,"text/mod-reject",flagcd);
flagcomment = 0;
flaginheader = 1;
if (!stralloc_copys(&text,"")) die_nomem();
if (!stralloc_ready(&text,1024)) die_nomem();
for (;;) { /* copy moderator's rejection comment */
if (getln(subfdin,&line,&match,'\n') == -1)
strerr_die2sys(111,FATAL,MSG(ERR_READ_INPUT));
if (!match) break;
if (flaginheader) {
if (case_startb(line.s,line.len,"Content-Transfer-Encoding:")) {
pos = 26;
while (line.s[pos] == ' ' || line.s[pos] == '\t') ++pos;
if (case_startb(line.s+pos,line.len-pos,"base64"))
encin = 'B';
else if (case_startb(line.s+pos,line.len-pos,"quoted-printable"))
encin = 'Q';
}
if (line.len == 1)
flaginheader = 0;
} else
if (!stralloc_cat(&text,&line)) die_nomem();
} /* got body */
if (encin) {
if (encin == 'B')
decodeB(text.s,text.len,&line);
else
decodeQ(text.s,text.len,&line);
if (!stralloc_copy(&text,&line)) die_nomem();
}
cp = text.s;
cpafter = text.s + text.len;
if (!stralloc_copys(&line,"\n>>>>> -------------------- >>>>>\n"))
die_nomem();
flaggoodfield = 0;
flagdone = 0;
while ((cpnext = cp + byte_chr(cp,cpafter-cp,'\n')) != cpafter) {
i = byte_chr(cp,cpnext-cp,'%');
if (i <= 5 && cpnext-cp-i >= 3) {
/* max 5 "quote characters" and space for %%% */
if (cp[i+1] == '%' && cp[i+2] == '%') {
if (!flaggoodfield) { /* Start tag */
if (!stralloc_copyb("ed,cp,i)) die_nomem(); /* quote chars*/
flaggoodfield = 1;
cp = cpnext + 1;
cpfirst = cp;
continue;
} else { /* end tag */
if (flagdone) /* 0 no comment lines, 1 comment line */
flagdone = 2; /* 2 at least 1 comment line & end tag */
break;
}
}
}
if (flaggoodfield) {
cplast = cpnext - 1;
if (*cplast == '\r') /* CRLF -> '\n' for base64 encoding */
*cplast = '\n';
else
++cplast;
/* NUL is now ok, so the test for it was removed */
flagdone = 1;
i = cplast - cp + 1;
if (quoted.len && quoted.len <= i &&
!str_diffn(cp,quoted.s,quoted.len)) { /* quote chars */
if (!stralloc_catb(&line,cp+quoted.len,i-quoted.len)) die_nomem();
} else
if (!stralloc_catb(&line,cp,i)) die_nomem(); /* no quote chars */
}
cp = cpnext + 1;
}
if (flagdone == 2) {
if (!stralloc_cats(&line,"<<<<< -------------------- <<<<<\n")) die_nomem();
code_qput(line.s,line.len);
}
if (flagcd == 'B') {
encodeB("",0,&line,2);
qmail_put(&qq,line.s,line.len);
}
if (flagmime) {
hdr_boundary(0);
hdr_ctype(CTYPE_MESSAGE);
}
qmail_puts(&qq,"\n");
if (seek_begin(fd) == -1)
strerr_die2sys(111,FATAL,MSG1(ERR_SEEK,fnmsg.s));
substdio_fdbuf(&sstext,read,fd,textbuf,sizeof(textbuf));
if (qmail_copy(&qq,&sstext,-1) != 0)
strerr_die2sys(111,FATAL,MSG1(ERR_READ,fnmsg.s));
close(fd);
if (flagmime)
hdr_boundary(1);
if (!stralloc_copy(&line,&outlocal)) die_nomem();
if (!stralloc_cats(&line,"-return-@")) die_nomem();
if (!stralloc_cat(&line,&outhost)) die_nomem();
if (!stralloc_0(&line)) die_nomem();
qmail_from(&qq,line.s);
if (to.len)
qmail_to(&qq,to.s);
if (!stralloc_copys(&fnnew,"mod/rejected/")) die_nomem();
if (!stralloc_cats(&fnnew,fnbase.s)) die_nomem();
if (!stralloc_0(&fnnew)) die_nomem();
/* this is strictly to track what happended to a message to give informative */
/* messages to the 2nd-nth moderator that acts on the same message. Since */
/* this isn't vital we ignore errors. Also, it is no big ideal if unlinking */
/* the old file fails. In the worst case it gets acted on again. If we issue */
/* a temp error the reject will be redone, which is slightly worse. */
if (*(err = qmail_close(&qq)) == '\0') {
fd = open_trunc(fnnew.s);
if (fd != -1)
close(fd);
unlink(fnmsg.s);
strnum[fmt_ulong(strnum,qmail_qp(&qq))] = 0;
strerr_die2x(0,"ezmlm-moderate: info: qp ",strnum);
} else
strerr_die4x(111,FATAL,MSG(ERR_TMP_QMAIL_QUEUE),": ",err + 1);
} else if (str_start(action,ACTION_ACCEPT)) {
fd = open_read(fnmsg.s);
if (fd == -1) {
if (errno !=error_noent)
strerr_die2sys(111,FATAL,MSG1(ERR_OPEN,fnmsg.s));
else /* shouldn't happen since we've got lock */
strerr_die3x(100,FATAL,fnmsg.s,MSG(ERR_MOD_TIMEOUT));
}
substdio_fdbuf(&sstext,read,fd,textbuf,sizeof(textbuf));
/* read "Return-Path:" line */
if (getln(&sstext,&line,&match,'\n') == -1 || !match)
strerr_die2sys(111,FATAL,MSG(ERR_READ_INPUT));
maketo(); /* extract SENDER to "to" */
env_put2("SENDER",to.s); /* set SENDER */
if (seek_begin(fd) == -1) /* rewind, since we read an entire buffer */
strerr_die2sys(111,FATAL,MSG1(ERR_SEEK,fnmsg.s));
if ((child = wrap_fork()) == 0) {
close(0);
dup(fd); /* make fnmsg.s stdin */
if (argc > opt + 1)
wrap_execvp((const char **)argv + opt);
else if (argc > opt)
wrap_execsh(argv[opt]);
else
wrap_execbin("/ezmlm-send", &sendopt, dir);
}
/* parent */
close(fd);
wrap_exitcode(child);
if (!stralloc_copys(&fnnew,"mod/accepted/")) die_nomem();
if (!stralloc_cats(&fnnew,fnbase.s)) die_nomem();
if (!stralloc_0(&fnnew)) die_nomem();
/* ignore errors */
fd = open_trunc(fnnew.s);
if (fd != -1)
close(fd);
unlink(fnmsg.s);
_exit(0);
}
}
void sendnotice(const char *d)
/* sends file pointed to by d to the address in the return-path of the */
/* message. */
{
unsigned int x,y;
const char *err;
if (qmail_open(&qq, (stralloc *) 0) == -1)
strerr_die2sys(111,FATAL,MSG(ERR_QMAIL_QUEUE));
fd = open_read(d);
if (fd == -1)
strerr_die2sys(111,FATAL,MSG1(ERR_OPEN,d));
substdio_fdbuf(&sstext,read,fd,textbuf,sizeof(textbuf));
if (getln(&sstext,&line,&match,'\n') == -1) die_read();
if (!match) die_read();
if (!case_startb(line.s,line.len,"return-path:")) die_read();
x = 12 + byte_chr(line.s + 12,line.len-12,'<');
y = byte_rchr(line.s + x,line.len-x,'>');
if (x != line.len && x+y != line.len) {
if (!stralloc_copyb(&to,line.s+x+1, y-1)) die_nomem();
if (!stralloc_0(&to)) die_nomem();
} else
die_read();
hdr_add2s("Mailing-List: ",MSG(TXT_MAILING_LIST));
if (listid.len > 0)
hdr_add2("List-ID: ",listid.s,listid.len);
hdr_datemsgid(when+msgnum++);
hdr_from("-help");
hdr_subject(MSG(SUB_RETURNED_POST));
hdr_add2s("To: ",to.s);
if (flagmime) {
hdr_mime(CTYPE_MULTIPART);
hdr_boundary(0);
hdr_ctype(CTYPE_TEXT);
hdr_transferenc();
} else
qmail_puts(&qq,"\n\n");
copy(&qq,"text/top",flagcd);
copy(&qq,"text/mod-timeout",flagcd);
if (flagcd == 'B') {
encodeB("",0,&line,2);
qmail_put(&qq,line.s,line.len);
}
if (flagmime) {
hdr_boundary(0);
hdr_ctype(CTYPE_MESSAGE);
qmail_puts(&qq,"\n");
}
if (seek_begin(fd) == -1)
strerr_die2sys(111,FATAL,MSG1(ERR_SEEK,d));
substdio_fdbuf(&sstext,read,fd,textbuf,sizeof(textbuf));
if (qmail_copy(&qq,&sstext,-1) != 0) die_read();
close (fd);
if (flagmime)
hdr_boundary(1);
if (!stralloc_copy(&line,&outlocal)) die_nomem();
if (!stralloc_cats(&line,"-return-@")) die_nomem();
if (!stralloc_cat(&line,&outhost)) die_nomem();
if (!stralloc_0(&line)) die_nomem();
qmail_from(&qq,line.s); /* sender */
qmail_to(&qq,to.s);
if (*(err = qmail_close(&qq)) != '\0')
strerr_die4x(111,FATAL,MSG(ERR_TMP_QMAIL_QUEUE),": ", err + 1);
strnum[fmt_ulong(strnum,qmail_qp(&qq))] = 0;
strerr_warn2("ezmlm-clean: info: qp ",strnum,0);
}
void main(int argc,char **argv)
{
char *dir;
int fdlock;
char *sender;
int match;
int flaginheader;
int flagmodpost;
int flagremote;
const char *pmod;
const char *err;
int opt;
unsigned int i;
char szchar[2] = "-";
int child;
(void) umask(022);
sig_pipeignore();
if (!stralloc_copys(&sendopt,"-")) die_nomem();
while ((opt = getopt(argc,argv,"bBcCmMpPrRsSvVyY")) != opteof)
switch(opt) {
case 'b': flagbody = 1; break;
case 'B': flagbody = 0; break;
case 'm': flagmime = 1; break;
case 'M': flagmime = 0; break;
case 'p': flagpublic = 1; break; /* anyone can post (still moderated)*/
case 'P': flagpublic = 0; break; /* only moderators can post */
case 's': flagself = 1; break; /* modpost and DIR/mod diff fxns */
case 'S': flagself = 0; break; /* same fxn */
case 'y': flagconfirm = 1; break; /* force post confirmation */
case 'Y': flagconfirm = 0; break; /* disable post confirmation */
case 'c': /* ezmlm-send flags */
case 'C':
case 'r':
case 'R':
szchar[0] = (char) opt & 0xff;
if (!stralloc_append(&sendopt,szchar)) die_nomem();
break;
case 'v':
case 'V': strerr_die2x(0,"ezmlm-store version: ",auto_version);
default:
die_usage();
}
sender = env_get("SENDER");
if (sender) {
if (!*sender || str_equal(sender,"#@[]"))
strerr_die2x(100,FATAL,ERR_BOUNCE);
}
startup(dir = argv[optind]);
load_config(dir);
if (flagconfirm == -1)
flagconfirm = getconf_line(&confirmpost,"confirmpost",0,dir);
else
getconf_line(&confirmpost,"confirmpost",0,dir);
flagmodpost = getconf_line(&moderators,"modpost",0,dir);
flagremote = getconf_line(&line,"remote",0,dir);
if (!flagmodpost && !flagconfirm) { /* not msg-mod. Pipe to ezmlm-send */
if ((child = wrap_fork()) == 0)
wrap_execbin("/ezmlm-send", &sendopt, dir);
/* parent */
wrap_exitcode(child);
}
if (!moderators.len || !(moderators.s[0] == '/')) {
if (!stralloc_copys(&moderators,dir)) die_nomem();
if (!stralloc_cats(&moderators,"/mod")) die_nomem();
}
if (!stralloc_0(&moderators)) die_nomem();
if (sender) {
pmod = issub(moderators.s,0,sender);
closesub();
/* sender = moderator? */
} else
pmod = 0;
if (!pmod && !flagpublic)
strerr_die2x(100,FATAL,ERR_NO_POST);
fdlock = lockfile("mod/lock");
if (!stralloc_copys(&mydtline, flagconfirm
? "Delivered-To: confirm to "
: "Delivered-To: moderator for ")) die_nomem();
if (!stralloc_catb(&mydtline,outlocal.s,outlocal.len)) die_nomem();
if (!stralloc_append(&mydtline,"@")) die_nomem();
if (!stralloc_catb(&mydtline,outhost.s,outhost.len)) die_nomem();
if (!stralloc_cats(&mydtline,"\n")) die_nomem();
if (!stralloc_copys(&returnpath,"Return-Path: <")) die_nomem();
if (sender) {
if (!stralloc_cats(&returnpath,sender)) die_nomem();
for (i = 14; i < returnpath.len;++i)
if (returnpath.s[i] == '\n' || !returnpath.s[i] )
returnpath.s[i] = '_';
/* NUL and '\n' are bad, but we don't quote since this is */
/* only for ezmlm-moderate, NOT for SMTP */
}
if (!stralloc_cats(&returnpath,">\n")) die_nomem();
pid = getpid(); /* unique file name */
for (i = 0;;++i) /* got lock - nobody else can add files */
{
when = now(); /* when is also used later for date! */
if (!stralloc_copys(&fnmsg, flagconfirm?"mod/unconfirmed/":"mod/pending/")) die_nomem();
if (!stralloc_copyb(&fnbase,strnum,fmt_ulong(strnum,when))) die_nomem();
if (!stralloc_append(&fnbase,".")) die_nomem();
if (!stralloc_catb(&fnbase,strnum,fmt_ulong(strnum,pid))) die_nomem();
if (!stralloc_cat(&fnmsg,&fnbase)) die_nomem();
if (!stralloc_0(&fnmsg)) die_nomem();
if (stat(fnmsg.s,&st) == -1) if (errno == error_noent) break;
/* really should never get to this point */
if (i == 2)
strerr_die2x(111,FATAL,ERR_UNIQUE);
sleep(2);
}
if (!stralloc_copys(&action,"-")) die_nomem();
if (!stralloc_cats(&action,flagconfirm?ACTION_DISCARD:ACTION_REJECT)) die_nomem();
if (!stralloc_cat(&action,&fnbase)) die_nomem();
if (!stralloc_0(&action)) die_nomem();
makeacthash(&action);
if (!quote("ed,&outlocal)) die_nomem();
if (!stralloc_copy(&reject,"ed)) die_nomem();
if (!stralloc_cat(&reject,&action)) die_nomem();
if (!stralloc_0(&reject)) die_nomem();
if (!stralloc_copys(&action,"-")) die_nomem();
if (!stralloc_cats(&action,flagconfirm?ACTION_CONFIRM:ACTION_ACCEPT)) die_nomem();
if (!stralloc_cat(&action,&fnbase)) die_nomem();
if (!stralloc_0(&action)) die_nomem();
makeacthash(&action);
if (!stralloc_copy(&accept,"ed)) die_nomem();
if (!stralloc_cat(&accept,&action)) die_nomem();
if (!stralloc_0(&accept)) die_nomem();
set_cptarget(accept.s); /* for copy () */
set_cpconfirm(reject.s,quoted.len);
fdmsg = open_trunc(fnmsg.s);
if (fdmsg == -1)
strerr_die6sys(111,FATAL,ERR_WRITE,dir,"/",fnmsg.s,": ");
substdio_fdbuf(&ssmsg,write,fdmsg,msgbuf,sizeof(msgbuf));
if (qmail_open(&qq, (stralloc *) 0) == -1) /* Open mailer */
strerr_die2sys(111,FATAL,ERR_QMAIL_QUEUE);
hdr_add2("Mailing-List: ",mailinglist.s,mailinglist.len);
if (listid.len > 0)
hdr_add2("List-ID: ",listid.s,listid.len);
hdr_datemsgid(when);
if (flagconfirm)
hdr_from("-owner");
else
hdr_add2s("From: ",reject.s);
hdr_add2s("Reply-To: ",accept.s);
if (!flagconfirm && !pmod && flagremote) { /* if remote admin add -allow- address */
qmail_puts(&qq,"Cc: "); /* for ezmlm-gate users */
strnum[fmt_ulong(strnum,(unsigned long) when)] = 0;
cookie(hash,key.s,key.len-FLD_ALLOW,strnum,sender,"t");
if (!stralloc_copy(&line,&outlocal)) die_nomem();
if (!stralloc_cats(&line,"-allow-tc.")) die_nomem();
if (!stralloc_cats(&line,strnum)) die_nomem();
if (!stralloc_append(&line,".")) die_nomem();
if (!stralloc_catb(&line,hash,COOKIE)) die_nomem();
if (!stralloc_append(&line,"-")) die_nomem();
i = str_rchr(sender,'@');
if (!stralloc_catb(&line,sender,i)) die_nomem();
if (sender[i]) {
if (!stralloc_append(&line,"=")) die_nomem();
if (!stralloc_cats(&line,sender + i + 1)) die_nomem();
}
qmail_put(&qq,line.s,line.len);
qmail_puts(&qq,"@");
qmail_put(&qq,outhost.s,outhost.len);
qmail_puts(&qq,"\n");
}
qmail_puts(&qq,"To: <");
if (flagconfirm) {
if (sender)
qmail_puts(&qq, sender);
} else {
if (!quote("ed,&outlocal))
die_nomem();
qmail_put(&qq,quoted.s,quoted.len);
qmail_puts(&qq,"-moderators@");
qmail_put(&qq,outhost.s,outhost.len);
}
qmail_puts(&qq,">\n");
/* FIXME: Drop the custom subject hack and use hdr_listsubject1 */
if (!stralloc_copys(&subject,"Subject: ")) die_nomem();
if (flagconfirm) {
if (confirmpost.len) {
if (!stralloc_cat(&subject,&confirmpost)) die_nomem();
if (!stralloc_cats(&subject," ")) die_nomem();
} else {
if (!stralloc_cats(&subject,TXT_CONFIRM_POST)) die_nomem();
}
} else {
if (!stralloc_cats(&subject,TXT_MODERATE)) die_nomem();
}
if (!quote("ed,&outlocal)) die_nomem();
if (!stralloc_cat(&subject,"ed)) die_nomem();
if (!stralloc_append(&subject,"@")) die_nomem();
if (!stralloc_cat(&subject,&outhost)) die_nomem();
if (flagmime) {
hdr_mime(CTYPE_MULTIPART);
qmail_put(&qq,subject.s,subject.len);
hdr_boundary(0);
hdr_ctype(CTYPE_TEXT);
hdr_transferenc();
} else {
qmail_put(&qq,subject.s,subject.len);
qmail_puts(&qq,"\n\n");
}
copy(&qq,flagconfirm?"text/post-confirm":"text/mod-request",flagcd);
if (flagcd == 'B') {
encodeB("",0,&line,2);
qmail_put(&qq,line.s,line.len);
}
if (substdio_put(&ssmsg,returnpath.s,returnpath.len) == -1) die_msg();
if (substdio_put(&ssmsg,mydtline.s,mydtline.len) == -1) die_msg();
substdio_fdbuf(&ssin,read,0,inbuf,sizeof(inbuf));
if (flagmime) {
hdr_boundary(0);
hdr_ctype(CTYPE_MESSAGE);
qmail_puts(&qq, "\n");
}
qmail_put(&qq,returnpath.s,returnpath.len);
qmail_put(&qq,mydtline.s,mydtline.len);
flaginheader = 1;
for (;;) {
if (getln(&ssin,&line,&match,'\n') == -1)
strerr_die2sys(111,FATAL,ERR_READ_INPUT);
if (!match) break;
if (line.len == 1) flaginheader = 0;
if (flaginheader) {
if ((line.len == mydtline.len) &&
!byte_diff(line.s,line.len,mydtline.s)) {
close(fdmsg); /* be nice - clean up */
unlink(fnmsg.s);
strerr_die2x(100,FATAL,ERR_LOOPING);
}
if (case_startb(line.s,line.len,"mailing-list:")) {
close(fdmsg); /* be nice - clean up */
unlink(fnmsg.s);
strerr_die2x(100,FATAL,ERR_MAILING_LIST);
}
}
if (flagbody || flaginheader) /* skip body if !flagbody */
qmail_put(&qq,line.s,line.len);
if (substdio_put(&ssmsg,line.s,line.len) == -1) die_msg();
}
if (flagmime)
hdr_boundary(1);
/* close archive before qmail. Loss of qmail will result in re-run, and */
/* worst case this results in a duplicate msg sitting orphaned until it's */
/* cleaned out. */
if (substdio_flush(&ssmsg) == -1) die_msg();
if (fsync(fdmsg) == -1) die_msg();
if (fchmod(fdmsg,MODE_MOD_MSG | 0700) == -1) die_msg();
if (close(fdmsg) == -1) die_msg(); /* NFS stupidity */
close(fdlock);
if (flagconfirm) {
qmail_from(&qq,reject.s); /* envelope sender */
} else {
if (!stralloc_copy(&line,&outlocal)) die_nomem();
if (!stralloc_cats(&line,"-return-@")) die_nomem();
if (!stralloc_cat(&line,&outhost)) die_nomem();
if (!stralloc_0(&line)) die_nomem();
qmail_from(&qq,line.s); /* envelope sender */
}
if (flagconfirm) /* to sender */
qmail_to(&qq,sender);
else if (pmod) /* to moderator only */
qmail_to(&qq,pmod);
else {
if (flagself) { /* to all moderators */
if (!stralloc_copys(&moderators,dir)) die_nomem();
if (!stralloc_cats(&moderators,"/mod")) die_nomem();
if (!stralloc_0(&moderators)) die_nomem();
}
putsubs(moderators.s,0,0,52,subto,1);
}
if (*(err = qmail_close(&qq)) == '\0') {
strnum[fmt_ulong(strnum,qmail_qp(&qq))] = 0;
strerr_die2x(0,"ezmlm-store: info: qp ",strnum);
} else
strerr_die3x(111,FATAL,ERR_TMP_QMAIL_QUEUE,err+1);
}
