modules/channels/tclchan.c File Reference

#include "flagmaps.c"

Go to the source code of this file.

Defines
#define	CHECK(x)   !strcmp(setting, x)
Functions
static int	lookup_flag_by_name (channel_flag_map_t *map, char *name, int *flagval)
static int	script_killsomething (void *type, char *chan_name, char *mask)
static int	script_sticksomething (void *type, char *chan_name, char *mask)
static int	get_maskrec_and_alt (char type, char *chan_name, struct maskrec **u, struct maskrec **alt)
static int	script_issomething (void *type, char *chan_name, char *mask)
static int	script_isstickysomething (void *type, char *chan_name, char *mask)
static int	script_ispermsomething (void *type, char *chan_name, char *mask)
static int	script_matchsomething (void *type, char *chan_name, char *mask)
static int	script_newsomething (void *type, char *chan_name, char *mask, char *creator, char *comment, char *lifetime, char *options)
static int	script_channel_info (script_var_t *retval)
static int	script_channel_get (script_var_t *retval, char *channel_name, char *setting)
static int	tcl_channel (ClientData cd, Tcl_Interp *irp, int argc, char *argv[])
static int	tcl_channel_modify (Tcl_Interp *irp, struct chanset_t *chan, int items, char **item)
static int	script_channels (script_var_t *retval)
static int	script_listmask (void *type, script_var_t *retval, char *channel_name)
static int	tcl_savechannels (ClientData cd, Tcl_Interp *irp, int argc, char *argv[])
static int	tcl_loadchannels (ClientData cd, Tcl_Interp *irp, int argc, char *argv[])
static int	script_channel_valid (char *channel_name)
static int	tcl_isdynamic (ClientData cd, Tcl_Interp *irp, int argc, char *argv[])
static char *	script_channel_getinfo (struct userrec *u, char *channel_name)
static int	script_channel_setinfo (struct userrec *u, char *channel_name, char *info)
static int	script_setlaston (struct userrec *u, int when, char *chan)
static int	script_chanrec_add (struct userrec *u, char *chan)
static int	script_chanrec_del (struct userrec *u, char *chan)
static int	script_chanrec_exists (struct userrec *u, char *chan)
static void	init_masklist (masklist *m)
static void	init_channel (struct chanset_t *chan, int reset)
static void	clear_masklist (masklist *m)
static void	clear_channel (struct chanset_t *chan, int reset)
static int	tcl_channel_add (Tcl_Interp *irp, char *newname, char *options)
static int	tcl_setudef (ClientData cd, Tcl_Interp *irp, int argc, char *argv[])
static int	tcl_renudef (ClientData cd, Tcl_Interp *irp, int argc, char *argv[])
static int	tcl_deludef (ClientData cd, Tcl_Interp *irp, int argc, char *argv[])
Variables
char *	channel_info_names []
static script_command_t	channel_script_cmds []
static tcl_cmds	channels_cmds []

---

Define Documentation

#define CHECK

(

x

)

!strcmp(setting, x)

Referenced by script_channel_get().

---

Function Documentation

static void clear_channel	(	struct chanset_t *	chan,
		int	reset
	)			[static]

Definition at line 705 of file tclchan.c.

References clear_masklist(), init_channel(), and NULL.

{
  memberlist *m, *m1;

  if (chan->channel.topic)
    free(chan->channel.topic);
  for (m = chan->channel.member; m; m = m1) {
    m1 = m->next;
    free(m);
  }

  clear_masklist(chan->channel.ban);
  chan->channel.ban = NULL;
  clear_masklist(chan->channel.exempt);
  chan->channel.exempt = NULL;
  clear_masklist(chan->channel.invite);
  chan->channel.invite = NULL;

  if (reset)
    init_channel(chan, 1);
}

static void clear_masklist

(

masklist *

m

)

[static]

Definition at line 689 of file tclchan.c.

Referenced by clear_channel(), and clear_masklists().

{
  masklist *temp;

  for (; m; m = temp) {
    temp = m->next;
    if (m->mask)
      free(m->mask);
    if (m->who)
      free(m->who);
    free(m);
  }
}

static int get_maskrec_and_alt	(	char	type,
		char *	chan_name,
		struct maskrec **	u,
		struct maskrec **	alt
	)			[static]

Definition at line 77 of file tclchan.c.

References NULL.

Referenced by script_ispermsomething(), script_issomething(), script_isstickysomething(), and script_matchsomething().

