modules/chanserv/set.C

/**
 * set.C: This file contains routines to handle the ChanServ SET command.
 *
 * Copyright © 2007 Pippijn van Steenhoven / The Ermyth Team
 * Rights to this code are as documented in COPYING.
 *
 *
 * Portions of this file were derived from sources bearing the following license:
 * Copyright © 2003-2004 E. Will et al.
 * Rights to this code are documented in doc/pod/license.pod.
 *
 * $Id: set.C,v 1.10 2007-09-16 18:54:43 pippijn Exp $
 */

#include "atheme.h"
#include <util/numeric.h>
#include <libermyth.h>
#include "confparse.h"
#include <ermyth/module.h>
#include <account/myuser.h>
#include <account/chanacs.h>
#include <account/mychan.h>

static char const rcsid[] = "$Id: set.C,v 1.10 2007-09-16 18:54:43 pippijn Exp $";

static void on_config_ready (void);

REGISTER_MODULE ("chanserv/set", false, "The Ermyth Team <http://ermyth.xinutec.org>");

static void cs_help_set (sourceinfo_t *si);
static void cs_cmd_set (sourceinfo_t *si, int parc, char *parv[]);

static void cs_cmd_set_email (sourceinfo_t *si, int parc, char *parv[]);
static void cs_cmd_set_url (sourceinfo_t *si, int parc, char *parv[]);
static void cs_cmd_set_entrymsg (sourceinfo_t *si, int parc, char *parv[]);
static void cs_cmd_set_founder (sourceinfo_t *si, int parc, char *parv[]);
static void cs_cmd_set_mlock (sourceinfo_t *si, int parc, char *parv[]);
static void cs_cmd_set_keeptopic (sourceinfo_t *si, int parc, char *parv[]);
static void cs_cmd_set_topiclock (sourceinfo_t *si, int parc, char *parv[]);
static void cs_cmd_set_secure (sourceinfo_t *si, int parc, char *parv[]);
static void cs_cmd_set_verbose (sourceinfo_t *si, int parc, char *parv[]);
static void cs_cmd_set_fantasy (sourceinfo_t *si, int parc, char *parv[]);
static void cs_cmd_set_staffonly (sourceinfo_t *si, int parc, char *parv[]);
static void cs_cmd_set_property (sourceinfo_t *si, int parc, char *parv[]);
static void cs_cmd_set_guard (sourceinfo_t *si, int parc, char *parv[]);

command_t const cs_set = { "SET", N_("Sets various control flags."), AC_NONE, 3, cs_cmd_set };

command_t const cs_set_founder = { "FOUNDER", N_("Transfers foundership of a channel."), AC_NONE, 2, cs_cmd_set_founder };
command_t const cs_set_mlock = { "MLOCK", N_("Sets channel mode lock."), AC_NONE, 2, cs_cmd_set_mlock };
command_t const cs_set_secure = { "SECURE", N_("Prevents unauthorized users from gaining operator status."), AC_NONE, 2, cs_cmd_set_secure };
command_t const cs_set_verbose = { "VERBOSE", N_("Notifies channel about access list modifications."), AC_NONE, 2, cs_cmd_set_verbose };
command_t const cs_set_url = { "URL", N_("Sets the channel URL."), AC_NONE, 2, cs_cmd_set_url };
command_t const cs_set_entrymsg = { "ENTRYMSG", N_("Sets the channel's entry message."), AC_NONE, 2, cs_cmd_set_entrymsg };
command_t const cs_set_property = { "PROPERTY", N_("Manipulates channel metadata."), AC_NONE, 2, cs_cmd_set_property };
command_t const cs_set_email = { "EMAIL", N_("Sets the channel e-mail address."), AC_NONE, 2, cs_cmd_set_email };
command_t const cs_set_keeptopic = { "KEEPTOPIC", N_("Enables topic retention."), AC_NONE, 2, cs_cmd_set_keeptopic };
command_t const cs_set_topiclock = { "TOPICLOCK", N_("Restricts who can change the topic."), AC_NONE, 2, cs_cmd_set_topiclock };
command_t cs_set_guard = { "GUARD", N_("Sets whether or not services will inhabit the channel."), AC_NONE, 2, cs_cmd_set_guard };
command_t const cs_set_fantasy = { "FANTASY", N_("Allows or disallows in-channel commands."), AC_NONE, 2, cs_cmd_set_fantasy };
command_t const cs_set_staffonly = { "STAFFONLY", N_("Sets the channel as staff-only. (Non staff is kickbanned.)"), PRIV_CHAN_ADMIN, 2, cs_cmd_set_staffonly };

command_t const *cs_set_commands[] = {
  &cs_set_founder,
  &cs_set_mlock,
  &cs_set_secure,
  &cs_set_verbose,
  &cs_set_url,
  &cs_set_entrymsg,
  &cs_set_property,
  &cs_set_email,
  &cs_set_keeptopic,
  &cs_set_topiclock,
  &cs_set_guard,
  &cs_set_fantasy,
  &cs_set_staffonly,
  NULL
};

E cmdvec cs_cmdtree;
E helpvec cs_helptree;
cmdvec cs_set_cmdtree;

static void
on_config_ready (void)
{
  if (config_options.join_chans)
    cs_set_guard.access = NULL;
  else
    cs_set_guard.access = PRIV_ADMIN;
}

static void
cs_help_set (sourceinfo_t *si)
{
  command_success_nodata (si, _("Help for \2SET\2:"));
  command_success_nodata (si, " ");
  command_success_nodata (si, _("SET allows you to set various control flags"));
  command_success_nodata (si, _("for channels that change the way certain"));
  command_success_nodata (si, _("operations are performed on them."));
  command_success_nodata (si, " ");
  command_help (si, cs_set_cmdtree);
  command_success_nodata (si, " ");
  command_success_nodata (si, _("For more specific help use \2/msg %s HELP SET \37command\37\2."), si->service->disp);
}

