static int list_newshared_cb(struct maildir_newshared_enum_cb *cb)
{
const char *name=cb->name;
const char *homedir=cb->homedir;
const char *maildir=cb->maildir;
struct list_newshared_info *lni=
(struct list_newshared_info *)cb->cb_arg;
char *n=maildir_info_imapmunge(name);
int rc;
if (!n)
write_error_exit(0);
if (homedir == NULL)
{
struct list_newshared_info new_lni= *lni;
char *new_pfix=malloc(strlen(lni->acc_pfix)+
strlen(n)+2);
if (!new_pfix)
write_error_exit(0);
strcat(strcpy(new_pfix, lni->acc_pfix), n);
free(n);
n=new_pfix;
new_lni.acc_pfix=n;
add_hier(lni->shared_info->hierarchies, n);
hier_entry(n, lni->shared_info->hierarchies);
strcat(n, hierchs);
rc=lni->dorecurse ?
maildir_newshared_enum(maildir, list_newshared_cb,
&new_lni):0;
}
else
{
char *new_pfix;
struct stat stat_buf;
new_pfix=maildir_location(homedir, maildir);
if (stat(new_pfix, &stat_buf) < 0 ||
/* maildir inaccessible, perhaps another server? */
(stat_buf.st_dev == homedir_dev &&
stat_buf.st_ino == homedir_ino))
/* Exclude ourselves from the shared list */
{
free(new_pfix);
free(n);
return 0;
}
free(new_pfix);
new_pfix=malloc(strlen(lni->acc_pfix)+
strlen(n)+1);
if (!new_pfix)
write_error_exit(0);
strcat(strcpy(new_pfix, lni->acc_pfix), n);
free(n);
n=new_pfix;
new_pfix=malloc(strlen(homedir)+strlen(maildir)+2);
if (!new_pfix)
write_error_exit(0);
if (*maildir == '/')
strcpy(new_pfix, maildir);
else
strcat(strcat(strcpy(new_pfix, homedir), "/"),
maildir);
/* if (lni->dorecurse) */
maildir_scan(new_pfix, n, lni->shared_info);
#if 0
else
{
folder_entry(n, lni->shared_info->pattern,
lni->shared_info->flags,
lni->shared_info->folders,
lni->shared_info->hierarchies);
}
#endif
free(new_pfix);
rc=0;
}
int main()
{
buffer bin;
buffer bout;
struct prioq_elt pe;
int fdoldmbox;
int fdnewmbox;
int fd;
int match;
int fdlock;
umask(077);
mbox = env_get("MAIL");
if (!mbox) strerr_die2x(111,FATL,"MAIL not set");
mboxtmp = env_get("MAILTMP");
if (!mboxtmp) strerr_die2x(111,FATL,"MAILTMP not set");
if (maildir_chdir() == -1)
strerr_die1(111,FATAL,&maildir_chdir_err);
maildir_clean(&filenames);
if (maildir_scan(&pq,&filenames,1,1) == -1)
strerr_die1(111,FATAL,&maildir_scan_err);
if (!prioq_min(&pq,&pe)) _exit(0); /* nothing new */
fdlock = open_append(mbox);
if (fdlock == -1)
strerr_die4sys(111,FATL,"unable to lock ",mbox,": ");
if (lock_ex(fdlock) == -1)
strerr_die4sys(111,FATL,"unable to lock ",mbox,": ");
fdoldmbox = open_read(mbox);
if (fdoldmbox == -1)
strerr_die4sys(111,FATL,"unable to read ",mbox,": ");
fdnewmbox = open_trunc(mboxtmp);
if (fdnewmbox == -1)
strerr_die4sys(111,FATL,"unable to create ",mboxtmp,": ");
buffer_init(&bin,read,fdoldmbox,inbuf,sizeof(inbuf));
buffer_init(&bout,write,fdnewmbox,outbuf,sizeof(outbuf));
switch(buffer_copy(&bout,&bin))
{
case -2: strerr_die4sys(111,FATL,"unable to read ",mbox,": ");
case -3: strerr_die4sys(111,FATL,"unable to write to ",mboxtmp,": ");
}
while (prioq_min(&pq,&pe))
{
prioq_delmin(&pq);
if (!prioq_insert(&pq2,&pe)) die_nomem();
fd = open_read(filenames.s + pe.id);
if (fd == -1)
strerr_die4sys(111,FATL,"unable to read $MAILDIR/",filenames.s + pe.id,": ");
buffer_init(&bin,read,fd,inbuf,sizeof(inbuf));
if (getln(&bin,&line,&match,'\n') != 0)
strerr_die4sys(111,FATL,"unable to read $MAILDIR/",filenames.s + pe.id,": ");
if (!stralloc_copys(&ufline,"From XXX ")) die_nomem();
if (match)
if (stralloc_starts(&line,"Return-Path: <"))
{
if (line.s[14] == '>')
{
if (!stralloc_copys(&ufline,"From MAILER-DAEMON ")) die_nomem();
}
else
{
int i;
if (!stralloc_ready(&ufline,line.len)) die_nomem();
if (!stralloc_copys(&ufline,"From ")) die_nomem();
for (i = 14;i < line.len - 2;++i)
if ((line.s[i] == ' ') || (line.s[i] == '\t'))
ufline.s[ufline.len++] = '-';
else {
ufline.s[ufline.len++] = line.s[i];
if (!stralloc_cats(&ufline," ")) die_nomem();
}
}
}
if (!stralloc_cats(&ufline,myctime(pe.dt))) die_nomem();
if (buffer_put(&bout,ufline.s,ufline.len) == -1)
strerr_die4sys(111,FATAL,"unable to write to ",mboxtmp,": ");
while (match && line.len)
{
if (gfrom(line.s,line.len))
if (buffer_puts(&bout,">") == -1)
strerr_die4sys(111,FATL,"unable to write to ",mboxtmp,": ");
if (buffer_put(&bout,line.s,line.len) == -1)
strerr_die4sys(111,FATL,"unable to write to ",mboxtmp,": ");
if (!match)
{
if (buffer_puts(&bout,"\n") == -1)
strerr_die4sys(111,FATL,"unable to write to ",mboxtmp,": ");
break;
}
if (getln(&bin,&line,&match,'\n') != 0)
strerr_die4sys(111,FATL,"unable to read $MAILDIR/",filenames.s + pe.id,": ");
}
if (buffer_puts(&bout,"\n"))
strerr_die4sys(111,FATL,"unable to write to ",mboxtmp,": ");
close(fd);
}
if (buffer_flush(&bout) == -1)
strerr_die4sys(111,FATL,"unable to write to ",mboxtmp,": ");
if (fsync(fdnewmbox) == -1)
strerr_die4sys(111,FATL,"unable to write to ",mboxtmp,": ");
if (close(fdnewmbox) == -1) /* NFS dorks */
strerr_die4sys(111,FATL,"unable to write to ",mboxtmp,": ");
if (rename(mboxtmp,mbox) == -1)
strerr_die6(111,FATL,"unable to move ",mboxtmp," to ",mbox,": ",&strerr_sys);
while (prioq_min(&pq2,&pe))
{
prioq_delmin(&pq2);
if (unlink(filenames.s + pe.id) == -1)
strerr_warn4(WARNING,"$MAILDIR/",filenames.s + pe.id," will be delivered twice; unable to unlink: ",&strerr_sys);
}
return(0);
}