{
  struct chanset_t *chan = NULL;

  if (chan_name && chan_name[0]) {
    chan = findchan_by_dname(chan_name);
    if (!chan) return(1);
  }

  *u = NULL;
  *alt = NULL;
  if (type == 'b') {
    if (chan) {
      *u = chan->bans;
      if (channel_honor_global_bans(chan)) *alt = global_bans;
    }
    else *u = global_bans;
  }
  else if (type == 'I') {
    if (chan) {
      *u = chan->invites;
      if (channel_honor_global_invites(chan)) *alt = global_invites;
    }
    else *u = global_invites;
  }
  else {
    if (chan) {
      *u = chan->exempts;
      if (channel_honor_global_exempts(chan)) *alt = global_exempts;
    }
    else *u = global_exempts;
  }
  return(0);
}

static void init_channel	(	struct chanset_t *	chan,
		int	reset
	)			[static]

Definition at line 666 of file tclchan.c.

References init_masklist(), and NULL.

Referenced by clear_channel(), and tcl_channel_add().

{
  chan->channel.maxmembers = 0;
  chan->channel.mode = 0;
  chan->channel.members = 0;
  if (!reset)
    chan->channel.key = calloc(1, 1);

  chan->channel.ban = (masklist *) malloc(sizeof(masklist));
  init_masklist(chan->channel.ban);

  chan->channel.exempt = (masklist *) malloc(sizeof(masklist));
  init_masklist(chan->channel.exempt);

  chan->channel.invite = (masklist *) malloc(sizeof(masklist));
  init_masklist(chan->channel.invite);

  chan->channel.member = (memberlist *) malloc(sizeof(memberlist));
  chan->channel.member->nick[0] = 0;
  chan->channel.member->next = NULL;
  chan->channel.topic = NULL;
}

static void init_masklist

(

masklist *

m

)

[static]

Definition at line 657 of file tclchan.c.

References NULL.

Referenced by init_channel().

{
  m->mask = calloc(1, 1);
  m->who = NULL;
  m->next = NULL;
}

static int lookup_flag_by_name	(	channel_flag_map_t *	map,
		char *	name,
		int *	flagval
	)			[static]

Definition at line 328 of file tclchan.c.

References flagmap, channel_flag_map_t::flagval, and channel_flag_map_t::name.

Referenced by script_channel_get(), and tcl_channel_modify().

{
  channel_flag_map_t *flagmap;

  for (flagmap = map; flagmap->name; flagmap++) {
    if (!strcmp(flagmap->name, name)) {
      *flagval = flagmap->flagval;
      return(1);
    }
  }
  return(0);
}

static int script_channel_get	(	script_var_t *	retval,
		char *	channel_name,
		char *	setting
	)			[static]

Definition at line 237 of file tclchan.c.

References CHECK, getudef(), script_var_b::len, lookup_flag_by_name(), normal_flag_map, SCRIPT_FREE, SCRIPT_STRING, stupid_ircnet_flag_map, script_var_b::type, UDEF_STR, and script_var_b::value.

{
  char s[121];
  struct chanset_t *chan;
  struct udef_struct *ul;
  int flagval;

  retval->type = SCRIPT_STRING;
  retval->len = -1;

  chan = findchan_by_dname(channel_name);
  if (!chan) return(-1);

#define CHECK(x) !strcmp(setting, x)
  if (CHECK("chanmode")) get_mode_protect(chan, s);
  else if (CHECK("aop_delay")) sprintf(s, "%d %d", chan->aop_min, chan->aop_max);
  else if (CHECK("ban_time"))  sprintf(s, "%d", chan->ban_time);
  else if (CHECK("exempt_time"))  sprintf(s, "%d", chan->exempt_time);
  else if (CHECK("invite_time"))  sprintf(s, "%d", chan->invite_time);

  else if (lookup_flag_by_name(normal_flag_map, setting, &flagval)) sprintf(s, "%d", chan->status & flagval);
  else if (lookup_flag_by_name(stupid_ircnet_flag_map, setting, &flagval)) sprintf(s, "%d", chan->ircnet_status & flagval);
  else {
    /* Hopefully it's a user-defined flag. */
    for (ul = udef; ul && ul->name; ul = ul->next) {
      if (!strcmp(setting, ul->name)) break;
    }
    if (!ul || !ul->name) {
      /* Error if it wasn't found. */
      return(-1);
    }
    if (ul->type == UDEF_STR) {
      char *value;

      /* If it's unset then give them an empty string. */
      value = (char *)getudef(ul->values, chan->dname);
      if (!value) value = "";

      retval->value = value;
      return(0);
    }
    else {
      /* Flag or int, all the same. */
      sprintf(s, "%d", getudef(ul->values, chan->dname));
    }
  }
  /* Ok, if we make it this far, the result is "s". */
  retval->value = strdup(s);
  retval->type |= SCRIPT_FREE;
  return(0);
}

