wraith-ircbot/src/mod/channels.mod/cmdschan.c

#include <ctype.h>
static struct flag_record user = { FR_GLOBAL | FR_CHAN, 0, 0, 0, 0, 0 };
static struct flag_record victim = { FR_GLOBAL | FR_CHAN, 0, 0, 0, 0, 0 };
static void
cmd_pls_ban (struct userrec *u, int idx, char *par)
{
  char *chname, *who, s[UHOSTLEN], s1[UHOSTLEN], *p, *p_expire;
  unsigned long int expire_time = 0, expire_foo;
  int sticky = 0;
  struct chanset_t *chan = NULL;
  module_entry *me;
  if (!par[0])
    {
      dprintf (idx,
	       "Usage: +ban <hostmask> [channel] [%%<XdXhXm>] [reason]\n");
    }
  else
    {
      who = newsplit (&par);
      if (par[0] && strchr (CHANMETA, par[0]))
	chname = newsplit (&par);
      else
	chname = 0;
      if (chname || !(u->flags & USER_MASTER))
	{
	  if (!chname)
	    chname = dcc[idx].u.chat->con_chan;
	  get_user_flagrec (u, &user, chname);
	  chan = findchan_by_dname (chname);
	  if (!chan)
	    {
	      dprintf (idx, "That channel doesn't exist!\n");
	      return;
	    }
	  else if (!((glob_op (user) && !chan_deop (user)) || chan_op (user)))
	    {
	      dprintf (idx, "You don't have access to set bans on %s.\n",
		       chname);
	      return;
	    }
	}
      else
	chan = 0;
      if (par[0] == '%')
	{
	  p = newsplit (&par);
	  p_expire = p + 1;
	  while (*(++p) != 0)
	    {
	      switch (tolower (*p))
		{
		case 'd':
		  *p = 0;
		  expire_foo = strtol (p_expire, NULL, 10);
		  if (expire_foo > 365)
		    expire_foo = 365;
		  expire_time += 86400 * expire_foo;
		  p_expire = p + 1;
		  break;
		case 'h':
		  *p = 0;
		  expire_foo = strtol (p_expire, NULL, 10);
		  if (expire_foo > 8760)
		    expire_foo = 8760;
		  expire_time += 3600 * expire_foo;
		  p_expire = p + 1;
		  break;
		case 'm':
		  *p = 0;
		  expire_foo = strtol (p_expire, NULL, 10);
		  if (expire_foo > 525600)
		    expire_foo = 525600;
		  expire_time += 60 * expire_foo;
		  p_expire = p + 1;
		}
	    }
	}
      if (!par[0])
	par = "requested";
      else if (strlen (par) > MASKREASON_MAX)
	par[MASKREASON_MAX] = 0;
      if (strlen (who) > UHOSTMAX - 4)
	who[UHOSTMAX - 4] = 0;
      if (!strchr (who, '!'))
	{
	  if (!strchr (who, '@'))
	    egg_snprintf (s, sizeof s, "%s!*@*", who);
	  else
	    egg_snprintf (s, sizeof s, "*!%s", who);
	}
      else if (!strchr (who, '@'))
	egg_snprintf (s, sizeof s, "%s@*", who);
      else
	strncpyz (s, who, sizeof s);
      if ((me = module_find ("server", 0, 0)) && me->funcs)
	egg_snprintf (s1, sizeof s1, "%s!%s", me->funcs[SERVER_BOTNAME],
		      me->funcs[SERVER_BOTUSERHOST]);
      else
	egg_snprintf (s1, sizeof s1, "%s!%s@%s", origbotname, botuser,
		      hostname);
      if (wild_match (s, s1))
	{
	  dprintf (idx, "I'm not going to ban myself.\n");
	  putlog (LOG_CMDS, "*", "#%s# attempted +ban %s", dcc[idx].nick, s);
	}
      else
	{
	  if (strlen (s) > 70)
	    {
	      s[69] = '*';
	      s[70] = 0;
	    }
	  if (chan)
	    {
	      u_addban (chan, s, dcc[idx].nick, par,
			expire_time ? now + expire_time : 0, 0);
	      if (par[0] == '*')
		{
		  sticky = 1;
		  par++;
		  putlog (LOG_CMDS, "*", "#%s# (%s) +ban %s %s (%s) (sticky)",
			  dcc[idx].nick, dcc[idx].u.chat->con_chan, s,
			  chan->dname, par);
		  dprintf (idx, "New %s sticky ban: %s (%s)\n", chan->dname,
			   s, par);
		}
	      else
		{
		  putlog (LOG_CMDS, "*", "#%s# (%s) +ban %s %s (%s)",
			  dcc[idx].nick, dcc[idx].u.chat->con_chan, s,
			  chan->dname, par);
		  dprintf (idx, "New %s ban: %s (%s)\n", chan->dname, s, par);
		}
	      if ((me = module_find ("irc", 0, 0)))
		(me->funcs[IRC_CHECK_THIS_BAN]) (chan, s, sticky);
	    }
	  else
	    {
	      u_addban (NULL, s, dcc[idx].nick, par,
			expire_time ? now + expire_time : 0, 0);
	      if (par[0] == '*')
		{
		  sticky = 1;
		  par++;
		  putlog (LOG_CMDS, "*",
			  "#%s# (GLOBAL) +ban %s (%s) (sticky)",
			  dcc[idx].nick, s, par);
		  dprintf (idx, "New sticky ban: %s (%s)\n", s, par);
		}
	      else
		{
		  putlog (LOG_CMDS, "*", "#%s# (GLOBAL) +ban %s (%s)",
			  dcc[idx].nick, s, par);
		  dprintf (idx, "New ban: %s (%s)\n", s, par);
		}
	      if ((me = module_find ("irc", 0, 0)))
		for (chan = chanset; chan != NULL; chan = chan->next)
		  (me->funcs[IRC_CHECK_THIS_BAN]) (chan, s, sticky);
	    }
	}
    }
}

