wraith-ircbot/src/main.c

/*
 * main.c -- handles:
 *   core event handling
 *   command line arguments
 *   context and assert debugging
 *
 */

#include "common.h"
#include "main.h"
#include "color.h"
#include "binary.h"
#include "dcc.h"
#include "misc.h"
#include "thread.h"
#include "settings.h"
#include "salt.h"
#include "misc_file.h"
#include "net.h"
#include "users.h"
#include "shell.h"
#include "userrec.h"
#include "tclhash.h"
#include "cfg.h"
#include "dccutil.h"
#include "crypt.h"
#include "debug.h"
#include "chanprog.h"
#include "traffic.h"
#include "bg.h"	
#include "botnet.h"
#include "build.h"
#ifdef LEAF
#include "src/mod/irc.mod/irc.h"
#include "src/mod/server.mod/server.h"
#endif /* LEAF */
#include "src/mod/channels.mod/channels.h"
#include <time.h>
#include <errno.h>
#include <unistd.h>
#include <sys/wait.h>
#ifdef STOP_UAC				/* osf/1 complains a lot */
# include <sys/sysinfo.h>
# define UAC_NOPRINT			/* Don't report unaligned fixups */
#endif /* STOP_UAC */
#include <sys/file.h>
#include <sys/stat.h>

#include "chan.h"
#include "tandem.h"
#include "egg_timer.h"
#include "core_binds.h"

#ifdef CYGWIN_HACKS
#include <windows.h>
#include <getopt.h>
#endif /* CYGWIN_HACKS */

#ifndef _POSIX_SOURCE
/* Solaris needs this */
#define _POSIX_SOURCE
#endif

extern int		optind;

const time_t 	buildts = CVSBUILD;		/* build timestamp (UTC) */
const char	egg_version[1024] = "1.1.8";

int 	localhub = 1; 		/* we set this to 0 if we get a -B */
int 	role;
int 	loading = 0;
int	default_flags = 0;	/* Default user flags and */
int	default_uflags = 0;	/* Default userdefinied flags for people
				   who say 'hello' or for .adduser */
int	backgrd = 1;		/* Run in the background? */
uid_t   myuid;
int	term_z = 0;		/* Foreground: use the terminal as a party line? */
int 	updating = 0; 		/* this is set when the binary is called from itself. */
char 	tempdir[DIRMAX] = "";
char 	*binname = NULL;
time_t	online_since;		/* Unix-time that the bot loaded up */

char	owner[121] = "";	/* Permanent owner(s) of the bot */
char	version[81] = "";	/* Version info (long form) */
char	ver[41] = "";		/* Version info (short form) */
int	use_stderr = 1;		/* Send stuff to stderr instead of logfiles? */
char	quit_msg[1024];		/* quit message */
time_t	now;			/* duh, now :) */

#define fork_interval atoi( CFG_FORKINTERVAL.ldata ? CFG_FORKINTERVAL.ldata : CFG_FORKINTERVAL.gdata ? CFG_FORKINTERVAL.gdata : "0")
#ifdef S_CONFEDIT
static int	do_confedit = 0;		/* show conf menu if -C */
#endif /* S_CONFEDIT */
#ifdef LEAF
static char    do_killbot[21] = "";
#endif /* LEAF */
static int 	checktrace = 1;		/* Check for trace when starting up? */


static char *getfullbinname(const char *argv_zero)
{
  char cwd[DIRMAX] = "", *bin = NULL, *p = NULL, *p2 = NULL;

  bin = strdup(argv_zero);

  if (bin[0] == '/')
    return bin;

  if (!getcwd(cwd, DIRMAX))
    fatal("getcwd() failed", 0);

  if (cwd[strlen(cwd) - 1] == '/')
    cwd[strlen(cwd) - 1] = 0;

  p = bin;
  p2 = strchr(p, '/');
  while (p) {
    if (p2)
      *p2++ = 0;
    if (!strcmp(p, "..")) {
      p = strrchr(cwd, '/');
      if (p)
        *p = 0;
    } else if (strcmp(p, ".")) {
      strcat(cwd, "/");
      strcat(cwd, p);
    }
    p = p2;
    if (p)
      p2 = strchr(p, '/');
  }
  str_redup(&bin, cwd);
  return bin;
}