static char* script_channel_getinfo	(	struct userrec *	u,
		char *	channel_name
	)			[static]

Definition at line 610 of file tclchan.c.

References get_chanrec.

{
  struct chanuserrec *ch;

  ch = get_chanrec(u, channel_name);
  if (ch && ch->info) return ch->info;
  return "";
}

static int script_channel_info

(

script_var_t *

retval

)

[static]

Definition at line 207 of file tclchan.c.

References channel_info_names, script_var_b::len, channel_flag_map_t::name, normal_flag_map, SCRIPT_ARRAY, SCRIPT_FREE, script_list_append(), script_string(), SCRIPT_VAR, stupid_ircnet_flag_map, and script_var_b::type.

{
  int i;
  channel_flag_map_t *flag_map;
  struct udef_struct *ul;

  retval->type = SCRIPT_ARRAY | SCRIPT_VAR | SCRIPT_FREE;
  retval->len = 0;

  for (i = 0; channel_info_names[i]; i++) {
    script_list_append(retval, script_string(channel_info_names[i], -1));
  }

  for (flag_map = normal_flag_map; flag_map->name; flag_map++) {
    script_list_append(retval, script_string(flag_map->name, -1));
  }

  for (flag_map = stupid_ircnet_flag_map; flag_map->name; flag_map++) {
    script_list_append(retval, script_string(flag_map->name, -1));
  }

  for (ul = udef; ul; ul = ul->next) {
    /* If it's undefined, skip it. */
    if (!ul->defined || !ul->name) continue;
    script_list_append(retval, script_string(ul->name, -1));
  }

  return(0);
}

static int script_channel_setinfo	(	struct userrec *	u,
		char *	channel_name,
		char *	info
	)			[static]

Definition at line 619 of file tclchan.c.

References set_handle_chaninfo.

{
  if (!findchan_by_dname(channel_name)) return(-1);
  set_handle_chaninfo(userlist, u->handle, channel_name, info);
  return(0);
}

static int script_channel_valid

(

char *

channel_name

)

[static]

Definition at line 588 of file tclchan.c.

{
  return findchan_by_dname(channel_name) ? 1 : 0;
}

static int script_channels

(

script_var_t *

retval

)

[static]

Definition at line 517 of file tclchan.c.

References script_var_b::len, SCRIPT_ARRAY, SCRIPT_FREE, script_list_append(), script_string(), SCRIPT_VAR, and script_var_b::type.

{
  struct chanset_t *chan;

  retval->type = SCRIPT_ARRAY | SCRIPT_VAR | SCRIPT_FREE;
  retval->len = 0;

  for (chan = chanset; chan; chan = chan->next) {
    script_list_append(retval, script_string(chan->dname, -1));
  }
  return(0);
}

static int script_chanrec_add	(	struct userrec *	u,
		char *	chan
	)			[static]

Definition at line 635 of file tclchan.c.

References add_chanrec, get_chanrec, and NULL.

{
  if (!findchan_by_dname(chan)) return(-1);
  if (get_chanrec(u, chan) != NULL) return(-1);
  add_chanrec(u, chan);
  return(0);
}

static int script_chanrec_del	(	struct userrec *	u,
		char *	chan
	)			[static]

Definition at line 643 of file tclchan.c.

References del_chanrec, get_chanrec, and NULL.

{
  if (get_chanrec(u, chan) != NULL) return(-1);
  del_chanrec(u, chan);
  return(0);
}

static int script_chanrec_exists	(	struct userrec *	u,
		char *	chan
	)			[static]

Definition at line 650 of file tclchan.c.

References get_chanrec, and NULL.

{
  if (!findchan_by_dname(chan)) return(0);
  if (get_chanrec(u, chan) != NULL) return(1);
  return(0);
}

static int script_ispermsomething	(	void *	type,
		char *	chan_name,
		char *	mask
	)			[static]

Definition at line 136 of file tclchan.c.

References get_maskrec_and_alt(), and u_equals_mask.

{
  maskrec *u, *alt;

  if (get_maskrec_and_alt((int) type, chan_name, &u, &alt)) return(-1);

  if (u_equals_mask(u, mask) == 2) return(1);
  if (alt && (u_equals_mask(alt, mask) == 2)) return(1);
  return(0);
}

static int script_issomething	(	void *	type,
		char *	chan_name,
		char *	mask
	)			[static]

Definition at line 112 of file tclchan.c.

References get_maskrec_and_alt(), and u_equals_mask.

