[irc/quakenet/newserv.git] / lua / lualocal.c

#include <stdlib.h>

#include "../localuser/localuser.h"
#include "../lib/strlfunc.h"
#include "../core/schedule.h"
#include "../channel/channel.h"
#include "../localuser/localuserchannel.h"

#include "lua.h"
#include "luabot.h"
#include "lualocal.h"

void lua_localnickhandler(nick *target, int type, void **args);
void lua_reconnectlocal(void *arg);

static int lua_registerlocaluserid(lua_State *ps) {
  lua_list *l;
  lua_localnick *ln;
  char *nickname, *ident, *hostname, *realname, *account;
  flag_t modes = 0;
  long userid;
  
  if(!lua_isstring(ps, 1) || !lua_isstring(ps, 2) || !lua_isstring(ps, 3) || !lua_isstring(ps, 4) || !lua_isstring(ps, 5) || !lua_isstring(ps, 7) || !lua_isfunction(ps, 8))
    return 0;

  nickname = (char *)lua_tostring(ps, 1);
  ident = (char *)lua_tostring(ps, 2);
  hostname = (char *)lua_tostring(ps, 3);
  realname = (char *)lua_tostring(ps, 4);
  account = (char *)lua_tostring(ps, 5);
  if(lua_islong(ps, 6)) {
    userid = lua_tolong(ps, 6);
  } else {
    userid = 0;
  }

  setflags(&modes, UMODE_ALL, (char *)lua_tostring(ps, 7), umodeflags, REJECT_NONE);

  if(!lua_lineok(nickname) || !lua_lineok(ident) || !lua_lineok(hostname) || !lua_lineok(realname) || !lua_lineok(account))
    return 0;

  l = lua_listfromstate(ps);
  if(!l)
    return 0;

  ln = (lua_localnick *)luamalloc(sizeof(lua_localnick));
  if(!ln)
    return 0;

  ln->reconnect = NULL;

  ln->nick = registerlocaluserflags(nickname, ident, hostname, realname, account, userid, 0, modes, &lua_localnickhandler);
  if(!ln->nick) {
    luafree(ln);
    return 0;
  }

  ln->handler = luaL_ref(ps, LUA_REGISTRYINDEX);

  ln->next = l->nicks;
  l->nicks = ln;

  lua_pushlong(ps, ln->nick->numeric);
  return 1;
}

void lua_freelocalnick(lua_State *ps, lua_localnick *l, char *quitm) {
  if(l->nick)
    deregisterlocaluser(l->nick, quitm);

  if(l->reconnect)
    deleteschedule(l->reconnect, &lua_reconnectlocal, l);

  luaL_unref(ps, LUA_REGISTRYINDEX, l->handler);

  luafree(l);
}

int lua_getlocalnickbynick(nick *np, lua_list **rl, lua_localnick **rln) {
  lua_list *l;
  lua_localnick *ln;

  for(l=lua_head;l;l=l->next)
    for(ln=l->nicks;ln;ln=ln->next)
      if(ln->nick == np) {
        *rl = l;
        *rln = ln;
        return 1;
      }

  return 0;
}

static int lua_deregisterlocaluser(lua_State *ps) {
  lua_list *l;
  lua_localnick *l2, *lp = NULL;
  long numeric;
  char *quitm;

  if(!lua_islong(ps, 1))
    LUA_RETURN(ps, LUA_FAIL);

  numeric = lua_tolong(ps, 1);

  quitm = lua_isstring(ps, 2)?(char *)lua_tostring(ps, 2):"localuser unregistered.";

  l = lua_listfromstate(ps);

  for(l2=l->nicks;l2;lp=l2,l2=l2->next) {
    if(l2->nick && l2->nick->numeric == numeric) {
      if(lp) {
        lp->next = l2->next;
      } else {
        l->nicks = l2->next;
      }

      lua_freelocalnick(ps, l2, quitm);
      LUA_RETURN(ps, LUA_OK);
    }
  }

  LUA_RETURN(ps, LUA_FAIL);
}

void lua_deregisternicks(lua_list *l) {
  struct lua_localnick *ln, *pn;

  ln = l->nicks;
  l->nicks = NULL;
  for(;ln;ln=pn) {
    pn = ln->next;

    lua_freelocalnick(l->l, ln, "Script unloaded.");
  }

  l->nicks = NULL;
}

/* todo */
void lua_localnickhandler(nick *target, int type, void **args) {
  nick *np;
  char *p;
  lua_localnick *ln;
  lua_list *l;
  channel *c;

  if(!lua_getlocalnickbynick(target, &l, &ln))
    return;

  switch(type) {
    case LU_PRIVMSG:
      np = (nick *)args[0];
      p = (char *)args[1];

      if(!np || !p)
        return;

      lua_vlpcall(l, ln, "irc_onmsg", "Ns", np, p);

      break;

    case LU_PRIVNOTICE:
      np = (nick *)args[0];
      p = (char *)args[1];

      if(!np || !p)
        return;

      lua_vlpcall(l, ln, "irc_onnotice", "Ns", np, p);

      break;

    case LU_CHANMSG:
      np = (nick *)args[0];
      c = (channel *)args[1];
      p = (char *)args[2];

      if(!np || !p || !c || !c->index || !c->index->name || !c->index->name->content)
        return;

      lua_vlpcall(l, ln, "irc_onchanmsg", "Nss", np, c->index->name->content, p);
      break;

    case LU_KILLED:
      lua_vlpcall(l, ln, "irc_onkilled", "");

      strlcpy(ln->nickname, target->nick, sizeof(ln->nickname));
      strlcpy(ln->ident, target->ident, sizeof(ln->ident));
      strlcpy(ln->hostname, target->host->name->content, sizeof(ln->hostname));
      strlcpy(ln->realname, target->realname->name->content, sizeof(ln->realname));
      strlcpy(ln->account, target->authname, sizeof(ln->account));

      ln->umodes = target->umodes;
      ln->nick = NULL;

      ln->reconnect = scheduleoneshot(time(NULL) + 1, &lua_reconnectlocal, ln);

      break;
    case LU_INVITE:
    /* we were invited, check if someone invited us to PUBLICCHAN */
      np = (nick *)args[0];
      c = (channel *)args[1];

      if(!c || !np || !c->index || !c->index->name)
        return;

      lua_vlpcall(l, ln, "irc_oninvite", "Ns", np, c->index->name->content);
      break;
  }
}

