#define CHECK_LOCAL_ADDRESSES

#include <sys/types.h>
#include <errno.h>
#include <sys/stat.h>
#include <sys/time.h>
#include <fcntl.h>
#include "sig.h"
#include "readwrite.h"
#include "getln.h"
#include "stralloc.h"
#include "substdio.h"
#include "alloc.h"
#include "auto_qmail.h"
#include "control.h"
#include "received.h"
#include "constmap.h"
#include "error.h"
#include "ipme.h"
#include "ip.h"
#include "qmail.h"
#include "str.h"
#include "fmt.h"
#include "byte.h"
#include "case.h"
#include "env.h"
#include "now.h"
#include "exit.h"

#include <sys/resource.h>

static void restrict_mem()
{
    struct rlimit r;

    r.rlim_cur = r.rlim_max = 1024*4096;
#ifdef RLIMIT_DATA
    setrlimit(RLIMIT_DATA, &r);
#endif
#ifdef RLIMIT_RSS
    setrlimit(RLIMIT_RSS, &r);
#endif
#ifdef RLIMIT_AS
    setrlimit(RLIMIT_AS, &r);
#endif
}

#define MAXHOPS 100
int timeout = 1200;

char ssoutbuf[512];
substdio ssout = SUBSTDIO_FDBUF(write,1,ssoutbuf,sizeof(ssoutbuf));

void die() { substdio_flush(&ssout); _exit(1); }
void flush() { if (substdio_flush(&ssout) == -1) _exit(1); }
void out(s) char *s; { if (substdio_puts(&ssout,s) == -1) die(); }

int timeoutread(fd,buf,n) int fd; char *buf; int n;
{
 int r; int saveerrno;
 flush();
 alarm(timeout);
 r = read(fd,buf,n); saveerrno = errno;
 alarm(0);
 errno = saveerrno; return r;
}

char ssinbuf[1024];
substdio ssin = SUBSTDIO_FDBUF(timeoutread,0,ssinbuf,sizeof(ssinbuf));


void outofmem() { out("421 out of memory (#4.3.0)\r\n"); die(); }
void sigalrm() { out("451 timeout (#4.4.2)\r\n"); die(); }

struct qmail qqt;
stralloc greeting = {0};
int liphostok = 0;
stralloc liphost = {0};
int rhok = 0;
int localsok = 0;
stralloc rcpthosts = {0};
stralloc locals = {0};
struct constmap maprcpthosts;
struct constmap maplocals;
int bmfok = 0;
stralloc bmf = {0};
struct constmap mapbmf;
int flagbarf; /* defined if seenmail */

stralloc helohost = {0};
stralloc mailfrom = {0};
stralloc rcptto = {0};
int seenmail = 0;

stralloc addr = {0}; /* will be 0-terminated, if addrparse returns 1 */

char *remoteip;
char *remotehost;
char *remoteinfo;
char *local;
char *relayclient;

void dohelo(arg) char *arg;
{
 if (!stralloc_copys(&helohost,arg)) outofmem(); 
 if (!stralloc_0(&helohost)) outofmem(); 
}

void getenvs()
{
 remoteip = env_get("TCPREMOTEIP");
 if (!remoteip) remoteip = "unknown";
 local = env_get("TCPLOCALHOST");
 if (!local) local = env_get("TCPLOCALIP");
 if (!local) local = "unknown";
 remotehost = env_get("TCPREMOTEHOST");
 if (!remotehost) remotehost = "unknown";
 remoteinfo = env_get("TCPREMOTEINFO");
 relayclient = env_get("RELAYCLIENT");
 dohelo(remotehost);
}

void straynewline()
{
 out("451 \
Put ,E=\\r\\n at the end of Mether, Mtcp, or Msmtp in sendmail.cf \
if you are using Solaris 2.5 (fixed in 2.5.1). \
I cannot accept messages with stray newlines. \
Many SMTP servers will time out waiting for \\r\\n.\\r\\n.\
\r\n");
 die();
}

