src/tcluser.c File Reference

#include "main.h"
#include "users.h"
#include "chan.h"
#include "tandem.h"
#include "modules.h"

Include dependency graph for tcluser.c:

Go to the source code of this file.

Functions
	char ((char *) global[123])[]
static int	tcl_countusers (ClientData cd, Tcl_Interp *irp, int argc, argv)
static int	tcl_validuser (ClientData cd, Tcl_Interp *irp, int argc, argv)
static int	tcl_finduser (ClientData cd, Tcl_Interp *irp, int argc, argv)
static int	tcl_passwdOk (ClientData cd, Tcl_Interp *irp, int argc, argv)
static int	tcl_chattr (ClientData cd, Tcl_Interp *irp, int argc, argv)
static int	tcl_botattr (ClientData cd, Tcl_Interp *irp, int argc, argv)
static int	tcl_matchattr (ClientData cd, Tcl_Interp *irp, int argc, argv)
static int	tcl_adduser (ClientData cd, Tcl_Interp *irp, int argc, argv)
static int	tcl_addbot (ClientData cd, Tcl_Interp *irp, int argc, argv)
static int	tcl_deluser (ClientData cd, Tcl_Interp *irp, int argc, argv)
static int	tcl_delhost (ClientData cd, Tcl_Interp *irp, int argc, argv)
static int	tcl_userlist (ClientData cd, Tcl_Interp *irp, int argc, argv)
static int	tcl_save (ClientData cd, Tcl_Interp *irp, int argc, argv)
static int	tcl_reload (ClientData cd, Tcl_Interp *irp, int argc, argv)
static int	tcl_chhandle (ClientData cd, Tcl_Interp *irp, int argc, argv)
static int	tcl_getting_users (ClientData cd, Tcl_Interp *irp, int argc, argv)
static int	tcl_isignore (ClientData cd, Tcl_Interp *irp, int argc, argv)
static int	tcl_newignore (ClientData cd, Tcl_Interp *irp, int argc, argv)
static int	tcl_killignore (ClientData cd, Tcl_Interp *irp, int argc, argv)
static int	tcl_ignorelist (ClientData cd, Tcl_Interp *irp, int argc, argv)
static int	tcl_getuser (ClientData cd, Tcl_Interp *irp, int argc, argv)
static int	tcl_setuser (ClientData cd, Tcl_Interp *irp, int argc, argv)
Variables
Tcl_Interp *(*	Tcl_Interp )(global[128]))
struct userrec *struct	global [94]
int int int(*	int )(global[102]))
tcl_cmds	tcluser_cmds []

---

Function Documentation

char

(

(char *)

global[123]

)

static int tcl_addbot	(	ClientData	cd,
		Tcl_Interp *	irp,
		int	argc,
		argv
	)			[static]

Definition at line 295 of file tcluser.c.

References bot_addr::address, adduser, argv, BADARGS, BADHANDCHARS, get_user_by_handle, HANDLEN, irp, NULL, bot_addr::relay_port, set_user, bot_addr::telnet_port, USER_BOT, user_malloc, and USERENTRY_BOTADDR.

{
  struct bot_addr *bi;
  char *p, *q;

  BADARGS(3, 3, " handle address");

  if (strlen(argv[1]) > HANDLEN)
    argv[1][HANDLEN] = 0;
  for (p = argv[1]; *p; p++)
    if ((unsigned char) *p <= 32 || *p == '@')
      *p = '?';

  if ((argv[1][0] == '*') || strchr(BADHANDCHARS, argv[1][0]) ||
      get_user_by_handle(userlist, argv[1]))
    Tcl_AppendResult(irp, "0", NULL);
  else {
    userlist = adduser(userlist, argv[1], "none", "-", USER_BOT);
    bi = user_malloc(sizeof(struct bot_addr));
    q = strchr(argv[2], ':');
    if (!q) {
      bi->address = user_malloc(strlen(argv[2]) + 1);
      strcpy(bi->address, argv[2]);
      bi->telnet_port = 3333;
      bi->relay_port = 3333;
    } else {
      bi->address = user_malloc(q - argv[2] + 1);
      strncpy(bi->address, argv[2], q - argv[2]);
      bi->address[q - argv[2]] = 0;
      p = q + 1;
      bi->telnet_port = atoi(p);
      q = strchr(p, '/');
      if (!q)
        bi->relay_port = bi->telnet_port;
      else
        bi->relay_port = atoi(q + 1);
    }
    set_user(&USERENTRY_BOTADDR, get_user_by_handle(userlist, argv[1]), bi);
    Tcl_AppendResult(irp, "1", NULL);
  }
  return TCL_OK;
}

