/*
 * IRC - Internet Relay Chat, ircd/client.c
 * Copyright (C) 1990 Darren Reed
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 1, or (at your option)
 * any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 */
/** @file
 * @brief Implementation of functions for handling local clients.
 * @version $Id: client.c 1523 2005-10-12 23:52:12Z entrope $
 */
#include "config.h"

#include "client.h"
#include "class.h"
#include "ircd.h"
#include "ircd_features.h"
#include "ircd_log.h"
#include "ircd_reply.h"
#include "ircd_snprintf.h"
#include "ircd_string.h"
#include "list.h"
#include "msg.h"
#include "msgq.h"
#include "numeric.h"
#include "s_conf.h"
#include "s_debug.h"
#include "send.h"
#include "struct.h"

/* #include <assert.h> -- Now using assert in ircd_log.h */
#include <string.h>

/** Find the shortest non-zero ping time attached to a client.
 * If all attached ping times are zero, return the value for
 * FEAT_PINGFREQUENCY.
 * @param[in] acptr Client to find ping time for.
 * @return Ping time in seconds.
 */
int client_get_ping(const struct Client* acptr)
{
  int     ping = 0;
  struct ConfItem* aconf;
  struct SLink*    link;

  assert(cli_verify(acptr));

  for (link = cli_confs(acptr); link; link = link->next) {
    aconf = link->value.aconf;
    if (aconf->status & (CONF_CLIENT | CONF_SERVER)) {
      int tmp = get_conf_ping(aconf);
      if (0 < tmp && (ping > tmp || !ping))
        ping = tmp;
    }
  }
  if (0 == ping)
    ping = feature_int(FEAT_PINGFREQUENCY);

  Debug((DEBUG_DEBUG, "Client %s Ping %d", cli_name(acptr), ping));

  return ping;
}

/** Find the default usermode for a client.
 * @param[in] sptr Client to find default usermode for.
 * @return Pointer to usermode string (or NULL, if there is no default).
 */
const char* client_get_default_umode(const struct Client* sptr)
{
  struct ConfItem* aconf;
  struct SLink* link;

  assert(cli_verify(sptr));

  for (link = cli_confs(sptr); link; link = link->next) {
    aconf = link->value.aconf;
    if ((aconf->status & CONF_CLIENT) && ConfUmode(aconf))
      return ConfUmode(aconf);
  }
  return NULL;
}

/** Find the number of host components to hide for a client.
 * @param[in] sptr Client to find the number of host components to hide for.
 * @return The number of host components to hide.
 */
int client_get_hidehostcomponents(const struct Client* sptr)
{
  struct ConfItem* aconf;
  struct SLink* link;

  assert(cli_verify(sptr));

  for (link = cli_confs(sptr); link; link = link->next) {
    aconf = link->value.aconf;
      if ((aconf->status & CONF_CLIENT) && (aconf->hidehostcomps > 0))
        return aconf->hidehostcomps;
  }

  return feature_int(FEAT_HOST_HIDING_COMPONENTS);
}

/** Remove a connection from the list of connections with queued data.
 * @param[in] con Connection with no queued data.
 */
void client_drop_sendq(struct Connection* con)
{
  if (con_prev_p(con)) { /* on the queued data list... */
    if (con_next(con))
      con_prev_p(con_next(con)) = con_prev_p(con);
    *(con_prev_p(con)) = con_next(con);

    con_next(con) = 0;
    con_prev_p(con) = 0;
  }
}

/** Add a connection to the list of connections with queued data.
 * @param[in] con Connection with queued data.
 * @param[in,out] con_p Previous pointer to next connection.
 */
void client_add_sendq(struct Connection* con, struct Connection** con_p)
{
  if (!con_prev_p(con)) { /* not on the queued data list yet... */
    con_prev_p(con) = con_p;
    con_next(con) = *con_p;

    if (*con_p)
      con_prev_p(*con_p) = &(con_next(con));
    *con_p = con;
  }
}

/** Default privilege set for global operators. */
static struct Privs privs_global;
/** Default privilege set for local operators. */
static struct Privs privs_local;
/** Non-zero if #privs_global and #privs_local have been initialized. */
static int privs_defaults_set;

/* client_set_privs(struct Client* client)
 *
 * Sets the privileges for opers.
 */