void lua_reconnectlocal(void *arg) {
  lua_list *l;
  lua_localnick *ln = (lua_localnick *)arg;

  ln->nick = registerlocaluser(ln->nickname, ln->ident, ln->hostname, ln->realname, ln->account, ln->umodes, &lua_localnickhandler);
  if(!ln->nick) {
    ln->reconnect = scheduleoneshot(time(NULL) + 1, &lua_reconnectlocal, ln);
    return;
  }

  ln->reconnect = NULL;

  if(lua_getlocalnickbynick(ln->nick, &l, &ln)) /* hacky! */
    lua_vlpcall(l, ln, "irc_onkillreconnect", "");
}

static int lua_localjoin(lua_State *ps) {
  nick *source;
  channel *target;
  char *chan;

  if(!lua_islong(ps, 1) || !lua_isstring(ps, 2))
    LUA_RETURN(ps, LUA_FAIL);

  source = getnickbynumeric(lua_tolong(ps, 1));
  if(!source)
    LUA_RETURN(ps, LUA_FAIL);

  chan = (char *)lua_tostring(ps, 2);
  if(chan[0] != '#')
    LUA_RETURN(ps, LUA_FAIL);

  if(!lua_lineok(chan)) 
    LUA_RETURN(ps, LUA_FAIL);
    
  target = findchannel(chan);
  if(target) {
    localjoinchannel(source, target);
  } else {
    localcreatechannel(source, chan);
  }

  LUA_RETURN(ps, LUA_OK);
}

static int lua_localpart(lua_State *ps) {
  nick *source;
  channel *target;
  char *chan, *reason;

  if(!lua_islong(ps, 1) || !lua_isstring(ps, 2))
    LUA_RETURN(ps, LUA_FAIL);

  source = getnickbynumeric(lua_tolong(ps, 1));
  if(!source)
    LUA_RETURN(ps, LUA_FAIL);

  chan = (char *)lua_tostring(ps, 2);

  if(!lua_lineok(chan)) 
    LUA_RETURN(ps, LUA_FAIL);
  
  if(lua_isstring(ps, 3)) {
    reason = (char *)lua_tostring(ps, 3);
    if(!lua_lineok(reason))
      LUA_RETURN(ps, LUA_FAIL);
  } else {
    reason = NULL;
  }

  target = findchannel(chan);
  if(target) {
    localpartchannel(source, target, reason);
  } else {
    LUA_RETURN(ps, LUA_FAIL);
  }

  LUA_RETURN(ps, LUA_OK);
}

static int lua_localchanmsg(lua_State *ps) {
  char *msg;
  nick *source;
  channel *target;

  if(!lua_islong(ps, 1) || !lua_isstring(ps, 2) || !lua_isstring(ps, 3))
    LUA_RETURN(ps, LUA_FAIL);

  source = getnickbynumeric(lua_tolong(ps, 1));
  if(!source)
    LUA_RETURN(ps, LUA_FAIL);

  target = findchannel((char *)lua_tostring(ps, 2));
  if(!target)
    LUA_RETURN(ps, LUA_FAIL);

  msg = (char *)lua_tostring(ps, 3);

  if(!lua_lineok(msg))
    LUA_RETURN(ps, LUA_FAIL);

  sendmessagetochannel(source, target, "%s", msg);

  LUA_RETURN(ps, LUA_OK);
}

static int lua_localchanopnotice(lua_State *ps) {
  char *msg;
  nick *source;
  channel *target;

  if(!lua_islong(ps, 1) || !lua_isstring(ps, 2) || !lua_isstring(ps, 3))
    LUA_RETURN(ps, LUA_FAIL);

  source = getnickbynumeric(lua_tolong(ps, 1));
  if(!source)
    LUA_RETURN(ps, LUA_FAIL);

  target = findchannel((char *)lua_tostring(ps, 2));
  if(!target)
    LUA_RETURN(ps, LUA_FAIL);

  msg = (char *)lua_tostring(ps, 3);

  if(!lua_lineok(msg))
    LUA_RETURN(ps, LUA_FAIL);

  sendopnoticetochannel(source, target, "%s", msg);

  LUA_RETURN(ps, LUA_OK);
}

static int lua_localnotice(lua_State *ps) {
  char *msg;
  nick *source;
  nick *target;

  if(!lua_islong(ps, 1) || !lua_islong(ps, 2) || !lua_isstring(ps, 3))
    LUA_RETURN(ps, LUA_FAIL);

  source = getnickbynumeric(lua_tolong(ps, 1));
  if(!source)
    LUA_RETURN(ps, LUA_FAIL);

  target = getnickbynumeric(lua_tolong(ps, 2));
  if(!target)
    LUA_RETURN(ps, LUA_FAIL);

  msg = (char *)lua_tostring(ps, 3);

  if(!lua_lineok(msg))
    LUA_RETURN(ps, LUA_FAIL);

  sendnoticetouser(source, target, "%s", msg);

  LUA_RETURN(ps, LUA_OK);
}

static int lua_localprivmsg(lua_State *ps) {
  char *msg;
  nick *source;
  nick *target;

  if(!lua_islong(ps, 1) || !lua_islong(ps, 2) || !lua_isstring(ps, 3))
    LUA_RETURN(ps, LUA_FAIL);

  source = getnickbynumeric(lua_tolong(ps, 1));
  if(!source)
    LUA_RETURN(ps, LUA_FAIL);

  target = getnickbynumeric(lua_tolong(ps, 2));
  if(!target)
    LUA_RETURN(ps, LUA_FAIL);

  msg = (char *)lua_tostring(ps, 3);

  if(!lua_lineok(msg))
    LUA_RETURN(ps, LUA_FAIL);

  sendmessagetouser(source, target, "%s", msg);

  LUA_RETURN(ps, LUA_OK);
}

