#include <unistd.h>
#include "getoptb.h"
#include "buffer.h"
#include "alloc.h"
#include "auto_qmail.h"
#include "exit.h"
#include "env.h"
#include "str.h"
#include "logmsg.h"

#define WHO "sendmail"

void nomem()
{
  logmsg(WHO,111,FATAL,"out of memory\n");
}

void die_usage()
{
  logmsg(WHO,100,USAGE,"sendmail [ -t ] [ -fsender ] [ -Fname ] [ -bp ] [ -ba ] [ -bs ] [ arg ... ]\n");
}

char *smtpdarg[] = { "bin/qmail-smtpd", 0 };

void smtpd()
{
  if (!env_get("PROTO")) {
    if (!env_puts("RELAYCLIENT=")) nomem();
    if (!env_puts("DATABYTES=0")) nomem();
    if (!env_puts("PROTO=TCP")) nomem();
    if (!env_puts("TCP6LOCALIP=::1")) nomem();
    if (!env_puts("TCPLOCALIP=127.0.0.1")) nomem();
    if (!env_puts("TCPLOCALHOST=localhost")) nomem();
    if (!env_puts("TCPREMOTEIP=127.0.0.1")) nomem();
    if (!env_puts("TCP6REMOTEIP=::1")) nomem();
    if (!env_puts("TCPREMOTEHOST=localhost")) nomem();
    if (!env_puts("TCPREMOTEINFO=sendmail-bs")) nomem();
  }
  execv(*smtpdarg,smtpdarg);
  logmsg(WHO,111,FATAL,"unable to run qmail-smtpd\n");
}

char *qreadarg[] = { "bin/qmail-qread", 0 };
void mailq()
{
  execv(*qreadarg,qreadarg);
  logmsg(WHO,111,FATAL,"unable to run qmail-qread\n");
}

void do_sender(const char *s)
{
  char *x;
  int n;
  int a;
  int i;

  env_unset("QMAILNAME");
  env_unset("MAILNAME");
  env_unset("NAME");
  env_unset("QMAILHOST");
  env_unset("MAILHOST");

  n = str_len(s);
  a = str_rchr(s,'@');
  if (a == n)
  {
    env_put("QMAILUSER",s);
    return;
  }
  env_put("QMAILHOST",s + a + 1);

  x = (char *) alloc((a + 1) * sizeof(char));
  if (!x) nomem();
  for (i = 0; i < a; i++)
    x[i] = s[i];
  x[i] = 0;
  env_put("QMAILUSER",x);
  alloc_free(x);
}

int flagh;
char *sender;

int main(int argc, char **argv)
{
  int opt;
  char **qiargv;
  char **arg;
  int i;
 
  if (chdir(auto_qmail) == -1) {
    buffer_putsflush(buffer_2,"sendmail: fatal: unable to switch to qmail home directory\n");
    _exit(111);
  }

  flagh = 0;
  sender = 0;
  while ((opt = getopt(argc,argv,"vimte:f:p:o:B:F:EJxb:")) != opteof) {
    switch (opt) {
      case 'N': break; /* ignore DSN option */
      case 'B': break;
      case 't': flagh = 1; break;
      case 'f': sender = optarg; break;
      case 'F': if (!env_put("MAILNAME",optarg)) nomem(); break;
      case 'p': break; /* could generate a Received line from optarg */
      case 'v': break;
      case 'i': break; /* what an absurd concept */
      case 'x': break; /* SVR4 stupidity */
      case 'm': break; /* twisted-paper-path blindness, incompetent design */
      case 'e': break; /* qmail has only one error mode */
      case 'o':
        switch (optarg[0]) {
          case 'd': break; /* qmail has only one delivery mode */
          case 'e': break; /* see 'e' above */
          case 'i': break; /* see 'i' above */
          case 'm': break; /* see 'm' above */
        }
        break;
      case 'E': case 'J': /* Sony NEWS-OS */
        while (argv[optind][optpos]) ++optpos; /* skip optional argument */
        break;
      case 'b':
        switch (optarg[0]) {
          case 'm': break;
          case 'a': mailq();
          case 'p': mailq();
          case 's': smtpd();
          default: die_usage();
        }
        break;
      default:
        die_usage();
    }
  }
  argc -= optind;
  argv += optind;
 
  if (str_equal(optprogname,"mailq"))
    mailq();

  if (str_equal(optprogname,"newaliases")) {
    logmsg(WHO,100,FATAL,"please use fastforward/newaliases instead\n");
  }

  qiargv = (char **) alloc((argc + 10) * sizeof(char *));
  if (!qiargv) nomem();
 
  arg = qiargv;
  *arg++ = "bin/qmail-inject";
  *arg++ = (flagh ? "-H" : "-a");
  if (sender) {
    *arg++ = "-f";
    *arg++ = sender;
    do_sender(sender);
  }
  *arg++ = "--";
  for (i = 0; i < argc; ++i) *arg++ = argv[i];
  *arg = 0;
 
  execv(*qiargv,qiargv);
  logmsg(WHO,111,FATAL,"unable to run qmail-inject\n");
}