static int tcl_adduser	(	ClientData	cd,
		Tcl_Interp *	irp,
		int	argc,
		argv
	)			[static]

Definition at line 273 of file tcluser.c.

References adduser, argv, BADARGS, BADHANDCHARS, default_flags, get_user_by_handle, HANDLEN, irp, and NULL.

{
  unsigned char *p;

  BADARGS(2, 3, " handle ?hostmask?");

  if (strlen(argv[1]) > HANDLEN)
    argv[1][HANDLEN] = 0;
  for (p = (unsigned char *) argv[1]; *p; p++)
    if (*p <= 32 || *p == '@')
      *p = '?';

  if ((argv[1][0] == '*') || strchr(BADHANDCHARS, argv[1][0]) ||
      get_user_by_handle(userlist, argv[1]))
    Tcl_AppendResult(irp, "0", NULL);
  else {
    userlist = adduser(userlist, argv[1], argv[2], "-", default_flags);
    Tcl_AppendResult(irp, "1", NULL);
  }
  return TCL_OK;
}

static int tcl_botattr	(	ClientData	cd,
		Tcl_Interp *	irp,
		int	argc,
		argv
	)			[static]

Definition at line 163 of file tcluser.c.

References argc, argv, BADARGS, flag_record::bot, BOT_SHARE, break_down_flags, build_flags, flag_record::chan, CHANMETA, findchan_by_dname, userrec::flags, FR_BOT, FR_CHAN, get_user_by_handle, get_user_flagrec, irp, flag_record::match, NULL, sanity_check, set_user_flagrec, flag_record::udef_chan, and USER_BOT.

{
  char *chan, *chg, work[100];
  struct flag_record pls, mns, user;
  struct userrec *u;

  BADARGS(2, 4, " bot-handle ?changes? ?channel?");

  u = get_user_by_handle(userlist, argv[1]);
  if ((argv[1][0] == '*') || !u || !(u->flags & USER_BOT)) {
    Tcl_AppendResult(irp, "*", NULL);
    return TCL_OK;
  }
  if (argc == 4) {
    user.match = FR_BOT | FR_CHAN;
    chan = argv[3];
    chg = argv[2];
  } else if (argc == 3 && argv[2][0] && strchr(CHANMETA, argv[2][0]) != NULL) {
    /* We need todo extra checking here to stop us mixing up +channel's
     * with flags. <cybah>
     */
    if (!findchan_by_dname(argv[2]) && argv[2][0] != '+') {
      /* Channel doesnt exist, and it cant possibly be flags as there
       * is no + at the start of the string.
       */
      Tcl_AppendResult(irp, "no such channel", NULL);
      return TCL_ERROR;
    } else if (findchan_by_dname(argv[2])) {
      /* Channel exists */
      user.match = FR_BOT | FR_CHAN;
      chan = argv[2];
      chg = NULL;
    } else {
      /* 3rd possibility... channel doesnt exist, does start with a +.
       * In this case we assume the string is flags.
       */
      user.match = FR_BOT;
      chan = NULL;
      chg = argv[2];
    }
  } else {
    user.match = FR_BOT;
    chan = NULL;
    if (argc < 3)
      chg = NULL;
    else
      chg = argv[2];
  }
  if (chan && !findchan_by_dname(chan)) {
    Tcl_AppendResult(irp, "no such channel", NULL);
    return TCL_ERROR;
  }
  /* Retrieve current flags */
  get_user_flagrec(u, &user, chan);
  /* Make changes */
  if (chg) {
    pls.match = user.match;
    break_down_flags(chg, &pls, &mns);
    /* No-one can change these flags on-the-fly */
    if (chan) {
      pls.chan &= BOT_SHARE;
      mns.chan &= BOT_SHARE;
    }
    user.bot = sanity_check((user.bot | pls.bot) & ~mns.bot);
    if (chan) {
      user.chan = (user.chan | pls.chan) & ~mns.chan;
      user.udef_chan = (user.udef_chan | pls.udef_chan) & ~mns.udef_chan;
    }
    set_user_flagrec(u, &user, chan);
  }
  /* Only user flags can be set per channel, not bot ones,
     so BOT_SHARE is a hack to allow botattr |+s */
  user.chan &= BOT_SHARE;
  user.udef_chan = 0; /* User definable bot flags are global only,
                         anything here is a regular flag, so hide it. */
  /* Build flag string */
  build_flags(work, &user, NULL);
  Tcl_AppendResult(irp, work, NULL);
  return TCL_OK;
}