/* SET <#channel> <setting> <parameters> */
static void
cs_cmd_set (sourceinfo_t *si, int parc, char *parv[])
{
  char *chan;
  char *cmd;
  command_t const *c;

  if (parc < 3)
    {
      command_fail (si, fault::needmoreparams, STR_INSUFFICIENT_PARAMS, "SET");
      command_fail (si, fault::needmoreparams, _("Syntax: SET <#channel> <setting> <parameters>"));
      return;
    }

  if (parv[0][0] == '#')
    chan = parv[0], cmd = parv[1];
  else if (parv[1][0] == '#')
    cmd = parv[0], chan = parv[1];
  else
    {
      command_fail (si, fault::badparams, STR_INVALID_PARAMS, "SET");
      command_fail (si, fault::badparams, _("Syntax: SET <#channel> <setting> <parameters>"));
      return;
    }

  c = cs_set_cmdtree.find (cmd);
  if (c == NULL)
    {
      command_fail (si, fault::badparams, _("Invalid command. Use \2/%s%s help\2 for a command listing."), (ircd->uses_rcommand == false) ? "msg " : "", si->service->disp);
      return;
    }

  parv[1] = chan;
  c->exec (si->service, si, parc - 1, parv + 1);
}

static void
cs_cmd_set_email (sourceinfo_t *si, int parc, char *parv[])
{
  mychan_t *mc;
  char *mail = parv[1];

  if (!(mc = mychan_t::find (parv[0])))
    {
      command_fail (si, fault::nosuch_target, _("\2%s\2 is not registered."), parv[0]);
      return;
    }

  if (!chanacs_source_has_flag (mc, si, CA_SET))
    {
      command_fail (si, fault::noprivs, _("You are not authorized to execute this command."));
      return;
    }

  if (!mail || !strcasecmp (mail, "NONE") || !strcasecmp (mail, "OFF"))
    {
      if (mc->find_metadata ("email"))
        {
          mc->del_metadata ("email");
          command_success_nodata (si, _("The e-mail address for \2%s\2 was deleted."), mc->name);
          logcommand (si, CMDLOG_SET, "%s SET EMAIL NONE", mc->name);
          return;
        }

      command_fail (si, fault::nochange, _("The e-mail address for \2%s\2 was not set."), mc->name);
      return;
    }

  if (strlen (mail) >= EMAILLEN)
    {
      command_fail (si, fault::badparams, STR_INVALID_PARAMS, "EMAIL");
      return;
    }

  if (!validemail (mail))
    {
      command_fail (si, fault::badparams, _("\2%s\2 is not a valid e-mail address."), mail);
      return;
    }

  /* we'll overwrite any existing metadata */
  mc->add_metadata ("email", mail);

  logcommand (si, CMDLOG_SET, "%s SET EMAIL %s", mc->name, mail);
  command_success_nodata (si, _("The e-mail address for \2%s\2 has been set to \2%s\2."), parv[0], mail);
}

static void
cs_cmd_set_url (sourceinfo_t *si, int parc, char *parv[])
{
  mychan_t *mc;
  char *url = parv[1];

  if (!(mc = mychan_t::find (parv[0])))
    {
      command_fail (si, fault::nosuch_target, _("\2%s\2 is not registered."), parv[0]);
      return;
    }

  if (!chanacs_source_has_flag (mc, si, CA_SET))
    {
      command_fail (si, fault::noprivs, _("You are not authorized to execute this command."));
      return;
    }

  /* XXX: I'd like to be able to use /CS SET #channel URL to clear but CS SET won't let me... */
  if (!url || !strcasecmp ("OFF", url) || !strcasecmp ("NONE", url))
    {
      /* not in a namespace to allow more natural use of SET PROPERTY.
       * they may be able to introduce spaces, though. c'est la vie.
       */
      if (mc->find_metadata ("url"))
        {
          mc->del_metadata ("url");
          logcommand (si, CMDLOG_SET, "%s SET URL NONE", mc->name);
          command_success_nodata (si, _("The URL for \2%s\2 has been cleared."), parv[0]);
          return;
        }

      command_fail (si, fault::nochange, _("The URL for \2%s\2 was not set."), parv[0]);
      return;
    }

  /* we'll overwrite any existing metadata */
  mc->add_metadata ("url", url);

  logcommand (si, CMDLOG_SET, "%s SET URL %s", mc->name, url);
  command_success_nodata (si, _("The URL of \2%s\2 has been set to \2%s\2."), parv[0], url);
}

static void
cs_cmd_set_entrymsg (sourceinfo_t *si, int parc, char *parv[])
{
  mychan_t *mc;

  if (!(mc = mychan_t::find (parv[0])))
    {
      command_fail (si, fault::nosuch_target, _("\2%s\2 is not registered."), parv[0]);
      return;
    }

  if (!chanacs_source_has_flag (mc, si, CA_SET))
    {
      command_fail (si, fault::noprivs, _("You are not authorized to execute this command."));
      return;
    }

  /* XXX: I'd like to be able to use /CS SET #channel ENTRYMSG to clear but CS SET won't let me... */
  if (!parv[1] || !strcasecmp ("OFF", parv[1]) || !strcasecmp ("NONE", parv[1]))
    {
      /* entrymsg is private because users won't see it if they're AKICKED,
       * if the channel is +i, or if the channel is STAFFONLY
       */
      if (mc->find_metadata ("private:entrymsg"))
        {
          mc->del_metadata ("private:entrymsg");
          logcommand (si, CMDLOG_SET, "%s SET ENTRYMSG NONE", mc->name, parv[1]);
          command_success_nodata (si, _("The entry message for \2%s\2 has been cleared."), parv[0]);
          return;
        }

      command_fail (si, fault::nochange, _("The entry message for \2%s\2 was not set."), parv[0]);
      return;
    }

  /* we'll overwrite any existing metadata */
  mc->add_metadata ("private:entrymsg", parv[1]);

  logcommand (si, CMDLOG_SET, "%s SET ENTRYMSG %s", mc->name, parv[1]);
  command_success_nodata (si, _("The entry message for \2%s\2 has been set to \2%s\2"), parv[0], parv[1]);
}