#ifdef S_IRCNET
static void
cmd_pls_exempt (struct userrec *u, int idx, char *par)
{
  char *chname, *who, s[UHOSTLEN], s1[UHOSTLEN], *p, *p_expire;
  unsigned long int expire_time = 0, expire_foo;
  struct chanset_t *chan = NULL;
  module_entry *me;
  if (!use_exempts)
    {
      dprintf (idx,
	       "This command can only be used with use-exempts enabled.\n");
      return;
    }
  if (!par[0])
    {
      dprintf (idx,
	       "Usage: +exempt <hostmask> [channel] [%%<XdXhXm>] [reason]\n");
    }
  else
    {
      who = newsplit (&par);
      if (par[0] && strchr (CHANMETA, par[0]))
	chname = newsplit (&par);
      else
	chname = 0;
      if (chname || !(u->flags & USER_MASTER))
	{
	  if (!chname)
	    chname = dcc[idx].u.chat->con_chan;
	  get_user_flagrec (u, &user, chname);
	  chan = findchan_by_dname (chname);
	  if (!chan)
	    {
	      dprintf (idx, "That channel doesn't exist!\n");
	      return;
	    }
	  else if (!((glob_op (user) && !chan_deop (user)) || chan_op (user)))
	    {
	      dprintf (idx, "You don't have access to set exempts on %s.\n",
		       chname);
	      return;
	    }
	}
      else
	chan = 0;
      if (par[0] == '%')
	{
	  p = newsplit (&par);
	  p_expire = p + 1;
	  while (*(++p) != 0)
	    {
	      switch (tolower (*p))
		{
		case 'd':
		  *p = 0;
		  expire_foo = strtol (p_expire, NULL, 10);
		  if (expire_foo > 365)
		    expire_foo = 365;
		  expire_time += 86400 * expire_foo;
		  p_expire = p + 1;
		  break;
		case 'h':
		  *p = 0;
		  expire_foo = strtol (p_expire, NULL, 10);
		  if (expire_foo > 8760)
		    expire_foo = 8760;
		  expire_time += 3600 * expire_foo;
		  p_expire = p + 1;
		  break;
		case 'm':
		  *p = 0;
		  expire_foo = strtol (p_expire, NULL, 10);
		  if (expire_foo > 525600)
		    expire_foo = 525600;
		  expire_time += 60 * expire_foo;
		  p_expire = p + 1;
		}
	    }
	}
      if (!par[0])
	par = "requested";
      else if (strlen (par) > MASKREASON_MAX)
	par[MASKREASON_MAX] = 0;
      if (strlen (who) > UHOSTMAX - 4)
	who[UHOSTMAX - 4] = 0;
      if (!strchr (who, '!'))
	{
	  if (!strchr (who, '@'))
	    egg_snprintf (s, sizeof s, "%s!*@*", who);
	  else
	    egg_snprintf (s, sizeof s, "*!%s", who);
	}
      else if (!strchr (who, '@'))
	egg_snprintf (s, sizeof s, "%s@*", who);
      else
	strncpyz (s, who, sizeof s);
      if ((me = module_find ("server", 0, 0)) && me->funcs)
	egg_snprintf (s1, sizeof s1, "%s!%s", me->funcs[SERVER_BOTNAME],
		      me->funcs[SERVER_BOTUSERHOST]);
      else
	egg_snprintf (s1, sizeof s1, "%s!%s@%s", origbotname, botuser,
		      hostname);
      if (strlen (s) > 70)
	{
	  s[69] = '*';
	  s[70] = 0;
	}
      if (chan)
	{
	  u_addexempt (chan, s, dcc[idx].nick, par,
		       expire_time ? now + expire_time : 0, 0);
	  if (par[0] == '*')
	    {
	      par++;
	      putlog (LOG_CMDS, "*", "#%s# (%s) +exempt %s %s (%s) (sticky)",
		      dcc[idx].nick, dcc[idx].u.chat->con_chan, s,
		      chan->dname, par);
	      dprintf (idx, "New %s sticky exempt: %s (%s)\n", chan->dname, s,
		       par);
	    }
	  else
	    {
	      putlog (LOG_CMDS, "*", "#%s# (%s) +exempt %s %s (%s)",
		      dcc[idx].nick, dcc[idx].u.chat->con_chan, s,
		      chan->dname, par);
	      dprintf (idx, "New %s exempt: %s (%s)\n", chan->dname, s, par);
	    }
	  add_mode (chan, '+', 'e', s);
	}
      else
	{
	  u_addexempt (NULL, s, dcc[idx].nick, par,
		       expire_time ? now + expire_time : 0, 0);
	  if (par[0] == '*')
	    {
	      par++;
	      putlog (LOG_CMDS, "*", "#%s# (GLOBAL) +exempt %s (%s) (sticky)",
		      dcc[idx].nick, s, par);
	      dprintf (idx, "New sticky exempt: %s (%s)\n", s, par);
	    }
	  else
	    {
	      putlog (LOG_CMDS, "*", "#%s# (GLOBAL) +exempt %s (%s)",
		      dcc[idx].nick, s, par);
	      dprintf (idx, "New exempt: %s (%s)\n", s, par);
	    }
	  for (chan = chanset; chan != NULL; chan = chan->next)
	    add_mode (chan, '+', 'e', s);
	}
    }
}
static void
cmd_pls_invite (struct userrec *u, int idx, char *par)
{
  char *chname, *who, s[UHOSTLEN], s1[UHOSTLEN], *p, *p_expire;
  unsigned long int expire_time = 0, expire_foo;
  struct chanset_t *chan = NULL;
  module_entry *me;
  if (!use_invites)
    {
      dprintf (idx,
	       "This command can only be used with use-invites enabled.\n");
      return;
    }
  if (!par[0])
    {
      dprintf (idx,
	       "Usage: +invite <hostmask> [channel] [%%<XdXhXm>] [reason]\n");
    }
  else
    {
      who = newsplit (&par);
      if (par[0] && strchr (CHANMETA, par[0]))
	chname = newsplit (&par);
      else
	chname = 0;
      if (chname || !(u->flags & USER_MASTER))
	{
	  if (!chname)
	    chname = dcc[idx].u.chat->con_chan;
	  get_user_flagrec (u, &user, chname);
	  chan = findchan_by_dname (chname);
	  if (!chan)
	    {
	      dprintf (idx, "That channel doesn't exist!\n");
	      return;
	    }
	  else if (!((glob_op (user) && !chan_deop (user)) || chan_op (user)))
	    {
	      dprintf (idx, "You don't have access to set invites on %s.\n",
		       chname);
	      return;
	    }
	}
      else
	chan = 0;
      if (par[0] == '%')
	{
	  p = newsplit (&par);
	  p_expire = p + 1;
	  while (*(++p) != 0)
	    {
	      switch (tolower (*p))
		{
		case 'd':
		  *p = 0;
		  expire_foo = strtol (p_expire, NULL, 10);
		  if (expire_foo > 365)
		    expire_foo = 365;
		  expire_time += 86400 * expire_foo;
		  p_expire = p + 1;
		  break;
		case 'h':
		  *p = 0;
		  expire_foo = strtol (p_expire, NULL, 10);
		  if (expire_foo > 8760)
		    expire_foo = 8760;
		  expire_time += 3600 * expire_foo;
		  p_expire = p + 1;
		  break;
		case 'm':
		  *p = 0;
		  expire_foo = strtol (p_expire, NULL, 10);
		  if (expire_foo > 525600)
		    expire_foo = 525600;
		  expire_time += 60 * expire_foo;
		  p_expire = p + 1;
		}
	    }
	}
      if (!par[0])
	par = "requested";
      else if (strlen (par) > MASKREASON_MAX)
	par[MASKREASON_MAX] = 0;
      if (strlen (who) > UHOSTMAX - 4)
	who[UHOSTMAX - 4] = 0;
      if (!strchr (who, '!'))
	{
	  if (!strchr (who, '@'))
	    egg_snprintf (s, sizeof s, "%s!*@*", who);
	  else
	    egg_snprintf (s, sizeof s, "*!%s", who);
	}
      else if (!strchr (who, '@'))
	egg_snprintf (s, sizeof s, "%s@*", who);
      else
	strncpyz (s, who, sizeof s);
      if ((me = module_find ("server", 0, 0)) && me->funcs)
	egg_snprintf (s1, sizeof s1, "%s!%s", me->funcs[SERVER_BOTNAME],
		      me->funcs[SERVER_BOTUSERHOST]);
      else
	egg_snprintf (s1, sizeof s1, "%s!%s@%s", origbotname, botuser,
		      hostname);
      if (strlen (s) > 70)
	{
	  s[69] = '*';
	  s[70] = 0;
	}
      if (chan)
	{
	  u_addinvite (chan, s, dcc[idx].nick, par,
		       expire_time ? now + expire_time : 0, 0);
	  if (par[0] == '*')
	    {
	      par++;
	      putlog (LOG_CMDS, "*", "#%s# (%s) +invite %s %s (%s) (sticky)",
		      dcc[idx].nick, dcc[idx].u.chat->con_chan, s,
		      chan->dname, par);
	      dprintf (idx, "New %s sticky invite: %s (%s)\n", chan->dname, s,
		       par);
	    }
	  else
	    {
	      putlog (LOG_CMDS, "*", "#%s# (%s) +invite %s %s (%s)",
		      dcc[idx].nick, dcc[idx].u.chat->con_chan, s,
		      chan->dname, par);
	      dprintf (idx, "New %s invite: %s (%s)\n", chan->dname, s, par);
	    }
	  add_mode (chan, '+', 'I', s);
	}
      else
	{
	  u_addinvite (NULL, s, dcc[idx].nick, par,
		       expire_time ? now + expire_time : 0, 0);
	  if (par[0] == '*')
	    {
	      par++;
	      putlog (LOG_CMDS, "*", "#%s# (GLOBAL) +invite %s (%s) (sticky)",
		      dcc[idx].nick, s, par);
	      dprintf (idx, "New sticky invite: %s (%s)\n", s, par);
	    }
	  else
	    {
	      putlog (LOG_CMDS, "*", "#%s# (GLOBAL) +invite %s (%s)",
		      dcc[idx].nick, s, par);
	      dprintf (idx, "New invite: %s (%s)\n", s, par);
	    }
	  for (chan = chanset; chan != NULL; chan = chan->next)
	    add_mode (chan, '+', 'I', s);
	}
    }
}
#endif
static void
cmd_mns_ban (struct userrec *u, int idx, char *par)
{
  int console = 0, i = 0, j;
  struct chanset_t *chan = NULL;
  char s[UHOSTLEN], *ban, *chname, *mask;
  masklist *b;
  if (!par[0])
    {
      dprintf (idx, "Usage: -ban <hostmask|ban #> [channel]\n");
      return;
    }
  ban = newsplit (&par);
  if (par[0] && strchr (CHANMETA, par[0]))
    chname = newsplit (&par);
  else
    {
      chname = dcc[idx].u.chat->con_chan;
      console = 1;
    }
  if (chname || !(u->flags & USER_MASTER))
    {
      if (!chname)
	chname = dcc[idx].u.chat->con_chan;
      get_user_flagrec (u, &user, chname);
      if (!((glob_op (user) && !chan_deop (user)) || chan_op (user)))
	{
	  dprintf (idx, "You don't have access to remove bans on %s.\n",
		   chname);
	  return;
	}
    }
  strncpyz (s, ban, sizeof s);
  if (console)
    {
      i = u_delban (NULL, s, (u->flags & USER_MASTER));
      if (i > 0)
	{
	  if (lastdeletedmask)
	    mask = lastdeletedmask;
	  else
	    mask = s;
	  putlog (LOG_CMDS, "*", "#%s# -ban %s", dcc[idx].nick, mask);
	  dprintf (idx, "%s: %s\n", IRC_REMOVEDBAN, mask);
	  for (chan = chanset; chan != NULL; chan = chan->next)
	    add_mode (chan, '-', 'b', mask);
	  return;
	}
    }
  if (chname)
    chan = findchan_by_dname (chname);
  if (!chan)
    {
      dprintf (idx, "Invalid channel.\n");
      return;
    }
  if ((i = atoi (ban)) > 0)
    {
      egg_snprintf (s, sizeof s, "%d", i);
      j = u_delban (chan, s, 1);
      if (j > 0)
	{
	  if (lastdeletedmask)
	    mask = lastdeletedmask;
	  else
	    mask = s;
	  putlog (LOG_CMDS, "*", "#%s# (%s) -ban %s", dcc[idx].nick,
		  chan->dname, mask);
	  dprintf (idx, "Removed %s channel ban: %s\n", chan->dname, mask);
	  add_mode (chan, '-', 'b', mask);
	  return;
	}
      i = 0;
      for (b = chan->channel.ban; b && b->mask && b->mask[0]; b = b->next)
	{
	  if ((!u_equals_mask (global_bans, b->mask))
	      && (!u_equals_mask (chan->bans, b->mask)))
	    {
	      i++;
	      if (i == -j)
		{
		  add_mode (chan, '-', 'b', b->mask);
		  dprintf (idx, "%s '%s' on %s.\n", IRC_REMOVEDBAN, b->mask,
			   chan->dname);
		  putlog (LOG_CMDS, "*", "#%s# (%s) -ban %s [on channel]",
			  dcc[idx].nick, dcc[idx].u.chat->con_chan, ban);
		  return;
		}
	    }
	}
    }
  else
    {
      j = u_delban (chan, ban, 1);
      if (j > 0)
	{
	  putlog (LOG_CMDS, "*", "#%s# (%s) -ban %s", dcc[idx].nick,
		  dcc[idx].u.chat->con_chan, ban);
	  dprintf (idx, "Removed %s channel ban: %s\n", chname, ban);
	  add_mode (chan, '-', 'b', ban);
	  return;
	}
      for (b = chan->channel.ban; b && b->mask && b->mask[0]; b = b->next)
	{
	  if (!rfc_casecmp (b->mask, ban))
	    {
	      add_mode (chan, '-', 'b', b->mask);
	      dprintf (idx, "%s '%s' on %s.\n", IRC_REMOVEDBAN, b->mask,
		       chan->dname);
	      putlog (LOG_CMDS, "*", "#%s# (%s) -ban %s [on channel]",
		      dcc[idx].nick, dcc[idx].u.chat->con_chan, ban);
	      return;
	    }
	}
    }
  dprintf (idx, "No such ban.\n");
}

