#include "main.h"
#include "tandem.h"
#include "users.h"
#include "chan.h"
#include "modules.h"
extern char botnetnick[], ver[], admin[], network[], motdfile[];
extern int dcc_total, remote_boots, noshare, timesync;
extern struct dcc_t *dcc;
extern struct chanset_t *chanset;
extern struct userrec *userlist;
extern Tcl_Interp *interp;
extern time_t now, online_since;
extern party_t *party;
extern module_entry *module_list;
static char TBUF[1024];
static char base64to[256] =
  { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 52, 53, 54, 55, 56, 57, 58, 59,
60, 61, 0, 0, 0, 0, 0, 0, 0, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19,
20, 21, 22, 23, 24, 25, 62, 0, 63, 0, 0, 0, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39,
40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 };
int
base64_to_int (char *buf)
{
  int i = 0;
  while (*buf)
    {
      i = i << 6;
      i += base64to[(int) *buf];
      buf++;
    } return i;
}
static int fakesock = 2300;
static void
fake_alert (int idx, char *item, char *extra)
{
  static unsigned long lastfake;
  if (now - lastfake > 10)
    {
      dprintf (idx, "ct %s NOTICE: %s (%s != %s).\n", botnetnick,
	       NET_FAKEREJECT, item, extra);
      putlog (LOG_BOTS, "*", "%s %s (%s != %s).", dcc[idx].nick,
	      NET_FAKEREJECT, item, extra);
      lastfake = now;
    }
}
static void
bot_chan2 (int idx, char *msg)
{
  char *from, *p;
  int i, chan;
  if (bot_flags (dcc[idx].user) & BOT_ISOLATE)
    return;
  from = newsplit (&msg);
  p = newsplit (&msg);
  chan = base64_to_int (p);
  for (p = from; *p;)
    {
      if ((*p < 32) || (*p == 127))
	strcpy (p, p + 1);
      else
	p++;
    }
  p = strchr (from, '@');
  if (p)
    {
      sprintf (TBUF, "<%s> %s", from, msg);
      *p = 0;
      if (!partyidle (p + 1, from))
	{
	  *p = '@';
	  fake_alert (idx, "user", from);
	  return;
	}
      *p = '@';
      p++;
    }
  else
    {
      sprintf (TBUF, "*** (%s) %s", from, msg);
      p = from;
    }
  i = nextbot (p);
  if (i != idx)
    {
      fake_alert (idx, "direction", p);
    }
  else
    {
      chanout_but (-1, chan, "%s\n", TBUF);
      if (i >= 0)
	botnet_send_chan (idx, from, NULL, chan, msg);
      if (strchr (from, '@') != NULL)
	check_tcl_chat (from, chan, msg);
      else
	check_tcl_bcst (from, chan, msg);
    }
}