/*
 * This is how CS SET FOUNDER behaves in the absence of channel passwords:
 *
 * To transfer a channel, the original founder (OF) issues the command:
 *    /CS SET #chan FOUNDER NF
 * where NF is the new founder of the channel.
 *
 * Then, to complete the transfer, the NF must issue the command:
 *    /CS SET #chan FOUNDER NF
 *
 * To cancel the transfer before it completes, the OF can issue the command:
 *    /CS SET #chan FOUNDER OF
 *
 * The purpose of the confirmation step is to prevent users from giving away
 * undesirable channels (e.g. registering #kidsex and transferring to an
 * innocent user.) Originally, we used channel passwords for this purpose.
 */
static void
cs_cmd_set_founder (sourceinfo_t *si, int parc, char *parv[])
{
  char *newfounder = parv[1];
  myuser_t *tmu;
  mychan_t *mc;

  if (!si->smu)
    {
      command_fail (si, fault::noprivs, _("You are not logged in."));
      return;
    }

  if (!(tmu = myuser_t::find_ext (newfounder)))
    {
      command_fail (si, fault::nosuch_target, _("\2%s\2 is not registered."), newfounder);
      return;
    }

  if (!(mc = mychan_t::find (parv[0])))
    {
      command_fail (si, fault::nosuch_target, _("\2%s\2 is not registered."), parv[0]);
      return;
    }

  if (!si->smu->is_founder (mc))
    {
      /* User is not currently the founder.
       * Maybe he is trying to complete a transfer?
       */
      metadata *md;

      /* XXX is it portable to compare times like that? */
      if ((si->smu == tmu) && (md = mc->find_metadata ("private:verify:founderchg:newfounder")) && !irccasecmp (md->value, si->smu->name) && (md = mc->find_metadata ("private:verify:founderchg:timestamp")) && (atol (md->value) >= si->smu->registered))
        {
          node_t *n;
          chanacs_t *ca;

          if ((tmu->num_channels () >= me.maxchans) && !has_priv_myuser (tmu, PRIV_REG_NOLIMIT))
            {
              command_fail (si, fault::toomany, _("\2%s\2 has too many channels registered."), tmu->name);
              return;
            }

          if (mc->find_metadata ("private:close:closer"))
            {
              command_fail (si, fault::noprivs, _("\2%s\2 is closed; it cannot be transferred."), mc->name);
              return;
            }

          logcommand (si, CMDLOG_REGISTER, "%s SET FOUNDER %s (completing transfer from %s)", mc->name, tmu->name, mc->founder_names ());
          verbose (mc, "Foundership transferred from \2%s\2 to \2%s\2.", mc->founder_names (), tmu->name);

          /* add target as founder... */
          LIST_FOREACH (n, mc->chanacs.head)
          {
            ca = static_cast<chanacs_t *> (n->data);
            /* CA_FLAGS is always on if CA_FOUNDER is on, this just
             * ensures we don't crash if not -- jilles
             */
            if (ca->myuser != NULL && ca->level & CA_FOUNDER)
              chanacs_modify_simple (ca, CA_FLAGS, CA_FOUNDER);
          }
          chanacs_change_simple (mc, tmu, NULL, CA_FOUNDER_0, 0);
          
          /* delete transfer metadata */
          mc->del_metadata ("private:verify:founderchg:newfounder");
          mc->del_metadata ("private:verify:founderchg:timestamp");

          /* done! */
          snoop ("SET:FOUNDER: \2%s\2 -> \2%s\2", mc->name, tmu->name);
          command_success_nodata (si, _("Transfer complete: \2%s\2 has been set as founder for \2%s\2."), tmu->name, mc->name);

          return;
        }

      command_fail (si, fault::noprivs, _("You are not the founder of \2%s\2."), mc->name);
      return;
    }

  if (tmu->is_founder (mc))
    {
      /* User is currently the founder and
       * trying to transfer back to himself.
       * Maybe he is trying to cancel a transfer?
       */

      if (mc->find_metadata ("private:verify:founderchg:newfounder"))
        {
          mc->del_metadata ("private:verify:founderchg:newfounder");
          mc->del_metadata ("private:verify:founderchg:timestamp");

          logcommand (si, CMDLOG_REGISTER, "%s SET FOUNDER %s (cancelling transfer)", mc->name, tmu->name);
          command_success_nodata (si, _("The transfer of \2%s\2 has been cancelled."), mc->name);

          return;
        }

      command_fail (si, fault::nochange, _("\2%s\2 is already the founder of \2%s\2."), tmu->name, mc->name);
      return;
    }

  /* If the target user does not have access yet, this may overflow
   * the access list. Check at this time because that is more convenient
   * for users.
   * -- jilles
   */
  if (!chanacs_find (mc, tmu, 0))
    {
      chanacs_t *ca;

      ca = chanacs_open (mc, tmu, NULL, true);
      if (ca->level == 0 && chanacs_is_table_full (ca))
        {
          command_fail (si, fault::toomany, _("Channel %s access list is full."), mc->name);
          chanacs_close (ca);
          return;
        }
      chanacs_close (ca);
    }

  /* check for lazy cancellation of outstanding requests */
  if (mc->find_metadata ("private:verify:founderchg:newfounder"))
    {
      logcommand (si, CMDLOG_REGISTER, "%s SET FOUNDER %s (cancelling old transfer and initializing transfer)", mc->name, tmu->name);
      command_success_nodata (si, _("The previous transfer request for \2%s\2 has been cancelled."), mc->name);
    }
  else
    logcommand (si, CMDLOG_REGISTER, "%s SET FOUNDER %s (initializing transfer)", mc->name, tmu->name);

  mc->add_metadata ("private:verify:founderchg:newfounder", tmu->name);
  mc->add_metadata ("private:verify:founderchg:timestamp", itoa (NOW));

  command_success_nodata (si, _("\2%s\2 can now take ownership of \2%s\2."), tmu->name, mc->name);
  command_success_nodata (si, _("In order to complete the transfer, \2%s\2 must perform the following command:"), tmu->name);
  command_success_nodata (si, "   \2/msg %s SET %s FOUNDER %s\2", chansvs.nick, mc->name, tmu->name);
  command_success_nodata (si, _("After that command is issued, the channel will be transferred."), mc->name);
  command_success_nodata (si, _("To cancel the transfer, use \2/msg %s SET %s FOUNDER %s\2"), chansvs.nick, mc->name, si->smu->name);
}