/** Set the privileges for a client.
 * @param[in] client Client who has become an operator.
 * @param[in] oper Configuration item describing oper's privileges.
 */
void
client_set_privs(struct Client *client, struct ConfItem *oper)
{
  struct Privs *source, *defaults;
  enum Priv priv;

  /* Clear out client's privileges. */
  memset(&cli_privs(client), 0, sizeof(struct Privs));

  if (!IsAnOper(client) || !oper)
      return;

  if (!privs_defaults_set)
  {
    memset(&privs_global, -1, sizeof(privs_global));
    FlagClr(&privs_global, PRIV_WALK_LCHAN);
    FlagClr(&privs_global, PRIV_UNLIMIT_QUERY);
    FlagClr(&privs_global, PRIV_SET);
    FlagClr(&privs_global, PRIV_BADCHAN);
    FlagClr(&privs_global, PRIV_LOCAL_BADCHAN);
    FlagClr(&privs_global, PRIV_APASS_OPMODE);
    FlagClr(&privs_global, PRIV_WHOIS_NOTICE);
    FlagClr(&privs_global, PRIV_HIDE_OPER);
    FlagClr(&privs_global, PRIV_HIDE_CHANNELS);
    FlagClr(&privs_global, PRIV_HIDE_IDLE);
    FlagClr(&privs_global, PRIV_ADMIN);
    FlagClr(&privs_global, PRIV_XTRAOP);
    FlagClr(&privs_global, PRIV_SERVICE);
    FlagClr(&privs_global, PRIV_REMOTE);
    FlagClr(&privs_global, PRIV_FREEFORM);
    FlagClr(&privs_global, PRIV_REMOVE);

    memset(&privs_local, 0, sizeof(privs_local));
    FlagSet(&privs_local, PRIV_CHAN_LIMIT);
    FlagSet(&privs_local, PRIV_MODE_LCHAN);
    FlagSet(&privs_local, PRIV_SHOW_INVIS);
    FlagSet(&privs_local, PRIV_SHOW_ALL_INVIS);
    FlagSet(&privs_local, PRIV_LOCAL_KILL);
    FlagSet(&privs_local, PRIV_REHASH);
    FlagSet(&privs_local, PRIV_LOCAL_GLINE);
    FlagSet(&privs_local, PRIV_LOCAL_JUPE);
    FlagSet(&privs_local, PRIV_LOCAL_OPMODE);
    FlagSet(&privs_local, PRIV_WHOX);
    FlagSet(&privs_local, PRIV_DISPLAY);
    FlagSet(&privs_local, PRIV_FORCE_LOCAL_OPMODE);
    FlagSet(&privs_local, PRIV_LOCAL_SHUN);
    FlagSet(&privs_local, PRIV_LOCAL_ZLINE);

    privs_defaults_set = 1;
  }

  /* Decide whether to use global or local oper defaults. */
  if (FlagHas(&oper->privs_dirty, PRIV_PROPAGATE))
    defaults = FlagHas(&oper->privs, PRIV_PROPAGATE) ? &privs_global : &privs_local;
  else if (FlagHas(&oper->conn_class->privs_dirty, PRIV_PROPAGATE))
    defaults = FlagHas(&oper->conn_class->privs, PRIV_PROPAGATE) ? &privs_global : &privs_local;
  else {
    assert(0 && "Oper has no propagation and neither does connection class");
    return;
  }

  /* For each feature, figure out whether it comes from the operator
   * conf, the connection class conf, or the defaults, then apply it.
   */
  for (priv = 0; priv < PRIV_LAST_PRIV; ++priv)
  {
    /* Figure out most applicable definition for the privilege. */
    if (FlagHas(&oper->privs_dirty, priv))
      source = &oper->privs;
    else if (FlagHas(&oper->conn_class->privs_dirty, priv))
      source = &oper->conn_class->privs;
    else
      source = defaults;

    /* Set it if necessary (privileges were already cleared). */
    if (FlagHas(source, priv))
      SetPriv(client, priv);
  }

  /* This should be handled in the config, but lets be sure... */
  if (HasPriv(client, PRIV_PROPAGATE))
  {
    /* force propagating opers to display */
    SetPriv(client, PRIV_DISPLAY);
  }
  else
  {
    /* if they don't propagate oper status, prevent desyncs */
    ClrPriv(client, PRIV_KILL);
    ClrPriv(client, PRIV_GLINE);
    ClrPriv(client, PRIV_JUPE);
    ClrPriv(client, PRIV_SHUN);
    ClrPriv(client, PRIV_ZLINE);
    ClrPriv(client, PRIV_OPMODE);
    ClrPriv(client, PRIV_BADCHAN);
  }

  if (MyUser(client))
    ClrPriv(client, PRIV_REMOTE);

  client_sendtoserv_privs(client);
}