void blast(ssfrom,hops)
substdio *ssfrom;
int *hops;
{
 char ch;
 int state;
 int flaginheader;
 int pos; /* number of bytes since most recent \n, if fih */
 int flagmaybex; /* 1 if this line might match RECEIVED, if fih */
 int flagmaybey; /* 1 if this line might match \r\n, if fih */
 int flagmaybez; /* 1 if this line might match DELIVERED, if fih */
 int seencr;

 state = 1;
 *hops = 0;
 flaginheader = 1;
 pos = 0; flagmaybex = flagmaybey = flagmaybez = 1; seencr = 0;
 for (;;)
  {
   if (substdio_get(ssfrom,&ch,1) <= 0) die();
   if (ch == '\n')
    {
     if (seencr == 0)
      {
       substdio_seek(ssfrom,-1);
       ch = '\r';
      }
    }
  if (ch == '\r') seencr = 1;
  else seencr = 0;
   if (flaginheader)
    {
     if (pos < 9)
      {
       if (ch != "delivered"[pos]) if (ch != "DELIVERED"[pos]) flagmaybez = 0;
       if (flagmaybez) if (pos == 8) ++*hops;
       if (pos < 8)
         if (ch != "received"[pos]) if (ch != "RECEIVED"[pos]) flagmaybex = 0;
       if (flagmaybex) if (pos == 7) ++*hops;
       if (pos < 2) if (ch != "\r\n"[pos]) flagmaybey = 0;
       if (flagmaybey) if (pos == 1) flaginheader = 0;
      }
     ++pos;
     if (ch == '\n') { pos = 0; flagmaybex = flagmaybey = flagmaybez = 1; }
    }
   switch(state)
    {
     case 0:
       if (ch == '\n') straynewline();
       if (ch == '\r') { state = 4; continue; }
       break;
     case 1: /* \r\n */
       if (ch == '\n') straynewline();
       if (ch == '.') { state = 2; continue; }
       if (ch == '\r') { state = 4; continue; }
       state = 0;
       break;
     case 2: /* \r\n + . */
       if (ch == '\n') straynewline();
       if (ch == '\r') { state = 3; continue; }
       state = 0;
       break;
     case 3: /* \r\n + .\r */
       if (ch == '\n') return;
       qmail_put(&qqt,".\r",2);
       if (ch == '\r') { state = 4; continue; }
       state = 0;
       break;
     case 4: /* + \r */
       if (ch == '\n') { state = 1; break; }
       if (ch != '\r') { qmail_put(&qqt,"\r",1); state = 0; }
    }
   qmail_put(&qqt,&ch,1);
  }
}

int addrparse(arg)
char *arg;
{
 int i;
 char ch;
 struct ip_address ip;
 int flagesc;
 int flagquoted;

 arg += str_chr(arg,'<');
 if (*arg != '<') return 0;
 ++arg;

 /* strip source route */
 if (*arg == '@') while (*arg) if (*arg++ == ':') break;

 if (!*arg) return 0;
 if (!stralloc_copys(&addr,"")) outofmem();
 flagesc = 0;
 flagquoted = 0;
 for (i = 0;ch = arg[i];++i) /* copy arg to addr, stripping quotes */
  {
   if (flagesc)
    { if (!stralloc_append(&addr,&ch)) outofmem(); flagesc = 0; }
   else
    {
     if (!flagquoted && (ch == '>')) break;
     switch(ch)
      {
       case '\\': flagesc = 1; break;
       case '"': flagquoted = !flagquoted; break;
       default: if (!stralloc_append(&addr,&ch)) outofmem();
      }
    }
  }
 if (!ch) return 0;
 if (!stralloc_append(&addr,"")) outofmem();
 ++i;
 while (arg[i])
  {
   if (!case_diffs(arg + i," BODY=8BITMIME")) i += 14;
   else if (!case_diffs(arg + i," BODY=7BIT")) i += 10;
   else return 0;
  }

 if (liphostok)
  {
   i = byte_rchr(addr.s,addr.len,'@');
   if (i < addr.len) /* if not, partner should go read rfc 821 */
     if (addr.s[i + 1] == '[')
       if (!addr.s[i + 1 + ip_scanbracket(addr.s + i + 1,&ip)])
         if (ipme_is(&ip))
          {
           addr.len = i + 1;
           if (!stralloc_cat(&addr,&liphost)) outofmem();
           if (!stralloc_0(&addr)) outofmem();
          }
  }

 return 1;
}