#ifdef S_IRCNET
static void
cmd_mns_exempt (struct userrec *u, int idx, char *par)
{
  int i = 0, j;
  struct chanset_t *chan = NULL;
  char s[UHOSTLEN], *exempt, *chname;
  masklist *e;
  if (!use_exempts)
    {
      dprintf (idx,
	       "This command can only be used with use-exempts enabled.\n");
      return;
    }
  if (!par[0])
    {
      dprintf (idx, "Usage: -exempt <hostmask|exempt #> [channel]\n");
      return;
    }
  exempt = newsplit (&par);
  if (par[0] && strchr (CHANMETA, par[0]))
    chname = newsplit (&par);
  else
    chname = dcc[idx].u.chat->con_chan;
  if (chname || !(u->flags & USER_MASTER))
    {
      if (!chname)
	chname = dcc[idx].u.chat->con_chan;
      get_user_flagrec (u, &user, chname);
      if (!((glob_op (user) && !chan_deop (user)) || chan_op (user)))
	{
	  dprintf (idx, "You don't have access to remove exempts on %s.\n",
		   chname);
	  return;
	}
    }
  strncpyz (s, exempt, sizeof s);
  i = u_delexempt (NULL, s, (u->flags & USER_MASTER));
  if (i > 0)
    {
      putlog (LOG_CMDS, "*", "#%s# -exempt %s", dcc[idx].nick, s);
      dprintf (idx, "%s: %s\n", IRC_REMOVEDEXEMPT, s);
      for (chan = chanset; chan != NULL; chan = chan->next)
	add_mode (chan, '-', 'e', s);
      return;
    }
  if (chname)
    chan = findchan_by_dname (chname);
  if (chan)
    {
      if (atoi (exempt) > 0)
	{
	  egg_snprintf (s, sizeof s, "%d", -i);
	  j = u_delexempt (chan, s, 1);
	  if (j > 0)
	    {
	      putlog (LOG_CMDS, "*", "#%s# (%s) -exempt %s", dcc[idx].nick,
		      chan->dname, s);
	      dprintf (idx, "Removed %s channel exempt: %s\n", chan->dname,
		       s);
	      add_mode (chan, '-', 'e', s);
	      return;
	    }
	  i = 0;
	  for (e = chan->channel.exempt; e && e->mask && e->mask[0];
	       e = e->next)
	    {
	      if (!u_equals_mask (global_exempts, e->mask)
		  && !u_equals_mask (chan->exempts, e->mask))
		{
		  i++;
		  if (i == -j)
		    {
		      add_mode (chan, '-', 'e', e->mask);
		      dprintf (idx, "%s '%s' on %s.\n", IRC_REMOVEDEXEMPT,
			       e->mask, chan->dname);
		      putlog (LOG_CMDS, "*",
			      "#%s# (%s) -exempt %s [on channel]",
			      dcc[idx].nick, dcc[idx].u.chat->con_chan,
			      exempt);
		      return;
		    }
		}
	    }
	}
      else
	{
	  j = u_delexempt (chan, exempt, 1);
	  if (j > 0)
	    {
	      putlog (LOG_CMDS, "*", "#%s# (%s) -exempt %s", dcc[idx].nick,
		      dcc[idx].u.chat->con_chan, exempt);
	      dprintf (idx, "Removed %s channel exempt: %s\n", chname,
		       exempt);
	      add_mode (chan, '-', 'e', exempt);
	      return;
	    }
	  for (e = chan->channel.exempt; e && e->mask && e->mask[0];
	       e = e->next)
	    {
	      if (!rfc_casecmp (e->mask, exempt))
		{
		  add_mode (chan, '-', 'e', e->mask);
		  dprintf (idx, "%s '%s' on %s.\n", IRC_REMOVEDEXEMPT,
			   e->mask, chan->dname);
		  putlog (LOG_CMDS, "*", "#%s# (%s) -exempt %s [on channel]",
			  dcc[idx].nick, dcc[idx].u.chat->con_chan, exempt);
		  return;
		}
	    }
	}
    }
  dprintf (idx, "No such exemption.\n");
}
static void
cmd_mns_invite (struct userrec *u, int idx, char *par)
{
  int i = 0, j;
  struct chanset_t *chan = NULL;
  char s[UHOSTLEN], *invite, *chname;
  masklist *inv;
  if (!use_invites)
    {
      dprintf (idx,
	       "This command can only be used with use-invites enabled.\n");
      return;
    }
  if (!par[0])
    {
      dprintf (idx, "Usage: -invite <hostmask|invite #> [channel]\n");
      return;
    }
  invite = newsplit (&par);
  if (par[0] && strchr (CHANMETA, par[0]))
    chname = newsplit (&par);
  else
    chname = dcc[idx].u.chat->con_chan;
  if (chname || !(u->flags & USER_MASTER))
    {
      if (!chname)
	chname = dcc[idx].u.chat->con_chan;
      get_user_flagrec (u, &user, chname);
      if (!((glob_op (user) && !chan_deop (user)) || chan_op (user)))
	{
	  dprintf (idx, "You don't have access to remove invites on %s.\n",
		   chname);
	  return;
	}
    }
  strncpyz (s, invite, sizeof s);
  i = u_delinvite (NULL, s, (u->flags & USER_MASTER));
  if (i > 0)
    {
      putlog (LOG_CMDS, "*", "#%s# -invite %s", dcc[idx].nick, s);
      dprintf (idx, "%s: %s\n", IRC_REMOVEDINVITE, s);
      for (chan = chanset; chan != NULL; chan = chan->next)
	add_mode (chan, '-', 'I', s);
      return;
    }
  if (chname)
    chan = findchan_by_dname (chname);
  if (chan)
    {
      if (atoi (invite) > 0)
	{
	  egg_snprintf (s, sizeof s, "%d", -i);
	  j = u_delinvite (chan, s, 1);
	  if (j > 0)
	    {
	      putlog (LOG_CMDS, "*", "#%s# (%s) -invite %s", dcc[idx].nick,
		      chan->dname, s);
	      dprintf (idx, "Removed %s channel invite: %s\n", chan->dname,
		       s);
	      add_mode (chan, '-', 'I', s);
	      return;
	    }
	  i = 0;
	  for (inv = chan->channel.invite; inv && inv->mask && inv->mask[0];
	       inv = inv->next)
	    {
	      if (!u_equals_mask (global_invites, inv->mask)
		  && !u_equals_mask (chan->invites, inv->mask))
		{
		  i++;
		  if (i == -j)
		    {
		      add_mode (chan, '-', 'I', inv->mask);
		      dprintf (idx, "%s '%s' on %s.\n", IRC_REMOVEDINVITE,
			       inv->mask, chan->dname);
		      putlog (LOG_CMDS, "*",
			      "#%s# (%s) -invite %s [on channel]",
			      dcc[idx].nick, dcc[idx].u.chat->con_chan,
			      invite);
		      return;
		    }
		}
	    }
	}
      else
	{
	  j = u_delinvite (chan, invite, 1);
	  if (j > 0)
	    {
	      putlog (LOG_CMDS, "*", "#%s# (%s) -invite %s", dcc[idx].nick,
		      dcc[idx].u.chat->con_chan, invite);
	      dprintf (idx, "Removed %s channel invite: %s\n", chname,
		       invite);
	      add_mode (chan, '-', 'I', invite);
	      return;
	    }
	  for (inv = chan->channel.invite; inv && inv->mask && inv->mask[0];
	       inv = inv->next)
	    {
	      if (!rfc_casecmp (inv->mask, invite))
		{
		  add_mode (chan, '-', 'I', inv->mask);
		  dprintf (idx, "%s '%s' on %s.\n", IRC_REMOVEDINVITE,
			   inv->mask, chan->dname);
		  putlog (LOG_CMDS, "*", "#%s# (%s) -invite %s [on channel]",
			  dcc[idx].nick, dcc[idx].u.chat->con_chan, invite);
		  return;
		}
	    }
	}
    }
  dprintf (idx, "No such invite.\n");
}
#endif
static void
cmd_bans (struct userrec *u, int idx, char *par)
{
  if (!egg_strcasecmp (par, "all"))
    {
      putlog (LOG_CMDS, "*", "#%s# bans all", dcc[idx].nick);
      tell_bans (idx, 1, "");
    }
  else
    {
      putlog (LOG_CMDS, "*", "#%s# bans %s", dcc[idx].nick, par);
      tell_bans (idx, 0, par);
    }
}