{
  maskrec *u, *alt;
  int matches;

  get_maskrec_and_alt((int) type, chan_name, &u, &alt);

  matches = u_equals_mask(u, mask);
  if (!matches && alt) matches = u_equals_mask(alt, mask);
  return(matches ? 1 : 0);
}

static int script_isstickysomething	(	void *	type,
		char *	chan_name,
		char *	mask
	)			[static]

Definition at line 124 of file tclchan.c.

References get_maskrec_and_alt(), and u_sticky_mask.

{
  maskrec *u, *alt;
  int sticky;

  if (get_maskrec_and_alt((int) type, chan_name, &u, &alt)) return(-1);

  sticky = u_sticky_mask(u, mask);
  if (!sticky && alt) sticky = u_sticky_mask(alt, mask);
  return(sticky ? 1 : 0);
}

static int script_killsomething	(	void *	type,
		char *	chan_name,
		char *	mask
	)			[static]

Definition at line 43 of file tclchan.c.

References NULL, and u_delmask.

{
  struct chanset_t *chan = NULL;

  if (chan_name && chan_name[0]) {
    chan = findchan_by_dname(chan_name);
    if (!chan) return(-1);
  }

  if (u_delmask((int) type, chan, mask, 1) > 0) {
    if (!chan) {
      for (chan = chanset; chan; chan = chan->next) {
        add_mode(chan, '-', (int) type, mask);
      }
    }
    else add_mode(chan, '-', (int) type, mask);
  }
  return(0);
}

static int script_listmask	(	void *	type,
		script_var_t *	retval,
		char *	channel_name
	)			[static]

Definition at line 530 of file tclchan.c.

References script_var_b::len, NULL, SCRIPT_ARRAY, SCRIPT_FREE, script_int(), script_list(), script_list_append(), script_string(), SCRIPT_VAR, and script_var_b::type.

{
  script_var_t *mlist;
  struct chanset_t *chan = NULL;
  struct maskrec *m, *masks;

  retval->type = SCRIPT_ARRAY | SCRIPT_VAR | SCRIPT_FREE;
  retval->len = 0;

  if (channel_name) {
    chan = findchan_by_dname(channel_name);
    if (!chan) return(-1);
  }
  if ((int) type == 'b') masks = (chan ? chan->bans : global_bans);
  else if ((int) type == 'I') masks = (chan ? chan->invites : global_invites);
  else if ((int) type == 'e') masks = (chan ? chan->exempts : global_exempts);
  else return(-1);

  for (m = masks; m; m = m->next) {
    mlist = script_list(6, script_string(m->mask, -1),
      script_string(m->desc, -1),
      script_int(m->expire),
      script_int(m->added),
      script_int(m->lastactive),
      script_string(m->user, -1)
    );
    script_list_append(retval, mlist);
  }
  return(0);
}

static int script_matchsomething	(	void *	type,
		char *	chan_name,
		char *	mask
	)			[static]

Definition at line 147 of file tclchan.c.

References get_maskrec_and_alt(), and u_match_mask.

{
  maskrec *u, *alt;

  if (get_maskrec_and_alt((int) type, chan_name, &u, &alt)) return(-1);

  if (u_match_mask(u, mask)) return(1);
  if (alt && u_match_mask(alt, mask)) return(1);
  return(0);
}

static int script_newsomething	(	void *	type,
		char *	chan_name,
		char *	mask,
		char *	creator,
		char *	comment,
		char *	lifetime,
		char *	options
	)			[static]

Definition at line 158 of file tclchan.c.

References now, NULL, and u_addmask.

{
  time_t expire_time;
  struct chanset_t *chan = NULL;
  int sticky = 0;
  int r;
  module_entry *me;

  if (chan_name[0]) {
    chan = findchan_by_dname(chan_name);
    if (!chan) return(-1);
  }

  if (lifetime) {
    expire_time = atoi(lifetime);
    if (expire_time) expire_time = expire_time * 60 + now;
  }
  expire_time = now + (60 * (((int) type == 'b') ?
          ((chan->ban_time == 0) ? 0L : chan->ban_time) :
          (((int) type == 'e') ? ((chan->exempt_time == 0) ?
          0L : chan->exempt_time) :
          ((chan->invite_time == 0) ?
          0L : chan->invite_time))));

  if (options && !strcasecmp(options, "sticky")) sticky = 1;

  r = u_addmask((int) type, chan, mask, creator, comment, expire_time, sticky);
  if (chan && !r) return(-1);

  if ((int) type == 'b') {
    me = module_find("irc", 0, 0);
    if (me) {
      if (chan) (me->funcs[IRC_CHECK_THIS_BAN])(chan, mask, sticky);
      else for (chan = chanset; chan; chan = chan->next) {
        (me->funcs[IRC_CHECK_THIS_BAN])(chan, mask, sticky);
      }
    }
    return(0);
  }

  if (chan) add_mode(chan, '+', (int) type, mask);
  else {
    for (chan = chanset; chan; chan = chan->next) {
      add_mode(chan, '+', (int) type, mask);
    }
  }
  return(0);
}

