/*
 * privs.C: Services operator privileges
 *
 * 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:
 * Rights to this code are documented in doc/pod/license.pod.
 * Copyright © 2005-2007 Atheme Project (http://www.atheme.org)
 */

static char const rcsid[] = "$Id: privs.C,v 1.6 2007/09/16 18:54:45 pippijn Exp $";

#include "atheme.h"
#include <account/myuser.h>
#include "privs.h"

list_t operclasslist;
list_t soperlist;

void
init_privs (void)
{
#if 0
  operclass_heap = BlockHeapCreate (sizeof (operclass_t), 2);
  soper_heap = BlockHeapCreate (sizeof (soper_t), 2);
#endif
}

/*************************
 * O P E R C L A S S E S *
 *************************/
operclass_t *
operclass_add (char *name, char const *privs)
{
  operclass_t *operclass;
  node_t *n = node_create ();

  operclass = operclass_find (name);
  if (operclass != NULL)
    {
      slog (LG_DEBUG, "operclass_add(): duplicate class %s", name);
      return NULL;
    }
  slog (LG_DEBUG, "operclass_add(): %s [%s]", name, privs);
  operclass = new operclass_t;
  node_add (operclass, n, &operclasslist);
  operclass->name = sstrdup (name);
  operclass->privs = sstrdup (privs);
  cnt.operclass++;
  LIST_FOREACH (n, soperlist.head)
  {
    soper_t *soper = static_cast<soper_t *> (n->data);
    if (soper->operclass == NULL && !strcasecmp (name, soper->classname))
      soper->operclass = operclass;
  }
  return operclass;
}

void
operclass_delete (operclass_t *operclass)
{
  node_t *n;

  if (operclass == NULL)
    return;
  slog (LG_DEBUG, "operclass_delete(): %s", operclass->name);
  n = node_find (operclass, &operclasslist);
  node_del (n, &operclasslist);
  node_free (n);
  LIST_FOREACH (n, soperlist.head)
  {
    soper_t *soper = static_cast<soper_t *> (n->data);
    if (soper->operclass == operclass)
      soper->operclass = NULL;
  }
  sfree (operclass->name);
  sfree (operclass->privs);
  delete operclass;
  cnt.operclass--;
}

operclass_t *
operclass_find (char const * const name)
{
  operclass_t *operclass;
  node_t *n;

  LIST_FOREACH (n, operclasslist.head)
  {
    operclass = (operclass_t *) n->data;

    if (!strcasecmp (operclass->name, name))
      return operclass;
  }

  return NULL;
}

/***************
 * S O P E R S *
 ***************/

soper_t *
soper_add (char *name, char *classname, int flags)
{
  soper_t *soper;
  myuser_t *mu = myuser_t::find (name);
  node_t *n;
  operclass_t *operclass = operclass_find (classname);

  soper = mu ? soper_find (mu) : soper_find_named (name);
  if (soper != NULL)
    {
      if (flags & SOPER_CONF && !(soper->flags & SOPER_CONF))
	{
	  slog (LG_INFO, "soper_add(): conf soper %s (%s) is replacing DB soper with class %s", name, classname, soper->classname);
	  soper_delete (soper);
	}
      else if (!(flags & SOPER_CONF) && soper->flags & SOPER_CONF)
	{
	  slog (LG_INFO, "soper_add(): ignoring DB soper %s (%s) because of conf soper with class %s", name, classname, soper->classname);
	  return NULL;
	}
      else
	{
	  slog (LG_INFO, "soper_add(): duplicate soper %s", name);
	  return NULL;
	}
    }
  slog (LG_DEBUG, "soper_add(): %s -> %s", (mu) ? mu->name : name, operclass ? operclass->name : "<null>");

  soper = new soper_t;
  n = node_create ();

  node_add (soper, n, &soperlist);

  if (mu)
    {
      soper->myuser = mu;
      mu->soper = soper;
      soper->name = NULL;
    }
  else
    {
      soper->name = sstrdup (name);
      soper->myuser = NULL;
    }
  soper->operclass = operclass;
  soper->classname = sstrdup (classname);
  soper->flags = flags;

  cnt.soper++;

  return soper;
}