static int tcl_chattr	(	ClientData	cd,
		Tcl_Interp *	irp,
		int	argc,
		argv
	)			[static]

Definition at line 79 of file tcluser.c.

References argc, argv, BADARGS, BOT_SHARE, break_down_flags, build_flags, flag_record::chan, chan_sanity_check(), CHANMETA, check_dcc_attrs, check_dcc_chanattrs, findchan_by_dname, FR_CHAN, FR_GLOBAL, get_user_by_handle, get_user_flagrec, flag_record::global, irp, flag_record::match, NULL, sanity_check, set_user_flagrec, flag_record::udef_chan, flag_record::udef_global, and USER_BOT.

{
  int of, ocf = 0;
  char *chan, *chg, work[100];
  struct flag_record pls, mns, user;
  struct userrec *u;

  BADARGS(2, 4, " handle ?changes? ?channel?");

  if ((argv[1][0] == '*') || !(u = get_user_by_handle(userlist, argv[1]))) {
    Tcl_AppendResult(irp, "*", NULL);
    return TCL_OK;
  }
  if (argc == 4) {
    user.match = FR_GLOBAL | FR_CHAN;
    chan = argv[3];
    chg = argv[2];
  } else if (argc == 3 && argv[2][0]) {
    int ischan = (findchan_by_dname(argv[2]) != NULL);

    if (strchr(CHANMETA, argv[2][0]) && !ischan && argv[2][0] != '+' &&
        argv[2][0] != '-') {
      Tcl_AppendResult(irp, "no such channel", NULL);
      return TCL_ERROR;
    } else if (ischan) {
      /* Channel exists */
      user.match = FR_GLOBAL | FR_CHAN;
      chan = argv[2];
      chg = NULL;
    } else {
      /* 3rd possibility... channel doesnt exist, does start with a +.
       * In this case we assume the string is flags.
       */
      user.match = FR_GLOBAL;
      chan = NULL;
      chg = argv[2];
    }
  } else {
    user.match = FR_GLOBAL;
    chan = NULL;
    chg = NULL;
  }
  if (chan && !findchan_by_dname(chan)) {
    Tcl_AppendResult(irp, "no such channel", NULL);
    return TCL_ERROR;
  }
  /* Retrieve current flags */
  get_user_flagrec(u, &user, chan);
  /* Make changes */
  if (chg) {
    of = user.global;
    pls.match = user.match;
    break_down_flags(chg, &pls, &mns);
    /* No-one can change these flags on-the-fly */
    pls.global &=~(USER_BOT);
    mns.global &=~(USER_BOT);

    if (chan) {
      pls.chan &= ~(BOT_SHARE);
      mns.chan &= ~(BOT_SHARE);
    }
    user.global = sanity_check((user.global |pls.global) &~mns.global);

    user.udef_global = (user.udef_global | pls.udef_global)
                       & ~mns.udef_global;
    if (chan) {
      ocf = user.chan;
      user.chan = chan_sanity_check((user.chan | pls.chan) & ~mns.chan,
                                    user.global);
      user.udef_chan = (user.udef_chan | pls.udef_chan) & ~mns.udef_chan;

    }
    set_user_flagrec(u, &user, chan);
    check_dcc_attrs(u, of);
    if (chan)
      check_dcc_chanattrs(u, chan, user.chan, ocf);
  }
  user.chan &= ~BOT_SHARE; /* actually not a user flag, hide it */
  /* Build flag string */
  build_flags(work, &user, NULL);
  Tcl_AppendResult(irp, work, NULL);
  return TCL_OK;
}

Here is the call graph for this function:

static int tcl_chhandle	(	ClientData	cd,
		Tcl_Interp *	irp,
		int	argc,
		argv
	)			[static]

