/**
 * template.C: This file contains code for the ChanServ TEMPLATE functions.
 *
 * 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 © 2005-2006 Jilles Tjoelker, et al.
 * Rights to this code are as documented in doc/pod/license.pod.
 *
 * $Id: template.C,v 1.9 2007/09/22 14:27:27 pippijn Exp $
 */

#include "atheme.h"
#include <ermyth/module.h>
#include <account/myuser.h>
#include <account/mychan.h>
#include <account/chanacs.h>
#include "template.h"

static char const rcsid[] = "$Id: template.C,v 1.9 2007/09/22 14:27:27 pippijn Exp $";

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

static void list_generic_flags (sourceinfo_t *si);

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

command_t const cs_flags = { "TEMPLATE", N_("Manipulates predefined sets of flags."), AC_NONE, 3, cs_cmd_template };

E cmdvec cs_cmdtree;
E helpvec cs_helptree;

bool
_modinit (module *m)
{
  cs_cmdtree << cs_flags;
  help_addentry (cs_helptree, "TEMPLATE", "help/chanserv/template", NULL);

  return true;
}

void
_moddeinit ()
{
  cs_cmdtree >> cs_flags;
  help_delentry (cs_helptree, "TEMPLATE");
}

static void
list_generic_flags (sourceinfo_t *si)
{
  command_success_nodata (si, "%-20s %s", _("Name"), _("Flags"));
  command_success_nodata (si, "%-20s %s", "--------------------", "-----");
  command_success_nodata (si, "%-20s %s", "SOP", bitmask_to_flags (chansvs.ca_sop, chanacs_flags));
  command_success_nodata (si, "%-20s %s", "AOP", bitmask_to_flags (chansvs.ca_aop, chanacs_flags));
  if (chansvs.ca_hop != chansvs.ca_vop)
    command_success_nodata (si, "%-20s %s", "HOP", bitmask_to_flags (chansvs.ca_hop, chanacs_flags));
  command_success_nodata (si, "%-20s %s", "VOP", bitmask_to_flags (chansvs.ca_vop, chanacs_flags));
  command_success_nodata (si, "%-20s %s", "--------------------", "-----");
  command_success_nodata (si, _("End of network wide template list."));
}