static int script_setlaston	(	struct userrec *	u,
		int	when,
		char *	chan
	)			[static]

Definition at line 626 of file tclchan.c.

References now, and set_handle_laston.

{
  if (!when) when = now;

  if (!chan || !findchan_by_dname(chan)) chan = "*";
  set_handle_laston(chan, u, when);
  return(0);
}

static int script_sticksomething	(	void *	type,
		char *	chan_name,
		char *	mask
	)			[static]

Definition at line 64 of file tclchan.c.

References NULL, and u_setsticky_mask.

{
  struct chanset_t *chan = NULL;

  if (chan_name && chan_name[0]) {
    chan = findchan_by_dname(chan_name);
    if (!chan) return(-1);
  }

  /* If type > 255, then we're unsticking. The mask type is type & 255. */
  return u_setsticky_mask((int)type & 255, chan, mask, ((int)type > 255) ? 0 : 1);
}

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

Definition at line 289 of file tclchan.c.

References chan_hack, NULL, remove_channel, tcl_channel_add, and tcl_channel_modify.

{
  struct chanset_t *chan;

  BADARGS(2, 999, " command ?options?");
  if (!strcmp(argv[1], "add")) {
    BADARGS(3, 4, " add channel-name ?options-list?");
    if (argc == 3)
      return tcl_channel_add(irp, argv[2], "");
    return tcl_channel_add(irp, argv[2], argv[3]);
  }
  if (!strcmp(argv[1], "set")) {
    BADARGS(3, 999, " set channel-name ?options?");
    chan = findchan_by_dname(argv[2]);
    if (chan == NULL) {
      if (chan_hack == 1)
  return TCL_OK;    /* Ignore channel settings for a static
         * channel which has been removed from
         * the config */
      Tcl_AppendResult(irp, "no such channel record", NULL);
      return TCL_ERROR;
    }
    return tcl_channel_modify(irp, chan, argc - 3, &argv[3]);
  }
  if (!strcmp(argv[1], "remove")) {
    BADARGS(3, 3, " remove channel-name");
    chan = findchan_by_dname(argv[2]);
    if (chan == NULL) {
      Tcl_AppendResult(irp, "no such channel record", NULL);
      return TCL_ERROR;
    }
    remove_channel(chan);
    return TCL_OK;
  }
  Tcl_AppendResult(irp, "unknown channel command: should be one of: ",
       "add, set, info, remove", NULL);
  return TCL_ERROR;
}

static int tcl_channel_add	(	Tcl_Interp *	irp,
		char *	newname,
		char *	options
	)			[static]

Definition at line 729 of file tclchan.c.

References chan_hack, global_aop_max, global_aop_min, global_ban_time, global_exempt_time, global_invite_time, init_channel(), NULL, setstatic, and tcl_channel_modify.

{
  struct chanset_t *chan;
  int items;
  int ret = TCL_OK;
  int join = 0;
  char **item;
  char buf[2048], buf2[256];

  if (!newname || !newname[0] || (strchr(CHANMETA, newname[0]) == NULL)) {
    if (irp)
      Tcl_AppendResult(irp, "invalid channel prefix", NULL);
    return TCL_ERROR;
  }

  if (strchr(newname, ',') != NULL) {
    if (irp)
      Tcl_AppendResult(irp, "invalid channel name", NULL);
     return TCL_ERROR;
   }

  convert_element(glob_chanmode, buf2);
  simple_sprintf(buf, "chanmode %s ", buf2);
  strlcat(buf, glob_chanset, sizeof buf);
  strlcat(buf, options, sizeof buf);

  if (Tcl_SplitList(NULL, buf, &items, &item) != TCL_OK)
    return TCL_ERROR;
  if ((chan = findchan_by_dname(newname))) {
    /* Already existing channel, maybe a reload of the channel file */
    chan->status &= ~CHAN_FLAGGED;  /* don't delete me! :) */
  } else {
    chan = calloc(1, sizeof(struct chanset_t));
    chan->limit_prot = 0;
    chan->limit = 0;

    chan->ban_time = global_ban_time;
    chan->exempt_time = global_exempt_time;
    chan->invite_time = global_invite_time;
    chan->aop_min = global_aop_min;
    chan->aop_max = global_aop_max;

    /* We _only_ put the dname (display name) in here so as not to confuse
     * any code later on. chan->name gets updated with the channel name as
     * the server knows it, when we join the channel. <cybah>
     */
    strlcpy(chan->dname, newname, sizeof chan->dname);

    /* Initialize chan->channel info */
    init_channel(chan, 0);
    list_append((struct list_type **) &chanset, (struct list_type *) chan);
    join = 1;
  }
  if (setstatic)
    chan->status |= CHAN_STATIC;
  /* If chan_hack is set, we're loading the userfile. Ignore errors while
   * reading userfile and just return TCL_OK. This is for compatability
   * if a user goes back to an eggdrop that no-longer supports certain
   * (channel) options.
   */
  if ((tcl_channel_modify(irp, chan, items, item) != TCL_OK) && !chan_hack) {
    ret = TCL_ERROR;
  }
  Tcl_Free((char *) item);
  if (join && !channel_inactive(chan) && module_find("irc", 0, 0))
    dprintf(DP_SERVER, "JOIN %s %s\n", chan->dname, chan->key_prot);
  return ret;
}