Definition at line 408 of file tcluser.c.

References argv, BADARGS, BADHANDCHARS, botnetnick, change_handle, egg_strcasecmp, userrec::flags, get_user_by_handle, HANDLEN, irp, nextbot, NULL, strncpyz, and USER_BOT.

{
  struct userrec *u;
  char newhand[HANDLEN + 1];
  int x = 1, i;

  BADARGS(3, 3, " oldnick newnick");

  u = get_user_by_handle(userlist, argv[1]);
  if (!u)
    x = 0;
  else {
    strncpyz(newhand, argv[2], sizeof newhand);
    for (i = 0; i < strlen(newhand); i++)
      if (((unsigned char) newhand[i] <= 32) || (newhand[i] == '@'))
        newhand[i] = '?';
    if (strchr(BADHANDCHARS, newhand[0]) != NULL)
      x = 0;
    else if (strlen(newhand) < 1)
      x = 0;
    else if (get_user_by_handle(userlist, newhand))
      x = 0;
    else if (!egg_strcasecmp(botnetnick, newhand) && (!(u->flags & USER_BOT) ||
             nextbot(argv[1]) != -1))
      x = 0;
    else if (newhand[0] == '*')
      x = 0;
  }
  if (x)
    x = change_handle(u, newhand);

  Tcl_AppendResult(irp, x ? "1" : "0", NULL);
  return TCL_OK;
}

static int tcl_countusers	(	ClientData	cd,
		Tcl_Interp *	irp,
		int	argc,
		argv
	)			[static]

Definition at line 40 of file tcluser.c.

References BADARGS, count_users, int_to_base10, irp, and NULL.

{
  BADARGS(1, 1, "");

  Tcl_AppendResult(irp, int_to_base10(count_users(userlist)), NULL);
  return TCL_OK;
}

static int tcl_delhost	(	ClientData	cd,
		Tcl_Interp *	irp,
		int	argc,
		argv
	)			[static]

Definition at line 347 of file tcluser.c.

References argv, BADARGS, delhost_by_handle, get_user_by_handle, irp, and NULL.

{
  BADARGS(3, 3, " handle hostmask");

  if ((!get_user_by_handle(userlist, argv[1])) || (argv[1][0] == '*')) {
    Tcl_AppendResult(irp, "non-existent user", NULL);
    return TCL_ERROR;
  }
  Tcl_AppendResult(irp, delhost_by_handle(argv[1], argv[2]) ? "1" : "0", NULL);
  return TCL_OK;
}

static int tcl_deluser	(	ClientData	cd,
		Tcl_Interp *	irp,
		int	argc,
		argv
	)			[static]

Definition at line 338 of file tcluser.c.

References argv, BADARGS, deluser, int_to_base10, irp, and NULL.

{
  BADARGS(2, 2, " handle");

  Tcl_AppendResult(irp, (argv[1][0] == '*') ? "0" :
                   int_to_base10(deluser(argv[1])), NULL);
  return TCL_OK;
}

static int tcl_finduser	(	ClientData	cd,
		Tcl_Interp *	irp,
		int	argc,
		argv
	)			[static]

Definition at line 57 of file tcluser.c.

References argv, BADARGS, get_user_by_host, userrec::handle, irp, and NULL.

{
  struct userrec *u;

  BADARGS(2, 2, " nick!user@host");

  u = get_user_by_host(argv[1]);
  Tcl_AppendResult(irp, u ? u->handle : "*", NULL);
  return TCL_OK;
}

static int tcl_getting_users	(	ClientData	cd,
		Tcl_Interp *	irp,
		int	argc,
		argv
	)			[static]

Definition at line 443 of file tcluser.c.

References BADARGS, DCC_BOT, dcc_total, irp, NULL, and STAT_GETTING.

{
  int i;

  BADARGS(1, 1, "");

  for (i = 0; i < dcc_total; i++) {
    if (dcc[i].type == &DCC_BOT && dcc[i].status & STAT_GETTING) {
      Tcl_AppendResult(irp, "1", NULL);
      return TCL_OK;
    }
  }
  Tcl_AppendResult(irp, "0", NULL);
  return TCL_OK;
}

static int tcl_getuser	(	ClientData	cd,
		Tcl_Interp *	irp,
		int	argc,
		argv
	)			[static]