static int lua_localovmode(lua_State *l) {
  nick *source;
  channel *chan;
  int state = 0, add = 0, realmode = 0, ignoring = 0;
  modechanges changes;

  if(!lua_islong(l, 1) || !lua_isstring(l, 2) || !lua_istable(l, 3))
    LUA_RETURN(l, LUA_FAIL);

  source = getnickbynumeric(lua_tolong(l, 1));
  if(!source)
    LUA_RETURN(l, LUA_FAIL);

  chan = findchannel((char *)lua_tostring(l, 2));
  if(!chan)
    LUA_RETURN(l, LUA_FAIL);

  localsetmodeinit(&changes, chan, source);

  lua_pushnil(l);

  while(lua_next(l, 3)) {
    if(state == 0) {
      ignoring = 0;

      if(!lua_isboolean(l, -1)) {
        ignoring = 1;
      } else {
        add = (int)lua_toboolean(l, -1);
      }
    } else if((state == 1) && !ignoring) {
      if(!lua_isstring(l, -1)) { 
        ignoring = 1;
      } else {
        char *mode = (char *)lua_tostring(l, -1);
        if((*mode == 'o') && add) {
          realmode = MC_OP;
        } else if (*mode == 'o') {
          realmode = MC_DEOP;
        } else if((*mode == 'v') && add) {
          realmode = MC_VOICE;
        } else if (*mode == 'v') {
          realmode = MC_DEVOICE;      
        } else {
          ignoring = 1;
        }
      }
    } else if((state == 2) && !ignoring) {
      if(lua_islong(l, -1)) {
        nick *target = getnickbynumeric(lua_tolong(l, -1));
        if(target)
          localdosetmode_nick(&changes, target, realmode);
      }
    }

    lua_pop(l, 1);

    state = (state + 1) % 3;
  }

  localsetmodeflush(&changes, 1);

  LUA_RETURN(l, LUA_OK);
}

static int lua_localumodes(lua_State *ps) {
  nick *np;
  char *modes;
  flag_t newmodes = 0;

  if(!lua_islong(ps, 1) || !lua_isstring(ps, 2))
    LUA_RETURN(ps, LUA_FAIL);

  np = getnickbynumeric(lua_tolong(ps, 1));
  if(!np)
    LUA_RETURN(ps, LUA_FAIL);

  modes = (char *)lua_tostring(ps, 2);

  setflags(&newmodes, UMODE_ALL, modes, umodeflags, REJECT_NONE);

  localusersetumodes(np, newmodes);
  LUA_RETURN(ps, LUA_OK);
}

static int lua_localtopic(lua_State *ps) {
  nick *np;
  channel *cp;
  char *topic;

  if(!lua_islong(ps, 1) || !lua_isstring(ps, 2) || !lua_isstring(ps, 3))
    LUA_RETURN(ps, LUA_FAIL);

  np = getnickbynumeric(lua_tolong(ps, 1));
  if(!np)
    LUA_RETURN(ps, LUA_FAIL);

  cp = findchannel((char *)lua_tostring(ps, 2));
  if(!cp)
    LUA_RETURN(ps, LUA_FAIL);

  topic = (char *)lua_tostring(ps, 3);
  if(!topic || !lua_lineok(topic))
    LUA_RETURN(ps, LUA_FAIL);

  localsettopic(np, cp, topic);

  LUA_RETURN(ps, LUA_OK);
}

static int lua_localban(lua_State *ps) {
  channel *cp;
  const char *mask;
  modechanges changes;
  nick *source;

  int dir = MCB_ADD;

  if(!lua_islong(ps, 1) || !lua_isstring(ps, 2) || !lua_isstring(ps, 3))
    LUA_RETURN(ps, LUA_FAIL);

  if(lua_isboolean(ps, 4) && lua_toboolean(ps, 4))
    dir = MCB_DEL;

  source = getnickbynumeric(lua_tolong(ps, 1));

  cp = findchannel((char *)lua_tostring(ps, 2));
  if(!cp)
    LUA_RETURN(ps, LUA_FAIL);

  mask = lua_tostring(ps, 3);
  if(!mask || !mask[0] || !lua_lineok(mask))
    LUA_RETURN(ps, LUA_FAIL);

  localsetmodeinit(&changes, cp, source);
  localdosetmode_ban(&changes, mask, dir);
  localsetmodeflush(&changes, 1);

  LUA_RETURN(ps, LUA_OK);
}

static int lua_localkick(lua_State *ps) {
  const char *n, *msg, *chan;
  nick *source, *np;
  channel *cp;
  int dochecks = 1;

  if(!lua_islong(ps, 1) || !lua_isstring(ps, 2) || !lua_isstring(ps, 3) || !lua_isstring(ps, 4))
    LUA_RETURN(ps, LUA_FAIL);

  source = getnickbynumeric(lua_tolong(ps, 1));
  chan = lua_tostring(ps, 2);
  n = lua_tostring(ps, 3);
  msg = lua_tostring(ps, 4);
  if(!source)
    LUA_RETURN(ps, LUA_FAIL);

  if(lua_isboolean(ps, 4) && !lua_toboolean(ps, 4))
    dochecks = 0;

  np = getnickbynick(n);
  if(!np)
    LUA_RETURN(ps, LUA_FAIL);

  if(dochecks && (IsOper(np) || IsXOper(np) || IsService(np)))
    LUA_RETURN(ps, LUA_FAIL);

  cp = findchannel((char *)chan);
  if(!cp)
    LUA_RETURN(ps, LUA_FAIL);

  if(!lua_lineok(msg))
    LUA_RETURN(ps, LUA_FAIL);

  localkickuser(source, cp, np, msg);

  LUA_RETURN(ps, LUA_OK);
}

static int lua_localrename(lua_State *ps) {
  nick *np;
  char *changeto;

  if(!lua_islong(ps, 1) || !lua_isstring(ps, 2) )
    LUA_RETURN(ps, LUA_FAIL);

  np = getnickbynumeric(lua_tolong(ps, 1));
  changeto = (char *)lua_tostring(ps, 2);

  if(!lua_lineok(changeto))
    LUA_RETURN(ps, LUA_FAIL);

  renamelocaluser(np, changeto);

  LUA_RETURN(ps, LUA_OK);
}

static int lua_localwallusers(lua_State *ps) {
  char *msg;
  nick *source;
  char senderstr[6];

  if(!lua_islong(ps, 1) || !lua_isstring(ps, 2))
    LUA_RETURN(ps, LUA_FAIL);

  source = getnickbynumeric(lua_tolong(ps, 1));
  if(!source)
    LUA_RETURN(ps, LUA_FAIL);

  msg = (char *)lua_tostring(ps, 2);

  if(!lua_lineok(msg))
    LUA_RETURN(ps, LUA_FAIL);

  longtonumeric2(source->numeric,5,senderstr);
  irc_send("%s WU :%s", senderstr, msg);

  LUA_RETURN(ps, LUA_OK);
}

static int lua_localwallops(lua_State *ps) {
  char *msg;
  nick *source;
  char senderstr[6];

  if(!lua_islong(ps, 1) || !lua_isstring(ps, 2))
    LUA_RETURN(ps, LUA_FAIL);

  source = getnickbynumeric(lua_tolong(ps, 1));
  if(!source)
    LUA_RETURN(ps, LUA_FAIL);

  msg = (char *)lua_tostring(ps, 2);

  if(!lua_lineok(msg))
    LUA_RETURN(ps, LUA_FAIL);

  longtonumeric2(source->numeric,5,senderstr);
  irc_send("%s WA :%s", senderstr, msg);

  LUA_RETURN(ps, LUA_OK);
}

