/**
 * recover.C: This file contains code for the ChanServ RECOVER 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 William Pitcock, et al.
 * Rights to this code are as documented in doc/pod/license.pod.
 *
 * $Id: recover.C,v 1.8 2007/09/22 14:27:27 pippijn Exp $
 */

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

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

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

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

command_t const cs_recover = { "RECOVER", N_("Regain control of your channel."), AC_NONE, 1, cs_cmd_recover };

E cmdvec cs_cmdtree;
E helpvec cs_helptree;

bool
_modinit (module *m)
{
  cs_cmdtree << cs_recover;
  help_addentry (cs_helptree, "RECOVER", "help/chanserv/recover", NULL);

  return true;
}

void
_moddeinit ()
{
  cs_cmdtree >> cs_recover;
  help_delentry (cs_helptree, "RECOVER");
}

static void
cs_cmd_recover (sourceinfo_t *si, int parc, char *parv[])
{
  chanuser_t *cu, *origin_cu = NULL;
  mychan_t *mc;
  node_t *n, *tn;
  chanban_t *cb;
  char *name = parv[0];
  char hostbuf2[BUFSIZE];
  char e;
  bool added_exempt = false;
  int i;
  char str[3];

  if (!name)
    {
      command_fail (si, fault::needmoreparams, STR_INSUFFICIENT_PARAMS, "RECOVER");
      command_fail (si, fault::needmoreparams, _("Syntax: RECOVER <#channel>"));
      return;
    }

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

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

  if (!mc->chan)
    {
      command_fail (si, fault::nosuch_target, _("\2%s\2 is currently empty."), name);
      return;
    }

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

  verbose (mc, "\2%s\2 used RECOVER.", get_source_name (si));
  logcommand (si, CMDLOG_SET, "%s RECOVER", mc->name);

  /* deop everyone */
  LIST_FOREACH (n, mc->chan->members.head)
  {
    cu = (chanuser_t *) n->data;

    if (cu->user == si->su)
      origin_cu = cu;
    else if (is_internal_client (cu->user))
      ;
    else
      {
	if (ircd->uses_owner && (ircd->owner_mode & cu->modes))
	  {
	    modestack_mode_param (chansvs.nick, mc->chan, MTYPE_DEL, ircd->owner_mchar[1], CLIENT_NAME (cu->user));
	    cu->modes &= ~ircd->owner_mode;
	  }
	if (ircd->uses_protect && (ircd->protect_mode & cu->modes))
	  {
	    modestack_mode_param (chansvs.nick, mc->chan, MTYPE_DEL, ircd->protect_mchar[1], CLIENT_NAME (cu->user));
	    cu->modes &= ~ircd->protect_mode;
	  }
	if ((CMODE_OP & cu->modes))
	  {
	    modestack_mode_param (chansvs.nick, mc->chan, MTYPE_DEL, 'o', CLIENT_NAME (cu->user));
	    cu->modes &= ~CMODE_OP;
	  }
	if (ircd->uses_halfops && (ircd->halfops_mode & cu->modes))
	  {
	    modestack_mode_param (chansvs.nick, mc->chan, MTYPE_DEL, ircd->halfops_mchar[1], CLIENT_NAME (cu->user));
	    cu->modes &= ~ircd->halfops_mode;
	  }
      }
  }

  if (origin_cu == NULL)
    {
      /* if requester is not on channel,
       * remove modes that keep people out */
      if (CMODE_LIMIT & mc->chan->modes)
	channel_mode_va (si->service->me, mc->chan, 1, "-l");
      if (CMODE_KEY & mc->chan->modes)
	channel_mode_va (si->service->me, mc->chan, 2, "-k", "*");

      /* stuff like join throttling
       * XXX only remove modes that could keep people out
       * -- jilles */
      str[0] = '-';
      str[2] = '\0';
      for (i = 0; ignore_mode_list[i].mode != '\0'; i++)
	{
	  str[1] = ignore_mode_list[i].mode;
	  if (mc->chan->extmodes[i] != NULL)
	    channel_mode_va (si->service->me, mc->chan, 1, str);
	}
    }
  else
    {
      if (!(CMODE_OP & origin_cu->modes))
	modestack_mode_param (chansvs.nick, mc->chan, MTYPE_ADD, 'o', CLIENT_NAME (si->su));
      origin_cu->modes |= CMODE_OP;
    }

  if (origin_cu != NULL || (chanacs_source_flags (mc, si) & (CA_OP | CA_AUTOOP)))
    {

      channel_mode_va (si->service->me, mc->chan, 1, "+im");
    }
  else if (CMODE_INVITE & mc->chan->modes)
    {
      channel_mode_va (si->service->me, mc->chan, 1, "-i");
    }

  /* unban the user */
  snprintf (hostbuf2, BUFSIZE, "%s!%s@%s", si->su->nick, si->su->user, si->su->vhost);

  for (n = phandler->next_matching_ban (mc->chan, si->su, 'b', mc->chan->bans.head); n != NULL; n = phandler->next_matching_ban (mc->chan, si->su, 'b', tn))
    {
      tn = n->next;
      cb = static_cast<chanban_t *> (n->data);

      modestack_mode_param (chansvs.nick, mc->chan, MTYPE_DEL, cb->type, cb->mask);
      chanban_delete (cb);
    }

  if (origin_cu == NULL)
    {
      /* set an exempt on the user calling this */
      e = ircd->except_mchar;
      if (e != '\0')
	{
	  if (!chanban_find (mc->chan, hostbuf2, e))
	    {
	      chanban_add (mc->chan, hostbuf2, e);
	      modestack_mode_param (chansvs.nick, mc->chan, MTYPE_ADD, e, hostbuf2);
	      added_exempt = true;
	    }
	}
    }

  modestack_flush_channel (mc->chan);

  /* invite them back. must have sent +i before this */
  if (origin_cu == NULL)
    phandler->invite_sts (si->service->me, si->su, mc->chan);

  if (added_exempt)
    command_success_nodata (si, _("Recover complete for \2%s\2, ban exception \2%s\2 added."), mc->chan->name, hostbuf2);
  else
    command_success_nodata (si, _("Recover complete for \2%s\2."), mc->chan->name);
}

/* vim:cinoptions=>s,e0,n0,f0,{0,}0,^0,=s,ps,t0,c3,+s,(2s,us,)20,*30,gs,hs
 * vim:ts=8
 * vim:sw=8
 * vim:noexpandtab
 */