Definition at line 527 of file tcluser.c.

References argc, argv, BADARGS, e, egg_strcasecmp, find_entry_type, find_user_entry, get_user_by_handle, userrec::handle, irp, NULL, and user_entry_type::tcl_get.

{
  struct user_entry_type *et;
  struct userrec *u;
  struct user_entry *e;

  BADARGS(3, -1, " handle type");

  if (!(et = find_entry_type(argv[2])) && egg_strcasecmp(argv[2], "HANDLE")) {
    Tcl_AppendResult(irp, "No such info type: ", argv[2], NULL);
    return TCL_ERROR;
  }
  if (!(u = get_user_by_handle(userlist, argv[1]))) {
    if (argv[1][0] != '*') {
      Tcl_AppendResult(irp, "No such user.", NULL);
      return TCL_ERROR;
    } else
      return TCL_OK; /* silently ignore user */
  }
  if (!egg_strcasecmp(argv[2], "HANDLE"))
    Tcl_AppendResult(irp, u->handle, NULL);
  else {
    e = find_user_entry(et, u);
    if (e)
      return et->tcl_get(irp, u, e, argc, argv);
  }
  return TCL_OK;
}

static int tcl_ignorelist	(	ClientData	cd,
		Tcl_Interp *	irp,
		int	argc,
		argv
	)			[static]

Definition at line 498 of file tcluser.c.

References igrec::added, BADARGS, EGG_CONST, egg_snprintf, igrec::expire, global_ign, igrec::igmask, irp, igrec::msg, igrec::next, Tcl_Free, and igrec::user.

{
  char expire[11], added[11], *p;
  long tv;
  EGG_CONST char *list[5];
  struct igrec *i;

  BADARGS(1, 1, "");

  for (i = global_ign; i; i = i->next) {
    list[0] = i->igmask;
    list[1] = i->msg;

    tv = i->expire;
    egg_snprintf(expire, sizeof expire, "%lu", tv);
    list[2] = expire;

    tv = i->added;
    egg_snprintf(added, sizeof added, "%lu", tv);
    list[3] = added;

    list[4] = i->user;
    p = Tcl_Merge(5, list);
    Tcl_AppendElement(irp, p);
    Tcl_Free((char *) p);
  }
  return TCL_OK;
}

static int tcl_isignore	(	ClientData	cd,
		Tcl_Interp *	irp,
		int	argc,
		argv
	)			[static]

Definition at line 459 of file tcluser.c.

References argv, BADARGS, irp, match_ignore, and NULL.

{
  BADARGS(2, 2, " nick!user@host");

  Tcl_AppendResult(irp, match_ignore(argv[1]) ? "1" : "0", NULL);
  return TCL_OK;
}

static int tcl_killignore	(	ClientData	cd,
		Tcl_Interp *	irp,
		int	argc,
		argv
	)			[static]

Definition at line 490 of file tcluser.c.

References argv, BADARGS, delignore, irp, and NULL.

{
  BADARGS(2, 2, " hostmask");

  Tcl_AppendResult(irp, delignore(argv[1]) ? "1" : "0", NULL);
  return TCL_OK;
}

static int tcl_matchattr	(	ClientData	cd,
		Tcl_Interp *	irp,
		int	argc,
		argv
	)			[static]

Definition at line 244 of file tcluser.c.

References argc, argv, BADARGS, flag_record::bot, break_down_flags, flag_record::chan, flagrec_eq, FR_AND, FR_BOT, FR_CHAN, FR_GLOBAL, FR_OR, get_user_by_handle, get_user_flagrec, flag_record::global, irp, flag_record::match, NULL, flag_record::udef_chan, and flag_record::udef_global.

{
  struct userrec *u;
  struct flag_record plus, minus, user;
  int ok = 0, f;

  BADARGS(3, 4, " handle flags ?channel?");

  if ((u = get_user_by_handle(userlist, argv[1]))) {
    user.match = FR_GLOBAL | (argc == 4 ? FR_CHAN : 0) | FR_BOT;
    get_user_flagrec(u, &user, argv[3]);
    plus.match = user.match;
    break_down_flags(argv[2], &plus, &minus);
    f = (minus.global || minus.udef_global || minus.chan || minus.udef_chan ||
         minus.bot);
    if (flagrec_eq(&plus, &user)) {
      if (!f)
        ok = 1;
      else {
        minus.match = plus.match ^ (FR_AND | FR_OR);
        if (!flagrec_eq(&minus, &user))
          ok = 1;
      }
    }
  }
  Tcl_AppendResult(irp, ok ? "1" : "0", NULL);
  return TCL_OK;
}