static int lua_localsimplechanmode(lua_State *ps) {
  nick *source;
  channel *cp;
  char *modes;
  flag_t add = 0, del = ~add;
  flag_t permitted = CHANMODE_NOEXTMSG | CHANMODE_TOPICLIMIT | CHANMODE_SECRET | CHANMODE_PRIVATE | CHANMODE_INVITEONLY | CHANMODE_MODERATE | CHANMODE_NOCOLOUR | CHANMODE_NOCTCP | CHANMODE_REGONLY | CHANMODE_DELJOINS | CHANMODE_NOQUITMSG | CHANMODE_NONOTICE | CHANMODE_MODNOAUTH | CHANMODE_SINGLETARG;
  modechanges changes;

  if(!lua_islong(ps, 1) || !lua_isstring(ps, 2) || !lua_isstring(ps, 3))
    LUA_RETURN(ps, LUA_FAIL);

  source = getnickbynumeric(lua_tolong(ps, 1));
  if(!source)
    LUA_RETURN(ps, LUA_FAIL);

  cp = findchannel((char *)lua_tostring(ps, 2));
  if(!cp)
    LUA_RETURN(ps, LUA_FAIL);

  modes = (char *)lua_tostring(ps, 3);
  if(!modes)
    LUA_RETURN(ps, LUA_FAIL);

  if(setflags(&add, permitted, modes, cmodeflags, REJECT_DISALLOWED|REJECT_UNKNOWN) != REJECT_NONE)
    LUA_RETURN(ps, LUA_FAIL);

  if(setflags(&del, permitted, modes, cmodeflags, REJECT_DISALLOWED|REJECT_UNKNOWN) != REJECT_NONE)
    LUA_RETURN(ps, LUA_FAIL);

  localsetmodeinit(&changes, cp, source);
  localdosetmode_simple(&changes, add, ~del);
  localsetmodeflush(&changes, 1);

  LUA_RETURN(ps, LUA_OK);
}

void lua_registerlocalcommands(lua_State *l) {
  lua_register(l, "irc_localregisteruserid", lua_registerlocaluserid);
  lua_register(l, "irc_localderegisteruser", lua_deregisterlocaluser);
  lua_register(l, "irc_localjoin", lua_localjoin);
  lua_register(l, "irc_localpart", lua_localpart);
  lua_register(l, "irc_localchanmsg", lua_localchanmsg);
  lua_register(l, "irc_localnotice", lua_localnotice);
  lua_register(l, "irc_localprivmsg", lua_localprivmsg);

  lua_register(l, "irc_localovmode", lua_localovmode);
  lua_register(l, "irc_localtopic", lua_localtopic);

  lua_register(l, "irc_localban", lua_localban);
  lua_register(l, "irc_localkick", lua_localkick);
  lua_register(l, "irc_localumodes", lua_localumodes);

  lua_register(l, "irc_localrename", lua_localrename);

  lua_register(l, "irc_localwallusers", lua_localwallusers);
  lua_register(l, "irc_localwallops", lua_localwallops);

  lua_register(l, "irc_localsimplechanmode", lua_localsimplechanmode);
  lua_register(l, "irc_localchanopnotice", lua_localchanopnotice);
}
Commit	Line	Data
0225bed3 CP	1	#include <stdlib.h>
	2
	3	#include "../localuser/localuser.h"
	4	#include "../lib/strlfunc.h"
	5	#include "../core/schedule.h"
	6	#include "../channel/channel.h"
	7	#include "../localuser/localuserchannel.h"
	8
	9	#include "lua.h"
	10	#include "luabot.h"
	11	#include "lualocal.h"
	12
	13	void lua_localnickhandler(nick target, int type, void *args);
	14	void lua_reconnectlocal(void *arg);
	15