static void
cs_cmd_set_mlock (sourceinfo_t *si, int parc, char *parv[])
{
  mychan_t *mc;
  char modebuf[32], *end, c;
  int add = -1;
  int newlock_on = 0, newlock_off = 0, newlock_limit = 0, flag = 0;
  int mask;
  char newlock_key[KEYLEN];
  char newlock_ext[MAXEXTMODES][512];
  bool newlock_ext_off[MAXEXTMODES];
  char newext[512];
  char ext_plus[MAXEXTMODES + 1], ext_minus[MAXEXTMODES + 1];
  int i;
  char *letters = strtok (parv[1], " ");
  char *arg;

  if (!letters)
    {
      command_fail (si, fault::badparams, STR_INVALID_PARAMS, "MLOCK");
      return;
    }

  if (!(mc = mychan_t::find (parv[0])))
    {
      command_fail (si, fault::nosuch_target, _("\2%s\2 is not registered."), parv[0]);
      return;
    }

  if (!chanacs_source_has_flag (mc, si, CA_SET))
    {
      command_fail (si, fault::noprivs, _("You are not authorized to perform this command."));
      return;
    }

  for (i = 0; i < MAXEXTMODES; i++)
    {
      newlock_ext[i][0] = '\0';
      newlock_ext_off[i] = false;
    }
  ext_plus[0] = '\0';
  ext_minus[0] = '\0';
  newlock_key[0] = '\0';

  mask = has_priv (si, PRIV_CHAN_CMODES) ? 0 : ircd->oper_only_modes;

  while (*letters)
    {
      if (*letters != '+' && *letters != '-' && add < 0)
        {
          letters++;
          continue;
        }

      switch ((c = *letters++))
        {
        case '+':
          add = 1;
          break;

        case '-':
          add = 0;
          break;

        case 'k':
          if (add)
            {
              arg = strtok (NULL, " ");
              if (!arg)
                {
                  command_fail (si, fault::badparams, _("You need to specify which key to MLOCK."));
                  return;
                }
              else if (strlen (arg) >= KEYLEN)
                {
                  command_fail (si, fault::badparams, _("MLOCK key is too long (%d > %d)."), strlen (arg), KEYLEN - 1);
                  return;
                }
              else if (strchr (arg, ',') || arg[0] == ':')
                {
                  command_fail (si, fault::badparams, _("MLOCK key contains invalid characters."));
                  return;
                }

              strlcpy (newlock_key, arg, sizeof newlock_key);
              newlock_off &= ~CMODE_KEY;
            }
          else
            {
              newlock_key[0] = '\0';
              newlock_off |= CMODE_KEY;
            }

          break;

        case 'l':
          if (add)
            {
              arg = strtok (NULL, " ");
              if (!arg)
                {
                  command_fail (si, fault::badparams, _("You need to specify what limit to MLOCK."));
                  return;
                }

              if (atol (arg) <= 0)
                {
                  command_fail (si, fault::badparams, _("You must specify a positive integer for limit."));
                  return;
                }

              newlock_limit = atol (arg);
              newlock_off &= ~CMODE_LIMIT;
            }
          else
            {
              newlock_limit = 0;
              newlock_off |= CMODE_LIMIT;
            }

          break;

        default:
          flag = mode_to_flag (c);

          if (flag)
            {
              if (add)
                newlock_on |= flag, newlock_off &= ~flag;
              else
                newlock_off |= flag, newlock_on &= ~flag;
              break;
            }

          for (i = 0; ignore_mode_list[i].mode != '\0'; i++)
            {
              if (c == ignore_mode_list[i].mode)
                {
                  if (add)
                    {
                      arg = strtok (NULL, " ");
                      if (!arg)
                        {
                          command_fail (si, fault::badparams, _("You need to specify a value for mode +%c."), c);
                          return;
                        }
                      if (strlen (arg) > 350)
                        {
                          command_fail (si, fault::badparams, _("Invalid value \2%s\2 for mode +%c."), arg, c);
                          return;
                        }
                      if ((mc->chan == NULL || mc->chan->extmodes[i] == NULL || strcmp (mc->chan->extmodes[i], arg)) && !ignore_mode_list[i].check (arg, mc->chan, mc, si->su, si->smu))
                        {
                          command_fail (si, fault::badparams, _("Invalid value \2%s\2 for mode +%c."), arg, c);
                          return;
                        }
                      strlcpy (newlock_ext[i], arg, sizeof newlock_ext[i]);
                      newlock_ext_off[i] = false;
                    }
                  else
                    {
                      newlock_ext[i][0] = '\0';
                      newlock_ext_off[i] = true;
                    }
                }
            }
        }
    }

  if (strlen (newext) > 450)
    {
      command_fail (si, fault::badparams, _("Mode lock is too long."));
      return;
    }

  /* save it to mychan */
  /* leave the modes in mask unchanged -- jilles */
  mc->mlock_on = (newlock_on & ~mask) | (mc->mlock_on & mask);
  mc->mlock_off = (newlock_off & ~mask) | (mc->mlock_off & mask);
  mc->mlock_limit = newlock_limit;

  if (mc->mlock_key)
    sfree (mc->mlock_key);

  mc->mlock_key = *newlock_key != '\0' ? sstrdup (newlock_key) : NULL;

  newext[0] = '\0';
  for (i = 0; i < MAXEXTMODES; i++)
    {
      if (newlock_ext[i][0] != '\0' || newlock_ext_off[i])
        {
          if (*newext != '\0')
            {
              modebuf[0] = ' ';
              modebuf[1] = '\0';
              strlcat (newext, modebuf, sizeof newext);
            }
          modebuf[0] = ignore_mode_list[i].mode;
          modebuf[1] = '\0';
          strlcat (newext, modebuf, sizeof newext);
          strlcat (newlock_ext_off[i] ? ext_minus : ext_plus, modebuf, MAXEXTMODES + 1);
          if (!newlock_ext_off[i])
            strlcat (newext, newlock_ext[i], sizeof newext);
        }
    }
  if (newext[0] != '\0')
    mc->add_metadata ("private:mlockext", newext);
  else
    mc->del_metadata ("private:mlockext");

  end = modebuf;
  *end = 0;

  if (mc->mlock_on || mc->mlock_key || mc->mlock_limit || *ext_plus)
    end += snprintf (end, sizeof (modebuf) - (end - modebuf), "+%s%s%s%s", flags_to_string (mc->mlock_on), mc->mlock_key ? "k" : "", mc->mlock_limit ? "l" : "", ext_plus);

  if (mc->mlock_off || *ext_minus)
    end += snprintf (end, sizeof (modebuf) - (end - modebuf), "-%s%s%s%s", flags_to_string (mc->mlock_off), mc->mlock_off & CMODE_KEY ? "k" : "", mc->mlock_off & CMODE_LIMIT ? "l" : "", ext_minus);

  if (*modebuf)
    {
      command_success_nodata (si, _("The MLOCK for \2%s\2 has been set to \2%s\2."), mc->name, modebuf);
      logcommand (si, CMDLOG_SET, "%s SET MLOCK %s", mc->name, modebuf);
    }
  else
    {
      command_success_nodata (si, _("The MLOCK for \2%s\2 has been removed."), mc->name);
      logcommand (si, CMDLOG_SET, "%s SET MLOCK NONE", mc->name);
    }

  check_modes (mc, true);

  return;
}

