unsigned long dignum(void)
{
/* return dignum if exists, 0 otherwise. */
unsigned long u;
getconf_ulong(&u,"dignum",0);
return u;
}
static void fetch(struct option *o)
{
getconf_ulong(o->var.ulong,o->filename,0);
}
void main(int argc,char **argv)
{
DIR *bouncedir, *bsdir, *hdir;
direntry *d, *ds;
unsigned long bouncedate;
unsigned long bouncetimeout = BOUNCE_TIMEOUT;
unsigned long lockout = 0L;
unsigned long ld;
unsigned long ddir,dfile;
int fdlock,fd;
int opt;
char ch;
(void) umask(022);
sig_pipeignore();
when = (unsigned long) now();
while ((opt = getopt(argc,argv,"dDl:t:vV")) != opteof)
switch(opt) {
case 'd': flagdig = 1; break;
case 'D': flagdig = 0; break;
case 'l':
if (optarg) { /* lockout in seconds */
(void) scan_ulong(optarg,&lockout);
}
break;
case 't':
if (optarg) { /* bouncetimeout in days */
(void) scan_ulong(optarg,&bouncetimeout);
bouncetimeout *= 3600L * 24L;
}
break;
case 'v':
case 'V': strerr_die2x(0, "ezmlm-warn version: ",auto_version);
default:
die_usage();
}
startup(dir = argv[optind]);
load_config(dir);
getconf_ulong(©lines,"copylines",0,dir);
if (flagdig) {
if (!stralloc_copys(&digdir,dir)) die_nomem();
if (!stralloc_cats(&digdir,"/digest")) die_nomem();
if (!stralloc_0(&digdir)) die_nomem();
workdir = digdir.s;
} else
workdir = dir;
if (!stralloc_copys(&fnlastd,workdir)) die_nomem();
if (!stralloc_cats(&fnlastd,"/bounce/lastd")) die_nomem();
if (!stralloc_0(&fnlastd)) die_nomem();
if (slurp(fnlastd.s,&lastd,16) == -1) /* last time d was scanned */
strerr_die4sys(111,FATAL,ERR_READ,fnlastd.s,": ");
if (!stralloc_0(&lastd)) die_nomem();
(void) scan_ulong(lastd.s,&ld);
if (!lockout)
lockout = bouncetimeout / 50; /* 5.6 h for default timeout */
if (ld + lockout > when && ld < when)
_exit(0); /* exit silently. Second check is to prevent lockup */
/* if lastd gets corrupted */
if (!stralloc_copy(&fnlasth,&fnlastd)) die_nomem();
fnlasth.s[fnlasth.len - 2] = 'h'; /* bad, but feels good ... */
if (flagdig)
if (!stralloc_cats(&outlocal,"-digest")) die_nomem();
ddir = when / 10000;
dfile = when - 10000 * ddir;
if (!stralloc_copys(&line,workdir)) die_nomem();
if (!stralloc_cats(&line,"/lockbounce")) die_nomem();
if (!stralloc_0(&line)) die_nomem();
fdlock = lockfile(line.s);
if (!stralloc_copys(&line,workdir)) die_nomem();
if (!stralloc_cats(&line,"/bounce/d")) die_nomem();
if (!stralloc_0(&line)) die_nomem();
bouncedir = opendir(line.s);
if (!bouncedir) {
if (errno != error_noent)
strerr_die4sys(111,FATAL,ERR_OPEN,line.s,": ");
else
_exit(0); /* no bouncedir - no bounces! */
}
while ((d = readdir(bouncedir))) { /* dxxx/ */
if (str_equal(d->d_name,".")) continue;
if (str_equal(d->d_name,"..")) continue;
scan_ulong(d->d_name,&bouncedate);
/* since we do entire dir, we do files that are not old enough. */
/* to not do this and accept a delay of 10000s (2.8h) of the oldest */
/* bounce we add to bouncedate. We don't if bouncetimeout=0 so that */
/* that setting still processes _all_ bounces. */
if (bouncetimeout) ++bouncedate;
if (when >= bouncedate * 10000 + bouncetimeout) {
if (!stralloc_copys(&bdname,workdir)) die_nomem();
if (!stralloc_cats(&bdname,"/bounce/d/")) die_nomem();
if (!stralloc_cats(&bdname,d->d_name)) die_nomem();
if (!stralloc_0(&bdname)) die_nomem();
bsdir = opendir(bdname.s);
if (!bsdir) {
if (errno != error_notdir)
strerr_die4sys(111,FATAL,ERR_OPEN,bdname.s,":y ");
else { /* leftover nnnnn_dmmmmm file */
if (unlink(bdname.s) == -1)
strerr_die4sys(111,FATAL,ERR_DELETE,bdname.s,": ");
continue;
}
}
while ((ds = readdir(bsdir))) { /* dxxxx/yyyy */
if (str_equal(ds->d_name,".")) continue;
if (str_equal(ds->d_name,"..")) continue;
if (!stralloc_copy(&fn,&bdname)) die_nomem(); /* '\0' at end */
fn.s[fn.len - 1] = '/';
if (!stralloc_cats(&fn,ds->d_name)) die_nomem();
if (!stralloc_0(&fn)) die_nomem();
if ((ds->d_name[0] == 'd') || (ds->d_name[0] == 'w'))
doit(ds->d_name[0] == 'w');
else /* other stuff is junk */
if (unlink(fn.s) == -1)
strerr_die4sys(111,FATAL,ERR_DELETE,fn.s,": ");
}
closedir(bsdir);
if (rmdir(bdname.s) == -1) /* the directory itself */
if (errno != error_noent)
strerr_die4sys(111,FATAL,ERR_DELETE,bdname.s,": ");
}
}
closedir(bouncedir);
if (!stralloc_copy(&line,&fnlastd)) die_nomem();
line.s[line.len - 2] = 'D';
fd = open_trunc(line.s); /* write lastd. Do safe */
/* since we read before lock*/
if (fd == -1) strerr_die4sys(111,FATAL,ERR_OPEN,line.s,": ");
substdio_fdbuf(&ssout,write,fd,outbuf,sizeof(outbuf));
if (substdio_put(&ssout,strnum,fmt_ulong(strnum,when)) == -1)
strerr_die4sys(111,FATAL,ERR_WRITE,line.s,": ");
if (substdio_put(&ssout,"\n",1) == -1) /* prettier */
strerr_die4sys(111,FATAL,ERR_WRITE,line.s,": ");
if (substdio_flush(&ssout) == -1)
strerr_die4sys(111,FATAL,ERR_FLUSH,line.s,": ");
if (fsync(fd) == -1)
strerr_die4sys(111,FATAL,ERR_SYNC,line.s,": ");
if (close(fd) == -1)
strerr_die4sys(111,FATAL,ERR_CLOSE,line.s,": ");
if (rename(line.s,fnlastd.s) == -1)
strerr_die4sys(111,FATAL,ERR_MOVE,fnlastd.s,": ");
/* no need to do h dir cleaning more than */
/* once per 1-2 days (17-30 days for all) */
if (stat(fnlasth.s,&st) == -1) {
if (errno != error_noent)
strerr_die4sys(111,FATAL,ERR_STAT,fnlasth.s,": ");
} else if (when < (unsigned long)st.st_mtime + 100000
&& when > (unsigned long)st.st_mtime)
_exit(0); /* 2nd comp to guard against corruption */
if (slurp(fnlasth.s,&lasth,16) == -1) /* last h cleaned */
strerr_die4sys(111,FATAL,ERR_READ,fnlasth.s,": ");
if (!stralloc_0(&lasth)) die_nomem();
ch = lasth.s[0]; /* clean h */
if (ch >= 'a' && ch <= 'o')
++ch;
else
ch = 'a';
lasth.s[0] = ch;
if (!stralloc_copys(&line,workdir)) die_nomem();
if (!stralloc_cats(&line,"/bounce/h/")) die_nomem();
if (!stralloc_catb(&line,lasth.s,1)) die_nomem();
if (!stralloc_0(&line)) die_nomem();
hdir = opendir(line.s); /* clean ./h/xxxxxx */
if (!hdir) {
if (errno != error_noent)
strerr_die4sys(111,FATAL,ERR_OPEN,line.s,": ");
} else {
while ((d = readdir(hdir))) {
if (str_equal(d->d_name,".")) continue;
if (str_equal(d->d_name,"..")) continue;
if (!stralloc_copys(&fn,line.s)) die_nomem();
if (!stralloc_append(&fn,"/")) die_nomem();
if (!stralloc_cats(&fn,d->d_name)) die_nomem();
if (!stralloc_0(&fn)) die_nomem();
if (stat(fn.s,&st) == -1) {
if (errno == error_noent) continue;
strerr_die4sys(111,FATAL,ERR_STAT,fn.s,": ");
}
if (when > st.st_mtime + 3 * bouncetimeout)
if (unlink(fn.s) == -1)
strerr_die4sys(111,FATAL,ERR_DELETE,fn.s,": ");
}
closedir(hdir);
}
fd = open_trunc(fnlasth.s); /* write lasth */
if (fd == -1) strerr_die4sys(111,FATAL,ERR_OPEN,fnlasth.s,": ");
substdio_fdbuf(&ssout,write,fd,outbuf,sizeof(outbuf));
if (substdio_put(&ssout,lasth.s,1) == -1)
strerr_die4sys(111,FATAL,ERR_OPEN,fnlasth.s,": ");
if (substdio_put(&ssout,"\n",1) == -1) /* prettier */
strerr_die4sys(111,FATAL,ERR_OPEN,fnlasth.s,": ");
if (substdio_flush(&ssout) == -1)
strerr_die4sys(111,FATAL,ERR_OPEN,fnlasth.s,": ");
(void) close(fd); /* no big loss. No reason to flush/sync */
/* See check of ld above to guard against */
/* it being corrupted and > when */
closesub();
_exit(0);
}
int main(int argc,char **argv)
{
unsigned long max;
int fd;
int fdlock;
msgentry *msgtable;
subentry *subtable;
authentry *authtable;
dateentry *datetable;
(void) umask(022);
sig_pipeignore();
getconfopt(argc,argv,options,1,0);
if (flagsyncall)
flagsync = 1;
else if (flagcreate)
flagsync = 0;
archnum = (archnum / 100) * 100;
/* Lock list to assure that no ezmlm-send is working on it */
/* and that the "num" message is final */
fdlock = lockfile("lock");
/* get num */
if (!getconf_ulong(&max,"num",0)
|| max == 0)
strerr_die1x(100,MSG(ERR_EMPTY_LIST));
(void) close(fdlock);
if (!optto || optto > max) optto = max;
fdlock = lockfile("archive/lock"); /* lock index */
if (!flagcreate && !archnum) { /* adjust archnum (from) / to */
if (getconf_ulong(&archnum,"archnum",0))
++archnum;
else
archnum = 0;
}
if (archnum > optto)
_exit(0); /* nothing to do */
if (mkdir("archive/threads",0755) == -1)
if (errno != error_exist)
strerr_die2sys(111,FATAL,MSG1(ERR_CREATE,"archive/threads"));
if (mkdir("archive/subjects",0755) == -1)
if (errno != error_exist)
strerr_die2sys(111,FATAL,MSG1(ERR_CREATE,"archive/subjects"));
if (mkdir("archive/authors",0755) == -1)
if (errno != error_exist)
strerr_die2sys(111,FATAL,MSG1(ERR_CREATE,"archive/authors"));
/* do the subject threading */
idx_mkthreads(&msgtable,&subtable,&authtable,&datetable,archnum,optto,max,0);
/* update the index */
write_threads(msgtable,subtable,authtable,datetable,archnum,optto);
/* update archnum */
if ((fd = open_trunc("archnumn")) == -1)
strerr_die2sys(111,FATAL,MSG1(ERR_CREATE,"archnumn"));
substdio_fdbuf(&ssnum,write,fd,numbuf,sizeof(numbuf));
if (substdio_put(&ssnum,strnum,fmt_ulong(strnum,optto)) == -1)
strerr_die2sys(111,FATAL,MSG1(ERR_WRITE,fnn.s));
if (substdio_puts(&ssnum,"\n") == -1)
strerr_die2sys(111,FATAL,MSG1(ERR_WRITE,fnn.s));
close_proper(&ssnum,"archnum","archnumn");
switch (flagerror) {
case 0:
_exit(0); /* go bye-bye */
case -1:
strerr_die2x(99,WARNING,"threads entry with illegal format");
case -2:
strerr_die2x(99,WARNING,"thread in index, but threadfile missing");
case -3:
strerr_die2x(99,WARNING,"a subject file lacks subject");
case -4:
strerr_die2x(99,WARNING,"an author file lacks author/hash");
case -5:
strerr_die2x(99,WARNING,"threads entry lacks message count");
default:
strerr_die2x(99,WARNING,"something happened that isn't quite right");
}
}