int addrallowed()
{
 int j;
 if (!rhok) return 1;
 j = byte_rchr(addr.s,addr.len,'@');
 if (j >= addr.len) return 1; /* can be taken care of by envnoathost */
 if (constmap(&maprcpthosts,addr.s + j + 1,addr.len - j - 2)) return 1;
 for (;j < addr.len;++j)
   if (addr.s[j] == '.')
     if (constmap(&maprcpthosts,addr.s + j,addr.len - j - 1)) return 1;
 return 0;
}

int actual_local_address()
{
  int i, j, maybe_non_local, oldj, r, statr;
  struct stat st;
  char *extract_lowercase();
  char *domain_in_addr;

  r = open("/var/qmail/reciplog/recipients.log",
	   O_RDWR | O_APPEND | O_CREAT, 0644);

  j = byte_rchr(addr.s,addr.len,'@');
  oldj = j;

  maybe_non_local = 1;
  if (localsok)
    {
      if (j >= addr.len)
	{
	  maybe_non_local = 0;
	}
      else if (constmap(&maplocals,addr.s + j + 1,addr.len - j - 2))
	{
	  maybe_non_local = 0;
	}
      else
	{
	  for (i = j; i < addr.len; ++i)
	    {
	      if (addr.s[i] == '.')
		{
		  if (constmap(&maplocals,addr.s + i,addr.len - i - 1))
		    {
		      maybe_non_local = 0;
		      break;
		    }
		}
	    }
	}
    }

  if (maybe_non_local)
    {
      domain_in_addr = extract_lowercase(addr.s + j + 1, addr.len - j - 2);
      write_acceptance(r, addr.s, j, domain_in_addr);
      alloc_free(domain_in_addr);
      return(1);
    }
  
  statr = stat("/var/qds-auto", &st);
  if (statr == 0 || errno != ENOENT)
    {
      if (ends_dot_discuss(addr.s, j))
	{
	  write_acceptance(r, addr.s, j, "discuss-local");
	  return(1);
	}
    }

  statr = stat("/var/qds-fwd", &st);
  if (statr == 0 || errno != ENOENT)
    {
      if (ends_dot_discuss(addr.s, j) || ends_dash_mtg(addr.s, j))
	{
	  write_acceptance(r, addr.s, j, "discuss-forwarding");
	  return(1);
	}
    }

  if (j == 1 && addr.s[0] == '\0')
    {
      write_rejection(r, addr.s, j, "nul");
      return(0);
    }

  if (j == 1 && addr.s[0] == '.')
    {
      write_rejection(r, addr.s, j, "dot");
      return(0);
    }
  
  if (j == 2 && addr.s[0] == '.' && addr.s[1] == '.')
    {
      write_rejection(r, addr.s, j, "dot-dot");
      return(0);
    }

  if (j == 2 && addr.s[0] == '.' && addr.s[1] == '\0')
    {
      write_rejection(r, addr.s, j, "dot-nul");
      return(0);
    }
  
  if (j == 3 && addr.s[0] == '.' && addr.s[1] == '.' && addr.s[2] == '\0')
    {
      write_rejection(r, addr.s, j, "dot-dot-nul");
      return(0);
    }

  for (i = 0; i < j; ++i)
    {
      if ((addr.s[i] == '\0' && i != j - 1) || addr.s[i] == '/')
	{
	  write_rejection(r, addr.s, j, "slash-or-nul");
	  return(0);
	}
    }

  if (test_file_existence(r, "/var/mailspool/", addr.s, j, j))
    {
      return(1);
    }
  if (test_file_existence(r, "/var/qmail/alias/.qmail-", addr.s, j, j))
    {
      return(1);
    }

  j = byte_chr(addr.s,addr.len,'+');
  if (j < addr.len && j != 0)
    {
      if (j == 1 && addr.s[0] == '.')
	{
	  write_rejection(r, addr.s, oldj, "dot");
	  return(0);
	}
      
      if (j == 2 && addr.s[0] == '.' && addr.s[1] == '.')
	{
	  write_rejection(r, addr.s, oldj, "dot-dot");
	  return(0);
	}
      
      if (test_file_existence(r, "/var/mailspool/", addr.s, j, oldj))
	{
	  return(1);
	}
    }

  write_rejection(r, addr.s, oldj, "fell-off-the-end");
  return(0);
}