static int tcl_channel_modify	(	Tcl_Interp *	irp,
		struct chanset_t *	chan,
		int	items,
		char **	item
	)			[static]

Definition at line 343 of file tclchan.c.

References chan_hack, getudef(), initudef, lookup_flag_by_name(), normal_flag_map, NULL, setudef(), stupid_ircnet_flag_map, UDEF_FLAG, UDEF_INT, and UDEF_STR.

{
  int i, x = 0, found,
      old_status = chan->status,
      old_mode_mns_prot = chan->mode_mns_prot,
      old_mode_pls_prot = chan->mode_pls_prot;
  struct udef_struct *ul = udef;
  char s[121];
  module_entry *me;

  for (i = 0; i < items; i++) {
    if (!strcmp(item[i], "chanmode")) {
      i++;
      if (i >= items) {
  if (irp)
    Tcl_AppendResult(irp, "channel chanmode needs argument", NULL);
  return TCL_ERROR;
      }
      strlcpy(s, item[i], sizeof s);
      set_mode_protect(chan, s);
    } else if (!strcmp(item[i], "ban_time")) {
      i++;
      if (i >= items) {
        if (irp)
          Tcl_AppendResult(irp, "channel ban_time needs argument", NULL);
        return TCL_ERROR;
      }
      chan->ban_time = atoi(item[i]);
    } else if (!strcmp(item[i], "exempt_time")) {
      i++;
      if (i >= items) {
        if (irp)
          Tcl_AppendResult(irp, "channel exempt_time needs argument", NULL);
        return TCL_ERROR;
      }
      chan->exempt_time = atoi(item[i]);
    } else if (!strcmp(item[i], "invite_time")) {
      i++;
      if (i >= items) {
        if (irp)
          Tcl_AppendResult(irp, "channel invite_time needs argument", NULL);
        return TCL_ERROR;
      }
      chan->invite_time = atoi(item[i]);
    }
    else if (item[i][0] == '+' || item[i][0] == '-') {
      int flagval;

      if (lookup_flag_by_name(normal_flag_map, item[i]+1, &flagval)) {
        if (item[i][0] == '-') chan->status &= ~flagval;
        else chan->status |= flagval;
      }
      else if (lookup_flag_by_name(stupid_ircnet_flag_map, item[i]+1, &flagval)) {
        if (item[i][0] == '-') chan->ircnet_status &= ~flagval;
        else chan->ircnet_status |= flagval;
      }
      else {
        /* Hopefully it's a user-defined flag! */
        goto check_for_udef_flags;
      }
    } else if (!strncmp(item[i], "aop_delay", 9)) {
      char *p;
      i++;
      if (i >= items) {
  if (irp)
    Tcl_AppendResult(irp, item[i - 1], " needs argument", NULL);
  return TCL_ERROR;
      }
      p = strchr(item[i], ':');
      if (p) {
  p++;
  chan->aop_min = atoi(item[i]);
  chan->aop_max = atoi(p);
      } else {
  chan->aop_min = atoi(item[i]);
  chan->aop_max = chan->aop_min;
      }
    } else {
      if (!strncmp(item[i] + 1, "udef_flag_", 10))
        initudef(UDEF_FLAG, item[i] + 11, 0);
      else if (!strncmp(item[i], "udef_int_", 9))
        initudef(UDEF_INT, item[i] + 9, 0);
  else if (!strncmp(item[i], "udef_str_", 9))
    initudef(UDEF_STR, item[i] + 9, 0);
check_for_udef_flags:
      found = 0;
      for (ul = udef; ul; ul = ul->next) {
        if (ul->type == UDEF_FLAG &&
       /* Direct match when set during .chanset ... */
      (!strcasecmp(item[i] + 1, ul->name) ||
       /* ... or with prefix when set during chanfile load. */
       (!strncmp(item[i] + 1, "udef_flag_", 10) &&
        !strcasecmp(item[i] + 11, ul->name)))) {
          if (item[i][0] == '+')
            setudef(ul, chan->dname, 1);
          else
            setudef(ul, chan->dname, 0);
          found = 1;
    break;
        } else if (ul->type == UDEF_INT &&
        /* Direct match when set during .chanset ... */
       (!strcasecmp(item[i], ul->name) ||
        /* ... or with prefix when set during chanfile load. */
        (!strncmp(item[i], "udef_int_", 9) &&
         !strcasecmp(item[i] + 9, ul->name)))) {
          i++;
          if (i >= items) {
            if (irp)
              Tcl_AppendResult(irp, "this setting needs an argument", NULL);
            return TCL_ERROR;
          }
          setudef(ul, chan->dname, atoi(item[i]));
          found = 1;
    break;
        }
  else if (ul->type == UDEF_STR && (!strcasecmp(item[i], ul->name) || (!strncmp(item[i], "udef_str_", 9) && !strcasecmp(item[i] + 9, ul->name)))) {
    char *val;
    i++;
    if (i >= items) {
      if (irp) Tcl_AppendResult(irp, "this setting needs an argument", NULL);
      return TCL_ERROR;
    }
    val = (char *)getudef(ul->values, chan->dname);
    if (val) free(val);
    /* Get extra room for new braces, etc */
    val = malloc(3 * strlen(item[i]) + 10);
    convert_element(item[i], val);
    val = realloc(val, strlen(val)+1);
    setudef(ul, chan->dname, (int)val);
    found = 1;
    break;
  }
      }
      if (!found) {
        if (irp && item[i][0]) /* ignore "" */
          Tcl_AppendResult(irp, "illegal channel option: ", item[i], NULL);
        x++;
      }
    }
  }
  /* If protect_readonly == 0 and chan_hack == 0 then
   * bot is now processing the configfile, so dont do anything,
   * we've to wait the channelfile that maybe override these settings
   * (note: it may cause problems if there is no chanfile!)
   * <drummer/1999/10/21>
   */
  if (protect_readonly || chan_hack) {
    if (((old_status ^ chan->status) & CHAN_INACTIVE) &&
  module_find("irc", 0, 0)) {
      if (channel_inactive(chan) &&
    (chan->status & (CHAN_ACTIVE | CHAN_PEND)))
  dprintf(DP_SERVER, "PART %s\n", chan->name);
      if (!channel_inactive(chan) &&
    !(chan->status & (CHAN_ACTIVE | CHAN_PEND)))
  dprintf(DP_SERVER, "JOIN %s %s\n", (chan->name[0]) ?
             chan->name : chan->dname,
             chan->channel.key[0] ?
             chan->channel.key : chan->key_prot);
    }
    if ((old_status ^ chan->status) &
  (CHAN_ENFORCEBANS | CHAN_OPONJOIN | CHAN_AUTOVOICE)) {
      if ((me = module_find("irc", 0, 0)))
  (me->funcs[IRC_RECHECK_CHANNEL])(chan, 1);
    } else if (old_mode_pls_prot != chan->mode_pls_prot ||
         old_mode_mns_prot != chan->mode_mns_prot)
      if ((me = module_find("irc", 1, 2)))
  (me->funcs[IRC_RECHECK_CHANNEL_MODES])(chan);
  }
  if (x > 0)
    return TCL_ERROR;
  return TCL_OK;
}

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