#ifdef S_DCCPASS
void
bot_cmdpass (int idx, char *par)
{
  char *p;
  p = strchr (par, ' ');
  if (p)
    {
      *p++ = 0;
      botnet_send_cmdpass (idx, par, p);
      p--;
      *p = ' ';
    }
  else
    {
      botnet_send_cmdpass (idx, par, "");
    }
  set_cmd_pass (par, 0);
}
#endif
void
bot_config (int idx, char *par)
{
  got_config_share (idx, par);
} void
bot_remotecmd (int idx, char *par)
{
  char *tbot, *fbot, *fhnd, *fidx;
  tbot = newsplit (&par);
  fbot = newsplit (&par);
  fhnd = newsplit (&par);
  fidx = newsplit (&par);
  if (!strcmp (tbot, botnetnick))
    {
      gotremotecmd (tbot, fbot, fhnd, fidx, par);
    }
  else if (!strcmp (tbot, "*"))
    {
      botnet_send_cmd_broad (idx, fbot, fhnd, atoi (fidx), par);
      gotremotecmd (tbot, fbot, fhnd, fidx, par);
    }
  else
    {
      if (nextbot (tbot) != idx)
	botnet_send_cmd (fbot, tbot, fhnd, atoi (fidx), par);
    }
}
void
bot_remotereply (int idx, char *par)
{
  char *tbot, *fbot, *fhnd, *fidx;
  tbot = newsplit (&par);
  fbot = newsplit (&par);
  fhnd = newsplit (&par);
  fidx = newsplit (&par);
  if (!strcmp (tbot, botnetnick))
    {
      gotremotereply (fbot, fhnd, fidx, par);
    }
  else
    {
      if (nextbot (tbot) != idx)
	botnet_send_cmdreply (fbot, tbot, fhnd, fidx, par);
    }
}
static void
bot_chat (int idx, char *par)
{
  char *from;
  int i;
  if (bot_flags (dcc[idx].user) & BOT_ISOLATE)
    return;
  from = newsplit (&par);
  if (strchr (from, '@') != NULL)
    {
      fake_alert (idx, "bot", from);
      return;
    }
  i = nextbot (from);
  if (i != idx)
    {
      fake_alert (idx, "direction", from);
      return;
    }
  chatout ("*** (%s) %s\n", from, par);
  botnet_send_chat (idx, from, par);
}
static void
bot_actchan (int idx, char *par)
{
  char *from, *p;
  int i, chan;
  if (bot_flags (dcc[idx].user) & BOT_ISOLATE)
    return;
  from = newsplit (&par);
  p = strchr (from, '@');
  if (p == NULL)
    {
      fake_alert (idx, "user@bot", from);
      return;
    }
  *p = 0;
  if (!partyidle (p + 1, from))
    {
      *p = '@';
      fake_alert (idx, "user", from);
      return;
    }
  *p = '@';
  p++;
  i = nextbot (p);
  if (i != idx)
    {
      fake_alert (idx, "direction", p);
      return;
    }
  p = newsplit (&par);
  chan = base64_to_int (p);
  for (p = from; *p;)
    {
      if ((*p < 32) || (*p == 127))
	strcpy (p, p + 1);
      else
	p++;
    }
  chanout_but (-1, chan, "* %s %s\n", from, par);
  botnet_send_act (idx, from, NULL, chan, par);
  check_tcl_act (from, chan, par);
}
static void
bot_priv (int idx, char *par)
{
  char *from, *p, *to = TBUF, *tobot;
  int i;
  from = newsplit (&par);
  tobot = newsplit (&par);
  splitc (to, tobot, '@');
  p = strchr (from, '@');
  if (p != NULL)
    p++;
  else
    p = from;
  i = nextbot (p);
  if (i != idx)
    {
      fake_alert (idx, "direction", p);
      return;
    }
  if (!to[0])
    return;
  if (!egg_strcasecmp (tobot, botnetnick))
    {
      if (p == from)
	add_note (to, from, par, -2, 0);
      else
	{
	  i = add_note (to, from, par, -1, 0);
	  if (from[0] != '@')
	    switch (i)
	      {
	      case NOTE_ERROR:
		botnet_send_priv (idx, botnetnick, from, NULL, "%s %s.",
				  BOT_NOSUCHUSER, to);
		break;
	      case NOTE_STORED:
		botnet_send_priv (idx, botnetnick, from, NULL, "%s",
				  BOT_NOTESTORED2);
		break;
	      case NOTE_FULL:
		botnet_send_priv (idx, botnetnick, from, NULL, "%s",
				  BOT_NOTEBOXFULL);
		break;
	      case NOTE_AWAY:
		botnet_send_priv (idx, botnetnick, from, NULL, "%s %s", to,
				  BOT_NOTEISAWAY);
		break;
	      case NOTE_FWD:
		botnet_send_priv (idx, botnetnick, from, NULL, "%s %s",
				  "Not online; note forwarded to:", to);
		break;
	      case NOTE_REJECT:
		botnet_send_priv (idx, botnetnick, from, NULL, "%s %s", to,
				  "rejected your note.");
		break;
	      case NOTE_TCL:
		break;
	      case NOTE_OK:
		botnet_send_priv (idx, botnetnick, from, NULL, "%s %s.",
				  BOT_NOTESENTTO, to);
		break;
	      }
	}
    }
  else
    {
      i = nextbot (tobot);
      if (i >= 0)
	botnet_send_priv (i, from, to, tobot, "%s", par);
    }
}
static void
bot_bye (int idx, char *par)
{
  char s[1024];
  int users, bots;
  bots = bots_in_subtree (findbot (dcc[idx].nick));
  users = users_in_subtree (findbot (dcc[idx].nick));
  simple_sprintf (s, "%s %s. %s (lost %d bot%s and %d user%s)",
		  BOT_DISCONNECTED, dcc[idx].nick, par[0] ? par : "No reason",
		  bots, (bots != 1) ? "s" : "", users,
		  (users != 1) ? "s" : "");
  putlog (LOG_BOTS, "*", "%s", s);
  chatout ("*** %s\n", s);
  botnet_send_unlinked (idx, dcc[idx].nick, s);
  dprintf (idx, "*bye\n");
  killsock (dcc[idx].sock);
  lostdcc (idx);
} static void
remote_tell_who (int idx, char *nick, int chan)
{
  int i = 10, k, l, ok = 0;
  char s[1024], *realnick;
  struct chanset_t *c;
  realnick = strchr (nick, ':');
  if (realnick)
    realnick++;
  else
    realnick = nick;
  putlog (LOG_BOTS, "*", "#%s# who", realnick);
  strcpy (s, "Channels: ");
  for (c = chanset; c; c = c->next)
    if (!channel_secret (c) && !channel_inactive (c))
      {
	l = strlen (c->name);
	if (i + l < 1021)
	  {
	    if (i > 10)
	      sprintf (s, "%s, %s", s, c->name);
	    else
	      {
		strcpy (s, c->name);
		i += (l + 2);
	      }
	  }
      }
  if (i > 10)
    {
      botnet_send_priv (idx, botnetnick, nick, NULL, "%s  (%s)", s, ver);
    }
  else
    botnet_send_priv (idx, botnetnick, nick, NULL, "%s  (%s)", BOT_NOCHANNELS,
		      ver);
  if (admin[0])
    botnet_send_priv (idx, botnetnick, nick, NULL, "Admin: %s", admin);
  if (chan == 0)
    botnet_send_priv (idx, botnetnick, nick, NULL,
		      "%s  (* = %s, + = %s, @ = %s)", BOT_PARTYMEMBS,
		      MISC_OWNER, MISC_MASTER, MISC_OP);
  else
    {
      simple_sprintf (s, "assoc %d", chan);
      if ((Tcl_Eval (interp, s) != TCL_OK) || !interp->result[0])
	botnet_send_priv (idx, botnetnick, nick, NULL,
			  "%s %s%d:  (* = %s, + = %s, @ = %s)\n",
			  BOT_PEOPLEONCHAN, (chan < GLOBAL_CHANS) ? "" : "*",
			  chan % GLOBAL_CHANS, MISC_OWNER, MISC_MASTER,
			  MISC_OP);
      else
	botnet_send_priv (idx, botnetnick, nick, NULL,
			  "%s '%s' (%s%d):  (* = %s, + = %s, @ = %s)\n",
			  BOT_PEOPLEONCHAN, interp->result,
			  (chan < GLOBAL_CHANS) ? "" : "*",
			  chan % GLOBAL_CHANS, MISC_OWNER, MISC_MASTER,
			  MISC_OP);
    }
  for (i = 0; i < dcc_total; i++)
    if (dcc[i].type->flags & DCT_REMOTEWHO)
      if (dcc[i].u.chat->channel == chan)
	{
	  k =
	    sprintf (s, "  %c%-15s %s",
		     (geticon (i) == '-' ? ' ' : geticon (i)), dcc[i].nick,
		     dcc[i].host);
	  if (now - dcc[i].timeval > 300)
	    {
	      unsigned long days, hrs, mins;
	      days = (now - dcc[i].timeval) / 86400;
	      hrs = ((now - dcc[i].timeval) - (days * 86400)) / 3600;
	      mins = ((now - dcc[i].timeval) - (hrs * 3600)) / 60;
	      if (days > 0)
		sprintf (s + k, " (%s %lud%luh)", MISC_IDLE, days, hrs);
	      else if (hrs > 0)
		sprintf (s + k, " (%s %luh%lum)", MISC_IDLE, hrs, mins);
	      else
		sprintf (s + k, " (%s %lum)", MISC_IDLE, mins);
	    }
	  botnet_send_priv (idx, botnetnick, nick, NULL, "%s", s);
	  if (dcc[i].u.chat->away != NULL)
	    botnet_send_priv (idx, botnetnick, nick, NULL, "      %s: %s",
			      MISC_AWAY, dcc[i].u.chat->away);
	}
  for (i = 0; i < dcc_total; i++)
    if (dcc[i].type == &DCC_BOT)
      {
	if (!ok)
	  {
	    ok = 1;
	    botnet_send_priv (idx, botnetnick, nick, NULL, "%s:",
			      BOT_BOTSCONNECTED);
	  }
	sprintf (s, "  %s%c%-15s %s",
		 dcc[i].status & STAT_CALLED ? "<-" : "->",
		 dcc[i].status & STAT_SHARE ? '+' : ' ', dcc[i].nick,
		 dcc[i].u.bot->version);
	botnet_send_priv (idx, botnetnick, nick, NULL, "%s", s);
      }
  ok = 0;
  for (i = 0; i < dcc_total; i++)
    if (dcc[i].type->flags & DCT_REMOTEWHO)
      if (dcc[i].u.chat->channel != chan)
	{
	  if (!ok)
	    {
	      ok = 1;
	      botnet_send_priv (idx, botnetnick, nick, NULL, "%s:",
				BOT_OTHERPEOPLE);
	    }
	  l =
	    sprintf (s, "  %c%-15s %s",
		     (geticon (i) == '-' ? ' ' : geticon (i)), dcc[i].nick,
		     dcc[i].host);
	  if (now - dcc[i].timeval > 300)
	    {
	      k = (now - dcc[i].timeval) / 60;
	      if (k < 60)
		sprintf (s + l, " (%s %dm)", MISC_IDLE, k);
	      else
		sprintf (s + l, " (%s %dh%dm)", MISC_IDLE, k / 60, k % 60);
	    }
	  botnet_send_priv (idx, botnetnick, nick, NULL, "%s", s);
	  if (dcc[i].u.chat->away != NULL)
	    botnet_send_priv (idx, botnetnick, nick, NULL, "      %s: %s",
			      MISC_AWAY, dcc[i].u.chat->away);
	}
}
static void
bot_sysname (int idx, char *par)
{
  dcc[idx].u.bot->sysname[0] = 0;
  strcpy (dcc[idx].u.bot->sysname, par);
} static void
bot_who (int idx, char *par)
{
  char *from, *to, *p;
  int i, chan;
  from = newsplit (&par);
  p = strchr (from, '@');
  if (!p)
    {
      sprintf (TBUF, "%s@%s", from, dcc[idx].nick);
      from = TBUF;
    }
  to = newsplit (&par);
  if (!egg_strcasecmp (to, botnetnick))
    to[0] = 0;
  chan = base64_to_int (par);
  if (to[0])
    {
      i = nextbot (to);
      if (i >= 0)
	botnet_send_who (i, from, to, chan);
    }
  else
    {
      remote_tell_who (idx, from, chan);
    }
}
static void
bot_endlink (int idx, char *par)
{
  dcc[idx].status &= ~STAT_LINKING;
} static void
bot_infoq (int idx, char *par)
{
  char s[200], s2[32], *realnick;
  struct chanset_t *chan;
  time_t now2;
  int hr, min;
  realnick = strchr (par, ':');
  if (realnick)
    realnick++;
  else
    realnick = par;
  putlog (LOG_BOTS, "@", "#%s# botinfo", realnick);
  now2 = now - online_since;
  s2[0] = 0;
  if (now2 > 86400)
    {
      int days = now2 / 86400;
      sprintf (s2, "%d day", days);
      if (days >= 2)
	strcat (s2, "s");
      strcat (s2, ", ");
      now2 -= days * 86400;
    }
  hr = (time_t) ((int) now2 / 3600);
  now2 -= (hr * 3600);
  min = (time_t) ((int) now2 / 60);
  sprintf (&s2[strlen (s2)], "%02d:%02d", (int) hr, (int) min);
  if (module_find ("server", 0, 0))
    {
      s[0] = 0;
      for (chan = chanset; chan; chan = chan->next)
	{
	  if (!channel_secret (chan))
	    {
	      if ((strlen (s) + strlen (chan->dname) + strlen (network) +
		   strlen (botnetnick) + strlen (ver) + 1) >= 200)
		{
		  strcat (s, "++  ");
		  break;
		}
	      strcat (s, chan->dname);
	      strcat (s, ", ");
	    }
	}
      if (s[0])
	{
	  s[strlen (s) - 2] = 0;
	  botnet_send_priv (idx, botnetnick, par, NULL,
			    "%s <%s> (%s) [UP %s]", ver, network, s, s2);
	}
      else
	botnet_send_priv (idx, botnetnick, par, NULL, "%s <%s> (%s) [UP %s]",
			  ver, network, BOT_NOCHANNELS, s2);
    }
  else
    botnet_send_priv (idx, botnetnick, par, NULL, "%s <NO_IRC> [UP %s]", ver,
		      s2);
  botnet_send_infoq (idx, par);
}
static void
bot_ping (int idx, char *par)
{
  botnet_send_pong (idx);
} static void
bot_pong (int idx, char *par)
{
  dcc[idx].status &= ~STAT_PINGED;
  if (dcc[idx].pingtime > (now - 120))
    dcc[idx].pingtime -= now;
  else
    dcc[idx].pingtime = 120;
}
static void
bot_link (int idx, char *par)
{
  char *from, *bot, *rfrom;
  int i;
  from = newsplit (&par);
  bot = newsplit (&par);
  if (!egg_strcasecmp (bot, botnetnick))
    {
      if ((rfrom = strchr (from, ':')))
	rfrom++;
      else
	rfrom = from;
      putlog (LOG_CMDS, "*", "#%s# link %s", rfrom, par);
      if (botlink (from, -1, par))
	botnet_send_priv (idx, botnetnick, from, NULL, "%s %s ...",
			  BOT_LINKATTEMPT, par);
      else
	botnet_send_priv (idx, botnetnick, from, NULL, "%s.",
			  BOT_CANTLINKTHERE);
    }
  else
    {
      i = nextbot (bot);
      if (i >= 0)
	botnet_send_link (i, from, bot, par);
    }
}
static void
bot_unlink (int idx, char *par)
{
  char *from, *bot, *rfrom, *p, *undes;
  int i;
  from = newsplit (&par);
  bot = newsplit (&par);
  undes = newsplit (&par);
  if (!egg_strcasecmp (bot, botnetnick))
    {
      if ((rfrom = strchr (from, ':')))
	rfrom++;
      else
	rfrom = from;
      putlog (LOG_CMDS, "*", "#%s# unlink %s (%s)", rfrom, undes,
	      par[0] ? par : "No reason");
      i = botunlink (-3, undes, par[0] ? par : NULL);
      if (i == 1)
	{
	  p = strchr (from, '@');
	  if (p)
	    {
	      i = nextbot (p + 1);
	      if (i >= 0)
		botnet_send_priv (i, botnetnick, from, NULL,
				  "Unlinked from %s.", undes);
	    }
	}
      else if (i == 0)
	{
	  botnet_send_unlinked (-1, undes, "");
	  p = strchr (from, '@');
	  if (p)
	    {
	      i = nextbot (p + 1);
	      if (i >= 0)
		botnet_send_priv (i, botnetnick, from, NULL, "%s %s.",
				  BOT_CANTUNLINK, undes);
	    }
	}
      else
	{
	  p = strchr (from, '@');
	  if (p)
	    {
	      i = nextbot (p + 1);
	      if (i >= 0)
		botnet_send_priv (i, botnetnick, from, NULL,
				  "Can't remotely unlink sharebots.");
	    }
	}
    }
  else
    {
      i = nextbot (bot);
      if (i >= 0)
	botnet_send_unlink (i, from, bot, undes, par);
    }
}
static void
bot_update (int idx, char *par)
{
  char *bot, x;
  int vnum;
  bot = newsplit (&par);
  x = par[0];
  if (x)
    par++;
  vnum = base64_to_int (par);
  if (in_chain (bot))
    updatebot (idx, bot, x, vnum);
}
static void
bot_mtcl (char *botnick, char *code, char *par)
{
  int oidx = 0, tcode = 0;
  char ret[2000], buf[2000];
  if (!par[0])
    return;
  oidx = atoi (newsplit (&par));
  if (!par[0])
    return;
  sprintf (buf, "%s", par);
  tcode = Tcl_GlobalEval (interp, buf);
  if (tcode == TCL_OK)
    sprintf (ret, "r_mt %d Tcl: %s", oidx, interp->result);
  else
    sprintf (ret, "r_mt %d Tcl error: %s", oidx, interp->result);
  putbot (botnick, ret);
}
static void
bot_rmtcl (char *botnick, char *code, char *par)
{
  int oidx = 0;
  oidx = atoi (newsplit (&par));
  if (!par[0])
    return;
  dprintf (oidx, "(%s) %s\n", botnick, par);
}
static void
bot_nlinked (int idx, char *par)
{
  char *newbot, *next, *p, s[1024], x;
  int bogus = 0, i;
  struct userrec *u;
  newbot = newsplit (&par);
  next = newsplit (&par);
  s[0] = 0;
  if (!next[0])
    {
      putlog (LOG_BOTS, "*", "Invalid eggnet protocol from %s (zapfing)",
	      dcc[idx].nick);
      simple_sprintf (s, "%s %s (%s)", MISC_DISCONNECTED, dcc[idx].nick,
		      MISC_INVALIDBOT);
      dprintf (idx, "error invalid eggnet protocol for 'nlinked'\n");
    }
  else if ((in_chain (newbot)) || (!egg_strcasecmp (newbot, botnetnick)))
    {
      putlog (LOG_BOTS, "*", "%s %s (mutual: %s)", BOT_LOOPDETECT,
	      dcc[idx].nick, newbot);
      simple_sprintf (s, "%s %s: disconnecting %s", MISC_LOOP, newbot,
		      dcc[idx].nick);
      dprintf (idx, "error Loop (%s)\n", newbot);
    }
  if (!s[0])
    {
      for (p = newbot; *p; p++)
	if ((*p < 32) || (*p == 127) || ((p - newbot) >= HANDLEN))
	  bogus = 1;
      i = nextbot (next);
      if (i != idx)
	bogus = 1;
    }
  if (bogus)
    {
      putlog (LOG_BOTS, "*", "%s %s!  (%s -> %s)", BOT_BOGUSLINK,
	      dcc[idx].nick, next, newbot);
      simple_sprintf (s, "%s: %s %s", BOT_BOGUSLINK, dcc[idx].nick,
		      MISC_DISCONNECTED);
      dprintf (idx, "error %s (%s -> %s)\n", BOT_BOGUSLINK, next, newbot);
    }
  if (bot_flags (dcc[idx].user) & BOT_LEAF)
    {
      putlog (LOG_BOTS, "*", "%s %s  (%s %s)", BOT_DISCONNLEAF, dcc[idx].nick,
	      newbot, BOT_LINKEDTO);
      simple_sprintf (s, "%s %s (to %s): %s", BOT_ILLEGALLINK, dcc[idx].nick,
		      newbot, MISC_DISCONNECTED);
      dprintf (idx, "error %s\n", BOT_YOUREALEAF);
    }
  if (s[0])
    {
      chatout ("*** %s\n", s);
      botnet_send_unlinked (idx, dcc[idx].nick, s);
      dprintf (idx, "bye %s\n", BOT_ILLEGALLINK);
      killsock (dcc[idx].sock);
      lostdcc (idx);
      return;
    }
  x = par[0];
  if (x)
    par++;
  else
    x = '-';
  i = base64_to_int (par);
  botnet_send_nlinked (idx, newbot, next, x, i);
  if (x == '!')
    {
      chatout ("*** (%s) %s %s.\n", next, NET_LINKEDTO, newbot);
      x = '-';
    }
  addbot (newbot, dcc[idx].nick, next, x, i);
  check_tcl_link (newbot, next);
  u = get_user_by_handle (userlist, newbot);
  if (bot_flags (u) & BOT_REJECT)
    {
      botnet_send_reject (idx, botnetnick, NULL, newbot, NULL, NULL);
      putlog (LOG_BOTS, "*", "%s %s %s %s", BOT_REJECTING, newbot, MISC_FROM,
	      dcc[idx].nick);
    }
}
static void
bot_unlinked (int idx, char *par)
{
  int i;
  char *bot;
  bot = newsplit (&par);
  i = nextbot (bot);
  if ((i >= 0) && (i != idx))
    fake_alert (idx, "direction", bot);
  else if (i >= 0)
    {
      if (par[0])
	chatout ("*** (%s) %s\n", lastbot (bot), par);
      botnet_send_unlinked (idx, bot, par);
      unvia (idx, findbot (bot));
      rembot (bot);
    }
}
static void
bot_trace (int idx, char *par)
{
  char *from, *dest;
  int i;
  from = newsplit (&par);
  dest = newsplit (&par);
  simple_sprintf (TBUF, "%s:%s", par, botnetnick);
  botnet_send_traced (idx, from, TBUF);
  if (egg_strcasecmp (dest, botnetnick) && ((i = nextbot (dest)) > 0))
    botnet_send_trace (i, from, dest, par);
}
static void
bot_traced (int idx, char *par)
{
  char *to, *p;
  int i, sock;
  to = newsplit (&par);
  p = strchr (to, '@');
  if (p == NULL)
    p = to;
  else
    {
      *p = 0;
      p++;
    }
  if (!egg_strcasecmp (p, botnetnick))
    {
      time_t t = 0;
      char *p = par, *ss = TBUF;
      splitc (ss, to, ':');
      if (ss[0])
	sock = atoi (ss);
      else
	sock = (-1);
      if (par[0] == ':')
	{
	  t = atoi (par + 1);
	  p = strchr (par + 1, ':');
	  if (p)
	    p++;
	  else
	    p = par + 1;
	}
      for (i = 0; i < dcc_total; i++)
	if ((dcc[i].type->flags & DCT_CHAT)
	    && (!egg_strcasecmp (dcc[i].nick, to)) && ((sock == (-1))
						       || (sock ==
							   dcc[i].sock)))
	  {
	    if (t)
	      {
		int j = 0;
		{
		  register char *c = p;
		  for (; *c != '\0'; c++)
		    if (*c == ':')
		      j++;
		}
		dprintf (i, "%s -> %s (%lu secs, %d hop%s)\n",
			 BOT_TRACERESULT, p, now - t, j, (j != 1) ? "s" : "");
	      }
	    else
	      dprintf (i, "%s -> %s\n", BOT_TRACERESULT, p);
	  }
    }
  else
    {
      i = nextbot (p);
      if (p != to)
	*--p = '@';
      if (i >= 0)
	botnet_send_traced (i, to, par);
    }
}
void
bot_timesync (int idx, char *par)
{
  putlog (LOG_DEBUG, "*", "Got timesync from %s: %s\n", dcc[idx].nick, par);
  timesync = atoi (par) - now;
#ifdef HUB
  send_timesync (-1);
#endif
} static void
bot_reject (int idx, char *par)
{
  char *from, *who, *destbot, *frombot;
  struct userrec *u;
  int i;
  if (bot_flags (dcc[idx].user) & BOT_ISOLATE)
    return;
  from = newsplit (&par);
  frombot = strchr (from, '@');
  if (frombot)
    frombot++;
  else
    frombot = from;
  i = nextbot (frombot);
  if (i != idx)
    {
      fake_alert (idx, "direction", frombot);
      return;
    }
  who = newsplit (&par);
  if (!(destbot = strchr (who, '@')))
    {
      i = nextbot (who);
      if (i < 0)
	{
	  botnet_send_priv (idx, botnetnick, from, NULL, "%s %s (%s)",
			    BOT_CANTUNLINK, who, BOT_DOESNTEXIST);
	}
      else if (!egg_strcasecmp (dcc[i].nick, who))
	{
	  char s[1024];
	  putlog (LOG_BOTS, "*", "%s %s %s", from, MISC_REJECTED,
		  dcc[i].nick);
	  dprintf (i, "bye %s\n", par[0] ? par : MISC_REJECTED);
	  simple_sprintf (s, "%s %s (%s: %s)", MISC_DISCONNECTED, dcc[i].nick,
			  from, par[0] ? par : MISC_REJECTED);
	  chatout ("*** %s\n", s);
	  botnet_send_unlinked (i, dcc[i].nick, s);
	  killsock (dcc[i].sock);
	  lostdcc (i);
	}
      else
	{
	  if (i >= 0)
	    botnet_send_reject (i, from, NULL, who, NULL, par);
	}
    }
  else
    {
      *destbot++ = 0;
      if (!egg_strcasecmp (destbot, botnetnick))
	{
	  int ok = 0;
	  if (remote_boots == 1)
	    {
	      frombot = strchr (from, '@');
	      if (frombot == NULL)
		frombot = from;
	      else
		frombot++;
	      u = get_user_by_handle (userlist, frombot);
	      if (!(bot_flags (u) & BOT_SHARE))
		{
		  add_note (from, botnetnick, "No non sharebot boots.", -1,
			    0);
		  ok = 1;
		}
	    }
	  else if (remote_boots == 0)
	    {
	      botnet_send_priv (idx, botnetnick, from, NULL, "%s",
				BOT_NOREMOTEBOOT);
	      ok = 1;
	    }
	  for (i = 0; (i < dcc_total) && (!ok); i++)
	    if ((!egg_strcasecmp (who, dcc[i].nick))
		&& (dcc[i].type->flags & DCT_CHAT))
	      {
		u = get_user_by_handle (userlist, dcc[i].nick);
		if (u
		    && ((u->flags & USER_OWNER)
			&& !(dcc[idx].user->flags & USER_ADMIN)))
		  {
		    add_note (from, botnetnick, BOT_NOOWNERBOOT, -1, 0);
		    return;
		  }
		do_boot (i, from, par);
		ok = 1;
		putlog (LOG_CMDS, "*", "#%s# boot %s (%s)", from, who,
			par[0] ? par : "No reason");
	      }
	}
      else
	{
	  i = nextbot (destbot);
	  *--destbot = '@';
	  if (i >= 0)
	    botnet_send_reject (i, from, NULL, who, NULL, par);
	}
    }
}
static void
bot_thisbot (int idx, char *par)
{
  if (egg_strcasecmp (par, dcc[idx].nick))
    {
      char s[1024];
      putlog (LOG_BOTS, "*", NET_WRONGBOT, dcc[idx].nick, par);
      dprintf (idx, "bye %s\n", MISC_IMPOSTER);
      simple_sprintf (s, "%s %s (%s)", MISC_DISCONNECTED, dcc[idx].nick,
		      MISC_IMPOSTER);
      chatout ("*** %s\n", s);
      botnet_send_unlinked (idx, dcc[idx].nick, s);
      unvia (idx, findbot (dcc[idx].nick));
      killsock (dcc[idx].sock);
      lostdcc (idx);
      return;
    }
  if (bot_flags (dcc[idx].user) & BOT_LEAF)
    dcc[idx].status |= STAT_LEAF;
  noshare = 1;
  change_handle (dcc[idx].user, par);
  noshare = 0;
  strcpy (dcc[idx].nick, par);
}
static void
bot_hublog (char *botnick, char *code, char *par)
{
#ifdef HUB
  int type;
  type = atoi (newsplit (&par));
  putlog (type, "@", "(%s) %s", botnick, par);
#endif
} static void
bot_handshake (int idx, char *par)
{
  struct userrec *u = get_user_by_handle (userlist, dcc[idx].nick);
  noshare = 1;
  set_user (&USERENTRY_PASS, u, par);
  noshare = 0;
} static void
bot_zapf (int idx, char *par)
{
  char *from, *to;
  int i;
  from = newsplit (&par);
  to = newsplit (&par);
  i = nextbot (from);
  if (i != idx)
    {
      fake_alert (idx, "direction", from);
      return;
    }
  if (!egg_strcasecmp (to, botnetnick))
    {
      char *opcode;
      opcode = newsplit (&par);
      check_tcl_bot (from, opcode, par);
      return;
    }
  i = nextbot (to);
  if (i >= 0)
    botnet_send_zapf (i, from, to, par);
}
static void
bot_zapfbroad (int idx, char *par)
{
  char *from, *opcode;
  int i;
  from = newsplit (&par);
  opcode = newsplit (&par);
  i = nextbot (from);
  if (i != idx)
    {
      fake_alert (idx, "direction", from);
      return;
    }
  check_tcl_bot (from, opcode, par);
  botnet_send_zapf_broad (idx, from, opcode, par);
}
static void
bot_filereject (int idx, char *par)
{
  char *path, *to, *tobot, *p;
  int i;
  path = newsplit (&par);
  to = newsplit (&par);
  if ((tobot = strchr (to, '@')))
    tobot++;
  else
    tobot = to;
  if (egg_strcasecmp (tobot, botnetnick))
    {
      p = strchr (to, ':');
      if (p != NULL)
	{
	  *p = 0;
	  for (i = 0; i < dcc_total; i++)
	    {
	      if (dcc[i].sock == atoi (to))
		dprintf (i, "%s (%s): %s\n", BOT_XFERREJECTED, path, par);
	    }
	  *p = ':';
	}
      putlog (LOG_FILES, "*", "%s %s: %s", path, MISC_REJECTED, par);
    }
  else
    {
      i = nextbot (tobot);
      if (i >= 0)
	botnet_send_filereject (i, path, to, par);
    }
}
static void
bot_filereq (int idx, char *tobot)
{
  char *from, *path;
  int i;
  from = newsplit (&tobot);
  if ((path = strchr (tobot, ':')))
    {
      *path++ = 0;
      if (!egg_strcasecmp (tobot, botnetnick))
	{
	  module_entry *fs = module_find ("filesys", 0, 0);
	  if (fs == NULL)
	    botnet_send_priv (idx, botnetnick, from, NULL, MOD_NOFILESYSMOD);
	  else
	    {
	      Function f = fs->funcs[FILESYS_REMOTE_REQ];
	      f (idx, from, path);
	    }
	}
      else
	{
	  i = nextbot (tobot);
	  if (i >= 0)
	    botnet_send_filereq (i, from, tobot, path);
	}
    }
}
static void
bot_filesend (int idx, char *par)
{
  char *botpath, *to, *tobot, *nick;
  int i;
  char *nfn;
  botpath = newsplit (&par);
  to = newsplit (&par);
  if ((tobot = strchr (to, '@')))
    {
      *tobot = 0;
      tobot++;
    }
  else
    {
      tobot = to;
    }
  if (!egg_strcasecmp (tobot, botnetnick))
    {
      nfn = strrchr (botpath, '/');
      if (nfn == NULL)
	{
	  nfn = strrchr (botpath, ':');
	  if (nfn == NULL)
	    nfn = botpath;
	  else
	    nfn++;
	}
      else
	nfn++;
      if ((nick = strchr (to, ':')))
	nick++;
      else
	nick = to;
      dprintf (DP_SERVER, "PRIVMSG %s :\001DCC SEND %s %s\001\n", nick, nfn,
	       par);
    }
  else
    {
      i = nextbot (tobot);
      if (i >= 0)
	{
	  *--tobot = '@';
	  botnet_send_filesend (i, botpath, to, par);
	}
    }
}
static void
bot_error (int idx, char *par)
{
  putlog (LOG_MISC | LOG_BOTS, "*", "%s: %s", dcc[idx].nick, par);
} static void
bot_nickchange (int idx, char *par)
{
  char *bot, *ssock, *newnick;
  int sock, i;
  if (bot_flags (dcc[idx].user) & BOT_ISOLATE)
    return;
  bot = newsplit (&par);
  i = nextbot (bot);
  if (i != idx)
    {
      fake_alert (idx, "direction", bot);
      return;
    }
  ssock = newsplit (&par);
  sock = base64_to_int (ssock);
  newnick = newsplit (&par);
  i = partynick (bot, sock, newnick);
  if (i < 0)
    {
      fake_alert (idx, "sock#", ssock);
      return;
    }
  chanout_but (-1, party[i].chan, "*** (%s) Nick change: %s -> %s\n", bot,
	       newnick, party[i].nick);
  botnet_send_nkch_part (idx, i, newnick);
}
static void
bot_join (int idx, char *par)
{
  char *bot, *nick, *x, *y;
  struct userrec *u;
  int i, sock, chan, i2, linking = 0;
  if (bot_flags (dcc[idx].user) & BOT_ISOLATE)
    return;
  bot = newsplit (&par);
  if (bot[0] == '!')
    {
      linking = 1;
      bot++;
    }
  if (b_status (idx) & STAT_LINKING)
    {
      linking = 1;
    }
  nick = newsplit (&par);
  x = newsplit (&par);
  chan = base64_to_int (x);
  y = newsplit (&par);
  if ((chan < 0) || !y[0])
    return;
  if (!y[0])
    {
      y[0] = '-';
      sock = 0;
    }
  else
    {
      sock = base64_to_int (y + 1);
    }
  if (sock == 0)
    sock = partysock (bot, nick);
  if (sock == 0)
    sock = fakesock++;
  i = nextbot (bot);
  if (i != idx)
    {
      fake_alert (idx, "direction", bot);
      return;
    }
  u = get_user_by_handle (userlist, nick);
  if (u)
    {
      sprintf (TBUF, "@%s", bot);
      touch_laston (u, TBUF, now);
    }
  i = addparty (bot, nick, chan, y[0], sock, par, &i2);
  botnet_send_join_party (idx, linking, i2, i);
  if (i != chan)
    {
      if (i >= 0)
	{
	  if (b_numver (idx) >= NEAT_BOTNET)
	    chanout_but (-1, i, "*** (%s) %s %s %s.\n", bot, nick,
			 NET_LEFTTHE, i ? "channel" : "party line");
	  check_tcl_chpt (bot, nick, sock, i);
	}
      if ((b_numver (idx) >= NEAT_BOTNET) && !linking)
	chanout_but (-1, chan, "*** (%s) %s %s %s.\n", bot, nick,
		     NET_JOINEDTHE, chan ? "channel" : "party line");
      check_tcl_chjn (bot, nick, chan, y[0], sock, par);
    }
}
static void
bot_part (int idx, char *par)
{
  char *bot, *nick, *etc;
  struct userrec *u;
  int sock, partyidx;
  int silent = 0;
  if (bot_flags (dcc[idx].user) & BOT_ISOLATE)
    return;
  bot = newsplit (&par);
  if (bot[0] == '!')
    {
      silent = 1;
      bot++;
    }
  nick = newsplit (&par);
  etc = newsplit (&par);
  sock = base64_to_int (etc);
  if (sock == 0)
    sock = partysock (bot, nick);
  u = get_user_by_handle (userlist, nick);
  if (u)
    {
      sprintf (TBUF, "@%s", bot);
      touch_laston (u, TBUF, now);
    }
  if ((partyidx = getparty (bot, sock)) != -1)
    {
      if (party[partyidx].chan >= 0)
	check_tcl_chpt (bot, nick, sock, party[partyidx].chan);
      if ((b_numver (idx) >= NEAT_BOTNET) && !silent)
	{
	  register int chan = party[partyidx].chan;
	  if (par[0])
	    chanout_but (-1, chan, "*** (%s) %s %s %s (%s).\n", bot, nick,
			 NET_LEFTTHE, chan ? "channel" : "party line", par);
	  else
	    chanout_but (-1, chan, "*** (%s) %s %s %s.\n", bot, nick,
			 NET_LEFTTHE, chan ? "channel" : "party line");
	}
      botnet_send_part_party (idx, partyidx, par, silent);
      remparty (bot, sock);
    }
}
static void
bot_away (int idx, char *par)
{
  char *bot, *etc;
  int sock, partyidx, linking = 0;
  if (bot_flags (dcc[idx].user) & BOT_ISOLATE)
    return;
  bot = newsplit (&par);
  if (bot[0] == '!')
    {
      linking = 1;
      bot++;
    }
  if (b_status (idx) & STAT_LINKING)
    {
      linking = 1;
    }
  etc = newsplit (&par);
  sock = base64_to_int (etc);
  if (sock == 0)
    sock = partysock (bot, etc);
  check_tcl_away (bot, sock, par);
  if (par[0])
    {
      partystat (bot, sock, PLSTAT_AWAY, 0);
      partyaway (bot, sock, par);
    }
  else
    {
      partystat (bot, sock, 0, PLSTAT_AWAY);
    }
  partyidx = getparty (bot, sock);
  if ((b_numver (idx) >= NEAT_BOTNET) && !linking)
    {
      if (par[0])
	chanout_but (-1, party[partyidx].chan, "*** (%s) %s %s: %s.\n", bot,
		     party[partyidx].nick, NET_AWAY, par);
      else
	chanout_but (-1, party[partyidx].chan, "*** (%s) %s %s.\n", bot,
		     party[partyidx].nick, NET_UNAWAY);
    }
  botnet_send_away (idx, bot, sock, par, linking);
}
static void
bot_idle (int idx, char *par)
{
  char *bot, *work;
  int sock, idle;
  if (bot_flags (dcc[idx].user) & BOT_ISOLATE)
    return;
  bot = newsplit (&par);
  work = newsplit (&par);
  sock = base64_to_int (work);
  if (sock == 0)
    sock = partysock (bot, work);
  work = newsplit (&par);
  idle = base64_to_int (work);
  partysetidle (bot, sock, idle);
  if (par[0])
    {
      partystat (bot, sock, PLSTAT_AWAY, 0);
      partyaway (bot, sock, par);
    }
  botnet_send_idle (idx, bot, sock, idle, par);
}