void bmfcheck()
{
 int j;
 flagbarf = 0;
 if (!bmfok) return;
 if (constmap(&mapbmf,addr.s,addr.len - 1)) { flagbarf = 1; return; }
 j = byte_rchr(addr.s,addr.len,'@');
 if (j < addr.len)
   if (constmap(&mapbmf,addr.s + j,addr.len - j - 1)) flagbarf = 1;
}

void smtp_greet(code) char *code; {
 if (substdio_puts(&ssout,code) == -1) die();
 if (substdio_put(&ssout,greeting.s,greeting.len) == -1) die(); }
void smtp_quit() { smtp_greet("221 "); out("\r\n"); die(); }
void smtp_help() { out("214-qmail home page: http://pobox.com/~djb/qmail.html\r\n214 send comments to qmail@pobox.com\r\n"); }
void err_syntax() { out("555 syntax error (#5.5.4)\r\n"); }
void err_bmf() { out("553 sorry, your envelope sender is in my badmailfrom list (#5.7.1)\r\n"); }
void err_nogateway() { out("553 sorry, that domain isn't in my list of allowed rcpthosts (#5.7.1)\r\n"); }
void err_mailbox_unknown() { out("550 mailbox name unknown (#5.1.1)\r\n"); }
/* void err_mailbox_unknown() { out("421 mailbox name unknown (#4.3.0)\r\n"); } */
void err_unimpl() { out("502 unimplemented (#5.5.1)\r\n"); }
void err_seenmail() { out("503 one MAIL per message (#5.5.1)\r\n"); }
void err_wantmail() { out("503 MAIL first (#5.5.1)\r\n"); }
void err_wantrcpt() { out("503 RCPT first (#5.5.1)\r\n"); }
void err_noop() { out("250 ok\r\n"); }
void smtp_vr_or_ex(arg, scmd) char *arg, *scmd; {
 struct stat st;
 int rs, vs, vf;
 char vrfyfile[100];
 char *vrfybuf;
 if (!arg) { err_syntax(); return; }
 make_vrfy_str(vrfyfile, arg);
 vf = 0;
 if (!stat(vrfyfile,&st)) {
    if (((st.st_mode & S_IFMT) == S_IFREG) &&
      st.st_size != 0) {
      vrfybuf = alloc(st.st_size + 1);
      if (!vrfybuf) outofmem();
      vs = open(vrfyfile, O_RDONLY, 0);
      if (vs != -1) {
        rs = read(vs, vrfybuf, st.st_size);
        if (rs == st.st_size) {
          vrfybuf[st.st_size] = '\0';
          out(vrfybuf);
          alloc_free(vrfybuf);
          vf = 1;
        }
       close(vs);
      }
    }
    if (!vf) {
      alloc_free(vrfybuf);
      out("250 ");
      out(arg);
      out("\r\n");
    }
  }
 else {
    if (!str_diff(scmd, "vrfy")) {
      out("252 send some mail, i'll try my best\r\n");
    }
    else {
      out("550 send some mail, i'll try my best\r\n");
    }
  }
}
void smtp_vrfy(arg) char *arg; {
  smtp_vr_or_ex(arg, "vrfy");
}
void smtp_expn(arg) char *arg; {
  smtp_vr_or_ex(arg, "expn");
}
void err_qqt() { out("451 qqt failure (#4.3.0)\r\n"); }
void smtp_helo(arg) char *arg; {
 smtp_greet("250-"); out("\r\n250-PIPELINING\r\n250 8BITMIME\r\n");
 seenmail = 0;
 dohelo(arg ? arg : ""); }
void smtp_rset() {
 seenmail = 0;
 out("250 flushed\r\n"); }
void smtp_mail(arg) char *arg; {
 if (seenmail) { err_seenmail(); return; }
 if (!arg) { err_syntax(); return; }
 if (!addrparse(arg)) { err_syntax(); return; }
 bmfcheck();
 seenmail = 1; out("250 ok\r\n");
 if (!stralloc_copys(&rcptto,"")) outofmem();
 if (!stralloc_copys(&mailfrom,addr.s)) outofmem();
 if (!stralloc_0(&mailfrom)) outofmem(); }