void fatal(const char *s, int recoverable)
{
  int i = 0;

#ifdef LEAF
  nuke_server((char *) s);
#endif /* LEAF */

  if (s[0])
    putlog(LOG_MISC, "*", "!*! %s", s);

/*  flushlogs(); */
#ifdef HAVE_SSL
    ssl_cleanup();
#endif /* HAVE_SSL */

  for (i = 0; i < dcc_total; i++)
    if (dcc[i].sock >= 0)
      killsock(dcc[i].sock);

  if (!recoverable) {
    if (conf.bot && conf.bot->pid_file)
      unlink(conf.bot->pid_file);
    exit(1);
  }
}

static void check_expired_dcc()
{
  int i;

  for (i = 0; i < dcc_total; i++)
    if (dcc[i].type && dcc[i].type->timeout_val &&
	((now - dcc[i].timeval) > *(dcc[i].type->timeout_val))) {
      if (dcc[i].type->timeout)
	dcc[i].type->timeout(i);
      else if (dcc[i].type->eof)
	dcc[i].type->eof(i);
      else
	continue;
      /* Only timeout 1 socket per cycle, too risky for more */
      return;
    }
}

/* this also expires irc dcc_cmd auths */
static void expire_simuls() {
  int idx = 0;

  for (idx = 0; idx < dcc_total; idx++) {
    if (dcc[idx].simul > 0) {
      if ((now - dcc[idx].simultime) >= 20) { /* expire simuls after 20 seconds (re-uses idx, so it wont fill up) */
        dcc[idx].simul = -1;
        lostdcc(idx);
        return;		/* only safe to do one at a time */
      }
    }
  }
}

static void checkpass() 
{
  static int checkedpass = 0;

  if (!checkedpass) {
    char *gpasswd = NULL;

    gpasswd = (char *) getpass("bash$ ");
    checkedpass = 1;
    if (!gpasswd || (gpasswd && md5cmp(shellhash, gpasswd))) {
      werr(ERR_BADPASS);
    }
  }
}

static void got_ed(char *, char *, char*) __attribute__((noreturn));

static void got_ed(char *which, char *in, char *out)
{
  sdprintf("got_Ed called: -%s i: %s o: %s", which, in, out);
  if (!in || !out)
    fatal(STR("Wrong number of arguments: -e/-d <infile> <outfile/STDOUT>"),0);
  if (!strcmp(in, out))
    fatal("<infile> should NOT be the same name as <outfile>", 0);
  if (!strcmp(which, "e")) {
    Encrypt_File(in, out);
    fatal("File Encryption complete",3);
  } else if (!strcmp(which, "d")) {
    Decrypt_File(in, out);
    fatal("File Decryption complete",3);
  }
  exit(0);
}

static void show_help() __attribute__((noreturn));

static void show_help()
{
  char format[81] = "";

  egg_snprintf(format, sizeof format, "%%-30s %%-30s\n");

  printf(STR("Wraith %s\n\n"), egg_version);
  printf(format, "Option", "Description");
  printf(format, "------", "-----------");
  printf(format, STR("-B <botnick>"), STR("Starts the specified bot"));
  printf(format, STR("-C"), STR("Config file menu system"));
  printf(format, STR("-e <infile> <outfile>"), STR("Encrypt infile to outfile"));
  printf(format, STR("-d <infile> <outfile>"), STR("Decrypt infile to outfile"));
  printf(format, STR("-D"), STR("Enables debug mode (see -n)"));
  printf(format, STR("-E [#/all]"), STR("Display Error codes english translation (use 'all' to display all)"));
/*  printf(format, STR("-g <file>"), STR("Generates a template config file"));
  printf(format, STR("-G <file>"), STR("Generates a custom config for the box"));
*/
  printf(format, "-h", "Display this help listing");
  printf(format, STR("-k <botname>"), STR("Terminates (botname) with kill -9"));
  printf(format, STR("-n"), STR("Disables backgrounding first bot in conf"));
  printf(format, STR("-s"), STR("Disables checking for ptrace/strace during startup (no pass needed)"));
  printf(format, STR("-t"), STR("Enables \"Partyline\" emulation (requires -n)"));
  printf(format, "-v", "Displays bot version");
  exit(0);
}