void
bot_share (int idx, char *par)
{
  sharein (idx, par);
} void
bot_shareupdate (int idx, char *par)
{
  shareupdatein (idx, par);
} static void
bot_versions (int sock, char *par)
{
  char *frombot = newsplit (&par), *tobot, *from;
  module_entry *me;
  if (nextbot (frombot) != sock)
    fake_alert (sock, "versions-direction", frombot);
  else if (egg_strcasecmp (tobot = newsplit (&par), botnetnick))
    {
      if ((sock = nextbot (tobot)) >= 0)
	dprintf (sock, "v %s %s %s\n", frombot, tobot, par);
    }
  else
    {
      from = newsplit (&par);
      botnet_send_priv (sock, botnetnick, from, frombot, "Modules loaded:\n");
      for (me = module_list; me; me = me->next)
	botnet_send_priv (sock, botnetnick, from, frombot,
			  "  Module: %s (v%d.%d)\n", me->name, me->major,
			  me->minor);
      botnet_send_priv (sock, botnetnick, from, frombot,
			"End of module list.\n");
    }
}
botcmd_t C_bot[] = { {"a", (Function) bot_actchan}
, {"aw", (Function) bot_away}
, {"away", (Function) bot_away}
, {"bye", (Function) bot_bye}
, {"c", (Function) bot_chan2}
, {"cg", (Function) bot_config}
,
#ifdef S_DCCPASS
{"cp", (Function) bot_cmdpass}
,
#endif
{"ct", (Function) bot_chat}
, {"e", (Function) bot_error}
, {"el", (Function) bot_endlink}
, {"f!", (Function) bot_filereject}
, {"fr", (Function) bot_filereq}
, {"fs", (Function) bot_filesend}
, {"hs", (Function) bot_handshake}
, {"i", (Function) bot_idle}
, {"i?", (Function) bot_infoq}
, {"j", (Function) bot_join}
, {"l", (Function) bot_link}
, {"n", (Function) bot_nlinked}
, {"nc", (Function) bot_nickchange}
, {"p", (Function) bot_priv}
, {"pi", (Function) bot_ping}
, {"po", (Function) bot_pong}
, {"pt", (Function) bot_part}
, {"r", (Function) bot_reject}
, {"rc", (Function) bot_remotecmd}
, {"rr", (Function) bot_remotereply}
, {"s", (Function) bot_share}
, {"sb", (Function) bot_shareupdate}
, {"t", (Function) bot_trace}
, {"tb", (Function) bot_thisbot}
, {"td", (Function) bot_traced}
, {"ts", (Function) bot_timesync}
, {"u", (Function) bot_update}
, {"ul", (Function) bot_unlink}
, {"un", (Function) bot_unlinked}
, {"v", (Function) bot_versions}
, {"vs", (Function) bot_sysname}
, {"w", (Function) bot_who}
, {"z", (Function) bot_zapf}
, {"zb", (Function) bot_zapfbroad}
, {NULL, NULL}
};
static cmd_t my_bot[] =
  { {"hl", "", (Function) bot_hublog, NULL}, {"mt", "", (Function) bot_mtcl,
					      NULL}, {"r_mt", "",
						      (Function) bot_rmtcl,
						      NULL}, {NULL, NULL,
							      NULL, NULL} };
void
init_botcmd ()
{
  add_builtins (H_bot, my_bot);
}