#ifdef S_IRCNET
static void
cmd_exempts (struct userrec *u, int idx, char *par)
{
  if (!use_exempts)
    {
      dprintf (idx,
	       "This command can only be used with use-exempts enabled.\n");
      return;
    }
  if (!egg_strcasecmp (par, "all"))
    {
      putlog (LOG_CMDS, "*", "#%s# exempts all", dcc[idx].nick);
      tell_exempts (idx, 1, "");
    }
  else
    {
      putlog (LOG_CMDS, "*", "#%s# exempts %s", dcc[idx].nick, par);
      tell_exempts (idx, 0, par);
    }
}
static void
cmd_invites (struct userrec *u, int idx, char *par)
{
  if (!use_invites)
    {
      dprintf (idx,
	       "This command can only be used with use-invites enabled.\n");
      return;
    }
  if (!egg_strcasecmp (par, "all"))
    {
      putlog (LOG_CMDS, "*", "#%s# invites all", dcc[idx].nick);
      tell_invites (idx, 1, "");
    }
  else
    {
      putlog (LOG_CMDS, "*", "#%s# invites %s", dcc[idx].nick, par);
      tell_invites (idx, 0, par);
    }
}
#endif
static void
cmd_info (struct userrec *u, int idx, char *par)
{
  char s[512], *chname, *s1;
  int locked = 0;
  if (!use_info)
    {
      dprintf (idx, "Info storage is turned off.\n");
      return;
    }
  s1 = get_user (&USERENTRY_INFO, u);
  if (s1 && s1[0] == '@')
    locked = 1;
  if (par[0] && strchr (CHANMETA, par[0]))
    {
      chname = newsplit (&par);
      if (!findchan_by_dname (chname))
	{
	  dprintf (idx, "No such channel.\n");
	  return;
	}
      get_handle_chaninfo (dcc[idx].nick, chname, s);
      if (s[0] == '@')
	locked = 1;
      s1 = s;
    }
  else
    chname = 0;
  if (!par[0])
    {
      if (s1 && s1[0] == '@')
	s1++;
      if (s1 && s1[0])
	{
	  if (chname)
	    {
	      dprintf (idx, "Info on %s: %s\n", chname, s1);
	      dprintf (idx, "Use '.info %s none' to remove it.\n", chname);
	    }
	  else
	    {
	      dprintf (idx, "Default info: %s\n", s1);
	      dprintf (idx, "Use '.info none' to remove it.\n");
	    }
	}
      else
	dprintf (idx, "No info has been set for you.\n");
      putlog (LOG_CMDS, "*", "#%s# info %s", dcc[idx].nick,
	      chname ? chname : "");
      return;
    }
  if (locked && !(u && (u->flags & USER_MASTER)))
    {
      dprintf (idx, "Your info line is locked.  Sorry.\n");
      return;
    }
  if (!egg_strcasecmp (par, "none"))
    {
      if (chname)
	{
	  par[0] = 0;
	  set_handle_chaninfo (userlist, dcc[idx].nick, chname, NULL);
	  dprintf (idx, "Removed your info line on %s.\n", chname);
	  putlog (LOG_CMDS, "*", "#%s# info %s none", dcc[idx].nick, chname);
	}
      else
	{
	  set_user (&USERENTRY_INFO, u, NULL);
	  dprintf (idx, "Removed your default info line.\n");
	  putlog (LOG_CMDS, "*", "#%s# info none", dcc[idx].nick);
	}
      return;
    }
  if (chname)
    {
      set_handle_chaninfo (userlist, dcc[idx].nick, chname, par);
      dprintf (idx, "Your info on %s is now: %s\n", chname, par);
      putlog (LOG_CMDS, "*", "#%s# info %s ...", dcc[idx].nick, chname);
    }
  else
    {
      set_user (&USERENTRY_INFO, u, par);
      dprintf (idx, "Your default info is now: %s\n", par);
      putlog (LOG_CMDS, "*", "#%s# info ...", dcc[idx].nick);
    }
}
static void
cmd_chinfo (struct userrec *u, int idx, char *par)
{
  char *handle, *chname;
  struct userrec *u1;
  if (!use_info)
    {
      dprintf (idx, "Info storage is turned off.\n");
      return;
    }
  handle = newsplit (&par);
  if (!handle[0])
    {
      dprintf (idx, "Usage: chinfo <handle> [channel] <new-info>\n");
      return;
    }
  u1 = get_user_by_handle (userlist, handle);
  if (!u1)
    {
      dprintf (idx, "No such user.\n");
      return;
    }
  if (par[0] && strchr (CHANMETA, par[0]))
    {
      chname = newsplit (&par);
      if (!findchan_by_dname (chname))
	{
	  dprintf (idx, "No such channel.\n");
	  return;
	}
    }
  else
    chname = 0;
  if ((u1->flags & USER_BOT) && !(u->flags & USER_MASTER))
    {
      dprintf (idx, "You have to be master to change bots info.\n");
      return;
    }
  if ((u1->flags & USER_OWNER) && !(u->flags & USER_OWNER))
    {
      dprintf (idx, "You can't change info for the bot owner.\n");
      return;
    }
  if (chname)
    {
      get_user_flagrec (u, &user, chname);
      get_user_flagrec (u1, &victim, chname);
      if ((chan_owner (victim) || glob_owner (victim))
	  && !(glob_owner (user) || chan_owner (user)))
	{
	  dprintf (idx, "You can't change info for the channel owner.\n");
	  return;
	}
    }
  putlog (LOG_CMDS, "*", "#%s# chinfo %s %s %s", dcc[idx].nick, handle,
	  chname ? chname : par, chname ? par : "");
  if (!egg_strcasecmp (par, "none"))
    par[0] = 0;
  if (chname)
    {
      set_handle_chaninfo (userlist, handle, chname, par);
      if (par[0] == '@')
	dprintf (idx, "New info (LOCKED) for %s on %s: %s\n", handle, chname,
		 &par[1]);
      else if (par[0])
	dprintf (idx, "New info for %s on %s: %s\n", handle, chname, par);
      else
	dprintf (idx, "Wiped info for %s on %s\n", handle, chname);
    }
  else
    {
      set_user (&USERENTRY_INFO, u1, par[0] ? par : NULL);
      if (par[0] == '@')
	dprintf (idx, "New default info (LOCKED) for %s: %s\n", handle,
		 &par[1]);
      else if (par[0])
	dprintf (idx, "New default info for %s: %s\n", handle, par);
      else
	dprintf (idx, "Wiped default info for %s\n", handle);
    }
}
static void
cmd_slowjoin (struct userrec *u, int idx, char *par)
{
  int intvl = 0, delay = 0, count = 1;
  char *chname;
  char buf[2048], buf2[1048];
  struct chanset_t *chan;
  struct userrec *bot;
  char *p;
  putlog (LOG_CMDS, "*", "#%s# slowjoin %s", dcc[idx].nick, par);
  chname = newsplit (&par);
  p = newsplit (&par);
  intvl = atoi (p);
  if (!chname[0] || !p[0])
    {
      dprintf (idx,
	       "Usage: slowjoin channel interval-seconds [channel options]\n");
      return;
    }
  if (intvl < 10)
    {
      dprintf (idx, "Interval must be at least 10 seconds\n");
      return;
    }
  if ((chan = findchan_by_dname (chname)))
    {
      dprintf (idx, "Already on %s\n", chan->dname);
      return;
    }
  if (!strchr (CHANMETA, chname[0]))
    {
      dprintf (idx, "Invalid channel name\n");
      return;
    }
  strcpy (buf, "+inactive ");
  if (par[0])
    strncat (buf, par, sizeof (buf));
  if (tcl_channel_add (0, chname, buf) == TCL_ERROR)
    {
      dprintf (idx, "Invalid channel.\n");
      return;
    }
  chan = findchan_by_dname (chname);
  if (!chan)
    {
      dprintf (idx, "Hmmm... Channel didn't get added. Weird *shrug*\n");
      return;
    }
  sprintf (buf2, "cjoin %s %s", chan->dname, buf);
  botnet_send_zapf_broad (-1, botnetnick, NULL, buf2);
#ifdef HUB
  count = 0;
#else
  count = 1;
#endif
  for (bot = userlist; bot; bot = bot->next)
    {
      if ((bot->flags & USER_BOT) && ((nextbot (bot->handle) >= 0)))
	{
	  char tmp[100];
	  if (!(bot_flags (bot) & BOT_LEAF))
	    {
	      sprintf (tmp, "sj %s 0\n", chan->dname);
	    }
	  else
	    {
	      int v = (rand () % (intvl / 2)) - (intvl / 4);
	      delay += intvl;
	      sprintf (tmp, "sj %s %i\n", chan->dname, delay + v);
	      count++;
	    } botnet_send_zapf (nextbot (bot->handle), botnetnick,
				bot->handle, tmp);
	}
    } dprintf (idx, "%i bots joining %s during the next %i seconds\n", count,
	       chan->dname, delay);
  chan->status &= ~CHAN_INACTIVE;
#ifdef LEAF
  dprintf (DP_MODE, "JOIN %s %s\n", chan->dname, chan->key_prot);
#endif
} static void
cmd_stick_yn (int idx, char *par, int yn)
{
  int i = 0, j;
  struct chanset_t *chan, *achan;
  char *stick_type, s[UHOSTLEN], chname[81];
  module_entry *me;
  stick_type = newsplit (&par);
  strncpyz (s, newsplit (&par), sizeof s);
  strncpyz (chname, newsplit (&par), sizeof chname);
#ifdef S_IRCNET
  if (egg_strcasecmp (stick_type, "exempt")
      && egg_strcasecmp (stick_type, "invite")
      && egg_strcasecmp (stick_type, "ban"))
    {
#else
  if (egg_strcasecmp (stick_type, "ban"))
    {
#endif
      strncpyz (chname, s, sizeof chname);
      strncpyz (s, stick_type, sizeof s);
    }
  if (!s[0])
    {
#ifdef S_IRCNET
      dprintf (idx,
	       "Usage: %sstick [ban/exempt/invite] <hostmask or number> [channel]\n",
#else
      dprintf (idx, "Usage: %sstick [ban] <hostmask or number> [channel]\n",
#endif
	       yn ? "" : "un");
      return;
    }
#ifdef S_IRCNET
  if (!egg_strcasecmp (stick_type, "exempt"))
    {
      if (!use_exempts)
	{
	  dprintf (idx,
		   "This command can only be used with use-exempts enabled.\n");
	  return;
	}
      if (!chname[0])
	{
	  i =
	    u_setsticky_exempt (NULL, s,
				(dcc[idx].user->
				 flags & USER_MASTER) ? yn : -1);
	  if (i > 0)
	    {
	      putlog (LOG_CMDS, "*", "#%s# %sstick exempt %s", dcc[idx].nick,
		      yn ? "" : "un", s);
	      dprintf (idx, "%stuck exempt: %s\n", yn ? "S" : "Uns", s);
	      return;
	    }
	  strncpyz (chname, dcc[idx].u.chat->con_chan, sizeof chname);
	}
      if (!(chan = findchan_by_dname (chname)))
	{
	  dprintf (idx, "No such channel.\n");
	  return;
	}
      if (i)
	egg_snprintf (s, sizeof s, "%d", -i);
      j = u_setsticky_exempt (chan, s, yn);
      if (j > 0)
	{
	  putlog (LOG_CMDS, "*", "#%s# %sstick exempt %s %s", dcc[idx].nick,
		  yn ? "" : "un", s, chname);
	  dprintf (idx, "%stuck %s exempt: %s\n", yn ? "S" : "Uns", chname,
		   s);
	  return;
	}
      dprintf (idx, "No such exempt.\n");
      return;
    }
  else if (!egg_strcasecmp (stick_type, "invite"))
    {
      if (!use_invites)
	{
	  dprintf (idx,
		   "This command can only be used with use-invites enabled.\n");
	  return;
	}
      if (!chname[0])
	{
	  i =
	    u_setsticky_invite (NULL, s,
				(dcc[idx].user->
				 flags & USER_MASTER) ? yn : -1);
	  if (i > 0)
	    {
	      putlog (LOG_CMDS, "*", "#%s# %sstick invite %s", dcc[idx].nick,
		      yn ? "" : "un", s);
	      dprintf (idx, "%stuck invite: %s\n", yn ? "S" : "Uns", s);
	      return;
	    }
	  strncpyz (chname, dcc[idx].u.chat->con_chan, sizeof chname);
	}
      if (!(chan = findchan_by_dname (chname)))
	{
	  dprintf (idx, "No such channel.\n");
	  return;
	}
      if (i)
	egg_snprintf (s, sizeof s, "%d", -i);
      j = u_setsticky_invite (chan, s, yn);
      if (j > 0)
	{
	  putlog (LOG_CMDS, "*", "#%s# %sstick invite %s %s", dcc[idx].nick,
		  yn ? "" : "un", s, chname);
	  dprintf (idx, "%stuck %s invite: %s\n", yn ? "S" : "Uns", chname,
		   s);
	  return;
	}
      dprintf (idx, "No such invite.\n");
      return;
    }
#endif
  if (!chname[0])
    {
      i =
	u_setsticky_ban (NULL, s,
			 (dcc[idx].user->flags & USER_MASTER) ? yn : -1);
      if (i > 0)
	{
	  putlog (LOG_CMDS, "*", "#%s# %sstick ban %s", dcc[idx].nick,
		  yn ? "" : "un", s);
	  dprintf (idx, "%stuck ban: %s\n", yn ? "S" : "Uns", s);
	  if ((me = module_find ("irc", 0, 0)))
	    for (achan = chanset; achan != NULL; achan = achan->next)
	      (me->funcs[IRC_CHECK_THIS_BAN]) (achan, s, yn);
	  return;
	}
      strncpyz (chname, dcc[idx].u.chat->con_chan, sizeof chname);
    }
  if (!(chan = findchan_by_dname (chname)))
    {
      dprintf (idx, "No such channel.\n");
      return;
    }
  if (i)
    egg_snprintf (s, sizeof s, "%d", -i);
  j = u_setsticky_ban (chan, s, yn);
  if (j > 0)
    {
      putlog (LOG_CMDS, "*", "#%s# %sstick ban %s %s", dcc[idx].nick,
	      yn ? "" : "un", s, chname);
      dprintf (idx, "%stuck %s ban: %s\n", yn ? "S" : "Uns", chname, s);
      if ((me = module_find ("irc", 0, 0)))
	(me->funcs[IRC_CHECK_THIS_BAN]) (chan, s, yn);
      return;
    }
  dprintf (idx, "No such ban.\n");
}
static void
cmd_stick (struct userrec *u, int idx, char *par)
{
  cmd_stick_yn (idx, par, 1);
} static void
cmd_unstick (struct userrec *u, int idx, char *par)
{
  cmd_stick_yn (idx, par, 0);
} static void
cmd_pls_chrec (struct userrec *u, int idx, char *par)
{
  char *nick, *chn;
  struct chanset_t *chan;
  struct userrec *u1;
  struct chanuserrec *chanrec;
  if (!par[0])
    {
      dprintf (idx, "Usage: +chrec <user> [channel]\n");
      return;
    }
  nick = newsplit (&par);
  u1 = get_user_by_handle (userlist, nick);
  if (!u1)
    {
      dprintf (idx, "No such user.\n");
      return;
    }
  if (!par[0])
    chan = findchan_by_dname (dcc[idx].u.chat->con_chan);
  else
    {
      chn = newsplit (&par);
      chan = findchan_by_dname (chn);
    }
  if (!chan)
    {
      dprintf (idx, "No such channel.\n");
      return;
    }
  get_user_flagrec (u, &user, chan->dname);
  get_user_flagrec (u1, &victim, chan->dname);
  if ((!glob_master (user) && !chan_master (user))
      || (chan_owner (victim) && !chan_owner (user) && !glob_owner (user))
      || (glob_owner (victim) && !glob_owner (user)))
    {
      dprintf (idx, "You have no permission to do that.\n");
      return;
    }
  chanrec = get_chanrec (u1, chan->dname);
  if (chanrec)
    {
      dprintf (idx, "User %s already has a channel record for %s.\n", nick,
	       chan->dname);
      return;
    }
  putlog (LOG_CMDS, "*", "#%s# +chrec %s %s", dcc[idx].nick, nick,
	  chan->dname);
  add_chanrec (u1, chan->dname);
  dprintf (idx, "Added %s channel record for %s.\n", chan->dname, nick);
}
static void
cmd_mns_chrec (struct userrec *u, int idx, char *par)
{
  char *nick, *chn = NULL;
  struct userrec *u1;
  struct chanuserrec *chanrec;
  if (!par[0])
    {
      dprintf (idx, "Usage: -chrec <user> [channel]\n");
      return;
    }
  nick = newsplit (&par);
  u1 = get_user_by_handle (userlist, nick);
  if (!u1)
    {
      dprintf (idx, "No such user.\n");
      return;
    }
  if (!par[0])
    {
      struct chanset_t *chan;
      chan = findchan_by_dname (dcc[idx].u.chat->con_chan);
      if (chan)
	chn = chan->dname;
      else
	{
	  dprintf (idx, "Invalid console channel.\n");
	  return;
	}
    }
  else
    chn = newsplit (&par);
  get_user_flagrec (u, &user, chn);
  get_user_flagrec (u1, &victim, chn);
  if ((!glob_master (user) && !chan_master (user))
      || (chan_owner (victim) && !chan_owner (user) && !glob_owner (user))
      || (glob_owner (victim) && !glob_owner (user)))
    {
      dprintf (idx, "You have no permission to do that.\n");
      return;
    }
  chanrec = get_chanrec (u1, chn);
  if (!chanrec)
    {
      dprintf (idx, "User %s doesn't have a channel record for %s.\n", nick,
	       chn);
      return;
    }
  putlog (LOG_CMDS, "*", "#%s# -chrec %s %s", dcc[idx].nick, nick, chn);
  del_chanrec (u1, chn);
  dprintf (idx, "Removed %s channel record from %s.\n", chn, nick);
}
static void
cmd_cycle (struct userrec *u, int idx, char *par)
{
  char *chname;
  char buf2[1024];
  putlog (LOG_CMDS, "*", "#%s# cycle %s", dcc[idx].nick, par);
  if (!par[0])
    {
      dprintf (idx, "Usage: cycle [%s]<channel>\n", CHANMETA);
      return;
    }
  chname = newsplit (&par);
  if (!findchan_by_dname (chname))
    {
      dprintf (idx, "%s it not a valid channel.\n", chname);
      return;
    }
  sprintf (buf2, "cycle %s", chname);
  botnet_send_zapf_broad (-1, botnetnick, NULL, buf2);
#ifdef LEAF
  dprintf (DP_SERVER, "PART %s\n", chname);
#endif
}
static void
cmd_down (struct userrec *u, int idx, char *par)
{
  char *chname;
  char buf2[1024];
  putlog (LOG_CMDS, "*", "#%s# down %s", dcc[idx].nick, par);
  if (!par[0])
    {
      dprintf (idx, "Usage: down [%s]<channel>\n", CHANMETA);
      return;
    }
  chname = newsplit (&par);
  if (!findchan_by_dname (chname))
    {
      dprintf (idx, "%s it not a valid channel.\n", chname);
      return;
    }
  sprintf (buf2, "down %s", chname);
  botnet_send_zapf_broad (-1, botnetnick, NULL, buf2);
#ifdef LEAF
  add_mode (findchan_by_dname (chname), '-', 'o', botname);
#endif
}
static void
cmd_pls_chan (struct userrec *u, int idx, char *par)
{
  char *chname;
  char buf2[1024];
  struct chanset_t *chan;
  putlog (LOG_CMDS, "*", "#%s# +chan %s", dcc[idx].nick, par);
  if (!par[0])
    {
      dprintf (idx, "Usage: +chan [%s]<channel> [options]\n", CHANMETA);
      return;
    }
  chname = newsplit (&par);
  sprintf (buf2, "cjoin %s %s", chname, par);
  botnet_send_zapf_broad (-1, botnetnick, NULL, buf2);
  if (findchan_by_dname (chname))
    {
      dprintf (idx, "That channel already exists!\n");
      return;
    }
  else if ((chan = findchan (chname)))
    {
      dprintf (idx, "That channel already exists as %s!\n", chan->dname);
      return;
    }
  if (tcl_channel_add (0, chname, par) == TCL_ERROR)
    dprintf (idx, "Invalid channel or channel options.\n");
  else
    {
#ifdef HUB
      write_userfile (-1);
#endif
    }
}
static void
cmd_mns_chan (struct userrec *u, int idx, char *par)
{
  char *chname;
  char buf2[1024];
  struct chanset_t *chan;
  int i;
  putlog (LOG_CMDS, "*", "#%s# -chan %s", dcc[idx].nick, par);
  if (!par[0])
    {
      dprintf (idx, "Usage: -chan [%s]<channel>\n", CHANMETA);
      return;
    }
  chname = newsplit (&par);
  sprintf (buf2, "cpart %s", chname);
  botnet_send_zapf_broad (-1, botnetnick, NULL, buf2);
  chan = findchan_by_dname (chname);
  if (!chan)
    {
      if ((chan = findchan (chname)))
	dprintf (idx,
		 "That channel exists with a short name of %s, use that.\n",
		 chan->dname);
      else
	dprintf (idx, "That channel doesn't exist!\n");
      return;
    }
  for (i = 0; i < dcc_total; i++)
    if ((dcc[i].type->flags & DCT_CHAT)
	&& !rfc_casecmp (dcc[i].u.chat->con_chan, chan->dname))
      {
	dprintf (i,
		 "%s is no longer a valid channel, changing your console to '*'\n",
		 chname);
	strcpy (dcc[i].u.chat->con_chan, "*");
      }
  remove_channel (chan);
#ifdef HUB
  write_userfile (-1);
#endif
  dprintf (idx, "Channel %s removed from the bot.\n", chname);
  dprintf (idx,
	   "This includes any channel specific bans, invites, exemptions and user records that you set.\n");
}
static void
cmd_chaninfo (struct userrec *u, int idx, char *par)
{
  char *chname, work[512];
  struct chanset_t *chan;
  int ii, tmp;
  struct udef_struct *ul;
  if (!par[0])
    {
      chname = dcc[idx].u.chat->con_chan;
      if (chname[0] == '*')
	{
	  dprintf (idx, "Your console channel is invalid.\n");
	  return;
	}
    }
  else
    {
      chname = newsplit (&par);
      get_user_flagrec (u, &user, chname);
      if (!glob_master (user) && !chan_master (user))
	{
	  dprintf (idx, "You don't have access to %s.\n", chname);
	  return;
	}
    }
  if (!(chan = findchan_by_dname (chname)))
    dprintf (idx, "No such channel defined.\n");
  else
    {
      dprintf (idx, "Settings for %s channel %s:\n",
	       channel_static (chan) ? "static" : "dynamic", chan->dname);
      get_mode_protect (chan, work);
      dprintf (idx, "Protect modes (chanmode): %s\n",
	       work[0] ? work : "None");
      dprintf (idx, "Protect topic: %s\n",
	       chan->topic_prot[0] ? chan->topic_prot : "None");
      if (chan->idle_kick)
	dprintf (idx, "Idle Kick after (idle-kick): %d\n", chan->idle_kick);
      else
	dprintf (idx, "Idle Kick after (idle-kick): DON'T!\n");
      if (chan->limitraise)
	dprintf (idx, "Limit raise: %d\n", chan->limitraise);
      else
	dprintf (idx, "Limit raise: disabled\n");
      if (chan->stopnethack_mode)
	dprintf (idx, "stopnethack-mode: %d\n", chan->stopnethack_mode);
      else
	dprintf (idx, "stopnethack: DON'T!\n");
      if (chan->revenge_mode)
	dprintf (idx, "revenge-mode: %d\n", chan->revenge_mode);
      else
	dprintf (idx, "revenge-mode: 0\n");
      if (chan->ban_time)
	dprintf (idx, "ban-time: %d\n", chan->ban_time);
      else
	dprintf (idx, "ban-time: 0\n");
#ifdef S_IRCNET
      if (chan->exempt_time)
	dprintf (idx, "exempt-time: %d\n", chan->exempt_time);
      else
	dprintf (idx, "exempt-time: 0\n");
      if (chan->invite_time)
	dprintf (idx, "invite-time: %d\n", chan->invite_time);
      else
	dprintf (idx, "invite-time: 0\n");
#endif
      if (u->flags & USER_OWNER)
	{
	  if (chan->need_op[0])
	    dprintf (idx, "To regain op's (need-op):\n%s\n", chan->need_op);
	  if (chan->need_invite[0])
	    dprintf (idx, "To get invite (need-invite):\n%s\n",
		     chan->need_invite);
	  if (chan->need_key[0])
	    dprintf (idx, "To get key (need-key):\n%s\n", chan->need_key);
	  if (chan->need_unban[0])
	    dprintf (idx, "If I'm banned (need-unban):\n%s\n",
		     chan->need_unban);
	  if (chan->need_limit[0])
	    dprintf (idx, "When channel full (need-limit):\n%s\n",
		     chan->need_limit);
	}
      dprintf (idx, "Other modes:\n");
      dprintf (idx,
	       "     %cinactive       %cprivate     %ccycle          %cdontkickops\n",
	       (chan->status & CHAN_INACTIVE) ? '+' : '-',
	       (chan->status & CHAN_PRIVATE) ? '+' : '-',
	       (chan->status & CHAN_CYCLE) ? '+' : '-',
	       (chan->status & CHAN_DONTKICKOPS) ? '+' : '-');
      dprintf (idx,
	       "     %cprotectops     %cprotectfriends %crevenge        %crevengebot\n",
	       (chan->status & CHAN_PROTECTOPS) ? '+' : '-',
	       (chan->status & CHAN_PROTECTFRIENDS) ? '+' : '-',
	       (chan->status & CHAN_REVENGE) ? '+' : '-',
	       (chan->status & CHAN_REVENGEBOT) ? '+' : '-');
      dprintf (idx, "     %cbitch          %cnodesynch\n",
	       (chan->status & CHAN_BITCH) ? '+' : '-',
	       (chan->status & CHAN_NODESYNCH) ? '+' : '-');
      dprintf (idx, "     %cenforcebans    %cdynamicbans    %cuserbans\n",
	       (chan->status & CHAN_ENFORCEBANS) ? '+' : '-',
	       (chan->status & CHAN_DYNAMICBANS) ? '+' : '-',
	       (chan->status & CHAN_NOUSERBANS) ? '-' : '+');
#ifdef S_IRCNET
      dprintf (idx,
	       "     %cdynamicexempts %cuserexempts    %cdynamicinvites %cuserinvites\n",
	       (chan->ircnet_status & CHAN_DYNAMICEXEMPTS) ? '+' : '-',
	       (chan->ircnet_status & CHAN_NOUSEREXEMPTS) ? '-' : '+',
	       (chan->ircnet_status & CHAN_DYNAMICINVITES) ? '+' : '-',
	       (chan->ircnet_status & CHAN_NOUSERINVITES) ? '-' : '+');
#endif
      dprintf (idx,
	       "     %cclosed         %ctake           %cnomop          %cmanop\n",
	       (chan->status & CHAN_CLOSED) ? '+' : '-',
	       (chan->status & CHAN_TAKE) ? '+' : '-',
	       (chan->status & CHAN_NOMOP) ? '+' : '-',
	       (chan->status & CHAN_MANOP) ? '+' : '-');
      dprintf (idx, "     %cvoice          %cfastop\n",
	       (chan->status & CHAN_VOICE) ? '+' : '-',
	       (chan->status & CHAN_FASTOP) ? '+' : '-');
      ii = 1;
      tmp = 0;
      for (ul = udef; ul; ul = ul->next)
	if (ul->defined && ul->type == UDEF_FLAG)
	  {
	    int work_len;
	    if (!tmp)
	      {
		dprintf (idx, "User defined channel flags:\n");
		tmp = 1;
	      }
	    if (ii == 1)
	      egg_snprintf (work, sizeof work, "    ");
	    work_len = strlen (work);
	    egg_snprintf (work + work_len, sizeof (work) - work_len, " %c%s",
			  getudef (ul->values, chan->dname) ? '+' : '-',
			  ul->name);
	    ii++;
	    if (ii > 4)
	      {
		dprintf (idx, "%s\n", work);
		ii = 1;
	      }
	  }
      if (ii > 1)
	dprintf (idx, "%s\n", work);
      work[0] = 0;
      ii = 1;
      tmp = 0;
      for (ul = udef; ul; ul = ul->next)
	if (ul->defined && ul->type == UDEF_INT)
	  {
	    int work_len = strlen (work);
	    if (!tmp)
	      {
		dprintf (idx, "User defined channel settings:\n");
		tmp = 1;
	      }
	    egg_snprintf (work + work_len, sizeof (work) - work_len,
			  "%s: %d   ", ul->name, getudef (ul->values,
							  chan->dname));
	    ii++;
	    if (ii > 4)
	      {
		dprintf (idx, "%s\n", work);
		work[0] = 0;
		ii = 1;
	      }
	  }
      if (ii > 1)
	dprintf (idx, "%s\n", work);
      dprintf (idx, "flood settings: chan ctcp join kick deop nick\n");
      dprintf (idx, "number:          %3d  %3d  %3d  %3d  %3d  %3d\n",
	       chan->flood_pub_thr, chan->flood_ctcp_thr,
	       chan->flood_join_thr, chan->flood_kick_thr,
	       chan->flood_deop_thr, chan->flood_nick_thr);
      dprintf (idx, "time  :          %3d  %3d  %3d  %3d  %3d  %3d\n",
	       chan->flood_pub_time, chan->flood_ctcp_time,
	       chan->flood_join_time, chan->flood_kick_time,
	       chan->flood_deop_time, chan->flood_nick_time);
      putlog (LOG_CMDS, "*", "#%s# chaninfo %s", dcc[idx].nick, chname);
    }
}
static void
cmd_chanset (struct userrec *u, int idx, char *par)
{
  char *chname = NULL, answers[512], *parcpy;
  char *list[2], *bak, *buf, buf2[1024];
  struct chanset_t *chan = NULL;
  int all = 0, items = 0;
  putlog (LOG_CMDS, "*", "#%s# chanset %s", dcc[idx].nick, par);
  if (!par[0])
    dprintf (idx, "Usage: chanset [%schannel] <settings>\n", CHANMETA);
  else
    {
      if (strlen (par) > 2 && par[0] == '*' && par[1] == ' ')
	{
	  dprintf (idx,
		   "currently chanset * does not work. use %stcl foreach chan [channels] { channel set $chan +mode }\n",
		   dcc_prefix);
	  return;
	  all = 1;
	  get_user_flagrec (u, &user, chanset ? chanset->dname : "");
	  if (!glob_master (user))
	    {
	      dprintf (idx,
		       "You need to be a global master to use %schanset *.\n",
		       dcc_prefix);
	      return;
	    }
	  newsplit (&par);
	}
      else
	{
	  if (strchr (CHANMETA, par[0]))
	    {
	      chname = newsplit (&par);
	      get_user_flagrec (u, &user, chname);
	      if (!glob_master (user) && !chan_master (user))
		{
		  dprintf (idx, "You don't have access to %s. \n", chname);
		  return;
		}
	      else if (!(chan = findchan_by_dname (chname))
		       && (chname[0] != '+'))
		{
		  dprintf (idx, "That channel doesn't exist!\n");
		  return;
		}
	      if (!chan)
		{
		  if (par[0])
		    *--par = ' ';
		  par = chname;
		}
	    }
	  if (!par[0] || par[0] == '*')
	    {
	      dprintf (idx, "Usage: chanset [%schannel] <settings>\n",
		       CHANMETA);
	      return;
	    }
	  if (!chan
	      && !(chan =
		   findchan_by_dname (chname = dcc[idx].u.chat->con_chan)))
	    {
	      dprintf (idx, "Invalid console channel.\n");
	      return;
	    }
	}
      if (all)
	chan = chanset;
      bak = par;
      buf = nmalloc (strlen (par) + 1);
      while (chan)
	{
	  chname = chan->dname;
	  strcpy (buf, bak);
	  par = buf;
	  list[0] = newsplit (&par);
	  answers[0] = 0;
	  while (list[0][0])
	    {
	      if (list[0][0] == '+' || list[0][0] == '-'
		  || (!strcmp (list[0], "dont-idle-kick")))
		{
		  if (tcl_channel_modify (0, chan, 1, list) == TCL_OK)
		    {
		      strcat (answers, list[0]);
		      strcat (answers, " ");
		      items++;
		    }
		  else if (!all || !chan->next)
		    dprintf (idx,
			     "Error trying to set %s for %s, invalid mode.\n",
			     list[0], all ? "all channels" : chname);
		  list[0] = newsplit (&par);
		  continue;
		}
	      if (strncmp (list[0], "need-", 5) || (u->flags & USER_OWNER))
		{
		  if (!strncmp (list[0], "need-", 5)
		      && !(isowner (dcc[idx].nick)) && must_be_owner)
		    {
		      dprintf (idx,
			       "Due to security concerns, only permanent owners can set these modes.\n");
		      nfree (buf);
		      return;
		    }
		  list[1] = par;
		  parcpy = nmalloc (strlen (par) + 1);
		  strcpy (parcpy, par);
		  if (tcl_channel_modify (0, chan, 2, list) == TCL_OK)
		    {
		      strcat (answers, list[0]);
		      strcat (answers, " { ");
		      strcat (answers, parcpy);
		      strcat (answers, " }");
		    }
		  else if (!all || !chan->next)
		    dprintf (idx,
			     "Error trying to set %s for %s, invalid option\n",
			     list[0], all ? "all channels" : chname);
		  nfree (parcpy);
		}
	      break;
	    }
	  if (!all && answers[0])
	    {
	      sprintf (buf2, "cset %s %s", chname, bak);
	      botnet_send_zapf_broad (-1, botnetnick, NULL, buf2);
	      dprintf (idx, "Successfully set modes { %s } on %s.\n", answers,
		       chname);
#ifdef HUB
	      write_userfile (-1);
#endif
	    }
	  if (!all)
	    chan = NULL;
	  else
	    chan = chan->next;
	}
      if (all && answers[0])
	{
	  sprintf (buf2, "cset * %s", bak);
	  botnet_send_zapf_broad (-1, botnetnick, NULL, buf2);
	  dprintf (idx, "Successfully set modes { %s } on all channels.\n",
		   answers);
#ifdef HUB
	  write_userfile (-1);
#endif
	}
      nfree (buf);
    }
}
static dcc_cmd_t C_dcc_irc[] =
  { {"+ban", "o|o", (Function) cmd_pls_ban, NULL, NULL},
#ifdef S_IRCNET
{"+exempt", "o|o", (Function) cmd_pls_exempt, NULL, NULL}, {"+invite", "o|o",
							    (Function)
							    cmd_pls_invite,
							    NULL, NULL},
#endif
{"+chan", "n", (Function) cmd_pls_chan, NULL, NULL}, {"+chrec", "m|m",
						      (Function)
						      cmd_pls_chrec, NULL,
						      NULL}, {"-ban", "o|o",
							      (Function)
							      cmd_mns_ban,
							      NULL, NULL},
  {"-chan", "n", (Function) cmd_mns_chan, NULL, NULL}, {"-chrec", "m|m",
							(Function)
							cmd_mns_chrec, NULL,
							NULL},
#ifdef S_IRCNET
{"-exempt", "o|o", (Function) cmd_mns_exempt, NULL, NULL}, {"-invite", "o|o",
							    (Function)
							    cmd_mns_invite,
							    NULL, NULL},
#endif
{"bans", "o|o", (Function) cmd_bans, NULL, NULL},
#ifdef S_IRCNET
{"exempts", "o|o", (Function) cmd_exempts, NULL, NULL}, {"invites", "o|o",
							 (Function)
							 cmd_invites, NULL,
							 NULL},
#endif
{"chaninfo", "m|m", (Function) cmd_chaninfo, NULL, NULL}, {"chanset", "m|m",
							   (Function)
							   cmd_chanset, NULL,
							   NULL}, {"chinfo",
								   "m|m",
								   (Function)
								   cmd_chinfo,
								   NULL,
								   NULL},
  {"cycle", "n|n", (Function) cmd_cycle, NULL, NULL}, {"down", "n|n",
						       (Function) cmd_down,
						       NULL, NULL}, {"info",
								     "",
								     (Function)
								     cmd_info,
								     NULL,
								     NULL},
  {"slowjoin", "n", (Function) cmd_slowjoin, NULL, NULL}, {"stick", "o|o",
							   (Function)
							   cmd_stick, NULL,
							   NULL}, {"unstick",
								   "o|o",
								   (Function)
								   cmd_unstick,
								   NULL,
								   NULL},
  {NULL, NULL, NULL, NULL, NULL}
};