5541f23c	16	static int lua_registerlocaluserid(lua_State *ps) {
0225bed3 CP	17	lua_list *l;
	18	lua_localnick *ln;
	19	char nickname, ident, hostname, realname, *account;
	20	flag_t modes = 0;
5541f23c	21	long userid;
0225bed3	22
5541f23c	23	if(!lua_isstring(ps, 1) \|\| !lua_isstring(ps, 2) \|\| !lua_isstring(ps, 3) \|\| !lua_isstring(ps, 4) \|\| !lua_isstring(ps, 5) \|\| !lua_isstring(ps, 7) \|\| !lua_isfunction(ps, 8))
0225bed3 CP	24	return 0;
	25
	26	nickname = (char *)lua_tostring(ps, 1);
	27	ident = (char *)lua_tostring(ps, 2);
	28	hostname = (char *)lua_tostring(ps, 3);
	29	realname = (char *)lua_tostring(ps, 4);
	30	account = (char *)lua_tostring(ps, 5);
5541f23c CP	31	if(lua_islong(ps, 6)) {
	32	userid = lua_tolong(ps, 6);
	33	} else {
	34	userid = 0;
	35	}
0225bed3	36
5541f23c	37	setflags(&modes, UMODE_ALL, (char *)lua_tostring(ps, 7), umodeflags, REJECT_NONE);
0225bed3 CP	38
	39	if(!lua_lineok(nickname) \|\| !lua_lineok(ident) \|\| !lua_lineok(hostname) \|\| !lua_lineok(realname) \|\| !lua_lineok(account))
	40	return 0;
	41
	42	l = lua_listfromstate(ps);
	43	if(!l)
	44	return 0;
	45
d0e17ef9	46	ln = (lua_localnick *)luamalloc(sizeof(lua_localnick));
0225bed3 CP	47	if(!ln)
	48	return 0;
	49
	50	ln->reconnect = NULL;
	51
5541f23c	52	ln->nick = registerlocaluserflags(nickname, ident, hostname, realname, account, userid, 0, modes, &lua_localnickhandler);
0225bed3	53	if(!ln->nick) {
d0e17ef9	54	luafree(ln);
0225bed3 CP	55	return 0;
	56	}
	57
	58	ln->handler = luaL_ref(ps, LUA_REGISTRYINDEX);
	59
	60	ln->next = l->nicks;
	61	l->nicks = ln;
	62
eda80ef2	63	lua_pushlong(ps, ln->nick->numeric);
0225bed3 CP	64	return 1;
	65	}
	66
	67	void lua_freelocalnick(lua_State ps, lua_localnick l, char *quitm) {
	68	if(l->nick)
	69	deregisterlocaluser(l->nick, quitm);
	70
	71	if(l->reconnect)
	72	deleteschedule(l->reconnect, &lua_reconnectlocal, l);
	73
	74	luaL_unref(ps, LUA_REGISTRYINDEX, l->handler);
	75
d0e17ef9	76	luafree(l);
0225bed3 CP	77	}
	78
	79	int lua_getlocalnickbynick(nick np, lua_list rl, lua_localnick *rln) {
	80	lua_list *l;
	81	lua_localnick *ln;
	82
	83	for(l=lua_head;l;l=l->next)
	84	for(ln=l->nicks;ln;ln=ln->next)
	85	if(ln->nick == np) {
	86	*rl = l;
	87	*rln = ln;
	88	return 1;
	89	}
	90
	91	return 0;
	92	}
	93
	94	static int lua_deregisterlocaluser(lua_State *ps) {
	95	lua_list *l;
	96	lua_localnick l2, lp = NULL;
	97	long numeric;
	98	char *quitm;
	99
	100	if(!lua_islong(ps, 1))
	101	LUA_RETURN(ps, LUA_FAIL);
	102
3f1c5f43 CP	103	numeric = lua_tolong(ps, 1);
3f1c5f43 CP	104
0225bed3 CP	105	quitm = lua_isstring(ps, 2)?(char *)lua_tostring(ps, 2):"localuser unregistered.";
	106
	107	l = lua_listfromstate(ps);
	108
	109	for(l2=l->nicks;l2;lp=l2,l2=l2->next) {
c0088ccb	110	if(l2->nick && l2->nick->numeric == numeric) {
9315931c CP	111	if(lp) {
	112	lp->next = l2->next;
	113	} else {
	114	l->nicks = l2->next;
	115	}
	116
0225bed3 CP	117	lua_freelocalnick(ps, l2, quitm);
	118	LUA_RETURN(ps, LUA_OK);
	119	}
	120	}
	121
	122	LUA_RETURN(ps, LUA_FAIL);
	123	}
	124
	125	void lua_deregisternicks(lua_list *l) {
	126	struct lua_localnick ln, pn;
	127
c0088ccb CP	128	ln = l->nicks;
	129	l->nicks = NULL;
	130	for(;ln;ln=pn) {
0225bed3 CP	131	pn = ln->next;
	132
	133	lua_freelocalnick(l->l, ln, "Script unloaded.");
	134	}
	135
	136	l->nicks = NULL;
	137	}
	138
	139	/* todo */
	140	void lua_localnickhandler(nick target, int type, void *args) {
	141	nick *np;
	142	char *p;
	143	lua_localnick *ln;
	144	lua_list *l;
e8b79634	145	channel *c;
0225bed3 CP	146
	147	if(!lua_getlocalnickbynick(target, &l, &ln))
	148	return;
	149
	150	switch(type) {
	151	case LU_PRIVMSG:
	152	np = (nick *)args[0];
	153	p = (char *)args[1];
	154
	155	if(!np \|\| !p)
	156	return;
	157
	158	lua_vlpcall(l, ln, "irc_onmsg", "Ns", np, p);
b6c4a717 GB	159
	160	break;
	161
	162	case LU_PRIVNOTICE:
	163	np = (nick *)args[0];
	164	p = (char *)args[1];
	165
	166	if(!np \|\| !p)
	167	return;
	168
	169	lua_vlpcall(l, ln, "irc_onnotice", "Ns", np, p);
0225bed3 CP	170
	171	break;
	172
e8b79634 CP	173	case LU_CHANMSG:
	174	np = (nick *)args[0];
	175	c = (channel *)args[1];
	176	p = (char *)args[2];
	177
	178	if(!np \|\| !p \|\| !c \|\| !c->index \|\| !c->index->name \|\| !c->index->name->content)
	179	return;
	180
	181	lua_vlpcall(l, ln, "irc_onchanmsg", "Nss", np, c->index->name->content, p);
	182	break;
	183
0225bed3	184	case LU_KILLED:
980b51af	185	lua_vlpcall(l, ln, "irc_onkilled", "");
0225bed3 CP	186
	187	strlcpy(ln->nickname, target->nick, sizeof(ln->nickname));
	188	strlcpy(ln->ident, target->ident, sizeof(ln->ident));
	189	strlcpy(ln->hostname, target->host->name->content, sizeof(ln->hostname));
	190	strlcpy(ln->realname, target->realname->name->content, sizeof(ln->realname));
	191	strlcpy(ln->account, target->authname, sizeof(ln->account));
	192
	193	ln->umodes = target->umodes;
	194	ln->nick = NULL;
	195
	196	ln->reconnect = scheduleoneshot(time(NULL) + 1, &lua_reconnectlocal, ln);
	197
23518e11 CP	198	break;
	199	case LU_INVITE:
	200	/* we were invited, check if someone invited us to PUBLICCHAN */
	201	np = (nick *)args[0];
	202	c = (channel *)args[1];
	203
10a1d974	204	if(!c \|\| !np \|\| !c->index \|\| !c->index->name)
23518e11 CP	205	return;
	206
	207	lua_vlpcall(l, ln, "irc_oninvite", "Ns", np, c->index->name->content);
0225bed3 CP	208	break;
	209	}
	210	}
	211
	212	void lua_reconnectlocal(void *arg) {
	213	lua_list *l;
	214	lua_localnick ln = (lua_localnick )arg;
	215
	216	ln->nick = registerlocaluser(ln->nickname, ln->ident, ln->hostname, ln->realname, ln->account, ln->umodes, &lua_localnickhandler);
	217	if(!ln->nick) {
	218	ln->reconnect = scheduleoneshot(time(NULL) + 1, &lua_reconnectlocal, ln);
	219	return;
	220	}
	221
	222	ln->reconnect = NULL;
	223
	224	if(lua_getlocalnickbynick(ln->nick, &l, &ln)) /* hacky! */
b02d21cb	225	lua_vlpcall(l, ln, "irc_onkillreconnect", "");
0225bed3 CP	226	}
	227
	228	static int lua_localjoin(lua_State *ps) {
	229	nick *source;
	230	channel *target;
	231	char *chan;
	232
	233	if(!lua_islong(ps, 1) \|\| !lua_isstring(ps, 2))
	234	LUA_RETURN(ps, LUA_FAIL);
	235
	236	source = getnickbynumeric(lua_tolong(ps, 1));
	237	if(!source)
	238	LUA_RETURN(ps, LUA_FAIL);
	239
	240	chan = (char *)lua_tostring(ps, 2);
89b1bd77 CP	241	if(chan[0] != '#')
89b1bd77 CP	242	LUA_RETURN(ps, LUA_FAIL);
0225bed3 CP	243
	244	if(!lua_lineok(chan))
	245	LUA_RETURN(ps, LUA_FAIL);
	246
	247	target = findchannel(chan);
	248	if(target) {
	249	localjoinchannel(source, target);
	250	} else {
e8b79634	251	localcreatechannel(source, chan);
0225bed3 CP	252	}
	253
	254	LUA_RETURN(ps, LUA_OK);
	255	}
	256
