/**
 * count.C: This file contains code for the ChanServ COUNT 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 Patrick Fish, et al.
 * Rights to this code are as documented in doc/pod/license.pod.
 *
 * $Id: count.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>
#include "template.h"

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

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

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

command_t const cs_count = { "COUNT", N_("Shows number of entries in access lists."), AC_NONE, 1, cs_cmd_count };

E cmdvec cs_cmdtree;
E helpvec cs_helptree;

bool
_modinit (module *m)
{
  help_addentry (cs_helptree, "COUNT", "help/chanserv/count", NULL);
  cs_cmdtree << cs_count;

  return true;
}

void
_moddeinit ()
{
  help_delentry (cs_helptree, "COUNT");
  cs_cmdtree >> cs_count;
}

static void
cs_cmd_count (sourceinfo_t *si, int parc, char *parv[])
{
  char *chan = parv[0];
  chanacs_t *ca;
  mychan_t *mc = mychan_t::find (chan);
  unsigned int ca_sop, ca_aop, ca_hop, ca_vop;
  int vopcnt = 0, aopcnt = 0, hopcnt = 0, sopcnt = 0, akickcnt = 0;
  int othercnt = 0;
  int i;
  node_t *n;
  char str[512];
  int operoverride = 0;

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

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

  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"))
    {
      command_fail (si, fault::noprivs, _("\2%s\2 is closed."), chan);
      return;
    }

  ca_sop = get_template_flags (mc, "SOP");
  ca_aop = get_template_flags (mc, "AOP");
  ca_hop = get_template_flags (mc, "HOP");
  ca_vop = get_template_flags (mc, "VOP");

  LIST_FOREACH (n, mc->chanacs.head)
  {
    ca = (chanacs_t *) n->data;

    if (ca->level == ca_vop)
      vopcnt++;
    else if (ca->level == ca_hop)
      hopcnt++;
    else if (ca->level == ca_aop)
      aopcnt++;
    else if (ca->level == ca_sop)
      sopcnt++;
    else if (ca->level == CA_AKICK)
      akickcnt++;
    else
      othercnt++;
  }
  if (ca_hop == ca_vop)
    command_success_nodata (si, _("%s: VOp: %d, AOp: %d, SOp: %d, AKick: %d, other: %d"), chan, vopcnt, aopcnt, sopcnt, akickcnt, othercnt);
  else
    command_success_nodata (si, _("%s: VOp: %d, HOp: %d, AOp: %d, SOp: %d, AKick: %d, other: %d"), chan, vopcnt, hopcnt, aopcnt, sopcnt, akickcnt, othercnt);
  snprintf (str, sizeof str, "%s: ", chan);
  for (i = 0; chanacs_flags[i].flag; i++)
    {
      othercnt = 0;
      LIST_FOREACH (n, mc->chanacs.head)
      {
	ca = (chanacs_t *) n->data;

	if (ca->level & chanacs_flags[i].value)
	  othercnt++;
      }
      snprintf (str + strlen (str), sizeof str - strlen (str), "%c:%d ", chanacs_flags[i].flag, othercnt);
    }
  command_success_nodata (si, "%s", str);
  if (operoverride)
    logcommand (si, CMDLOG_ADMIN, "%s COUNT (oper override)", mc->name);
  else
    logcommand (si, CMDLOG_GET, "%s COUNT", mc->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
 */