static void
cs_cmd_set_keeptopic (sourceinfo_t *si, int parc, char *parv[])
{
  mychan_t *mc;

  if (!(mc = mychan_t::find (parv[0])))
    {
      command_fail (si, fault::nosuch_target, _("\2%s\2 is not registered."), parv[0]);
      return;
    }

  if (!chanacs_source_has_flag (mc, si, CA_SET))
    {
      command_fail (si, fault::noprivs, _("You are not authorized to perform this command."));
      return;
    }

  if (!strcasecmp ("ON", parv[1]))
    {
      if (MC_KEEPTOPIC & mc->flags)
        {
          command_fail (si, fault::nochange, _("The \2%s\2 flag is already set for \2%s\2."), "KEEPTOPIC", mc->name);
          return;
        }

      logcommand (si, CMDLOG_SET, "%s SET KEEPTOPIC ON", mc->name);

      mc->flags |= MC_KEEPTOPIC;

      command_success_nodata (si, _("The \2%s\2 flag has been set for \2%s\2."), "KEEPTOPIC", mc->name);

      return;
    }

  else if (!strcasecmp ("OFF", parv[1]))
    {
      if (!(MC_KEEPTOPIC & mc->flags))
        {
          command_fail (si, fault::nochange, _("The \2%s\2 flag is not set for \2%s\2."), "KEEPTOPIC", mc->name);
          return;
        }

      logcommand (si, CMDLOG_SET, "%s SET KEEPTOPIC OFF", mc->name);

      mc->flags &= ~(MC_KEEPTOPIC | MC_TOPICLOCK);

      command_success_nodata (si, _("The \2%s\2 flag has been removed for \2%s\2."), "KEEPTOPIC", mc->name);

      return;
    }

  else
    {
      command_fail (si, fault::badparams, STR_INVALID_PARAMS, "KEEPTOPIC");
      return;
    }
}