b7252b44 CP	257	static int lua_localpart(lua_State *ps) {
	258	nick *source;
	259	channel *target;
d70f70a1	260	char chan, reason;
b7252b44 CP	261
	262	if(!lua_islong(ps, 1) \|\| !lua_isstring(ps, 2))
	263	LUA_RETURN(ps, LUA_FAIL);
	264
	265	source = getnickbynumeric(lua_tolong(ps, 1));
	266	if(!source)
	267	LUA_RETURN(ps, LUA_FAIL);
	268
	269	chan = (char *)lua_tostring(ps, 2);
	270
	271	if(!lua_lineok(chan))
	272	LUA_RETURN(ps, LUA_FAIL);
d70f70a1 CP	273
	274	if(lua_isstring(ps, 3)) {
	275	reason = (char *)lua_tostring(ps, 3);
	276	if(!lua_lineok(reason))
	277	LUA_RETURN(ps, LUA_FAIL);
	278	} else {
	279	reason = NULL;
	280	}
	281
b7252b44 CP	282	target = findchannel(chan);
b7252b44 CP	283	if(target) {
d70f70a1	284	localpartchannel(source, target, reason);
b7252b44 CP	285	} else {
	286	LUA_RETURN(ps, LUA_FAIL);
	287	}
	288
	289	LUA_RETURN(ps, LUA_OK);
	290	}
	291
0225bed3 CP	292	static int lua_localchanmsg(lua_State *ps) {
	293	char *msg;
	294	nick *source;
	295	channel *target;
	296
	297	if(!lua_islong(ps, 1) \|\| !lua_isstring(ps, 2) \|\| !lua_isstring(ps, 3))
	298	LUA_RETURN(ps, LUA_FAIL);
	299
	300	source = getnickbynumeric(lua_tolong(ps, 1));
	301	if(!source)
	302	LUA_RETURN(ps, LUA_FAIL);
	303
	304	target = findchannel((char *)lua_tostring(ps, 2));
	305	if(!target)
	306	LUA_RETURN(ps, LUA_FAIL);
	307
	308	msg = (char *)lua_tostring(ps, 3);
	309
	310	if(!lua_lineok(msg))
	311	LUA_RETURN(ps, LUA_FAIL);
	312
	313	sendmessagetochannel(source, target, "%s", msg);
	314
	315	LUA_RETURN(ps, LUA_OK);
	316	}
	317
babee1a0 CP	318	static int lua_localchanopnotice(lua_State *ps) {
	319	char *msg;
	320	nick *source;
	321	channel *target;
	322
	323	if(!lua_islong(ps, 1) \|\| !lua_isstring(ps, 2) \|\| !lua_isstring(ps, 3))
	324	LUA_RETURN(ps, LUA_FAIL);
	325
	326	source = getnickbynumeric(lua_tolong(ps, 1));
	327	if(!source)
	328	LUA_RETURN(ps, LUA_FAIL);
	329
	330	target = findchannel((char *)lua_tostring(ps, 2));
	331	if(!target)
	332	LUA_RETURN(ps, LUA_FAIL);
	333
	334	msg = (char *)lua_tostring(ps, 3);
	335
	336	if(!lua_lineok(msg))
	337	LUA_RETURN(ps, LUA_FAIL);
	338
	339	sendopnoticetochannel(source, target, "%s", msg);
	340
	341	LUA_RETURN(ps, LUA_OK);
	342	}
	343
0225bed3 CP	344	static int lua_localnotice(lua_State *ps) {
	345	char *msg;
	346	nick *source;
	347	nick *target;
	348
	349	if(!lua_islong(ps, 1) \|\| !lua_islong(ps, 2) \|\| !lua_isstring(ps, 3))
	350	LUA_RETURN(ps, LUA_FAIL);
	351
	352	source = getnickbynumeric(lua_tolong(ps, 1));
	353	if(!source)
	354	LUA_RETURN(ps, LUA_FAIL);
	355
	356	target = getnickbynumeric(lua_tolong(ps, 2));
	357	if(!target)
	358	LUA_RETURN(ps, LUA_FAIL);
	359
	360	msg = (char *)lua_tostring(ps, 3);
	361
	362	if(!lua_lineok(msg))
	363	LUA_RETURN(ps, LUA_FAIL);
	364
	365	sendnoticetouser(source, target, "%s", msg);
	366
	367	LUA_RETURN(ps, LUA_OK);
	368	}
	369
34552caa CP	370	static int lua_localprivmsg(lua_State *ps) {
	371	char *msg;
	372	nick *source;
	373	nick *target;
	374
	375	if(!lua_islong(ps, 1) \|\| !lua_islong(ps, 2) \|\| !lua_isstring(ps, 3))
	376	LUA_RETURN(ps, LUA_FAIL);
	377
	378	source = getnickbynumeric(lua_tolong(ps, 1));
	379	if(!source)
	380	LUA_RETURN(ps, LUA_FAIL);
	381
	382	target = getnickbynumeric(lua_tolong(ps, 2));
	383	if(!target)
	384	LUA_RETURN(ps, LUA_FAIL);
	385
	386	msg = (char *)lua_tostring(ps, 3);
	387
	388	if(!lua_lineok(msg))
	389	LUA_RETURN(ps, LUA_FAIL);
	390
	391	sendmessagetouser(source, target, "%s", msg);
	392
	393	LUA_RETURN(ps, LUA_OK);
	394	}
	395