#ifdef LEAF
# define PARSE_FLAGS "02B:Cd:De:Eg:G:k:L:P:hnstv"
#else /* !LEAF */
# define PARSE_FLAGS "02Cd:De:Eg:G:hnstv"
#endif /* HUB */
#define FLAGS_CHECKPASS "CdDeEgGhkntv"
static void dtx_arg(int argc, char *argv[])
{
  int i = 0;
#ifdef LEAF
  int localhub_pid = 0;
#endif /* LEAF */
  char *p = NULL;
  
  opterr = 0;
  while ((i = getopt(argc, argv, PARSE_FLAGS)) != EOF) {
    if (strchr(FLAGS_CHECKPASS, i))
      checkpass();
    switch (i) {
      case '0':
        exit(0);
      case '2':		/* used for testing new binary through update */
        exit(2);
#ifdef LEAF
      case 'B':
        localhub = 0;
        strncpyz(origbotname, optarg, NICKLEN + 1);
        break;
#endif /* LEAF */
#ifdef S_CONFEDIT
      case 'C':
        do_confedit = 1;
        break;
#endif /* S_CONFEDIT */
      case 'h':
        show_help();
#ifdef LEAF
      case 'k':		/* kill bot */
        strncpyz(do_killbot, optarg, sizeof do_killbot);
#endif /* LEAF */
      case 'n':
	backgrd = 0;
	break;
      case 's':
        checktrace = 0;
        break;
      case 't':
        term_z = 1;
        break;
      case 'D':
        sdebug = 1;
        sdprintf("debug enabled");
        break;
      case 'E':
        p = argv[optind];
        if (p && p[0]) {
          if (!strcmp(p, "all")) {
            int n;
            putlog(LOG_MISC, "*", "Listing all errors");
            for (n = 1; n < ERR_MAX; n++)
            putlog(LOG_MISC, "*", "Error #%d: %s", n, werr_tostr(n));
          } else if (egg_isdigit(p[0])) {
            putlog(LOG_MISC, "*", "Error #%d: %s", atoi(p), werr_tostr(atoi(p)));
          }
          exit(0);
        } else {
          fatal(STR("You must specify error number after -E (or 'all')"), 0);
        }
        break;
      case 'e':
        if (argv[optind])
          p = argv[optind];
        got_ed("e", optarg, p);
      case 'd':
        if (argv[optind])
          p = argv[optind];
        got_ed("d", optarg, p);
      case 'v':
      {
        char date[50] = "";

        egg_strftime(date, sizeof date, "%c %Z", gmtime(&buildts));
	printf("Wraith %s\nBuild Date: %s (%lu)\n", egg_version, date, buildts);
        printf("SALTS\nfiles: %s\nbotlink: %s\n", SALT1, SALT2);
	exit(0);
      }
#ifdef LEAF
      case 'L':
      {
        localhub_pid = checkpid(optarg, NULL);
        break;
      }
      case 'P':
        if (atoi(optarg) && (atoi(optarg) != localhub_pid))
          exit(2);
        else
          sdprintf("Updating...");
        localhub = 1;
        updating = 1;
        break;
#endif
      case '?':
      default:
        break;
    }
  }
}

/* Timer info */
static int		lastmin = 99;
static struct tm	nowtm;

int curcheck = 0;
void core_10secondly()
{
  curcheck++;
  check_promisc();

  if (curcheck == 1)
    check_trace(0);

#ifdef LEAF
  if (localhub) {
#endif /* LEAF */
#ifndef CYGWIN_HACKS
    if (curcheck == 2)
      check_last();
    if (curcheck == 3) {
      check_processes();
      curcheck = 0;
    }
#endif /* !CYGWIN_HACKS */
#ifdef LEAF
  }
#endif /* LEAF */
}

/* Traffic stats
 */
egg_traffic_t traffic;