void smtp_rcpt(arg) char *arg; {
 if (!seenmail) { err_wantmail(); return; }
 if (!arg) { err_syntax(); return; }
 if (!addrparse(arg)) { err_syntax(); return; }
 if (flagbarf) { err_bmf(); return; }
 if (relayclient)
  {
   --addr.len;
   if (!stralloc_cats(&addr,relayclient)) outofmem();
   if (!stralloc_0(&addr)) outofmem();
  }
 else
   if (!addrallowed()) { err_nogateway(); return; }
#ifdef CHECK_LOCAL_ADDRESSES
 if (!actual_local_address()) { err_mailbox_unknown(); return; }
#endif
 out("250 ok\r\n");
 if (!stralloc_cats(&rcptto,"T")) outofmem();
 if (!stralloc_cats(&rcptto,addr.s)) outofmem();
 if (!stralloc_0(&rcptto)) outofmem(); }

char accept_buf[FMT_ULONG];
void acceptmessage(qp) unsigned long qp;
{
 datetime_sec when;
 when = now();
 out("250 ok ");
 accept_buf[fmt_ulong(accept_buf,(unsigned long) when)] = 0;
 out(accept_buf);
 out(" qp ");
 accept_buf[fmt_ulong(accept_buf,qp)] = 0;
 out(accept_buf);
 out("\r\n");
}

void smtp_data() {
 int hops; int r; unsigned long qp;
 if (!seenmail) { err_wantmail(); return; }
 if (!rcptto.len) { err_wantrcpt(); return; }
 seenmail = 0;
 if (qmail_open(&qqt) == -1) { err_qqt(); return; }
 qp = qmail_qp(&qqt);
 out("354 go ahead\r\n");

 received(&qqt,"SMTP",local,remoteip,remotehost,remoteinfo,case_diffs(remotehost,helohost.s) ? helohost.s : 0);
 blast(&ssin,&hops);
 hops = (hops >= MAXHOPS);
 if (hops) qmail_fail(&qqt);
 qmail_from(&qqt,mailfrom.s);
 qmail_put(&qqt,rcptto.s,rcptto.len);

 r = qmail_close(&qqt);
 if (!r) { acceptmessage(qp); return; }
 if (hops) { out("554 too many hops, this message is looping (#5.4.6)\r\n"); return; }
 switch(r)
  {
   case QMAIL_TOOLONG: out("554 address too long (#5.1.3)\r\n"); return;
   case QMAIL_SYS: out("451 qq system error (#4.3.0)\r\n"); return;
   case QMAIL_READ: out("451 qq read error (#4.3.0)\r\n"); return;
   case QMAIL_WRITE: out("451 qq write error or disk full (#4.3.0)\r\n"); return;
   case QMAIL_NOMEM: out("451 qq out of memory (#4.3.0)\r\n"); return;
   case QMAIL_EXECSOFT: out("451 could not exec qq (#4.3.0)\r\n"); return;
   case QMAIL_TIMEOUT: out("451 qq timeout (#4.3.0)\r\n"); return;
   case QMAIL_WAITPID: out("451 qq waitpid surprise (#4.3.0)\r\n"); return;
   case QMAIL_CRASHED: out("451 qq crashed (#4.3.0)\r\n"); return;
   case QMAIL_USAGE: out("451 qq usage surprise (#4.3.0)\r\n"); return;
   default: out("451 qq internal bug (#4.3.0)\r\n"); return;
  }
}

static struct { void (*fun)(); char *text; int flagflush; } smtpcmd[] = {
  { smtp_rcpt, "rcpt", 0 }
, { smtp_mail, "mail", 0 }
, { smtp_data, "data", 1 }
, { smtp_quit, "quit", 1 }
, { smtp_helo, "helo", 1 }
, { smtp_helo, "ehlo", 1 }
, { smtp_rset, "rset", 0 }
, { smtp_help, "help", 1 }
, { err_noop, "noop", 1 }
, { smtp_vrfy, "vrfy", 1 }
, { smtp_expn, "expn", 1 }
, { 0, 0, 0 }
};

void doit(cmd)
char *cmd;
{
 int i;
 int j;
 char ch;

 for (i = 0;smtpcmd[i].fun;++i)
  {
   for (j = 0;ch = smtpcmd[i].text[j];++j)
     if ((cmd[j] != ch) && (cmd[j] != ch - 32))
       break;
   if (!ch)
     if (!cmd[j] || (cmd[j] == ' '))
      {
       while (cmd[j] == ' ') ++j;
       if (!cmd[j])
         smtpcmd[i].fun((char *) 0);
       else
         smtpcmd[i].fun(cmd + j);
       if (smtpcmd[i].flagflush) flush();
       return;
      }
  }
 err_unimpl();
 flush();
}

