/* $Id$
 * (c) 2000-2001 IC&S, The Netherlands
 *
 * imapd.c
 * 
 * main prg for imap daemon
 */

#include <stdio.h>
#include <string.h>
#include <stdlib.h>
#include "imap4.h"
#include "serverservice.h"
#include "debug.h"
#include "misc.h"
#include "db.h"

#define PNAME "dbmail/imap4"

int imap_before_smtp=0;


int main()
{
  int sock,d;
  char *newuser,*newgroup,*port,*bindip,*defchld,*maxchld,*daem,*to;
  char *trace_level,*trace_syslog,*trace_verbose;
  char *before_smtp,*mc;
  int new_level = 2, new_trace_syslog = 1, new_trace_verbose = 0, timeout = 0;
  int max_connects=0;

  /* open logs */
  openlog(PNAME, LOG_PID, LOG_MAIL);

  /* open db connection */
  if (db_connect() != 0)
    trace(TRACE_FATAL, "IMAPD: cannot connect to dbase\n");

  /* read options from config */
  port   = db_get_config_item("IMAPD_BIND_PORT",CONFIG_MANDATORY);
  bindip = db_get_config_item("IMAPD_BIND_IP",CONFIG_MANDATORY);
  defchld = db_get_config_item("IMAPD_DEFAULT_CHILD",CONFIG_MANDATORY);
  maxchld = db_get_config_item("IMAPD_MAX_CHILD",CONFIG_MANDATORY);
  daem = db_get_config_item("IMAPD_DAEMONIZES", CONFIG_EMPTY);
  to =  db_get_config_item("IMAPD_CHILD_TIMEOUT", CONFIG_EMPTY);
  mc = db_get_config_item("IMAPD_CHILD_MAX_CONNECTS",CONFIG_EMPTY);

  before_smtp = db_get_config_item("DBMAIL_IMAP_BEFORE_SMTP", CONFIG_EMPTY);
  if (before_smtp && strcasecmp(before_smtp,"yes") == 0)
    {
      imap_before_smtp = 1;
      my_free(before_smtp);
      before_smtp = NULL;
    }

  trace_level = db_get_config_item("TRACE_LEVEL", CONFIG_EMPTY);
  trace_syslog = db_get_config_item("TRACE_TO_SYSLOG", CONFIG_EMPTY);
  trace_verbose = db_get_config_item("TRACE_VERBOSE", CONFIG_EMPTY);

  if (!port || !bindip)
    trace(TRACE_FATAL, "IMAPD: port and/or ip not specified in configuration file!\r\n");

  if (!defchld || !maxchld)
    trace(TRACE_FATAL, "IMAPD: default/maximum number of children not "
	  "specified in configuration file!\r\n");

  if (daem)
    {
      d = (strcmp(daem, "yes") == 0);
      my_free(daem);
      daem = NULL;
    }
  else
    d = 0;

  if (to)
    {
      timeout = atoi(to);
      my_free(to);
      to = NULL;
    }
  
  if (mc)
    {
      max_connects = atoi(mc);
      my_free(mc);
      mc = NULL;
    }

  if (max_connects <= 1)
    {
      max_connects = SS_DEF_MAXCONNECTS;
    }

  if (trace_level)
    {
      new_level = atoi(trace_level);
      my_free(trace_level);
      trace_level = NULL;
    }

  if (trace_syslog)
    {
      new_trace_syslog = atoi(trace_syslog);
      my_free(trace_syslog);
      trace_syslog = NULL;
    }

  if (trace_verbose)
    {
      new_trace_verbose = atoi(trace_verbose);
      my_free(trace_verbose);
      trace_verbose = NULL;
    }

  configure_debug(new_level, new_trace_syslog, new_trace_verbose);

  
  /* open socket */
  sock = SS_MakeServerSock(bindip, port, atoi(defchld), atoi(maxchld), timeout,
			   IMAP_TIMEOUT_MSG);

  my_free(port);
  my_free(bindip);
  port = NULL;
  bindip = NULL;

  if (sock == -1)
    {
      db_disconnect();
      trace(TRACE_FATAL, "IMAPD: Error creating serversocket: %s\n", SS_GetErrorMsg());
      return 1;
    }
  
  /* drop priviledges */
  newuser = db_get_config_item("IMAPD_EFFECTIVE_USER",CONFIG_MANDATORY);
  newgroup = db_get_config_item("IMAPD_EFFECTIVE_GROUP",CONFIG_MANDATORY);

  if ((newuser!=NULL) && (newgroup!=NULL))
  {
    if (drop_priviledges (newuser, newgroup) != 0)
      trace(TRACE_FATAL,"IMAPD: could not set uid %s, gid %s\n",newuser,newgroup);
    
    my_free(newuser);
    my_free(newgroup);
    newuser = NULL;
    newgroup = NULL;
  }
  else
    {
      db_disconnect();
      trace(TRACE_FATAL,"IMAPD: newuser and newgroup should not be NULL\n");
    }

  db_disconnect();

  /* get started */
  trace(TRACE_MESSAGE, "IMAPD: server ready to run\n");
  if (SS_WaitAndProcess(sock, atoi(defchld), atoi(maxchld), d, max_connects,
			imap_process, imap_login, imap_error_cleanup) == -1)
    {
      trace(TRACE_FATAL,"IMAPD: Fatal error while processing clients: %s\n",SS_GetErrorMsg());
      return 1;
    }

  SS_CloseServer(sock);

  my_free(defchld);
  my_free(maxchld);
  defchld = NULL;
  maxchld = NULL;

  return 0; 
}