static int tcl_newignore	(	ClientData	cd,
		Tcl_Interp *	irp,
		int	argc,
		argv
	)			[static]

Definition at line 467 of file tcluser.c.

References addignore, argc, argv, BADARGS, from, HANDLEN, ignore_time, now, strncpyz, time_t, and UHOSTLEN.

{
  time_t expire_time;
  char ign[UHOSTLEN], cmt[66], from[HANDLEN + 1];

  BADARGS(4, 5, " hostmask creator comment ?lifetime?");

  strncpyz(ign, argv[1], sizeof ign);
  strncpyz(from, argv[2], sizeof from);
  strncpyz(cmt, argv[3], sizeof cmt);

  if (argc == 4)
    expire_time = now + (60 * ignore_time);
  else {
    if (argc == 5 && atol(argv[4]) == 0)
      expire_time = 0L;
    else
      expire_time = now + (60 * atol(argv[4])); /* This is a potential crash. FIXME  -poptix */
  }
  addignore(ign, from, cmt, expire_time);
  return TCL_OK;
}

static int tcl_passwdOk	(	ClientData	cd,
		Tcl_Interp *	irp,
		int	argc,
		argv
	)			[static]

Definition at line 68 of file tcluser.c.

References argv, BADARGS, get_user_by_handle, irp, NULL, and u_pass_match.

{
  struct userrec *u;

  BADARGS(3, 3, " handle passwd");

  Tcl_AppendResult(irp, ((u = get_user_by_handle(userlist, argv[1])) &&
                   u_pass_match(u, argv[2])) ? "1" : "0", NULL);
  return TCL_OK;
}

static int tcl_reload	(	ClientData	cd,
		Tcl_Interp *	irp,
		int	argc,
		argv
	)			[static]

Definition at line 402 of file tcluser.c.

References reload().

{
  reload();
  return TCL_OK;
}

Here is the call graph for this function:

static int tcl_save	(	ClientData	cd,
		Tcl_Interp *	irp,
		int	argc,
		argv
	)			[static]

Definition at line 396 of file tcluser.c.

References write_userfile.

{
  write_userfile(-1);
  return TCL_OK;
}

static int tcl_setuser	(	ClientData	cd,
		Tcl_Interp *	irp,
		int	argc,
		argv
	)			[static]

Definition at line 556 of file tcluser.c.

References argc, argv, BADARGS, e, egg_list_delete, userrec::entries, find_entry_type, find_user_entry, _module_entry::funcs, get_user_by_handle, IRC_CHECK_THIS_USER, irp, user_entry::list, list_insert, module_find, user_entry::name, nfree, NULL, user_entry_type::tcl_set, user_entry::type, user_entry::u, and user_malloc.

{
  struct user_entry_type *et;
  struct userrec *u;
  struct user_entry *e;
  int r;
  module_entry *me;

  BADARGS(3, -1, " handle type ?setting....?");

  if (!(et = find_entry_type(argv[2]))) {
    Tcl_AppendResult(irp, "No such info type: ", argv[2], NULL);
    return TCL_ERROR;
  }
  if (!(u = get_user_by_handle(userlist, argv[1]))) {
    if (argv[1][0] != '*') {
      Tcl_AppendResult(irp, "No such user.", NULL);
      return TCL_ERROR;
    } else
      return TCL_OK; /* Silently ignore user * */
  }
  me = module_find("irc", 0, 0);
  if (me && !strcmp(argv[2], "hosts") && argc == 3) {
    Function *func = me->funcs;

    (func[IRC_CHECK_THIS_USER]) (argv[1], 1, NULL);
  }
  if (!(e = find_user_entry(et, u))) {
    e = user_malloc(sizeof(struct user_entry));
    e->type = et;
    e->name = NULL;
    e->u.list = NULL;
    list_insert((&(u->entries)), e);
  }
  r = et->tcl_set(irp, u, e, argc, argv);
  /* Yeah... e is freed, and we read it... (tcl: setuser hand HOSTS none) */
  if ((!e->u.list) && (egg_list_delete((struct list_type **) &(u->entries),
      (struct list_type *) e)))
    nfree(e);
    /* else maybe already freed... (entry_type==HOSTS) <drummer> */
  if (me && !strcmp(argv[2], "hosts") && argc == 4) {
    Function *func = me->funcs;

    (func[IRC_CHECK_THIS_USER]) (argv[1], 0, NULL);
  }
  return r;
}