void getcontrols()
{
  int i, r;

 if (control_init() == -1) die();
 if (control_rldef(&greeting,"control/smtpgreeting",1,(char *) 0) != 1) die();
 switch(control_rldef(&liphost,"control/localiphost",1,(char *) 0))
  { case -1: die(); case 1: liphostok = 1; }
 if (control_readint(&timeout,"control/timeoutsmtpd") == -1) die();
 if (timeout <= 0) timeout = 1;
 switch(control_readfile(&rcpthosts,"control/rcpthosts",0))
  {
   case -1: die();
   case 1:
     rhok = 1;
     if (!constmap_init(&maprcpthosts,rcpthosts.s,rcpthosts.len,0)) die();
  }
 switch(control_readfile(&locals,"control/locals",0))
  {
   case -1: die();
   case 1:
     localsok = 1;
     if (!constmap_init(&maplocals,locals.s,locals.len,0)) die();
  }
 switch(control_readfile(&bmf,"control/badmailfrom",0))
  {
   case -1: die();
   case 1:
     bmfok = 1;
     if (!constmap_init(&mapbmf,bmf.s,bmf.len,0)) die();
  }
}

void main()
{
 static stralloc cmd = {0};
 int match;

 restrict_mem();

 sig_alarmcatch(sigalrm);
 sig_pipeignore();

 if (chdir(auto_qmail) == -1) die();
 getcontrols();
 getenvs();

 if (ipme_init() != 1) die();

 smtp_greet("220 ");
 out(" Applesauce! ESMTP\r\n");

 for (;;)
  {
   /* XXX: recipient can contain quoted lf. aargh. */
   if (getln(&ssin,&cmd,&match,'\n') == -1) die();
   if (!match) die();
   if (cmd.len == 0) die();
   if (cmd.s[--cmd.len] != '\n') die();
   if ((cmd.len > 0) && (cmd.s[cmd.len - 1] == '\r')) --cmd.len;
   cmd.s[cmd.len++] = 0;
   doit(cmd.s);
  }
}

int make_vrfy_str(m, u)
     char *m, *u;
{
  int i, j;
  static char *base_vrfy = "/var/qvrfy/";
  static char *non_vrfy = "/var/qvrfy/@";

  for (i = 0; base_vrfy[i] != '\0'; ++i) {
    m[i] = base_vrfy[i];
  }
  for (j = 0; u[j] != '\0'; ++j) {
    if (i == 99 || !vrfy_char(u[j])) {
       for (i = 0; non_vrfy[i] != '\0'; ++i) {
         m[i] = non_vrfy[i];
        }
       m[i] = '\0';
       return 1;
     }
    m[i++] = u[j];
  }
  m[i] = '\0';
  case_lowers(m);
  return 0;
}

int vrfy_char(c)
     char c;
{
  if (c >= 'a' && c <= 'z') return 1;
  if (c >= 'A' && c <= 'Z') return 1;
  if (c >= '0' && c <= '9') return 1;
  if (c == '-' || c == '_' || c == '+') return 1;
  return 0;
 }

int ends_dot_discuss(s, n)
     char *s;
     int n;
{
  if (n < str_len(".DISCUSS") + 1)
    {
      return(0);
    }
  if (s[n - 1] == '\0' && (n < str_len(".DISCUSS") + 2))
    {
      return(0);
    }
  if (
      (s[n - 1] == 's' || s[n - 1] == 'S') &&
      (s[n - 2] == 's' || s[n - 2] == 'S') &&
      (s[n - 3] == 'u' || s[n - 3] == 'U') &&
      (s[n - 4] == 'c' || s[n - 4] == 'C') &&
      (s[n - 5] == 's' || s[n - 5] == 'S') &&
      (s[n - 6] == 'i' || s[n - 6] == 'I') &&
      (s[n - 7] == 'd' || s[n - 7] == 'D') &&
      (s[n - 8] == '.')
      )
    {
      return(1);
    }
  if (
      (s[n - 1] == '\0') &&
      (s[n - 2] == 's' || s[n - 2] == 'S') &&
      (s[n - 3] == 's' || s[n - 3] == 'S') &&
      (s[n - 4] == 'u' || s[n - 4] == 'U') &&
      (s[n - 5] == 'c' || s[n - 5] == 'C') &&
      (s[n - 6] == 's' || s[n - 6] == 'S') &&
      (s[n - 7] == 'i' || s[n - 7] == 'I') &&
      (s[n - 8] == 'd' || s[n - 8] == 'D') &&
      (s[n - 9] == '.')
      )
    {
      return(1);
    }
  return(0);
}