/** Array mapping privilege values to names and vice versa. */
static struct {
  char        *name; /**< Name of privilege. */
  unsigned int priv; /**< Enumeration value of privilege */
} privtab[] = {
/** Helper macro to define an array entry for a privilege. */
#define P(priv)		{ #priv, PRIV_ ## priv }
  P(CHAN_LIMIT),     P(MODE_LCHAN),     P(WALK_LCHAN),    P(DEOP_LCHAN),
  P(SHOW_INVIS),     P(SHOW_ALL_INVIS), P(UNLIMIT_QUERY), P(KILL),
  P(LOCAL_KILL),     P(REHASH),         P(RESTART),       P(DIE),
  P(GLINE),          P(LOCAL_GLINE),    P(JUPE),          P(LOCAL_JUPE),
  P(OPMODE),         P(LOCAL_OPMODE),   P(SET),           P(WHOX),
  P(BADCHAN),        P(LOCAL_BADCHAN),  P(SEE_CHAN),      P(PROPAGATE),
  P(DISPLAY),        P(SEE_OPERS),      P(WIDE_GLINE),    P(LIST_CHAN),
  P(FORCE_OPMODE),   P(FORCE_LOCAL_OPMODE), P(APASS_OPMODE), P(CHECK),
  P(WHOIS_NOTICE),   P(HIDE_OPER),      P(HIDE_CHANNELS), P(HIDE_IDLE),
  P(ADMIN),          P(XTRAOP),         P(SERVICE),       P(REMOTE),
  P(SHUN),           P(LOCAL_SHUN),     P(WIDE_SHUN),     P(FREEFORM),
  P(REMOTEREHASH),   P(REMOVE),         P(LOCAL_ZLINE),   P(ZLINE),
  P(WIDE_ZLINE),     P(TEMPSHUN),
#undef P
  { 0, 0 }
};

/** Report privileges of \a client to \a to.
 * @param[in] to Client requesting privilege list.
 * @param[in] client Client whos privileges should be listed.
 * @return Zero.
 */
int
client_report_privs(struct Client *to, struct Client *client)
{
  struct MsgBuf *mb;
  int found1 = 0;
  int i;

  mb = msgq_make(to, rpl_str(RPL_PRIVS), cli_name(&me), cli_name(to),
		 cli_name(client));

  for (i = 0; privtab[i].name; i++)
    if (HasPriv(client, privtab[i].priv))
      msgq_append(0, mb, "%s%s", found1++ ? " " : "", privtab[i].name);

  send_buffer(to, mb, 0); /* send response */
  msgq_clean(mb);

  return 0;
}

void client_check_privs(struct Client *client, struct Client *replyto)
{
  char outbuf[BUFSIZE];
  int i = 0;
  static char privbufp[BUFSIZE] = "";

  memset(&privbufp, 0, BUFSIZE);

  for (i = 0; privtab[i].name; i++) {
    if (HasPriv(client, privtab[i].priv)) {
      if (strlen(privbufp) + strlen(privtab[i].name) + 2 > 70) {
        ircd_snprintf(0, outbuf, sizeof(outbuf), "     Privileges:: %s", privbufp);
        send_reply(replyto, RPL_DATASTR, outbuf);
        memset(&privbufp, 0, BUFSIZE);
      }
      strcat(privbufp, privtab[i].name);
      strcat(privbufp, " ");
    }
  }

  if (strlen(privbufp) > 0) {
    ircd_snprintf(0, outbuf, sizeof(outbuf), "     Privileges:: %s", privbufp);
    send_reply(replyto, RPL_DATASTR, outbuf);
  }
}