533af02d CP	396	static int lua_localovmode(lua_State *l) {
533af02d CP	397	nick *source;
ba436ecf	398	channel *chan;
09cb349b	399	int state = 0, add = 0, realmode = 0, ignoring = 0;
533af02d	400	modechanges changes;
ba436ecf	401
533af02d CP	402	if(!lua_islong(l, 1) \|\| !lua_isstring(l, 2) \|\| !lua_istable(l, 3))
533af02d CP	403	LUA_RETURN(l, LUA_FAIL);
ba436ecf	404
533af02d	405	source = getnickbynumeric(lua_tolong(l, 1));
ba436ecf	406	if(!source)
533af02d	407	LUA_RETURN(l, LUA_FAIL);
ba436ecf	408
533af02d	409	chan = findchannel((char *)lua_tostring(l, 2));
ba436ecf	410	if(!chan)
533af02d	411	LUA_RETURN(l, LUA_FAIL);
ba436ecf	412
533af02d	413	localsetmodeinit(&changes, chan, source);
ba436ecf	414
533af02d	415	lua_pushnil(l);
ba436ecf	416
533af02d CP	417	while(lua_next(l, 3)) {
	418	if(state == 0) {
	419	ignoring = 0;
	420
	421	if(!lua_isboolean(l, -1)) {
	422	ignoring = 1;
	423	} else {
	424	add = (int)lua_toboolean(l, -1);
	425	}
	426	} else if((state == 1) && !ignoring) {
	427	if(!lua_isstring(l, -1)) {
	428	ignoring = 1;
	429	} else {
	430	char mode = (char )lua_tostring(l, -1);
	431	if((*mode == 'o') && add) {
	432	realmode = MC_OP;
	433	} else if (*mode == 'o') {
	434	realmode = MC_DEOP;
	435	} else if((*mode == 'v') && add) {
	436	realmode = MC_VOICE;
	437	} else if (*mode == 'v') {
	438	realmode = MC_DEVOICE;
	439	} else {
	440	ignoring = 1;
	441	}
	442	}
	443	} else if((state == 2) && !ignoring) {
	444	if(lua_islong(l, -1)) {
	445	nick *target = getnickbynumeric(lua_tolong(l, -1));
	446	if(target)
	447	localdosetmode_nick(&changes, target, realmode);
	448	}
	449	}
	450
	451	lua_pop(l, 1);
	452
	453	state = (state + 1) % 3;
ba436ecf CP	454	}
ba436ecf CP	455
533af02d	456	localsetmodeflush(&changes, 1);
ba436ecf	457
533af02d	458	LUA_RETURN(l, LUA_OK);
ba436ecf CP	459	}
ba436ecf CP	460
eac66732 CP	461	static int lua_localumodes(lua_State *ps) {
	462	nick *np;
	463	char *modes;
	464	flag_t newmodes = 0;
	465
	466	if(!lua_islong(ps, 1) \|\| !lua_isstring(ps, 2))
	467	LUA_RETURN(ps, LUA_FAIL);
	468
	469	np = getnickbynumeric(lua_tolong(ps, 1));
	470	if(!np)
	471	LUA_RETURN(ps, LUA_FAIL);
	472
	473	modes = (char *)lua_tostring(ps, 2);
	474
	475	setflags(&newmodes, UMODE_ALL, modes, umodeflags, REJECT_NONE);
	476
	477	localusersetumodes(np, newmodes);
	478	LUA_RETURN(ps, LUA_OK);
	479	}
	480
f9f8ee13 CP	481	static int lua_localtopic(lua_State *ps) {
	482	nick *np;
	483	channel *cp;
	484	char *topic;
	485
	486	if(!lua_islong(ps, 1) \|\| !lua_isstring(ps, 2) \|\| !lua_isstring(ps, 3))
	487	LUA_RETURN(ps, LUA_FAIL);
	488
	489	np = getnickbynumeric(lua_tolong(ps, 1));
	490	if(!np)
	491	LUA_RETURN(ps, LUA_FAIL);
	492
	493	cp = findchannel((char *)lua_tostring(ps, 2));
	494	if(!cp)
	495	LUA_RETURN(ps, LUA_FAIL);
	496
	497	topic = (char *)lua_tostring(ps, 3);
	498	if(!topic \|\| !lua_lineok(topic))
	499	LUA_RETURN(ps, LUA_FAIL);
	500
	501	localsettopic(np, cp, topic);
	502
	503	LUA_RETURN(ps, LUA_OK);
	504	}
	505
c0d574fa CP	506	static int lua_localban(lua_State *ps) {
	507	channel *cp;
	508	const char *mask;
	509	modechanges changes;
	510	nick *source;
	511
	512	int dir = MCB_ADD;
	513
	514	if(!lua_islong(ps, 1) \|\| !lua_isstring(ps, 2) \|\| !lua_isstring(ps, 3))
	515	LUA_RETURN(ps, LUA_FAIL);
	516
	517	if(lua_isboolean(ps, 4) && lua_toboolean(ps, 4))
	518	dir = MCB_DEL;
	519
	520	source = getnickbynumeric(lua_tolong(ps, 1));
	521
	522	cp = findchannel((char *)lua_tostring(ps, 2));
	523	if(!cp)
	524	LUA_RETURN(ps, LUA_FAIL);
	525
	526	mask = lua_tostring(ps, 3);
	527	if(!mask \|\| !mask[0] \|\| !lua_lineok(mask))
	528	LUA_RETURN(ps, LUA_FAIL);
	529
	530	localsetmodeinit(&changes, cp, source);
	531	localdosetmode_ban(&changes, mask, dir);
	532	localsetmodeflush(&changes, 1);
	533
	534	LUA_RETURN(ps, LUA_OK);
	535	}
	536
	537	static int lua_localkick(lua_State *ps) {
	538	const char n, msg, *chan;
	539	nick source, np;
	540	channel *cp;
	541	int dochecks = 1;
	542
	543	if(!lua_islong(ps, 1) \|\| !lua_isstring(ps, 2) \|\| !lua_isstring(ps, 3) \|\| !lua_isstring(ps, 4))
	544	LUA_RETURN(ps, LUA_FAIL);
	545
	546	source = getnickbynumeric(lua_tolong(ps, 1));
	547	chan = lua_tostring(ps, 2);
	548	n = lua_tostring(ps, 3);
	549	msg = lua_tostring(ps, 4);
	550	if(!source)
	551	LUA_RETURN(ps, LUA_FAIL);
	552
	553	if(lua_isboolean(ps, 4) && !lua_toboolean(ps, 4))
	554	dochecks = 0;
	555
	556	np = getnickbynick(n);
	557	if(!np)
	558	LUA_RETURN(ps, LUA_FAIL);
	559
	560	if(dochecks && (IsOper(np) \|\| IsXOper(np) \|\| IsService(np)))
	561	LUA_RETURN(ps, LUA_FAIL);
	562
	563	cp = findchannel((char *)chan);
	564	if(!cp)
	565	LUA_RETURN(ps, LUA_FAIL);
	566
	567	if(!lua_lineok(msg))
	568	LUA_RETURN(ps, LUA_FAIL);
	569
570	localkickuser(source, cp, np, msg);
571
572	LUA_RETURN(ps, LUA_OK);
573	}
574
c0088ccb CP	575	static int lua_localrename(lua_State *ps) {
	576	nick *np;
	577	char *changeto;
	578
	579	if(!lua_islong(ps, 1) \|\| !lua_isstring(ps, 2) )
	580	LUA_RETURN(ps, LUA_FAIL);
	581
	582	np = getnickbynumeric(lua_tolong(ps, 1));
	583	changeto = (char *)lua_tostring(ps, 2);
	584
	585	if(!lua_lineok(changeto))
	586	LUA_RETURN(ps, LUA_FAIL);
	587
	588	renamelocaluser(np, changeto);
	589
	590	LUA_RETURN(ps, LUA_OK);
	591	}
	592