int ends_dash_mtg(s, n)
     char *s;
     int n;
{
  if (n < str_len("-mtg") + 1)
    {
      return(0);
    }
  if (s[n - 1] == '\0' && (n < str_len("-mtg") + 2))
    {
      return(0);
    }
  if (
      (s[n - 1] == 'g' || s[n - 1] == 'G') &&
      (s[n - 2] == 't' || s[n - 2] == 'T') &&
      (s[n - 3] == 'm' || s[n - 3] == 'M') &&
      (s[n - 4] == '-')
      )
    {
      return(1);
    }
  if (
      (s[n - 1] == '\0') &&
      (s[n - 2] == 'g' || s[n - 2] == 'G') &&
      (s[n - 3] == 't' || s[n - 3] == 'T') &&
      (s[n - 4] == 'm' || s[n - 4] == 'M') &&
      (s[n - 5] == '-')
      )
    {
      return(1);
    }
  return(0);
}


int write_acceptance(fd, s, n, where)
     int fd, n;
     char *s, *where;
{
  write_something(fd, s, n, where, "ACCEPT \"");
}

int write_rejection(fd, s, n, where)
     int fd, n;
     char *s, *where;
{
  write_something(fd, s, n, where, "REJECT \"");
}

int write_something(fd, s, n, where, state)
     int fd;
     char *s, *state, *where;
     int n;
{
  int i;
  char *wsbuf;

  if (fd == -1)
    {
      return(0);
    }

  wsbuf = alloc(str_len(state) + str_len(where) + n + 3);
  if (!wsbuf) outofmem();

  str_copy(wsbuf, state);
  for (i = 0; i < n; ++i)
    {
      wsbuf[str_len(state) + i] = s[i];
    }
  wsbuf[str_len(state) + n] = '"';
  wsbuf[str_len(state) + n + 1] = '-';
  for (i = 0; i < str_len(where); ++i)
    {
      wsbuf[str_len(state) + n + 2 + i] = where[i];
    }
  wsbuf[str_len(state) + str_len(where) + n + 2] = '\n';

  write(fd, wsbuf, str_len(state) + str_len(where) + n + 3);
  close(fd);
  alloc_free(wsbuf);
}

char *extract_lowercase(s, n)
     char *s;
     int n;
{
  static char *ret;
  int i;

  ret = alloc(n + 1);
  if (!ret) outofmem();
  for (i = 0; i < n; ++i)
    {
      if (s[i] >= 'A' && s[i] <= 'Z')
	{
	  ret[i] = s[i] - 'A' + 'a';
	}
      else
	{
	  ret[i] = s[i];
	}
    }
  ret[i] = '\0';
  return(ret);
}

int test_file_existence(fd, start_part, end_s, end_len, old_len)
     int fd, end_len, old_len;
     char *end_s, *start_part;
{
  char *mailfilebuf;
  int i, statr;
  struct stat st;

  mailfilebuf = alloc(str_len(start_part) + end_len + 1);
  if (!mailfilebuf) outofmem();
  str_copy(mailfilebuf, start_part);
  for (i = 0; i < end_len; ++i)
    {
      if (end_s[i] >= 'A' && end_s[i] <= 'Z')
	{
	  mailfilebuf[i + str_len(start_part)] = end_s[i]
	    - 'A' + 'a';
	}
      else
	{
	  mailfilebuf[i + str_len(start_part)] = end_s[i];
	}
    }
  mailfilebuf[str_len(start_part) + end_len] = '\0';

  statr = stat(mailfilebuf, &st);
  if (statr == 0 || errno != ENOENT)
    {
      write_acceptance(fd, end_s, old_len, start_part);
      alloc_free(mailfilebuf);
      return 1;
    }

  alloc_free(mailfilebuf);
  return(0);
}