void client_send_privs(struct Client *from, struct Client *to, struct Client *client)
{
  int i, p;
  int mlen = NICKLEN + 5 + NICKLEN + 7;
  static char privbuf[BUFSIZE] = "";

  memset(&privbuf, 0, BUFSIZE);
  p = 1; /* Count the victim too */

  for (i = 0; privtab[i].name; i++) {
    if (HasPriv(client, privtab[i].priv)) {
      if ((p >= MAXPARA) || (strlen(privbuf) + strlen(privtab[i].name) + 1 > BUFSIZE - mlen)) {
        p = 1;
        sendcmdto_one(from, CMD_PRIVS, to, "%C %s", client, privbuf);
        memset(&privbuf, 0, BUFSIZE);
      }
      p++;
      strcat(privbuf, privtab[i].name);
      strcat(privbuf, " ");
    }
  }

  if (strlen(privbuf) > 0) {
    sendcmdto_one(from, CMD_PRIVS, to, "%C %s", client, privbuf);
  }    
}

void client_sendtoserv_privs(struct Client *client)
{
  int i, p;
  int mlen = NICKLEN + 5 + NICKLEN + 7;
  static char privbuf[BUFSIZE] = "";

  memset(&privbuf, 0, BUFSIZE);
  p = 1;

  for (i = 0; privtab[i].name; i++) {
    if (HasPriv(client, privtab[i].priv)) {
      if ((p >= MAXPARA) || (strlen(privbuf) + strlen(privtab[i].name) + 1 > BUFSIZE - mlen)) {
        p = 1;
        sendcmdto_serv_butone(&me, CMD_PRIVS, client, "%C %s", client, privbuf);
        memset(&privbuf, 0, BUFSIZE);
      }
      p++;
      strcat(privbuf, privtab[i].name);
      strcat(privbuf, " ");
    }
  }

  if (strlen(privbuf) > 0) {
    sendcmdto_serv_butone(&me, CMD_PRIVS, client, "%C %s", client, privbuf);
  }
}

char *client_print_privs(struct Client *client)
{
  int i;
  static char privbufp[BUFSIZE] = "";
  size_t pos = 0;
  size_t namelen;

  privbufp[0] = '\0';
  for (i = 0; privtab[i].name; i++) {
    if (HasPriv(client, privtab[i].priv)) {
      namelen = strlen(privtab[i].name);
      /* Check bounds before appending: name + space + null terminator */
      if (pos + namelen + 2 > sizeof(privbufp))
        break;
      memcpy(privbufp + pos, privtab[i].name, namelen);
      pos += namelen;
      privbufp[pos++] = ' ';
    }
  }
  privbufp[pos] = '\0';

  return (char *)privbufp;
}

int client_modify_priv_by_name(struct Client *who, char *priv, int what) {
  int i = 0;
  assert(0 != priv);
  assert(0 != who);

  for (i = 0; privtab[i].name; i++)
  if (0 == ircd_strcmp(privtab[i].name, priv)) {
    if (what == PRIV_ADD) {
      SetPriv(who, privtab[i].priv);
    } else if (what == PRIV_DEL) {
      ClrPriv(who, privtab[i].priv);
    }
  }
  return 0;
}

int clear_privs(struct Client *who) {
  int i = 0;
  assert(0 != who);

  for (i = 0; privtab[i].name; i++)
    ClrPriv(who, privtab[i].priv);

  return 0;
}

void client_check_marks(struct Client *client, struct Client *replyto)
{
  char outbuf[BUFSIZE];
  static char markbufp[BUFSIZE] = "";
  struct SLink* dp;

  if (!IsMarked(client))
    return;

  memset(&markbufp, 0, BUFSIZE);

  for (dp = cli_marks(client); dp; dp = dp->next) {
    if (markbufp[0] && strlen(markbufp) + strlen(dp->value.cp) + 4 > 70) {
      ircd_snprintf(0, outbuf, sizeof(outbuf), "          Marks:: %s", markbufp);
      send_reply(replyto, RPL_DATASTR, outbuf);
      memset(&markbufp, 0, BUFSIZE);
    }

    if (markbufp[0])
      strcat(markbufp, ", ");
    strcat(markbufp, dp->value.cp);
  }

  if (markbufp[0]) {
    ircd_snprintf(0, outbuf, sizeof(outbuf), "          Marks:: %s", markbufp);
    send_reply(replyto, RPL_DATASTR, outbuf);
  }
}