Definition at line 849 of file tclchan.c.

References free_udef_chans(), NULL, UDEF_FLAG, UDEF_INT, and UDEF_STR.

{
  struct udef_struct *ul, *ull;
  int type, found = 0;

  BADARGS(3, 3, " type name");
  if (!strcasecmp(argv[1], "flag"))
    type = UDEF_FLAG;
  else if (!strcasecmp(argv[1], "int"))
    type = UDEF_INT;
  /*## ADD CODE FOR STRING SETTINGS*/
  else if (!strcasecmp(argv[1], "str"))
    type = UDEF_STR;
  else {
    Tcl_AppendResult(irp, "invalid type. Must be one of: flag, int, str", NULL);
    return TCL_ERROR;
  }
  for (ul = udef; ul; ul = ul->next) {
    ull = ul->next;
    if (!ull)
      break;
    if (ull->type == type && !strcasecmp(ull->name, argv[2])) {
      ul->next = ull->next;
      free(ull->name);
      free_udef_chans(ull->values, ull->type);
      free(ull);
      found = 1;
    }
  }
  if (udef) {
    if (udef->type == type && !strcasecmp(udef->name, argv[2])) {
      ul = udef->next;
      free(udef->name);
      free_udef_chans(udef->values, udef->type);
      free(udef);
      udef = ul;
      found = 1;
    }
  }
  if (!found) {
    Tcl_AppendResult(irp, "not found", NULL);
    return TCL_ERROR;
  } else
    return TCL_OK;
}

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