e01edd32 CP	593	static int lua_localwallusers(lua_State *ps) {
	594	char *msg;
	595	nick *source;
	596	char senderstr[6];
	597
	598	if(!lua_islong(ps, 1) \|\| !lua_isstring(ps, 2))
	599	LUA_RETURN(ps, LUA_FAIL);
	600
	601	source = getnickbynumeric(lua_tolong(ps, 1));
	602	if(!source)
	603	LUA_RETURN(ps, LUA_FAIL);
	604
	605	msg = (char *)lua_tostring(ps, 2);
	606
	607	if(!lua_lineok(msg))
	608	LUA_RETURN(ps, LUA_FAIL);
	609
	610	longtonumeric2(source->numeric,5,senderstr);
	611	irc_send("%s WU :%s", senderstr, msg);
	612
	613	LUA_RETURN(ps, LUA_OK);
	614	}
	615
	616	static int lua_localwallops(lua_State *ps) {
	617	char *msg;
	618	nick *source;
	619	char senderstr[6];
	620
	621	if(!lua_islong(ps, 1) \|\| !lua_isstring(ps, 2))
	622	LUA_RETURN(ps, LUA_FAIL);
	623
	624	source = getnickbynumeric(lua_tolong(ps, 1));
	625	if(!source)
	626	LUA_RETURN(ps, LUA_FAIL);
	627
	628	msg = (char *)lua_tostring(ps, 2);
	629
	630	if(!lua_lineok(msg))
	631	LUA_RETURN(ps, LUA_FAIL);
	632
	633	longtonumeric2(source->numeric,5,senderstr);
	634	irc_send("%s WA :%s", senderstr, msg);
	635
	636	LUA_RETURN(ps, LUA_OK);
	637	}
	638
3813e9db GB	639	static int lua_localsimplechanmode(lua_State *ps) {
	640	nick *source;
	641	channel *cp;
	642	char *modes;
	643	flag_t add = 0, del = ~add;
	644	flag_t permitted = CHANMODE_NOEXTMSG \| CHANMODE_TOPICLIMIT \| CHANMODE_SECRET \| CHANMODE_PRIVATE \| CHANMODE_INVITEONLY \| CHANMODE_MODERATE \| CHANMODE_NOCOLOUR \| CHANMODE_NOCTCP \| CHANMODE_REGONLY \| CHANMODE_DELJOINS \| CHANMODE_NOQUITMSG \| CHANMODE_NONOTICE \| CHANMODE_MODNOAUTH \| CHANMODE_SINGLETARG;
	645	modechanges changes;
	646
	647	if(!lua_islong(ps, 1) \|\| !lua_isstring(ps, 2) \|\| !lua_isstring(ps, 3))
	648	LUA_RETURN(ps, LUA_FAIL);
	649
	650	source = getnickbynumeric(lua_tolong(ps, 1));
	651	if(!source)
	652	LUA_RETURN(ps, LUA_FAIL);
	653
	654	cp = findchannel((char *)lua_tostring(ps, 2));
	655	if(!cp)
	656	LUA_RETURN(ps, LUA_FAIL);
	657
	658	modes = (char *)lua_tostring(ps, 3);
	659	if(!modes)
	660	LUA_RETURN(ps, LUA_FAIL);
	661
	662	if(setflags(&add, permitted, modes, cmodeflags, REJECT_DISALLOWED\|REJECT_UNKNOWN) != REJECT_NONE)
	663	LUA_RETURN(ps, LUA_FAIL);
	664
	665	if(setflags(&del, permitted, modes, cmodeflags, REJECT_DISALLOWED\|REJECT_UNKNOWN) != REJECT_NONE)
	666	LUA_RETURN(ps, LUA_FAIL);
	667
	668	localsetmodeinit(&changes, cp, source);
	669	localdosetmode_simple(&changes, add, ~del);
	670	localsetmodeflush(&changes, 1);
	671
	672	LUA_RETURN(ps, LUA_OK);
	673	}
	674
0225bed3	675	void lua_registerlocalcommands(lua_State *l) {
5541f23c	676	lua_register(l, "irc_localregisteruserid", lua_registerlocaluserid);
0225bed3 CP	677	lua_register(l, "irc_localderegisteruser", lua_deregisterlocaluser);
0225bed3 CP	678	lua_register(l, "irc_localjoin", lua_localjoin);
b7252b44	679	lua_register(l, "irc_localpart", lua_localpart);
0225bed3 CP	680	lua_register(l, "irc_localchanmsg", lua_localchanmsg);
0225bed3 CP	681	lua_register(l, "irc_localnotice", lua_localnotice);
34552caa	682	lua_register(l, "irc_localprivmsg", lua_localprivmsg);
ba436ecf CP	683
ba436ecf CP	684	lua_register(l, "irc_localovmode", lua_localovmode);
f9f8ee13	685	lua_register(l, "irc_localtopic", lua_localtopic);
ba436ecf	686
c0d574fa CP	687	lua_register(l, "irc_localban", lua_localban);
c0d574fa CP	688	lua_register(l, "irc_localkick", lua_localkick);
eac66732	689	lua_register(l, "irc_localumodes", lua_localumodes);
c0088ccb CP	690
c0088ccb CP	691	lua_register(l, "irc_localrename", lua_localrename);
e01edd32 CP	692
	693	lua_register(l, "irc_localwallusers", lua_localwallusers);
	694	lua_register(l, "irc_localwallops", lua_localwallops);
3813e9db GB	695
3813e9db GB	696	lua_register(l, "irc_localsimplechanmode", lua_localsimplechanmode);
babee1a0	697	lua_register(l, "irc_localchanopnotice", lua_localchanopnotice);
0225bed3 CP	698	}
0225bed3 CP	699