static int tcl_userlist	(	ClientData	cd,
		Tcl_Interp *	irp,
		int	argc,
		argv
	)			[static]

Definition at line 359 of file tcluser.c.

References argc, argv, BADARGS, flag_record::bot, break_down_flags, flag_record::chan, findchan_by_dname, flagrec_eq, FR_AND, FR_ANYWH, FR_BOT, FR_CHAN, FR_GLOBAL, FR_OR, get_user_flagrec, flag_record::global, userrec::handle, interp, irp, flag_record::match, userrec::next, NULL, flag_record::udef_chan, and flag_record::udef_global.

{
  struct userrec *u;
  struct flag_record user, plus, minus;
  int ok = 1, f = 0;

  BADARGS(1, 3, " ?flags ?channel??");

  if (argc == 3 && !findchan_by_dname(argv[2])) {
    Tcl_AppendResult(irp, "Invalid channel: ", argv[2], NULL);
    return TCL_ERROR;
  }
  if (argc >= 2) {
    plus.match = FR_GLOBAL | FR_CHAN | FR_BOT;
    break_down_flags(argv[1], &plus, &minus);
    f = (minus.global ||minus.udef_global || minus.chan || minus.udef_chan ||
         minus.bot);
  }
  minus.match = plus.match ^ (FR_AND | FR_OR);
  for (u = userlist; u; u = u->next) {
    if (argc >= 2) {
      user.match = FR_GLOBAL | FR_CHAN | FR_BOT | (argc == 3 ? 0 : FR_ANYWH);
      if (argc == 3)
        get_user_flagrec(u, &user, argv[2]);
      else
        get_user_flagrec(u, &user, NULL);
      if (flagrec_eq(&plus, &user) && !(f && flagrec_eq(&minus, &user)))
        ok = 1;
      else
        ok = 0;
    }
    if (ok)
      Tcl_AppendElement(interp, u->handle);
  }
  return TCL_OK;
}

static int tcl_validuser	(	ClientData	cd,
		Tcl_Interp *	irp,
		int	argc,
		argv
	)			[static]

Definition at line 48 of file tcluser.c.

References argv, BADARGS, get_user_by_handle, irp, and NULL.

{
  BADARGS(2, 2, " handle");

  Tcl_AppendResult(irp, get_user_by_handle(userlist, argv[1]) ? "1" : "0",
                   NULL);
  return TCL_OK;
}

---

Variable Documentation

time_t time_t global[129] [read]

Definition at line 34 of file tcluser.c.

int int int(* int)(global[102])) [read]

Definition at line 39 of file modules.h.

Tcl_Interp*(* Tcl_Interp)(global[128]))

tcl_cmds tcluser_cmds[]

Initial value:

 {
  {"countusers",       tcl_countusers},
  {"validuser",         tcl_validuser},
  {"finduser",           tcl_finduser},
  {"passwdok",           tcl_passwdOk},
  {"chattr",               tcl_chattr},
  {"botattr",             tcl_botattr},
  {"matchattr",         tcl_matchattr},
  {"matchchanattr",     tcl_matchattr},
  {"adduser",             tcl_adduser},
  {"addbot",               tcl_addbot},
  {"deluser",             tcl_deluser},
  {"delhost",             tcl_delhost},
  {"userlist",           tcl_userlist},
  {"save",                   tcl_save},
  {"reload",               tcl_reload},
  {"chhandle",           tcl_chhandle},
  {"chnick",             tcl_chhandle},
  {"getting-users", tcl_getting_users},
  {"isignore",           tcl_isignore},
  {"newignore",         tcl_newignore},
  {"killignore",       tcl_killignore},
  {"ignorelist",       tcl_ignorelist},
  {"getuser",             tcl_getuser},
  {"setuser",             tcl_setuser},
  { 0 ,                          0 }
}

Definition at line 604 of file tcluser.c.