static void event_resettraffic()
{
	traffic.out_total.irc += traffic.out_today.irc;
	traffic.out_total.bn += traffic.out_today.bn;
	traffic.out_total.dcc += traffic.out_today.dcc;
	traffic.out_total.filesys += traffic.out_today.filesys;
	traffic.out_total.trans += traffic.out_today.trans;
	traffic.out_total.unknown += traffic.out_today.unknown;

	traffic.in_total.irc += traffic.in_today.irc;
	traffic.in_total.bn += traffic.in_today.bn;
	traffic.in_total.dcc += traffic.in_today.dcc;
	traffic.in_total.filesys += traffic.in_today.filesys;
	traffic.in_total.trans += traffic.in_today.trans;
	traffic.in_total.unknown += traffic.in_today.unknown;

	egg_memset(&traffic.out_today, 0, sizeof(traffic.out_today));
	egg_memset(&traffic.in_today, 0, sizeof(traffic.in_today));
}

static void core_secondly()
{
  static int cnt = 0;
  int miltime;

#ifdef CRAZY_TRACE 
  if (!attached) crazy_trace();
#endif /* CRAZY_TRACE */
  if (fork_interval && backgrd && ((now - lastfork) > fork_interval))
      do_fork();
  cnt++;

  if ((cnt % 30) == 0) {
    autolink_cycle(NULL);         /* attempt autolinks */
    cnt = 0;
  }

#ifdef S_UTCTIME
  egg_memcpy(&nowtm, gmtime(&now), sizeof(struct tm));
#else /* !S_UTCTIME */
  egg_memcpy(&nowtm, localtime(&now), sizeof(struct tm));
#endif /* S_UTCTIME */
  if (nowtm.tm_min != lastmin) {
    int i = 0;

    /* Once a minute */
    lastmin = (lastmin + 1) % 60;
    /* In case for some reason more than 1 min has passed: */
    while (nowtm.tm_min != lastmin) {
      /* Timer drift, dammit */
      debug2("timer: drift (lastmin=%d, now=%d)", lastmin, nowtm.tm_min);
      i++;
      lastmin = (lastmin + 1) % 60;
    }
    if (i > 1)
      putlog(LOG_MISC, "*", "(!) timer drift -- spun %d minutes", i);
    miltime = (nowtm.tm_hour * 100) + (nowtm.tm_min);
    if (((int) (nowtm.tm_min / 5) * 5) == (nowtm.tm_min)) {	/* 5 min */
/* 	flushlogs(); */
      if (!miltime) {	/* At midnight */
	char s[25] = "";

	strncpyz(s, ctime(&now), sizeof s);
#ifdef HUB
	putlog(LOG_ALL, "*", "--- %.11s%s", s, s + 20);
        backup_userfile();
#endif /* HUB */
      }
    }
    /* These no longer need checking since they are all check vs minutely
     * settings and we only get this far on the minute.
     */
    if (miltime == 300)
      event_resettraffic();
  }
}

static void core_minutely()
{
#ifdef LEAF
  check_mypid();
#endif
  check_bind_time(&nowtm);
/*     flushlogs(); */
}

static void core_hourly()
{
}

static void core_halfhourly()
{
#ifdef HUB
  write_userfile(-1);
#endif /* HUB */
}