Definition at line 594 of file tclchan.c.

References NULL.

{
  struct chanset_t *chan;

  BADARGS(2, 2, " channel");
  chan = findchan_by_dname(argv[1]);
  if (chan != NULL)
    if (!channel_static(chan)) {
      Tcl_AppendResult(irp, "1", NULL);
      return TCL_OK;
    }
  Tcl_AppendResult(irp, "0", NULL);
  return TCL_OK;
}

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

Definition at line 575 of file tclchan.c.

References setstatic.

{
  BADARGS(1, 1, "");
  if (!chanfile[0]) {
    Tcl_AppendResult(irp, "no channel file");
    return TCL_ERROR;
  }
  setstatic = 0;
  read_channels(1);
  return TCL_OK;
}

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

Definition at line 818 of file tclchan.c.

References NULL, UDEF_FLAG, UDEF_INT, and UDEF_STR.

{
  struct udef_struct *ul;
  int type, found = 0;

  BADARGS(4, 4, " type oldname newname");
  if (!strcasecmp(argv[1], "flag"))
    type = UDEF_FLAG;
  else if (!strcasecmp(argv[1], "int"))
    type = UDEF_INT;
  /*## ADD CODE FOR STRING SETTINGS*/
  else if (!strcasecmp(argv[1], "str"))
    type = UDEF_STR;
  else {
    Tcl_AppendResult(irp, "invalid type. Must be one of: flag, int, str", NULL);
    return TCL_ERROR;
  }
  for (ul = udef; ul; ul = ul->next) {
    if (ul->type == type && !strcasecmp(ul->name, argv[2])) {
      free(ul->name);
      ul->name = strdup(argv[3]);
      found = 1;
    }
  }
  if (!found) {
    Tcl_AppendResult(irp, "not found", NULL);
    return TCL_ERROR;
  } else
    return TCL_OK;
}

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

Definition at line 562 of file tclchan.c.

References write_channels().

{
  BADARGS(1, 1, "");
  if (!chanfile[0]) {
    Tcl_AppendResult(irp, "no channel file");
    return TCL_ERROR;
  }
  write_channels();
  return TCL_OK;
}

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

Definition at line 798 of file tclchan.c.

References initudef, NULL, UDEF_FLAG, UDEF_INT, and UDEF_STR.

{
  int type;

  BADARGS(3, 3, " type name");
  if (!strcasecmp(argv[1], "flag"))
    type = UDEF_FLAG;
  else if (!strcasecmp(argv[1], "int"))
    type = UDEF_INT;
  /*## ADD CODE FOR STRING SETTINGS*/
  else if (!strcasecmp(argv[1], "str"))
    type = UDEF_STR;
  else {
    Tcl_AppendResult(irp, "invalid type. Must be one of: flag, int, str", NULL);
    return TCL_ERROR;
  }
  initudef(type, argv[2], 1);
  return TCL_OK;
}

---

Variable Documentation

char* channel_info_names[]

Initial value:

 {
  "chanmode",
  "stop_net_hack",
  "aop_delay",
  NULL
}

Definition at line 33 of file tclchan.c.

Referenced by script_channel_info().

script_command_t channel_script_cmds[] [static]

Definition at line 895 of file tclchan.c.

Referenced by channels_close(), and start().

tcl_cmds channels_cmds[] [static]

Initial value:

{
  {"channel",   tcl_channel},
  {"savechannels",  tcl_savechannels},
  {"loadchannels",  tcl_loadchannels},
  {"isdynamic",   tcl_isdynamic},
  {"setudef",   tcl_setudef},
  {"renudef",   tcl_renudef},
  {"deludef",   tcl_deludef},
  {NULL,    NULL}
}

Definition at line 948 of file tclchan.c.

Referenced by channels_close(), and start().