void write_ulong(unsigned long num,unsigned long cum,unsigned long dat,
const char *fn,const char *fnn)
/* write num to "fnn" add ':' & cum if cum <>0, then move "fnn" to "fn" */
{
int fd;
fd = open_trunc(fnn);
if (fd == -1)
strerr_die2sys(111,FATAL,MSG1(ERR_CREATE,fnn));
substdio_fdbuf(&ssnum,write,fd,numbuf,sizeof(numbuf));
if (substdio_put(&ssnum,strnum,fmt_ulong(strnum,num)) == -1)
strerr_die2sys(111,FATAL,MSG1(ERR_WRITE,fnn));
if (substdio_puts(&ssnum,":") == -1)
strerr_die2sys(111,FATAL,MSG1(ERR_WRITE,fnn));
if (substdio_put(&ssnum,strnum,fmt_ulong(strnum,cum)) == -1)
strerr_die2sys(111,FATAL,MSG1(ERR_WRITE,fnn));
if (dat) {
if (substdio_puts(&ssnum,":") == -1)
strerr_die2sys(111,FATAL,MSG1(ERR_WRITE,fnn));
if (substdio_put(&ssnum,strnum,fmt_ulong(strnum,dat)) == -1)
strerr_die2sys(111,FATAL,MSG1(ERR_WRITE,fnn));
}
if (substdio_puts(&ssnum,"\n") == -1)
strerr_die2sys(111,FATAL,MSG1(ERR_WRITE,fnn));
if (substdio_flush(&ssnum) == -1)
strerr_die2sys(111,FATAL,MSG1(ERR_FLUSH,fnn));
if (fsync(fd) == -1)
strerr_die2sys(111,FATAL,MSG1(ERR_SYNC,fnn));
if (close(fd) == -1)
strerr_die2sys(111,FATAL,MSG1(ERR_CLOSE,fnn));
wrap_rename(fnn,fn);
}
void close_proper(substdio *ss,const char *s,const char *sn)
/* flush,sync,close,move sn->s) */
{
if (substdio_flush(ss) == -1)
strerr_die2sys(111,FATAL,MSG1(ERR_FLUSH,s));
if (flagsync)
if (fsync(ss->fd) == -1)
strerr_die2sys(111,FATAL,MSG1(ERR_SYNC,s));
if (close(ss->fd) == -1)
strerr_die2sys(111,FATAL,MSG1(ERR_CLOSE,s));
wrap_rename(sn,s);
}
void store_from(stralloc *frl, /* from line */
const char *adr)
/* rewrites the from file removing all that is older than 1000000 secs */
/* and add the curent from line (frl). Forget it if there is none there.*/
/* NOTE: This is used only for subscribes to moderated lists! */
{
int fdin;
int fdout;
unsigned long linetime;
if (!flagstorefrom || !frl->len) return; /* nothing to store */
lock();
if ((fdout = open_trunc("fromn")) == -1)
strerr_die2sys(111,FATAL,MSG1(ERR_OPEN,"fromn"));
substdio_fdbuf(&ssfrom,write,fdout,frombuf,(int) sizeof(frombuf));
if ((fdin = open_read("from")) == -1) {
if (errno != error_noent)
strerr_die2sys(111,FATAL,MSG1(ERR_OPEN,"from"));
} else {
substdio_fdbuf(&sstext,read,fdin,textbuf,(int) sizeof(textbuf));
for (;;) {
if (getln(&sstext,&line,&match,'\n') == -1)
strerr_die2sys(111,FATAL,MSG1(ERR_READ,"from"));
if (!match) break;
(void) scan_ulong(line.s,&linetime);
if (linetime + 1000000 > (unsigned long) when
&& linetime <= (unsigned long) when)
if (substdio_bput(&ssfrom,line.s,line.len))
strerr_die2sys(111,FATAL,MSG1(ERR_WRITE,"fromn"));
}
close(fdin);
} /* build new entry */
stralloc_copyb(&line,strnum,fmt_ulong(strnum,when));
stralloc_append(&line,' ');
stralloc_cats(&line,adr);
stralloc_0(&line);
stralloc_catb(&line,frl->s,frl->len);
stralloc_append(&line,'\n');
if (substdio_bput(&ssfrom,line.s,line.len) == -1)
strerr_die2sys(111,FATAL,MSG1(ERR_WRITE,"fromn"));
if (substdio_flush(&ssfrom) == -1)
strerr_die2sys(111,FATAL,MSG1(ERR_WRITE,"fromn"));
if (fsync(fdout) == -1)
strerr_die2sys(111,FATAL,MSG1(ERR_SYNC,"fromn"));
if (close(fdout) == -1)
strerr_die2sys(111,FATAL,MSG1(ERR_CLOSE,"fromn"));
wrap_rename("fromn","from");
unlock();
}
void numwrite(void)
{
int fd;
int i;
i = fmt_ulong(strnum,msgnum);
strnum[i++] = ':';
i += fmt_ulong(strnum+i,cumsize);
strnum[i++] = '\n';
if ((fd = open_trunc("numnew")) == -1
|| write(fd, strnum, i) != i
|| fsync(fd) == -1
|| close(fd) == -1)
strerr_die2sys(111,FATAL,MSG1(ERR_CREATE,"numnew"));
wrap_rename("numnew","num");
}
static void do_ed(char *action)
{
datetime_sec u;
int flaggoodfield;
int fd;
char *x, *y;
char *cp,*cplast,*cpnext,*cpafter;
int flagdone;
unsigned int len;
const char *fname;
unsigned int i;
x = action + LENGTH_ED;
x += scan_ulong(x,&u);
if ((u > when) || (u < when - 100000)) die_cookie();
if (*x == '.') ++x;
fname = x;
x += str_chr(x,'.');
if (!*x) die_cookie();
*x = (char) 0;
++x;
stralloc_copys(&fnedit,"text/");
stralloc_cats(&fnedit,fname);
stralloc_0(&fnedit);
y = fnedit.s + 5; /* after "text/" */
while (*++y) { /* Name should be guaranteed by the cookie, */
/* but better safe than sorry ... */
if (((*y > 'z') || (*y < 'a')) && (*y != '_'))
strerr_die2x(100,FATAL,MSG(ERR_BAD_NAME));
if (*y == '_') *y = '-';
}
lock(); /* file must not change while here */
switch (slurp(fnedit.s,&text,1024)) {
case -1:
strerr_die2sys(111,FATAL,MSG1(ERR_READ,fnedit.s));
case 0:
strerr_die5x(100,FATAL,dir,"/",fnedit.s,MSG(ERR_NOEXIST));
}
stralloc_copy(&line,&text);
subst_nuls(&line);
stralloc_cat(&line,&fnedit); /* including '\0' */
strnum[fmt_ulong(strnum,(unsigned long) u)] = 0;
cookie(hash,key.s,key.len,strnum,line.s,"-e");
if (str_len(x) != COOKIE) die_cookie();
if (byte_diff(hash,COOKIE,x)) die_cookie();
/* cookie is ok, file exists, lock's on, new file ends in '_' */
stralloc_copys(&fneditn,fnedit.s);
stralloc_append(&fneditn,'_');
stralloc_0(&fneditn);
fd = open_trunc(fneditn.s);
if (fd == -1)
strerr_die2sys(111,FATAL,MSG1(ERR_WRITE,fneditn.s));
substdio_fdbuf(&sstext,write,fd,textbuf,sizeof(textbuf));
stralloc_copys("ed,""); /* clear */
stralloc_copys(&text,"");
for (;;) { /* get message body */
if (getln(&ssin,&line,&match,'\n') == -1)
strerr_die2sys(111,FATAL,MSG(ERR_READ_INPUT));
if (!match) break;
stralloc_cat(&text,&line);
}
if (encin) { /* decode if necessary */
if (encin == 'B')
decodeB(text.s,text.len,&line);
else
decodeQ(text.s,text.len,&line);
stralloc_copy(&text,&line);
}
cp = text.s;
cpafter = text.s+text.len;
flaggoodfield = 0;
flagdone = 0;
len = 0;
while ((cpnext = cp + byte_chr(cp,cpafter-cp,'\n')) != cpafter) {
i = byte_chr(cp,cpnext-cp,'%');
if (i != (unsigned int) (cpnext - cp)) {
if (!flaggoodfield) { /* MSG(TXT_EDIT_START)/END */
if (case_startb(cp+i,cpnext-cp-i,MSG(TXT_EDIT_START))) {
/* start tag. Store users 'quote characters', e.g. '> ' */
stralloc_copyb("ed,cp,i);
flaggoodfield = 1;
cp = cpnext + 1;
continue;
}
} else
if (case_startb(cp+i,cpnext-cp-i,MSG(TXT_EDIT_END))) {
flagdone = 1;
break;
}
}
if (flaggoodfield) {
if ((len += cpnext - cp - quoted.len + 1) > MAXEDIT)
strerr_die1x(100,MSG(ERR_EDSIZE));
if (quoted.len && cpnext-cp >= (int) quoted.len &&
!str_diffn(cp,quoted.s,quoted.len))
cp += quoted.len; /* skip quoting characters */
cplast = cpnext - 1;
if (*cplast == '\r') /* CRLF -> '\n' for base64 encoding */
*cplast = '\n';
else
++cplast;
if (substdio_put(&sstext,cp,cplast-cp+1) == -1)
strerr_die2sys(111,FATAL,MSG1(ERR_WRITE,fneditn.s));
}
cp = cpnext + 1;
}
if (!flagdone)
strerr_die2x(100,FATAL,MSG(ERR_NO_MARK));
if (substdio_flush(&sstext) == -1)
strerr_die2sys(111,FATAL,MSG1(ERR_WRITE,fneditn.s));
if (fsync(fd) == -1)
strerr_die2sys(111,FATAL,MSG1(ERR_SYNC,fneditn.s));
if (fchmod(fd, 0600) == -1)
strerr_die2sys(111,FATAL,MSG1(ERR_CHMOD,fneditn.s));
if (close(fd) == -1)
strerr_die2sys(111,FATAL,MSG1(ERR_CLOSE,fneditn.s));
wrap_rename(fneditn.s,fnedit.s);
unlock();
hdr_subject(MSG1(SUB_EDIT_SUCCESS,fname));
hdr_ctboundary();
copy(&qq,"text/top",flagcd);
copy_act("text/edit-done");
copybottom(0);
qmail_to(&qq,sender); /* not necessarily from mod */
}
int main(int argc,char **argv)
{
int child;
const char *sendargs[4];
stralloc addr = {0};
unsigned int pos = 0,pos2,poslocal,len;
const char *cp;
unsigned long hh = 4L; /* default time 04:12 */
unsigned long mm = 12L;
const char *dow = "*"; /* day of week */
const char *qmail_inject = "/bin/qmail-inject ";
char strnum[FMT_ULONG];
unsigned long uid,euid = 0;
stralloc rp = {0};
stralloc user = {0};
stralloc euser = {0};
stralloc dir = {0};
stralloc listaddr = {0};
stralloc line = {0};
struct passwd *ppasswd;
int match;
int hostmatch;
int localmatch;
unsigned long dh,t;
int founduser = 0;
int listmatch = 0;
int flagdigit = 0;
int flagours;
int foundlocal = 0;
int foundmatch = 0;
unsigned int nolists = 0;
unsigned long maxlists;
unsigned int lenhost,lenlocal;
int fdin,fdout = -1;
char *local = (char *) 0; /* list = local@host */
const char *host = (char *) 0;
char *code = (char *) 0; /* digest code */
char inbuf[512];
substdio ssin;
char outbuf[512];
substdio ssout;
(void) umask(077);
sig_pipeignore();
optind = getconfopt(argc,argv,options,0,0);
if (flagt != 0) {
pos = scan_ulong(flagt,&hh);
if (flagt[pos++] != ':') die_usage();
(void) scan_ulong(flagt + pos,&mm);
}
if (flagw != 0) {
dow = flagw;
cp = flagw - 1;
while (*(++cp)) {
if (*cp >= '0' && *cp <= '7') {
if (flagdigit) die_dow();
flagdigit = 1;
} else if (*cp == ',') {
if (!flagdigit) die_dow();
flagdigit = 0;
} else
die_dow();
}
}
if (flaglist + flagdelete + flagconfig > 1)
strerr_die2x(100,FATAL,MSG(ERR_EXCLUSIVE));
uid = getuid();
if (uid && !(euid = geteuid()))
strerr_die2x(100,FATAL,MSG(ERR_SUID));
if (!(ppasswd = getpwuid(uid)))
strerr_die2x(100,FATAL,MSG(ERR_UID));
if (!stralloc_copys(&user,ppasswd->pw_name)) die_nomem();
if (!stralloc_0(&user)) die_nomem();
if (!(ppasswd = getpwuid(euid)))
strerr_die2x(100,FATAL,MSG(ERR_EUID));
if (!stralloc_copys(&dir,ppasswd->pw_dir)) die_nomem();
if (!stralloc_0(&dir)) die_nomem();
if (!stralloc_copys(&euser,ppasswd->pw_name)) die_nomem();
if (!stralloc_0(&euser)) die_nomem();
wrap_chdir(dir.s);
local = argv[optind++]; /* list address, optional for -c & -l */
if (!local) {
if (!flagconfig && !flaglist)
die_usage();
lenlocal = 0;
lenhost = 0;
} else {
if (!stralloc_copys(&listaddr,local)) die_nomem();
if (!isclean(local,1))
die_argument();
pos = str_chr(local,'@');
lenlocal = pos;
local[pos] = '\0';
host = local + pos + 1;
lenhost = str_len(host);
code = argv[optind];
if (!code) { /* ignored for -l, -c, and -d */
if (flagdelete || flaglist || flagconfig)
/* get away with not putting code for delete */
code = (char*)"a"; /* a hack - so what! */
else
die_usage();
} else
if (!isclean(code,0))
die_argument();
}
if ((fdin = open_read(TXT_EZCRONRC)) == -1)
strerr_die2sys(111,FATAL,MSG1(ERR_OPEN,TXT_EZCRONRC));
/* first line is special */
substdio_fdbuf(&ssin,read,fdin,inbuf,sizeof(inbuf));
if (getln(&ssin,&line,&match,'\n') == -1)
strerr_die2sys(111,FATAL,MSG1(ERR_READ,TXT_EZCRONRC));
if (!match)
strerr_die2sys(111,FATAL,MSG1(ERR_READ,TXT_EZCRONRC));
/* (since we have match line.len has to be >= 1) */
line.s[line.len - 1] = '\0';
if (!isclean(line.s,0)) /* host for bounces */
strerr_die2x(100,FATAL,MSG1(ERR_CFHOST,TXT_EZCRONRC));
if (!stralloc_copys(&rp,line.s)) die_nomem();
match = 1;
for(;;) {
if (!match) break; /* to allow last line without '\n' */
if (getln(&ssin,&line,&match,'\n') == -1)
strerr_die2sys(111,FATAL,MSG1(ERR_READ,TXT_EZCRONRC));
if (!line.len)
break;
line.s[line.len-1] = '\0';
if (!case_startb(line.s,line.len,user.s))
continue;
pos = user.len - 1;
if (pos >= line.len || line.s[pos] != ':')
continue;
founduser = 1; /* got user line */
break;
}
close(fdin);
if (!founduser)
strerr_die2x(100,FATAL,MSG(ERR_BADUSER));
if (flagconfig) {
line.s[line.len-1] = '\n'; /* not very elegant ;-) */
substdio_fdbuf(&ssout,write,1,outbuf,sizeof(outbuf));
if (substdio_put(&ssout,line.s,line.len) == -1)
strerr_die2sys(111,FATAL,MSG(ERR_WRITE_STDOUT));
if (substdio_flush(&ssout) == -1)
strerr_die2sys(111,FATAL,MSG(ERR_WRITE_STDOUT));
_exit(0);
}
++pos; /* points to first ':' */
len = str_chr(line.s+pos,':'); /* second ':' */
if (!line.s[pos + len])
die_syntax(&line);
if (!local) { /* only -d and std left */
localmatch = 1;
hostmatch = 1;
} else {
hostmatch = 0;
if (len <= str_len(local))
if (!str_diffn(line.s+pos,local,len))
localmatch = 1;
}
pos += len + 1;
len = str_chr(line.s + pos,':'); /* third */
if (!line.s[pos + len])
die_syntax(&line);
if (local) { /* check host */
if (len == 0) /* empty host => any host */
hostmatch = 1;
else
if (len == str_len(host))
if (!case_diffb(line.s+pos,len,host))
hostmatch = 1;
}
pos += len + 1;
pos += scan_ulong(line.s+pos,&maxlists);
if (line.s[pos]) { /* check additional lists */
if (line.s[pos] != ':')
die_syntax(&line);
if (line.s[pos+1+str_chr(line.s+pos+1,':')])
die_syntax(&line); /* reminder lists are not separated by ':' */
/* otherwise a ':' or arg miscount will die */
/* silently */
if (local) {
while (++pos < line.len) {
len = str_chr(line.s + pos,'@');
if (len == lenlocal && !str_diffn(line.s + pos,local,len)) {
pos += len;
if (!line.s[pos]) break;
pos++;
len = str_chr(line.s+pos,',');
if (len == lenhost && !case_diffb(line.s+pos,len,host)) {
listmatch = 1;
break;
}
}
pos += len;
}
}
}
if (!listmatch) {
if (!hostmatch)
strerr_die2x(100,FATAL,MSG(ERR_BADHOST));
if (!localmatch)
strerr_die2x(100,FATAL,MSG(ERR_BADLOCAL));
}
/* assemble correct line */
if (!flaglist) {
if (!stralloc_copyb(&addr,strnum,fmt_ulong(strnum,mm))) die_nomem();
if (!stralloc_cats(&addr," ")) die_nomem();
dh = 0L;
if (deltah <= 3L) dh = deltah;
else if (deltah <= 6L) dh = 6L;
else if (deltah <= 12L) dh = 12L;
else if (deltah <= 24L) dh = 24L;
else if (deltah <= 48L) {
if (dow[0] == '*') dow = "1,3,5";
} else if (deltah <= 72L) {
if (dow[0] == '*') dow = "1,4";
} else
if (dow[0] == '*') dow = "1";
if (!dh) {
if (!stralloc_cats(&addr,"*")) die_nomem();
} else {
if (!stralloc_catb(&addr,strnum,fmt_ulong(strnum,hh))) die_nomem();
for (t = hh + dh; t < hh + 24L; t+=dh) {
if (!stralloc_cats(&addr,",")) die_nomem();
if (!stralloc_catb(&addr,strnum,fmt_ulong(strnum,t % 24L))) die_nomem();
}
}
if (!stralloc_cats(&addr," * * ")) die_nomem();
if (!stralloc_cats(&addr,dow)) die_nomem();
if (!stralloc_cats(&addr," ")) die_nomem();
if (!stralloc_cats(&addr,auto_qmail)) die_nomem();
if (!stralloc_cats(&addr,qmail_inject)) die_nomem();
if (!stralloc_cats(&addr,local)) die_nomem();
if (!stralloc_cats(&addr,"-dig-")) die_nomem();
if (!stralloc_cats(&addr,code)) die_nomem();
if (!stralloc_cats(&addr,"@")) die_nomem();
if (!stralloc_cats(&addr,host)) die_nomem();
/* feed 'Return-Path: <user@host>' to qmail-inject */
if (!stralloc_cats(&addr,"%Return-path: <")) die_nomem();
if (!stralloc_cats(&addr,user.s)) die_nomem();
if (!stralloc_cats(&addr,"@")) die_nomem();
if (!stralloc_cat(&addr,&rp)) die_nomem();
if (!stralloc_cats(&addr,">\n")) die_nomem();
}
if (!stralloc_0(&addr)) die_nomem();
if (!flaglist) {
/* now to rewrite crontab we need to lock */
lockfile("crontabl");
} /* if !flaglist */
if ((fdin = open_read("crontab")) == -1) {
if (errno != error_noent)
strerr_die2sys(111,FATAL,MSG1(ERR_READ,"crontab"));
} else
substdio_fdbuf(&ssin,read,fdin,inbuf,sizeof(inbuf));
if (flaglist)
substdio_fdbuf(&ssout,write,1,outbuf,sizeof(outbuf));
else {
if ((fdout = open_trunc("crontabn")) == -1)
strerr_die2sys(111,FATAL,MSG1(ERR_WRITE,"crontabn"));
substdio_fdbuf(&ssout,write,fdout,outbuf,sizeof(outbuf));
}
line.len = 0;
if (fdin != -1) {
for (;;) {
if (!flaglist && line.len) {
line.s[line.len-1] = '\n';
if (substdio_put(&ssout,line.s,line.len) == -1)
strerr_die2sys(111,FATAL,MSG1(ERR_WRITE,"crontabn"));
}
if (getln(&ssin,&line,&match,'\n') == -1)
strerr_die2sys(111,FATAL,MSG1(ERR_READ,"crontab"));
if (!match)
break;
flagours = 0; /* assume entry is not ours */
foundlocal = 0;
line.s[line.len - 1] = '\0'; /* match so at least 1 char */
pos = 0;
while (line.s[pos] == ' ' || line.s[pos] == '\t') ++pos;
if (line.s[pos] == '#')
continue; /* cron comment */
pos = str_chr(line.s,'/');
if (!str_start(line.s+pos,auto_qmail)) continue;
pos += str_len(auto_qmail);
if (!str_start(line.s+pos,qmail_inject)) continue;
pos += str_len(qmail_inject);
poslocal = pos;
pos = byte_rchr(line.s,line.len,'<'); /* should be Return-Path: < */
if (pos == line.len)
continue; /* not ezmlm-cron line */
pos++;
len = str_chr(line.s+pos,'@');
if (len == user.len - 1 && !str_diffn(line.s+pos,user.s,len)) {
flagours = 1;
++nolists; /* belongs to this user */
}
if (!local) {
foundlocal = 1;
} else {
pos = poslocal + str_chr(line.s+poslocal,'@');
if (pos + lenhost +1 >= line.len) continue;
if (case_diffb(line.s+pos+1,lenhost,host)) continue;
if (line.s[pos+lenhost+1] != '%') continue;
/* check local */
if (poslocal + lenlocal + 5 >= line.len) continue;
if (!str_start(line.s+poslocal,local)) continue;
pos2 = poslocal+lenlocal;
if (!str_start(line.s+pos2,"-dig-")) continue;
foundlocal = 1;
}
if (foundlocal) {
foundmatch = 1;
if (flaglist && (local || flagours)) {
if (substdio_put(&ssout,line.s,line.len) == -1)
strerr_die2sys(111,FATAL,MSG(ERR_WRITE_STDOUT));
if (substdio_put(&ssout,"\n",1) == -1)
strerr_die2sys(111,FATAL,MSG(ERR_WRITE_STDOUT));
}
line.len = 0; /* same - kill line */
if (flagours)
--nolists;
}
}
close(fdin);
}
if (flaglist) {
if (substdio_flush(&ssout) == -1)
strerr_die2sys(111,FATAL,MSG1(ERR_FLUSH,"stdout"));
if (foundmatch) /* means we had a match */
_exit(0);
else
strerr_die2x(100,FATAL,MSG(ERR_NO_MATCH));
}
/* only -d and regular use left */
if (nolists >= maxlists && !flagdelete)
strerr_die2x(100,FATAL,MSG(ERR_LISTNO));
if (!flagdelete)
if (substdio_put(&ssout,addr.s,addr.len-1) == -1)
strerr_die2sys(111,FATAL,MSG1(ERR_WRITE,"crontabn"));
if (flagdelete && !foundlocal)
strerr_die2x(111,FATAL,MSG(ERR_NO_MATCH));
if (substdio_flush(&ssout) == -1)
strerr_die2sys(111,FATAL,MSG1(ERR_FLUSH,"crontabn"));
if (fsync(fdout) == -1)
strerr_die2sys(111,FATAL,MSG1(ERR_SYNC,"crontabn++"));
if (close(fdout) == -1)
strerr_die2sys(111,FATAL,MSG1(ERR_CLOSE,"crontabn"));
wrap_rename("crontabn","crontab");
sendargs[0] = "sh";
sendargs[1] = "-c";
if (!stralloc_copys(&line,auto_cron)) die_nomem();
if (!stralloc_cats(&line,"/crontab '")) die_nomem();
if (!stralloc_cats(&line,dir.s)) die_nomem();
if (!stralloc_cats(&line,"/crontab'")) die_nomem();
if (!stralloc_0(&line)) die_nomem();
sendargs[2] = line.s;
sendargs[3] = 0;
if ((child = wrap_fork()) == 0) {
if (setreuid(euid,euid) == -1)
strerr_die2sys(100,FATAL,MSG(ERR_SETUID));
wrap_execvp(sendargs);
}
/* parent */
switch (wrap_waitpid(child)) {
case 0:
_exit(0);
default:
strerr_die2x(111,FATAL,MSG(ERR_CRONTAB));
}
}