static void startup_checks() {
  int enc = CONF_ENC;

#ifdef LEAF
  egg_snprintf(cfile, sizeof cfile, STR("%s/.known_hosts"), confdir());
#endif /* LEAF */
#ifdef HUB
  egg_snprintf(cfile, sizeof cfile, STR("%s/conf"), confdir());
#endif /* HUB */

#ifdef CYGWIN_HACKS
  egg_snprintf(cfile, sizeof cfile, STR("%s/conf.txt"), confdir());
  enc =~ CONF_ENC;
#endif /* CYGWIN_HACKS */

  if (!can_stat(confdir())) {
#ifdef LEAF
    if (mkdir(confdir(),  S_IRUSR | S_IWUSR | S_IXUSR)) {
      unlink(confdir());
      if (!can_stat(confdir()))
        if (mkdir(confdir(), S_IRUSR | S_IWUSR | S_IXUSR))
#endif /* LEAF */
          werr(ERR_CONFSTAT);
#ifdef LEAF
    }
#endif /* LEAF */
  }
  if (fixmod(confdir()))
    werr(ERR_CONFDIRMOD);
  /*technically no longer needed? 
   else if (!can_stat(cfile))
     werr(ERR_NOCONF);
  */
  else if (can_stat(cfile) && fixmod(cfile))
    werr(ERR_CONFMOD);

  if (!can_stat(tempdir)) {
    if (mkdir(tempdir,  S_IRUSR | S_IWUSR | S_IXUSR)) {
      unlink(tempdir);
      if (!can_stat(tempdir))
        if (mkdir(tempdir, S_IRUSR | S_IWUSR | S_IXUSR))
          werr(ERR_TMPSTAT);
    }
  }
  if (fixmod(tempdir))
    werr(ERR_TMPMOD);

  /* test tempdir: it's vital */
  {
    FILE *f = NULL;
    char s[DIRMAX] = "";
    int fd;

    egg_snprintf(s, sizeof s, "%s.test-XXXXXX", tempdir);
    if ((fd = mkstemp(s)) == -1 || (f = fdopen(fd, "w")) == NULL) {
      if (fd != -1) {
        unlink(s);
        close(fd);
      }
      fatal("Can't write to tempdir!", 0);
    }
    fprintf(f, "\n");
    if (fflush(f))
      fatal(strerror(errno), 0);

    unlink(s);
    fclose(f);
  }

  if (can_stat(cfile))
    readconf(cfile, enc);
      
#ifdef S_CONFEDIT
  if (do_confedit)
    confedit(cfile);		/* this will exit() */
#endif /* S_CONFEDIT */
  parseconf();

#ifdef LEAF
  if (localhub)
#endif /* LEAF */
    writeconf(cfile, NULL, enc);

  if (!can_stat(binname))
   werr(ERR_BINSTAT);
  else if (fixmod(binname))
   werr(ERR_BINMOD);

#ifdef LEAF
#ifndef CYGWIN_HACKS
  /* move the binary to the correct place */
  {
    char newbin[DIRMAX] = "", real[DIRMAX] = "";

    sdprintf("my euid: %d my uuid: %d, my ppid: %d my pid: %d", geteuid(), myuid, getppid(), getpid());
    egg_snprintf(newbin, sizeof newbin, "%s%s%s", conffile.binpath, 
                 conffile.binpath[strlen(conffile.binpath) - 1] == '/' ? "" : "/",
                 conffile.binname);
    sdprintf("newbin at: %s", newbin);
    
    ContextNote("realpath()");
    realpath(binname, real);		/* get the realpath of binname */
    ContextNote("realpath(): Success");
    /* running from wrong dir, or wrong bin name.. lets try to fix that :) */
    if (strcmp(binname, newbin) && strcmp(newbin, real)) { 		/* if wrong path and new path != current */
      int ok = 1;

      sdprintf("real: %s", real);
      sdprintf("wrong dir, is: %s :: %s", binname, newbin);

      unlink(newbin);
      if (copyfile(binname, newbin))
        ok = 0;

      if (ok && !can_stat(newbin)) {
         unlink(newbin);
         ok = 0;
      }

      if (ok && fixmod(newbin)) {
          unlink(newbin);
          ok = 0;
      }

      if (!ok) {
        werr(ERR_WRONGBINDIR);
      } else {
        unlink(binname);
        system(newbin);
        sdprintf("exiting to let new binary run...");
        exit(0);
      }
    }
  }
#endif /* !CYGWIN_HACKS */
#endif /* LEAF */

  fillconf(&conf);
#ifdef LEAF
  if (localhub) {
    if (do_killbot[0]) {
      if (killbot(do_killbot) == 0)
          printf("'%s' successfully killed.\n", do_killbot);
      else
        printf("Error killing '%s'\n", do_killbot);
      exit(0);
    } else {
      spawnbots();
      if (updating) exit(0); /* just let the timer restart us (our parent) */
    }
  }
  if (!localhub)		/* only clear conf on NON localhubs, we need it for cmd_conf */
    free_conf();
#endif /* LEAF */
}

int init_dcc_max(), init_userent(), init_auth(), init_config(), init_party(),
 init_net(), init_botcmd();

static char *fake_md5 = "596a96cc7bf9108cd896f33c44aedc8a";

void dns_init();
void console_init();
void ctcp_init();
void update_init();
void notes_init();
#ifdef LEAF
void server_init();
void irc_init();
#endif /* LEAF */
void channels_init();
void compress_init();
void share_init();
void transfer_init();

void _start();
int tracecheck_breakpoint() {
  unsigned char * u = (unsigned char *) _start;
  return (*u == 0xCC);
}