void
soper_delete (soper_t *soper)
{
  node_t *n;

  if (!soper)
    {
      slog (LG_DEBUG, "soper_delete(): called for null soper");

      return;
    }

  slog (LG_DEBUG, "soper_delete(): %s", (soper->myuser) ? soper->myuser->name : soper->name);

  n = node_find (soper, &soperlist);
  node_del (n, &soperlist);
  node_free (n);

  if (soper->myuser)
    soper->myuser->soper = NULL;

  if (soper->name)
    sfree (soper->name);

  sfree (soper->classname);

  delete soper;

  cnt.soper--;
}

soper_t *
soper_find (myuser_t *myuser)
{
  soper_t *soper;
  node_t *n;

  LIST_FOREACH (n, soperlist.head)
  {
    soper = (soper_t *) n->data;

    if (soper->myuser && soper->myuser == myuser)
      return soper;
  }

  return NULL;
}

soper_t *
soper_find_named (char *name)
{
  soper_t *soper;
  node_t *n;

  LIST_FOREACH (n, soperlist.head)
  {
    soper = (soper_t *) n->data;

    if (soper->name && !irccasecmp (soper->name, name))
      return soper;
  }

  return NULL;
}

bool
is_soper (myuser_t *myuser)
{
  if (!myuser)
    return false;

  if (myuser->soper)
    return true;

  return false;
}

bool
is_conf_soper (myuser_t *myuser)
{
  if (!myuser)
    return false;

  if (myuser->soper && myuser->soper->flags & SOPER_CONF)
    return true;

  return false;
}

/* name1 name2 name3... */
static bool
string_in_list (char const * const str, char const * const name)
{
  char *p;
  char const *s = str;
  int l;

  if (s == NULL)
    return false;
  l = strlen (name);
  while (*s != '\0')
    {
      p = strchr (s, ' ');
      if (p != NULL ? p - s == l && !strncasecmp (s, name, p - s) : !strcasecmp (s, name))
	return true;
      if (p == NULL)
	return false;
      s = p;
      while (*s == ' ')
	s++;
    }
  return false;
}

bool
has_any_privs (sourceinfo_t *si)
{
  if (si->su != NULL && is_ircop (si->su))
    return true;
  if (si->smu && is_soper (si->smu))
    return true;
  return false;
}

bool
has_any_privs_user (user_t *u)
{
  if (u == NULL)
    return false;
  if (is_ircop (u))
    return true;
  if (u->myuser && is_soper (u->myuser))
    return true;
  return false;
}

bool
has_priv (sourceinfo_t *si, char const * const priv)
{
  return si->su != NULL ? has_priv_user (si->su, priv) : has_priv_myuser (si->smu, priv);
}

bool
has_priv_user (user_t *u, char const * const priv)
{
  operclass_t *operclass;

  if (priv == NULL)
    return true;
  if (u == NULL)
    return false;
  if (is_ircop (u))
    {
      operclass = operclass_find ("ircop");
      if (operclass != NULL && string_in_list (operclass->privs, priv))
	return true;
    }
  if (u->myuser && is_soper (u->myuser))
    {
      operclass = u->myuser->soper->operclass;
      if (operclass == NULL)
	return false;
      if (operclass->flags & OPERCLASS_NEEDOPER && !is_ircop (u))
	return false;
      if (string_in_list (operclass->privs, priv))
	return true;
    }
  return false;
}

bool
has_priv_myuser (myuser_t *mu, char const * const priv)
{
  operclass_t *operclass;

  if (priv == NULL)
    return true;
  if (mu == NULL)
    return false;
  if (!is_soper (mu))
    return false;
  operclass = mu->soper->operclass;
  if (operclass == NULL)
    return false;
  if (string_in_list (operclass->privs, priv))
    return true;
  return false;
}

bool
has_priv_operclass (operclass_t *operclass, char const * const priv)
{
  if (operclass == NULL)
    return false;
  if (string_in_list (operclass->privs, priv))
    return true;
  return false;
}

bool
has_all_operclass (sourceinfo_t *si, operclass_t *operclass)
{
  char *privs2;
  char *priv;

  privs2 = sstrdup (operclass->privs);
  priv = strtok (privs2, " ");
  while (priv != NULL)
    {
      if (!has_priv (si, priv))
	{
	  sfree (privs2);
	  return false;
	}
      priv = strtok (NULL, " ");
    }
  sfree (privs2);
  return true;
}