int main (int argc, char **argv) { user = argv[1]; if (!user) usage(); loguser = argv[2]; if (!loguser) usage(); dir = argv[3]; if (!dir) usage(); if (dir[0] != '/') usage(); ip = argv[4]; if (!ip) ip = "0"; pw = getpwnam(loguser); if (!pw) strerr_die3x(TEMP, FATAL, "unknown account ", loguser); if (!readme(&me)) strerr_die1(TEMP, FATAL, &readme_err); init(dir, FATAL); makelogdir(loguser, pw->pw_uid, -1); makedir("env"); perm(02755); start("env/DATALIMIT"); outs("250000\n"); finish(); perm(0644); tcpserver_env(ip, PORT, me.s); makemakefile(); maketcp(1); makeaddclient(); start("run"); outs("#!/bin/sh\n"); tcpserver_run(user, PORT); outs(" "); outs(auto_qmail); outs("/bin/qmail-qmqpd\n"); outs("'\n"); finish(); perm(0755); _exit(0); return 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); }