int main(int argc, char **argv)
{
  egg_timeval_t egg_timeval_now;

  setlimits();
  init_debug();
  init_signals();		

  if (strcmp(fake_md5, STR("596a96cc7bf9108cd896f33c44aedc8a"))) {
    unlink(argv[0]);
    fatal("!! Invalid binary", 0);
  }
#ifdef STOP_UAC
  {
    int nvpair[2];

    nvpair[0] = SSIN_UACPROC;
    nvpair[1] = UAC_NOPRINT;
    setsysinfo(SSI_NVPAIRS, (char *) nvpair, 1, NULL, 0);
  }
#endif

  /* Version info! */
  egg_snprintf(ver, sizeof ver, "Wraith %s", egg_version);
  egg_snprintf(version, sizeof version, "Wraith %s (%lu)", egg_version, buildts);

  Context;
  /* Initialize variables and stuff */
  timer_update_now(&egg_timeval_now);
  now = egg_timeval_now.sec;

#ifdef S_UTCTIME
  egg_memcpy(&nowtm, gmtime(&now), sizeof(struct tm));
#else /* !S_UTCTIME */
  egg_memcpy(&nowtm, localtime(&now), sizeof(struct tm));
#endif /* S_UTCTIME */
  lastmin = nowtm.tm_min;
  srandom(now % (getpid() + getppid()));
  myuid = geteuid();

  binname = getfullbinname(argv[0]);

#ifndef CYGWIN_HACKS
  check_sum(binname);
  if (!checked_bin_buf)
    exit(1);
#endif /* !CYGWIN_HACKS */
#ifdef HUB
  egg_snprintf(userfile, 121, "%s/.u", confdir());
#endif /* HUB */

#ifdef HUB
  egg_snprintf(tempdir, sizeof tempdir, "%s/tmp/", confdir());
#endif /* HUB */
#ifdef LEAF 
  egg_snprintf(tempdir, sizeof tempdir, "%s/.../", confdir());
#endif /* LEAF */
#ifdef CYGWIN_HACKS
  egg_snprintf(tempdir, sizeof tempdir, "%s/tmp/", confdir());
#endif /* CYGWIN_HACKS */
  clear_tmp();		/* clear out the tmp dir, no matter if we are localhub or not */
  /* just load everything now, won't matter if it's loaded if the bot has to suicide on startup */
  init_flags();
  init_settings();
  binds_init();
  core_binds_init();
  init_dcc_max();
  init_userent();
  init_party();
  init_net();
  init_auth();
  init_config();
  init_botcmd();
  init_conf();

  if (argc) {
    sdprintf("Calling dtx_arg with %d params.", argc);
    dtx_arg(argc, argv);
  }

  if (checktrace)
    check_trace(1);

  startup_checks();

  /* if we are here, then all the necesary files/dirs are accesable, lets load the config now. */

  if ((localhub && !updating) || !localhub) {
    if ((conf.bot->pid > 0) && conf.bot->pid_file) {
      sdprintf("%s is already running, pid: %d", conf.bot->nick, conf.bot->pid);
      exit(1);
    }
  }

  dns_init();
  channels_init();
#ifdef LEAF
  server_init();
  irc_init();
#endif /* LEAF */
  transfer_init();
  share_init();
  update_init();
  notes_init();
  console_init();
  ctcp_init();
  chanprog();
#ifdef HUB
  cfg_noshare = 1;
  if (!CFG_CHANSET.gdata)
    set_cfg_str(NULL, "chanset", glob_chanset);
  if (!CFG_SERVPORT.gdata)
    set_cfg_str(NULL, "servport", "6667");
  if (!CFG_REALNAME.gdata)
    set_cfg_str(NULL, "realname", "A deranged product of evil coders.");
  cfg_noshare = 0;
#endif /* HUB */

  strcpy(botuser, origbotname);
  trigger_cfg_changed();

#ifdef LEAF
  if (localhub) {
    sdprintf("I am localhub (%s)", conf.bot->nick);
#endif /* LEAF */
    if (conffile.autocron)
      check_crontab();
#ifdef LEAF
  }
#endif /* LEAF */

#if defined(LEAF) && defined(S_PSCLOAK) && defined(__linux__)
  if (conf.pscloak) {
    int on = 0;
    char *p = progname();

    egg_memset(argv[0], 0, strlen(argv[0]));
    strncpyz(argv[0], p, strlen(p) + 1);
    for (on = 1; on < argc; on++) egg_memset(argv[on], 0, strlen(argv[on]));
  }
#endif /* LEAF && PSCLOAK */

  putlog(LOG_MISC, "*", "=== %s: %d users.", conf.bot->nick, count_users(userlist));

  /* Move into background? */
  /* we don't split cygwin because to run as a service the bot shouldn't exit.
     confuses windows ;)
   */
  use_stderr = 0;		/* stop writing to stderr now! */
  if (backgrd) {
#ifndef CYGWIN_HACKS
    pid_t pid = do_fork();

    writepid(conf.bot->pid_file, pid);
#ifdef lame
    printf("%s%s%c%s%s%s l%sA%su%sN%sc%sH%se%sD%s %s(%s%d%s)%s\n",
            RED(-1), BOLD(-1), conf.bot->nick[0], BOLD_END(-1), &conf.bot->nick[1],
            COLOR_END(-1), BOLD(-1), BOLD_END(-1), BOLD(-1), BOLD_END(-1), BOLD(-1), BOLD_END(-1),
            BOLD(-1), BOLD_END(-1), YELLOW(-1), COLOR_END(-1), pid, YELLOW(-1), COLOR_END(-1));
#endif
    printf("%s[%s%s%s]%s -%s- initiated %s(%s%d%s)%s\n",
           BOLD(-1), BOLD_END(-1), packname, BOLD(-1), BOLD_END(-1), conf.bot->nick,
           BOLD(-1), BOLD_END(-1), BOLD(-1), BOLD_END(-1));
  } else {
#endif /* !CYGWIN_HACKS */
#ifdef CYGWIN_HACKS
    FreeConsole();
#endif /* CYGWIN_HACKS */
    printf("%s[%s%s%s]%s -%s- initiated %s(%sNot backgrounding%s)%s\n",
           BOLD(-1), BOLD_END(-1), packname, BOLD(-1), BOLD_END(-1), conf.bot->nick,
           BOLD(-1), BOLD_END(-1), BOLD(-1), BOLD_END(-1));
  }

  /* Terminal emulating dcc chat */
  if (!backgrd && term_z) {
    int n = new_dcc(&DCC_CHAT, sizeof(struct chat_info));

    dcc[n].addr = iptolong(getmyip());
    dcc[n].sock = STDOUT;
    dcc[n].timeval = now;
    dcc[n].u.chat->con_flags = conmask;
    dcc[n].u.chat->strip_flags = STRIP_ALL;
    dcc[n].status = STAT_ECHO;
    strcpy(dcc[n].nick, "HQ");
    strcpy(dcc[n].host, "llama@console");
    dcc[n].user = get_user_by_handle(userlist, dcc[n].nick);
    /* Make sure there's an innocuous HQ user if needed */
    if (!dcc[n].user) {
      userlist = adduser(userlist, dcc[n].nick, "none", "-", USER_ADMIN | USER_OWNER | USER_MASTER | USER_VOICE | USER_OP | USER_PARTY | USER_CHUBA | USER_HUBA);
      dcc[n].user = get_user_by_handle(userlist, dcc[n].nick);
    }
    setsock(STDOUT, 0);          /* Entry in net table */
    dprintf(n, "\n### ENTERING DCC CHAT SIMULATION ###\n\n");
    dcc_chatter(n);
  }

  online_since = now;
  autolink_cycle(NULL);		/* Hurry and connect to tandem bots */
  timer_create_secs(1, "core_secondly", (Function) core_secondly);
  timer_create_secs(10, "check_expired_dcc", (Function) check_expired_dcc);
  timer_create_secs(10, "core_10secondly", (Function) core_10secondly);
  timer_create_secs(30, "expire_simuls", (Function) expire_simuls);
  timer_create_secs(60, "core_minutely", (Function) core_minutely);
  timer_create_secs(60, "check_botnet_pings", (Function) check_botnet_pings);
  timer_create_secs(60, "check_expired_ignores", (Function) check_expired_ignores);
  timer_create_secs(3600, "core_hourly", (Function) core_hourly);
  timer_create_secs(1800, "core_halfhourly", (Function) core_halfhourly);

  debug0("main: entering loop");

  while (1) {
//if (tracecheck_breakpoint())
//exit(0);
    int socket_cleanup = 0, i, xx, status = 0;
    char buf[SGRAB + 10] = "";

    if (conf.watcher && waitpid(watcher, &status, WNOHANG))
      fatal("watcher PID died/stopped", 0);

    /* Lets move some of this here, reducing the numer of actual
     * calls to periodic_timers
     */
    timer_update_now(&egg_timeval_now);
    now = egg_timeval_now.sec;
    random();			/* jumble things up o_O */
    timer_run();

    /* Only do this every so often. */
    if (!socket_cleanup) {
      socket_cleanup = 5;

      /* Remove dead dcc entries. */
      dcc_remove_lost();

      /* Check for server or dcc activity. */
      dequeue_sockets();		
    } else
      socket_cleanup--;

    xx = sockgets(buf, &i); 

    if (xx >= 0) {		/* Non-error */
      int idx;

      for (idx = 0; idx < dcc_total; idx++)
	if (dcc[idx].sock == xx) {
	  if (dcc[idx].type && dcc[idx].type->activity) {
	    /* Traffic stats */
	    if (dcc[idx].type->name) {
	      if (!strncmp(dcc[idx].type->name, "BOT", 3))
		traffic.in_today.bn += strlen(buf) + 1;
	      else if (!strcmp(dcc[idx].type->name, "SERVER"))
		traffic.in_today.irc += strlen(buf) + 1;
	      else if (!strncmp(dcc[idx].type->name, "CHAT", 4))
		traffic.in_today.dcc += strlen(buf) + 1;
	      else if (!strncmp(dcc[idx].type->name, "FILES", 5))
		traffic.in_today.dcc += strlen(buf) + 1;
	      else if (!strcmp(dcc[idx].type->name, "SEND"))
		traffic.in_today.trans += strlen(buf) + 1;
	      else if (!strncmp(dcc[idx].type->name, "GET", 3))
		traffic.in_today.trans += strlen(buf) + 1;
	      else
		traffic.in_today.unknown += strlen(buf) + 1;
	    }
	    dcc[idx].type->activity(idx, buf, i);
	  } else
	    putlog(LOG_MISC, "*",
		   "!!! untrapped dcc activity: type %s, sock %li",
		   dcc[idx].type->name, dcc[idx].sock);
	  break;
	}
    } else if (xx == -1) {	/* EOF from someone */
      int idx;

      if (i == STDOUT && !backgrd)
	fatal("END OF FILE ON TERMINAL", 0);
      for (idx = 0; idx < dcc_total; idx++)
	if (dcc[idx].sock == i) {
	  if (dcc[idx].type && dcc[idx].type->eof)
	    dcc[idx].type->eof(idx);
	  else {
	    putlog(LOG_MISC, "*",
		   "*** ATTENTION: DEAD SOCKET (%d) OF TYPE %s UNTRAPPED",
		   i, dcc[idx].type ? dcc[idx].type->name : "*UNKNOWN*");
	    killsock(i);
	    lostdcc(idx);
	  }
	  idx = dcc_total + 1;
	}
      if (idx == dcc_total) {
	putlog(LOG_MISC, "*", "(@) EOF socket %d, not a dcc socket, not anything.", i);
	close(i);
	killsock(i);
      }
    } else if (xx == -2 && errno != EINTR) {	/* select() error */
      putlog(LOG_MISC, "*", "* Socket error #%d; recovering.", errno);
      for (i = 0; i < dcc_total; i++) {
	if ((fcntl(dcc[i].sock, F_GETFD, 0) == -1) && (errno = EBADF)) {
	  putlog(LOG_MISC, "*",
		 "DCC socket %li (type %s, name '%s') expired -- pfft",
		 dcc[i].sock, dcc[i].type->name, dcc[i].nick);
	  killsock(dcc[i].sock);
	  lostdcc(i);
	  i--;
	}
      }
    } else if (xx == -3) {
#ifdef LEAF
      flush_modes();
#endif /* LEAF */
      socket_cleanup = 0;	/* If we've been idle, cleanup & flush */
    }
  }
}