/* TEMPLATE [channel] [template] [flags] */
static void
cs_cmd_template (sourceinfo_t *si, int parc, char *parv[])
{
  metadata *md;
  int operoverride = 0, changechanacs = 0, l;
  char *channel = parv[0];
  char *target = parv[1];
  mychan_t *mc = mychan_t::find (channel);
  unsigned int oldflags, newflags = 0, addflags, removeflags, restrictflags;
  char *p, *q, *r;
  char ss[40], newstr[400];
  bool found, denied;

  if (!channel)
    {
      list_generic_flags (si);
      logcommand (si, CMDLOG_GET, "TEMPLATE");
      return;
    }

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

  if (!target)
    {
      if (!chanacs_source_has_flag (mc, si, CA_ACLVIEW))
        {
          if (has_priv (si, PRIV_CHAN_AUSPEX))
            operoverride = 1;
          else
            {
              command_fail (si, fault::noprivs, _("You are not authorized to perform this operation."));
              return;
            }
        }

      if (mc->find_metadata ("private:close:closer") && !has_priv (si, PRIV_CHAN_AUSPEX))
        {
          command_fail (si, fault::noprivs, _("\2%s\2 is closed."), channel);
          return;
        }

      md = mc->find_metadata ("private:templates");

      if (md != NULL)
        {
          command_success_nodata (si, "%-20s %s", _("Name"), _("Flags"));
          command_success_nodata (si, "%-20s %s", "--------------------", "-----");

          p = md->value;
          while (p != NULL)
            {
              while (*p == ' ')
                p++;
              q = strchr (p, '=');
              if (q == NULL)
                break;
              r = strchr (q, ' ');
              command_success_nodata (si, "%-20.*s %.*s", (q - p), p, r != NULL ? (r - q - 1) : (int) strlen (q + 1), q + 1);
              p = r;
            }

          command_success_nodata (si, "%-20s %s", "--------------------", "-----");
          command_success_nodata (si, _("End of \2%s\2 TEMPLATE listing."), mc->name);
        }
      else
        command_success_nodata (si, _("No templates set on channel \2%s\2."), mc->name);
      if (operoverride)
        logcommand (si, CMDLOG_ADMIN, "%s TEMPLATE (oper override)", mc->name);
      else
        logcommand (si, CMDLOG_GET, "%s TEMPLATE", mc->name);
    }
  else
    {
      char *flagstr = parv[2];

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

      /* probably no need to special-case founder here -- jilles */
      /* founder may always set flags -- jilles */
      restrictflags = chanacs_source_flags (mc, si);
      if (restrictflags & CA_FOUNDER)
        restrictflags = ca_all;
      else
        {
          if (!(restrictflags & CA_FLAGS))
            {
              command_fail (si, fault::noprivs, _("You are not authorized to execute this command."));
              return;
            }
          restrictflags = allow_flags (restrictflags);
        }

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

      if (!target || !flagstr)
        {
          command_fail (si, fault::needmoreparams, _("Usage: TEMPLATE %s [target flags]"), channel);
          return;
        }

      if (*target == '+' || *target == '-' || *target == '=')
        {
          command_fail (si, fault::badparams, _("Invalid template name \2%s\2."), target);
          return;
        }
      l = strlen (target);

      if (*flagstr == '!' && (flagstr[1] == '+' || flagstr[1] == '-' || flagstr[1] == '='))
        {
          changechanacs = 1;
          flagstr++;
        }

      if (*flagstr == '+' || *flagstr == '-' || *flagstr == '=')
        {
          flags_make_bitmasks (flagstr, chanacs_flags, &addflags, &removeflags);
          if (addflags == 0 && removeflags == 0)
            {
              command_fail (si, fault::badparams, _("No valid flags given, use /%s%s HELP FLAGS for a list"), ircd->uses_rcommand ? "" : "msg ", chansvs.disp);
              return;
            }
        }
      else
        {
          /* allow copying templates as well */
          addflags = get_template_flags (mc, flagstr);
          if (addflags == 0)
            {
              command_fail (si, fault::nosuch_key, _("Invalid template name given, use /%s%s TEMPLATE %s for a list"), ircd->uses_rcommand ? "" : "msg ", chansvs.disp, mc->name);
              return;
            }
          removeflags = ca_all & ~addflags;
        }
      
      /* if adding +F, also add +f */
      if (addflags & CA_FOUNDER)
        addflags |= CA_FLAGS, removeflags &= ~CA_FLAGS;
      /* if removing +f, also remove +F */
      else if (removeflags & CA_FLAGS)
        removeflags |= CA_FOUNDER, addflags &= ~CA_FOUNDER;

      found = denied = false;
      oldflags = 0;

      md = mc->find_metadata ("private:templates");
      if (md != NULL)
        {
          p = md->value;
          strlcpy (newstr, p, sizeof newstr);
          while (p != NULL)
            {
              while (*p == ' ')
                p++;
              q = strchr (p, '=');
              if (q == NULL)
                break;
              r = strchr (q, ' ');
              if (r != NULL && r < q)
                break;
              strlcpy (ss, q, sizeof ss);
              if (r != NULL && r - q < (int) (sizeof ss - 1))
                {
                  ss[r - q] = '\0';
                }
              if (q - p == l && !strncasecmp (target, p, q - p))
                {
                  found = true;
                  oldflags = flags_to_bitmask (ss, chanacs_flags, 0);
                  addflags &= ~oldflags;
                  removeflags &= oldflags & ~addflags;
                  /* no change? */
                  if ((addflags | removeflags) == 0)
                    break;
                  /* attempting to add bad flag? */
                  /* attempting to remove bad flag? */
                  /* attempting to manipulate something with more privs? */
                  if (~restrictflags & addflags || ~restrictflags & removeflags || ~restrictflags & oldflags)
                    {
                      denied = true;
                      break;
                    }
                  newflags = (oldflags | addflags) & ~removeflags;
                  if (newflags == 0)
                    {
                      if (p == md->value)
                        /* removing first entry,
                         * zap the space after it */
                        strlcpy (newstr, r != NULL ? r + 1 : "", sizeof newstr);
                      else
                        {
                          /* otherwise, zap the space before it */
                          p--;
                          strlcpy (newstr + (p - md->value), r != NULL ? r : "", sizeof newstr - (p - md->value));
                        }
                    }
                  else
                    snprintf (newstr + (p - md->value), sizeof newstr - (p - md->value), "%s=%s%s", target, bitmask_to_flags (newflags, chanacs_flags), r != NULL ? r : "");
                  break;
                }
              p = r;
            }
        }
      if (!found)
        {
          if (l == 3 && (!strcasecmp (target, "SOP") || !strcasecmp (target, "AOP") || !strcasecmp (target, "HOP") || !strcasecmp (target, "VOP")))
            {
              oldflags = get_template_flags (NULL, target);
              addflags &= ~oldflags;
              removeflags &= oldflags & ~addflags;
              newflags = (oldflags | addflags) & ~removeflags;
              if (newflags == 0)
                removeflags = 0;
              if ((addflags | removeflags) != 0)
                command_success_nodata (si, _("Redefining built-in template \2%s\2."), target);
            }
          else
            {
              removeflags = 0;
              newflags = addflags;
            }
          if ((addflags | removeflags) == 0)
            ;
          else if (~restrictflags & addflags || ~restrictflags & removeflags || ~restrictflags & oldflags)
            denied = true;
          else if (md != NULL)
            snprintf (newstr + strlen (newstr), sizeof newstr - strlen (newstr), " %s=%s", target, bitmask_to_flags (newflags, chanacs_flags));
          else
            snprintf (newstr, sizeof newstr, "%s=%s", target, bitmask_to_flags (newflags, chanacs_flags));
        }
      if ((addflags | removeflags) == 0)
        {
          if (oldflags != 0)
            command_fail (si, fault::nochange, _("Template \2%s\2 on \2%s\2 unchanged."), target, channel);
          else
            command_fail (si, fault::nosuch_key, _("No such template \2%s\2 on \2%s\2."), target, channel);
          return;
        }
      if (denied)
        {
          command_fail (si, fault::noprivs, _("You are not allowed to set \2%s\2 on template \2%s\2 in \2%s\2."), bitmask_to_flags2 (addflags, removeflags, chanacs_flags), target, mc->name);
          return;
        }
      if (strlen (newstr) >= 300)
        {
          command_fail (si, fault::toomany, _("Sorry, too many templates on \2%s\2."), channel);
          return;
        }
      if (newstr[0] == '\0')
        mc->del_metadata ("private:templates");
      else
        mc->add_metadata ("private:templates", newstr);
      if (oldflags == 0)
        command_success_nodata (si, _("Added template \2%s\2 with flags \2%s\2 in \2%s\2."), target, bitmask_to_flags (newflags, chanacs_flags), channel);
      else if (newflags == 0)
        command_success_nodata (si, _("Removed template \2%s\2 from \2%s\2."), target, channel);
      else
        command_success_nodata (si, _("Changed template \2%s\2 to \2%s\2 in \2%s\2."), target, bitmask_to_flags (newflags, chanacs_flags), channel);

      flagstr = bitmask_to_flags2 (addflags, removeflags, chanacs_flags);
      if (changechanacs)
        {
          node_t *n, *tn;
          chanacs_t *ca;
          int changes = 0, founderskipped = 0;
          char flagstr2[128];

          LIST_FOREACH_SAFE (n, tn, mc->chanacs.head)
          {
            ca = static_cast<chanacs_t *> (n->data);
            if (ca->level != oldflags)
              continue;
            if ((addflags | removeflags) & CA_FOUNDER)
              {
                founderskipped++;
                continue;
              }
            changes++;
            chanacs_modify_simple (ca, newflags, ~newflags);
            chanacs_close (ca);
          }
          logcommand (si, CMDLOG_SET, "%s TEMPLATE %s !%s (%d changes)", mc->name, target, flagstr, changes);
          strlcpy (flagstr2, flagstr, sizeof flagstr2);
          if (changes > 0)
            verbose (mc, "\2%s\2 set \2%s\2 on %d access entries with flags \2%s\2.", get_source_name (si), flagstr2, changes, bitmask_to_flags (oldflags, chanacs_flags));
          command_success_nodata (si, _("%d access entries updated accordingly."), changes);
          if (founderskipped)
            command_success_nodata (si, _("Not updating %d access entries involving founder status. Please do it manually."), founderskipped);
        }
      else
        logcommand (si, CMDLOG_SET, "%s TEMPLATE %s %s", mc->name, target, flagstr);
      /*verbose(mc, "Flags \2%s\2 were set on template \2%s\2 in \2%s\2.", flagstr, target, channel); */
    }
}