static void
cs_cmd_set_topiclock (sourceinfo_t *si, int parc, char *parv[])
{
  mychan_t *mc;

  if (!(mc = mychan_t::find (parv[0])))
    {
      command_fail (si, fault::nosuch_target, _("\2%s\2 is not registered."), parv[0]);
      return;
    }

  if (!chanacs_source_has_flag (mc, si, CA_SET))
    {
      command_fail (si, fault::noprivs, _("You are not authorized to perform this command."));
      return;
    }

  if (!strcasecmp ("ON", parv[1]))
    {
      if (MC_TOPICLOCK & mc->flags)
        {
          command_fail (si, fault::nochange, _("The \2%s\2 flag is already set for \2%s\2."), "TOPICLOCK", mc->name);
          return;
        }

      logcommand (si, CMDLOG_SET, "%s SET TOPICLOCK ON", mc->name);

      mc->flags |= MC_KEEPTOPIC | MC_TOPICLOCK;

      command_success_nodata (si, _("The \2%s\2 flag has been set for \2%s\2."), "TOPICLOCK", mc->name);

      return;
    }

  else if (!strcasecmp ("OFF", parv[1]))
    {
      if (!(MC_TOPICLOCK & mc->flags))
        {
          command_fail (si, fault::nochange, _("The \2%s\2 flag is not set for \2%s\2."), "TOPICLOCK", mc->name);
          return;
        }

      logcommand (si, CMDLOG_SET, "%s SET TOPICLOCK OFF", mc->name);

      mc->flags &= ~MC_TOPICLOCK;

      command_success_nodata (si, _("The \2%s\2 flag has been removed for \2%s\2."), "TOPICLOCK", mc->name);

      return;
    }

  else
    {
      command_fail (si, fault::badparams, STR_INVALID_PARAMS, "TOPICLOCK");
      return;
    }
}

static void
cs_cmd_set_secure (sourceinfo_t *si, int parc, char *parv[])
{
  mychan_t *mc;

  if (!(mc = mychan_t::find (parv[0])))
    {
      command_fail (si, fault::nosuch_target, _("\2%s\2 is not registered."), parv[0]);
      return;
    }

  if (!chanacs_source_has_flag (mc, si, CA_SET))
    {
      command_fail (si, fault::noprivs, _("You are not authorized to perform this command."));
      return;
    }

  if (!strcasecmp ("ON", parv[1]))
    {
      if (MC_SECURE & mc->flags)
        {
          command_fail (si, fault::nochange, _("The \2%s\2 flag is already set for \2%s\2."), "SECURE", mc->name);
          return;
        }

      logcommand (si, CMDLOG_SET, "%s SET SECURE ON", mc->name);

      mc->flags |= MC_SECURE;

      command_success_nodata (si, _("The \2%s\2 flag has been set for \2%s\2."), "SECURE", mc->name);

      return;
    }

  else if (!strcasecmp ("OFF", parv[1]))
    {
      if (!(MC_SECURE & mc->flags))
        {
          command_fail (si, fault::nochange, _("The \2%s\2 flag is not set for \2%s\2."), "SECURE", mc->name);
          return;
        }

      logcommand (si, CMDLOG_SET, "%s SET SECURE OFF", mc->name);

      mc->flags &= ~MC_SECURE;

      command_success_nodata (si, _("The \2%s\2 flag has been removed for \2%s\2."), "SECURE", mc->name);

      return;
    }

  else
    {
      command_fail (si, fault::badparams, STR_INVALID_PARAMS, "SECURE");
      return;
    }
}

static void
cs_cmd_set_verbose (sourceinfo_t *si, int parc, char *parv[])
{
  mychan_t *mc;

  if (!(mc = mychan_t::find (parv[0])))
    {
      command_fail (si, fault::nosuch_target, _("\2%s\2 is not registered."), parv[0]);
      return;
    }

  if (!chanacs_source_has_flag (mc, si, CA_SET))
    {
      command_fail (si, fault::noprivs, _("You are not authorized to perform this command."));
      return;
    }

  if (!strcasecmp ("ON", parv[1]) || !strcasecmp ("ALL", parv[1]))
    {
      if (MC_VERBOSE & mc->flags)
        {
          command_fail (si, fault::nochange, _("The \2%s\2 flag is already set for \2%s\2."), "VERBOSE", mc->name);
          return;
        }

      logcommand (si, CMDLOG_SET, "%s SET VERBOSE ON", mc->name);

      mc->flags &= ~MC_VERBOSE_OPS;
      mc->flags |= MC_VERBOSE;

      verbose (mc, "\2%s\2 enabled the VERBOSE flag", get_source_name (si));
      command_success_nodata (si, _("The \2%s\2 flag has been set for \2%s\2."), "VERBOSE", mc->name);

      return;
    }

  else if (!strcasecmp ("OPS", parv[1]))
    {
      if (MC_VERBOSE_OPS & mc->flags)
        {
          command_fail (si, fault::nochange, _("The \2%s\2 flag is already set for \2%s\2."), "VERBOSE_OPS", mc->name);
          return;
        }

      logcommand (si, CMDLOG_SET, "%s SET VERBOSE OPS", mc->name);

      if (mc->flags & MC_VERBOSE)
        {
          verbose (mc, "\2%s\2 restricted VERBOSE to chanops", get_source_name (si));
          mc->flags &= ~MC_VERBOSE;
          mc->flags |= MC_VERBOSE_OPS;
        }
      else
        {
          mc->flags |= MC_VERBOSE_OPS;
          verbose (mc, "\2%s\2 enabled the VERBOSE_OPS flag", get_source_name (si));
        }

      command_success_nodata (si, _("The \2%s\2 flag has been set for \2%s\2."), "VERBOSE_OPS", mc->name);

      return;
    }
  else if (!strcasecmp ("OFF", parv[1]))
    {
      if (!((MC_VERBOSE | MC_VERBOSE_OPS) & mc->flags))
        {
          command_fail (si, fault::nochange, _("The \2%s\2 flag is not set for \2%s\2."), "VERBOSE", mc->name);
          return;
        }

      logcommand (si, CMDLOG_SET, "%s SET VERBOSE OFF", mc->name);

      if (mc->flags & MC_VERBOSE)
        verbose (mc, "\2%s\2 disabled the VERBOSE flag", get_source_name (si));
      else
        verbose (mc, "\2%s\2 disabled the VERBOSE_OPS flag", get_source_name (si));
      mc->flags &= ~(MC_VERBOSE | MC_VERBOSE_OPS);

      command_success_nodata (si, _("The \2%s\2 flag has been removed for \2%s\2."), "VERBOSE", mc->name);

      return;
    }

  else
    {
      command_fail (si, fault::badparams, STR_INVALID_PARAMS, "VERBOSE");
      return;
    }
}

static void
cs_cmd_set_fantasy (sourceinfo_t *si, int parc, char *parv[])
{
  mychan_t *mc;

  if (!(mc = mychan_t::find (parv[0])))
    {
      command_fail (si, fault::nosuch_target, _("\2%s\2 is not registered."), parv[0]);
      return;
    }

  if (!chanacs_source_has_flag (mc, si, CA_SET))
    {
      command_fail (si, fault::noprivs, _("You are not authorized to perform this command."));
      return;
    }

  if (!strcasecmp ("ON", parv[1]))
    {
      metadata *md = mc->find_metadata ("disable_fantasy");

      if (!md)
        {
          command_fail (si, fault::nochange, _("The \2%s\2 flag is already set for \2%s\2."), "FANTASY", mc->name);
          return;
        }

      mc->del_metadata ("disable_fantasy");

      logcommand (si, CMDLOG_SET, "%s SET FANTASY ON", mc->name);
      command_success_nodata (si, _("The \2%s\2 flag has been set for \2%s\2."), "FANTASY", mc->name);
      return;
    }
  else if (!strcasecmp ("OFF", parv[1]))
    {
      metadata *md = mc->find_metadata ("disable_fantasy");

      if (md)
        {
          command_fail (si, fault::nochange, _("The \2%s\2 flag is not set for \2%s\2."), "FANTASY", mc->name);
          return;
        }

      mc->add_metadata ("disable_fantasy", "on");

      logcommand (si, CMDLOG_SET, "%s SET FANTASY OFF", mc->name);
      command_success_nodata (si, _("The \2%s\2 flag has been removed for \2%s\2."), "FANTASY", mc->name);
      return;
    }

  else
    {
      command_fail (si, fault::badparams, STR_INVALID_PARAMS, "FANTASY");
      return;
    }
}

static void
cs_cmd_set_guard (sourceinfo_t *si, int parc, char *parv[])
{
  mychan_t *mc;

  if (!(mc = mychan_t::find (parv[0])))
    {
      command_fail (si, fault::nosuch_target, _("\2%s\2 is not registered."), parv[0]);
      return;
    }

  if (!chanacs_source_has_flag (mc, si, CA_SET))
    {
      command_fail (si, fault::noprivs, _("You are not authorized to perform this command."));
      return;
    }

  if (!strcasecmp ("ON", parv[1]))
    {
      if (MC_GUARD & mc->flags)
        {
          command_fail (si, fault::nochange, _("The \2%s\2 flag is already set for \2%s\2."), "GUARD", mc->name);
          return;
        }

      logcommand (si, CMDLOG_SET, "%s SET GUARD ON", mc->name);

      mc->flags |= MC_GUARD;

      if (!(mc->flags & MC_INHABIT))
        join (mc->name, chansvs.nick);

      command_success_nodata (si, _("The \2%s\2 flag has been set for \2%s\2."), "GUARD", mc->name);

      return;
    }

  else if (!strcasecmp ("OFF", parv[1]))
    {
      if (!(MC_GUARD & mc->flags))
        {
          command_fail (si, fault::nochange, _("The \2%s\2 flag is not set for \2%s\2."), "GUARD", mc->name);
          return;
        }

      logcommand (si, CMDLOG_SET, "%s SET GUARD OFF", mc->name);

      mc->flags &= ~MC_GUARD;

      if (!(mc->flags & MC_INHABIT) && (!config_options.chan || irccasecmp (config_options.chan, mc->name)))
        part (mc->name, chansvs.nick);

      command_success_nodata (si, _("The \2%s\2 flag has been removed for \2%s\2."), "GUARD", mc->name);

      return;
    }

  else
    {
      command_fail (si, fault::badparams, STR_INVALID_PARAMS, "GUARD");
      return;
    }
}

static void
cs_cmd_set_staffonly (sourceinfo_t *si, int parc, char *parv[])
{
  mychan_t *mc;

  if (!(mc = mychan_t::find (parv[0])))
    {
      command_fail (si, fault::nosuch_target, _("\2%s\2 is not registered."), parv[0]);
      return;
    }

  if (!strcasecmp ("ON", parv[1]))
    {
      if (MC_STAFFONLY & mc->flags)
        {
          command_fail (si, fault::nochange, _("The \2%s\2 flag is already set for \2%s\2."), "STAFFONLY", mc->name);
          return;
        }

      snoop ("SET:STAFFONLY:ON: for \2%s\2 by \2%s\2", mc->name, get_oper_name (si));
      logcommand (si, CMDLOG_SET, "%s SET STAFFONLY ON", mc->name);

      mc->flags |= MC_STAFFONLY;

      command_success_nodata (si, _("The \2%s\2 flag has been set for \2%s\2."), "STAFFONLY", mc->name);

      return;
    }

  else if (!strcasecmp ("OFF", parv[1]))
    {
      if (!(MC_STAFFONLY & mc->flags))
        {
          command_fail (si, fault::nochange, _("The \2%s\2 flag is not set for \2%s\2."), "STAFFONLY", mc->name);
          return;
        }

      snoop ("SET:STAFFONLY:OFF: for \2%s\2 by \2%s\2", mc->name, get_oper_name (si));
      logcommand (si, CMDLOG_SET, "%s SET STAFFONLY OFF", mc->name);

      mc->flags &= ~MC_STAFFONLY;

      command_success_nodata (si, _("The \2%s\2 flag has been removed for \2%s\2."), "STAFFONLY", mc->name);

      return;
    }

  else
    {
      command_fail (si, fault::badparams, STR_INVALID_PARAMS, "STAFFONLY");
      return;
    }
}

static void
cs_cmd_set_property (sourceinfo_t *si, int parc, char *parv[])
{
  mychan_t *mc;
  char *property = strtok (parv[1], " ");
  char *value = strtok (NULL, "");

  if (!property)
    {
      command_fail (si, fault::needmoreparams, _("Syntax: SET <#channel> PROPERTY <property> [value]"));
      return;
    }

  /* do we really need to allow this? -- jilles */
  if (strchr (property, ':') && !has_priv (si, PRIV_METADATA))
    {
      command_fail (si, fault::badparams, _("Invalid property name."));
      return;
    }

  if (!(mc = mychan_t::find (parv[0])))
    {
      command_fail (si, fault::nosuch_target, _("\2%s\2 is not registered."), parv[0]);
      return;
    }

  if (!si->smu->is_founder (mc))
    {
      command_fail (si, fault::noprivs, _("You are not authorized to perform this command."));
      return;
    }

  if (mc->metadata.count >= me.mdlimit)
    {
      command_fail (si, fault::toomany, _("Cannot add \2%s\2 to \2%s\2 metadata table, it is full."), property, parv[0]);
      return;
    }

  if (strchr (property, ':'))
    snoop ("SET:PROPERTY: \2%s\2: \2%s\2/\2%s\2", mc->name, property, value);

  if (!value)
    {
      metadata *md = mc->find_metadata (property);

      if (!md)
        {
          command_fail (si, fault::nochange, _("Metadata entry \2%s\2 was not set."), property);
          return;
        }

      mc->del_metadata (property);
      logcommand (si, CMDLOG_SET, "%s SET PROPERTY %s (deleted)", mc->name, property);
      command_success_nodata (si, _("Metadata entry \2%s\2 has been deleted."), property);
      return;
    }

  if (strlen (property) > 32 || strlen (value) > 300)
    {
      command_fail (si, fault::badparams, _("Parameters are too long. Aborting."));
      return;
    }

  mc->add_metadata (property, value);
  logcommand (si, CMDLOG_SET, "%s SET PROPERTY %s to %s", mc->name, property, value);
  command_success_nodata (si, _("Metadata entry \2%s\2 added."), property);
}

bool
_modinit (module *m)
{
  cs_cmdtree << cs_set;
  cs_set_cmdtree << cs_set_commands;

  help_addentry (cs_helptree, "SET", NULL, cs_help_set);
  help_addentry (cs_helptree, "SET FOUNDER", "help/chanserv/set_founder", NULL);
  help_addentry (cs_helptree, "SET MLOCK", "help/chanserv/set_mlock", NULL);
  help_addentry (cs_helptree, "SET SECURE", "help/chanserv/set_secure", NULL);
  help_addentry (cs_helptree, "SET VERBOSE", "help/chanserv/set_verbose", NULL);
  help_addentry (cs_helptree, "SET URL", "help/chanserv/set_url", NULL);
  help_addentry (cs_helptree, "SET EMAIL", "help/chanserv/set_email", NULL);
  help_addentry (cs_helptree, "SET ENTRYMSG", "help/chanserv/set_entrymsg", NULL);
  help_addentry (cs_helptree, "SET PROPERTY", "help/chanserv/set_property", NULL);
  help_addentry (cs_helptree, "SET STAFFONLY", "help/chanserv/set_staffonly", NULL);
  help_addentry (cs_helptree, "SET KEEPTOPIC", "help/chanserv/set_keeptopic", NULL);
  help_addentry (cs_helptree, "SET TOPICLOCK", "help/chanserv/set_topiclock", NULL);
  help_addentry (cs_helptree, "SET FANTASY", "help/chanserv/set_fantasy", NULL);
  help_addentry (cs_helptree, "SET GUARD", "help/chanserv/set_guard", NULL);

  ConfTable::callback.ready.attach (on_config_ready);

  return true;
}

void
_moddeinit ()
{
  cs_cmdtree >> cs_set;
  cs_set_cmdtree >> cs_set_commands;

  help_delentry (cs_helptree, "SET");
  help_delentry (cs_helptree, "SET FOUNDER");
  help_delentry (cs_helptree, "SET MLOCK");
  help_delentry (cs_helptree, "SET SECURE");
  help_delentry (cs_helptree, "SET VERBOSE");
  help_delentry (cs_helptree, "SET URL");
  help_delentry (cs_helptree, "SET EMAIL");
  help_delentry (cs_helptree, "SET ENTRYMSG");
  help_delentry (cs_helptree, "SET PROPERTY");
  help_delentry (cs_helptree, "SET STAFFONLY");
  help_delentry (cs_helptree, "SET KEEPTOPIC");
  help_delentry (cs_helptree, "SET TOPICLOCK");
  help_delentry (cs_helptree, "SET FANTASY");
  help_delentry (cs_helptree, "SET GUARD");

  ConfTable::callback.ready.detach (on_config_ready);
}
Revision:	1.11
Committed:	Sat Sep 22 14:27:27 2007 UTC (19 years ago) by pippijn
Content type:	text/plain
Branch:	MAIN
CVS Tags:	HEAD
Changes since 1.10:	+5 -3 lines
Log Message:	split up ermyth into ermyth-modules, libermyth (currently just ermyth-util) and ermyth-core