plexus3.c

Go to the documentation of this file.

/* PlexusIRCD IRCD functions
 *
 * (C) 2003-2007 Anope Team
 * Contact us at info@anope.org
 *
 * Please read COPYING and README for furhter details.
 *
 * Based on the original code of Epona by Lara.
 * Based on the original code of Services by Andy Church.
 */

#include "services.h"
#include "pseudo.h"
#include "plexus3.h"

IRCDVar myIrcd[] = {
  {"hybrid-7.2.1+plexus-3.0.0+",/* ircd name */
   "+i",            /* nickserv mode */
   "+i",            /* chanserv mode */
   "+i",            /* memoserv mode */
   "+i",            /* hostserv mode */
   "+oai",          /* operserv mode */
   "+i",            /* botserv mode  */
   "+i",            /* helpserv mode */
   "+i",            /* Dev/Null mode */
   "+i",            /* Global mode   */
   "+i",            /* nickserv alias mode */
   "+i",            /* chanserv alias mode */
   "+i",            /* memoserv alias mode */
   "+i",            /* hostserv alias mode */
   "+oai",          /* operserv alias mode */
   "+i",            /* botserv alias mode  */
   "+i",            /* helpserv alias mode */
   "+i",            /* Dev/Null alias mode */
   "+i",            /* Global alias mode   */
   "+i",            /* Used by BotServ Bots */
   5,               /* Chan Max Symbols     */
   "-cilmnpstBMNORS",       /* Modes to Remove */
   "+ao",           /* Channel Umode used by Botserv bots */
   1,               /* SVSNICK */
   1,               /* Vhost  */
   1,               /* Has Owner */
   "+q",            /* Mode to set for an owner */
   "-q",            /* Mode to unset for an owner */
   "+a",            /* Mode to set for chan admin */
   "-a",            /* Mode to unset for chan admin */
   "+rd",           /* Mode On Reg          */
   "N",                         /* Mode on ID for Roots */
   NULL,                        /* Mode on ID for Admins */
   NULL,                        /* Mode on ID for Opers */
   "-r+d",          /* Mode on UnReg        */
   "+d",            /* Mode on Nick Change  */
   1,               /* Supports SGlines     */
   1,               /* Supports SQlines     */
   0,               /* Supports SZlines     */
   1,               /* Supports Halfop +h   */
   3,               /* Number of server args */
   0,               /* Join 2 Set           */
   0,               /* Join 2 Message       */
   1,               /* Has exceptions +e    */
   0,               /* TS Topic Forward     */
   0,               /* TS Topci Backward    */
   UMODE_N,         /* Protected Umode      */
   0,               /* Has Admin            */
   1,               /* Chan SQlines         */
   0,               /* Quit on Kill         */
   0,               /* SVSMODE unban        */
   1,               /* Has Protect          */
   0,               /* Reverse              */
   0,               /* Chan Reg             */
   0,               /* Channel Mode         */
   0,               /* vidents              */
   1,               /* svshold              */
   1,               /* time stamp on mode   */
   0,               /* NICKIP               */
   0,               /* O:LINE               */
   1,               /* UMODE                */
   1,               /* VHOST ON NICK        */
   0,               /* Change RealName      */
   CMODE_p,         /* No Knock             */
   0,               /* Admin Only           */
   DEFAULT_MLOCK,       /* Default MLOCK        */
   UMODE_x,         /* Vhost Mode           */
   0,               /* +f                   */
   0,               /* +L                   */
   0,               /* +f Mode                          */
   0,               /* +L Mode                              */
   1,               /* On nick change check if they could be identified */
   0,               /* No Knock requires +i */
   NULL,            /* CAPAB Chan Modes             */
   0,               /* We support TOKENS */
   1,               /* TOKENS are CASE inSensitive */
   0,               /* TIME STAMPS are BASE64 */
   1,               /* +I support */
   0,               /* SJOIN ban char */
   0,               /* SJOIN except char */
   0,               /* SJOIN invite char */
   0,               /* Can remove User Channel Modes with SVSMODE */
   0,               /* Sglines are not enforced until user reconnects */
   "x",             /* vhost char */
   0,               /* ts6 */
   0,               /* support helper umode */
   0,               /* p10 */
   NULL,            /* character set */
   1,               /* reports sync state */
   }
  ,
  {NULL}
};

IRCDCAPAB myIrcdcap[] = {
  {
   0,               /* NOQUIT       */
   0,               /* TSMODE       */
   0,               /* UNCONNECT    */
   0,               /* NICKIP       */
   0,               /* SJOIN        */
   CAPAB_ZIP,           /* ZIP          */
   0,               /* BURST        */
   CAPAB_TS5,           /* TS5          */
   0,               /* TS3          */
   0,               /* DKEY         */
   0,               /* PT4          */
   0,               /* SCS          */
   CAPAB_QS,            /* QS           */
   CAPAB_UID,           /* UID          */
   CAPAB_KNOCK,         /* KNOCK        */
   0,               /* CLIENT       */
   0,               /* IPV6         */
   0,               /* SSJ5         */
   0,               /* SN2          */
   0,               /* TOKEN        */
   0,               /* VHOST        */
   0,               /* SSJ3         */
   0,               /* NICK2        */
   0,               /* UMODE2       */
   0,               /* VL           */
   0,               /* TLKEXT       */
   0,               /* DODKEY       */
   0,               /* DOZIP        */
   0, 0, 0}
};



void
plexus_set_umode (User * user, int ac, char **av)
{
  int add = 1;          /* 1 if adding modes, 0 if deleting */
  char *modes = av[0];

  ac--;

  if (debug)
    alog ("debug: Changing mode for %s to %s", user->nick, modes);

  while (*modes)
    {

      /* This looks better, much better than "add ? (do_add) : (do_remove)".
       * At least this is readable without paying much attention :) -GD
       */
      if (add)
    user->mode |= umodes[(int) *modes];
      else
    user->mode &= ~umodes[(int) *modes];

      switch (*modes++)
    {
    case '+':
      add = 1;
      break;
    case '-':
      add = 0;
      break;
    case 'd':
      if (ac == 0)
        {
          alog ("user: umode +d with no parameter (?) for user %s",
            user->nick);
          break;
        }

      ac--;
      av++;
      user->svid = strtoul (*av, NULL, 0);
      break;
    case 'x':
      update_host (user);
      break;
    case 'o':
      if (add)
        {
          opcnt++;

          if (WallOper)
        anope_cmd_global (s_OperServ,
                  "\2%s\2 is now an IRC operator.",
                  user->nick);
          display_news (user, NEWS_OPER);

        }
      else
        {
          opcnt--;
        }
      break;
    case 'r':
      if (add && !nick_identified (user))
        {
          common_svsmode (user, "-r", NULL);
          user->mode &= ~UMODE_r;
        }
      break;
    }
    }
}

unsigned long umodes[128] = {
  0, 0, 0,          /* Unused */
  0, 0, 0,          /* Unused */
  0, 0, 0,          /* Unused, Unused, Horzontal Tab */
  0, 0, 0,          /* Line Feed, Unused, Unused */
  0, 0, 0,          /* Carriage Return, Unused, Unused */
  0, 0, 0,          /* Unused */
  0, 0, 0,          /* Unused */
  0, 0, 0,          /* Unused */
  0, 0, 0,          /* Unused */
  0, 0, 0,          /* Unused */
  0, 0, 0,          /* Unused, Unused, Space */
  0, 0, 0,          /* ! " #  */
  0, 0, 0,          /* $ % &  */
  0, 0, 0,          /* ! ( )  */
  0, 0, 0,          /* * + ,  */
  0, 0, 0,          /* - . /  */
  0, 0,             /* 0 1 */
  0, 0,             /* 2 3 */
  0, 0,             /* 4 5 */
  0, 0,             /* 6 7 */
  0, 0,             /* 8 9 */
  0, 0,             /* : ; */
  0, 0, 0,          /* < = > */
  0, 0,             /* ? @ */
  0, 0, 0,          /* A B C */
  0, 0, 0,          /* D E F */
  0, 0, 0,          /* G H I */
  0, 0, 0,          /* J K L */
  0, UMODE_N, 0,        /* M N O */
  0, 0, UMODE_R,        /* P Q R */
  UMODE_S, 0, 0,        /* S T U */
  0, 0, 0,          /* V W X */
  0,                /* Y */
  0,                /* Z */
  0, 0, 0,          /* [ \ ] */
  0, 0, 0,          /* ^ _ ` */
  UMODE_a, 0, 0,        /* a b c */
  0, 0, 0,          /* d e f */
  0, 0, UMODE_i,        /* g h i */
  0, 0, 0,          /* j k l */
  0, 0, UMODE_o,        /* m n o */
  0, 0, UMODE_r,        /* p q r */
  0, 0, 0,          /* s t u */
  0, UMODE_w, UMODE_x,      /* v w x */
  0,                /* y */
  0,                /* z */
  0, 0, 0,          /* { | } */
  0, 0              /* ~ ‚ */
};


char myCsmodes[128] = {
  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,

  0,
  0,
  0, 0, 0,
  'h',                  /* (37) % Channel halfops */
  'a',
  0, 0, 0, 0,

  'v', 0, 0, 0, 0,
  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,

  'o', 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,

  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 'q', 0
};

CMMode myCmmodes[128] = {
  {NULL}, {NULL}, {NULL},
  {NULL}, {NULL}, {NULL},
  {NULL}, {NULL}, {NULL},
  {NULL}, {NULL}, {NULL},
  {NULL}, {NULL}, {NULL},
  {NULL}, {NULL}, {NULL},
  {NULL}, {NULL}, {NULL},
  {NULL}, {NULL}, {NULL},
  {NULL}, {NULL}, {NULL},
  {NULL}, {NULL}, {NULL},
  {NULL}, {NULL}, {NULL},
  {NULL}, {NULL}, {NULL},
  {NULL}, {NULL}, {NULL},
  {NULL}, {NULL}, {NULL},
  {NULL}, {NULL}, {NULL},
  {NULL}, {NULL}, {NULL},
  {NULL}, {NULL}, {NULL},
  {NULL}, {NULL}, {NULL},
  {NULL}, {NULL}, {NULL},
  {NULL}, {NULL}, {NULL},
  {NULL}, {NULL}, {NULL},
  {NULL}, {NULL}, {NULL},
  {NULL}, {NULL}, {NULL},   /* BCD */
  {NULL}, {NULL}, {NULL},   /* EFG */
  {NULL},           /* H */
  {add_invite, del_invite},
  {NULL},           /* J */
  {NULL}, {NULL}, {NULL},   /* KLM */
  {NULL}, {NULL}, {NULL},   /* NOP */
  {NULL}, {NULL}, {NULL},   /* QRS */
  {NULL}, {NULL}, {NULL},   /* TUV */
  {NULL}, {NULL}, {NULL},   /* WXY */
  {NULL},           /* Z */
  {NULL}, {NULL},       /* (char 91 - 92) */
  {NULL}, {NULL}, {NULL},   /* (char 93 - 95) */
  {NULL},           /* ` (char 96) */
  {NULL},           /* a (char 97) */
  {add_ban, del_ban},
  {NULL},
  {NULL},
  {add_exception, del_exception},
  {NULL},
  {NULL},
  {NULL}, {NULL}, {NULL}, {NULL}, {NULL}, {NULL}, {NULL}, {NULL},
  {NULL}, {NULL}, {NULL}, {NULL}, {NULL}, {NULL}, {NULL}, {NULL},
  {NULL}, {NULL}, {NULL}, {NULL}, {NULL}, {NULL}, {NULL}, {NULL}
};


CBMode myCbmodes[128] = {
  {0}, {0}, {0}, {0}, {0}, {0}, {0}, {0},
  {0}, {0}, {0}, {0}, {0}, {0}, {0}, {0},
  {0}, {0}, {0}, {0}, {0}, {0}, {0}, {0},
  {0}, {0}, {0}, {0}, {0}, {0}, {0}, {0},
  {0}, {0}, {0}, {0}, {0}, {0}, {0}, {0},
  {0}, {0}, {0}, {0}, {0}, {0}, {0}, {0},
  {0}, {0}, {0}, {0}, {0}, {0}, {0}, {0},
  {0}, {0}, {0}, {0}, {0}, {0}, {0}, {0},
  {0},
  {0},              /* A */
  {CMODE_B, CBM_NO_USER_MLOCK, NULL, NULL}, /* B */
  {0},              /* C */
  {0},              /* D */
  {0},              /* E */
  {0},              /* F */
  {0},              /* G */
  {0},              /* H */
  {0},              /* I */
  {0},              /* J */
  {0},              /* K */
  {0},              /* L */
  {CMODE_M, 0, NULL, NULL}, /* M */
  {CMODE_N, 0, NULL, NULL}, /* N */
  {CMODE_O, CBM_NO_USER_MLOCK, NULL, NULL}, /* O */
  {0},              /* P */
  {0},              /* Q */
  {CMODE_R, 0, NULL, NULL}, /* R */
  {CMODE_S, 0, NULL, NULL}, /* S */
  {0},              /* T */
  {0},              /* U */
  {0},              /* V */
  {0},              /* W */
  {0},              /* X */
  {0},              /* Y */
  {0},              /* Z */
  {0}, {0}, {0}, {0}, {0}, {0},
  {0},              /* a */
  {0},              /* b */
  {CMODE_c, 0, NULL, NULL}, /* c */
  {0},              /* d */
  {0},              /* e */
  {0},              /* f */
  {0},              /* g */
  {0},              /* h */
  {CMODE_i, 0, NULL, NULL},
  {0},              /* j */
  {CMODE_k, 0, chan_set_key, cs_set_key},
  {CMODE_l, CBM_MINUS_NO_ARG, set_limit, cs_set_limit},
  {CMODE_m, 0, NULL, NULL},
  {CMODE_n, 0, NULL, NULL},
  {0},              /* o */
  {CMODE_p, 0, NULL, NULL},
  {0},              /* q */
  {0},
  {CMODE_s, 0, NULL, NULL},
  {CMODE_t, 0, NULL, NULL},
  {0},
  {0},              /* v */
  {0},              /* w */
  {0},              /* x */
  {0},              /* y */
  {0},              /* z */
  {0}, {0}, {0}, {0}
};

CBModeInfo myCbmodeinfos[] = {
  {'c', CMODE_c, 0, NULL, NULL},
  {'i', CMODE_i, 0, NULL, NULL},
  {'k', CMODE_k, 0, get_key, cs_get_key},
  {'l', CMODE_l, CBM_MINUS_NO_ARG, get_limit, cs_get_limit},
  {'m', CMODE_m, 0, NULL, NULL},
  {'n', CMODE_n, 0, NULL, NULL},
  {'p', CMODE_p, 0, NULL, NULL},
  {'s', CMODE_s, 0, NULL, NULL},
  {'t', CMODE_t, 0, NULL, NULL},
  {'B', CMODE_B, 0, NULL, NULL},
  {'M', CMODE_M, 0, NULL, NULL},
  {'N', CMODE_N, 0, NULL, NULL},
  {'O', CMODE_O, 0, NULL, NULL},
  {'R', CMODE_R, 0, NULL, NULL},
  {'S', CMODE_S, 0, NULL, NULL},
  {0}
};


CUMode myCumodes[128] = {
  {0}, {0}, {0}, {0}, {0}, {0}, {0}, {0},
  {0}, {0}, {0}, {0}, {0}, {0}, {0}, {0},
  {0}, {0}, {0}, {0}, {0}, {0}, {0}, {0},
  {0}, {0}, {0}, {0}, {0}, {0}, {0}, {0},

  {0}, {0}, {0}, {0}, {0}, {0}, {0}, {0},
  {0}, {0}, {0}, {0}, {0}, {0}, {0}, {0},
  {0}, {0}, {0}, {0}, {0}, {0}, {0}, {0},
  {0}, {0}, {0}, {0}, {0}, {0}, {0}, {0},

  {0}, {0}, {0}, {0}, {0}, {0}, {0}, {0},
  {0}, {0}, {0}, {0}, {0}, {0}, {0}, {0},
  {0}, {0}, {0}, {0}, {0}, {0}, {0}, {0},
  {0}, {0}, {0}, {0}, {0}, {0}, {0}, {0},

  {0},

  {CUS_PROTECT, CUF_PROTECT_BOTSERV, check_valid_op},
  {0},              /* b */
  {0},              /* c */
  {0},              /* d */
  {0},              /* e */
  {0},              /* f */
  {0},              /* g */
  {CUS_HALFOP, 0, check_valid_op},
  {0},              /* i */
  {0},              /* j */
  {0},              /* k */
  {0},              /* l */
  {0},              /* m */
  {0},              /* n */
  {CUS_OP, CUF_PROTECT_BOTSERV, check_valid_op},
  {0},              /* p */
  {CUS_OWNER, 0, check_valid_op}, /* q */
  {0},              /* r */
  {0},              /* s */
  {0},              /* t */
  {0},              /* u */
  {CUS_VOICE, 0, NULL},
  {0},              /* w */
  {0},              /* x */
  {0},              /* y */
  {0},              /* z */
  {0}, {0}, {0}, {0}, {0}
};



void
plexus_cmd_notice (char *source, char *dest, char *buf)
{
  if (!buf)
    {
      return;
    }

  if (NSDefFlags & NI_MSG)
    {
      plexus_cmd_privmsg2 (source, dest, buf);
    }
  else
    {
      send_cmd (source, "NOTICE %s :%s", dest, buf);
    }
}

void
plexus_cmd_notice2 (char *source, char *dest, char *msg)
{
  send_cmd (source, "NOTICE %s :%s", dest, msg);
}

void
plexus_cmd_privmsg (char *source, char *dest, char *buf)
{
  if (!buf)
    {
      return;
    }

  send_cmd (source, "PRIVMSG %s :%s", dest, buf);
}

void
plexus_cmd_privmsg2 (char *source, char *dest, char *msg)
{
  send_cmd (source, "PRIVMSG %s :%s", dest, msg);
}

void
plexus_cmd_serv_notice (char *source, char *dest, char *msg)
{
  send_cmd (source, "NOTICE $$%s :%s", dest, msg);
}

void
plexus_cmd_serv_privmsg (char *source, char *dest, char *msg)
{
  send_cmd (source, "PRIVMSG $$%s :%s", dest, msg);
}


void
plexus_cmd_global (char *source, char *buf)
{
  if (!buf)
    {
      return;
    }

  send_cmd (source ? source : ServerName, "OPERWALL :%s", buf);
}

/* GLOBOPS - to handle old WALLOPS */
void
plexus_cmd_global_legacy (char *source, char *fmt)
{
  send_cmd (source ? source : ServerName, "OPERWALL :%s", fmt);
}

int
anope_event_sjoin (char *source, int ac, char **av)
{
  do_sjoin (source, ac, av);
  return MOD_CONT;
}

int
anope_event_nick (char *source, int ac, char **av)
{
  if (ac != 2)
    {
      User *user = do_nick (source, av[0], av[4], av[8], av[6], av[9],
                strtoul (av[2], NULL, 10),
                strtoul (av[7], NULL, 0), 0, av[5], NULL);
      if (user)
    anope_set_umode (user, 1, &av[3]);
    }
  else
    {
      do_nick (source, av[0], NULL, NULL, NULL, NULL,
           strtoul (av[1], NULL, 10), 0, 0, NULL, NULL);
    }
  return MOD_CONT;
}

int
anope_event_topic (char *source, int ac, char **av)
{
  if (ac == 4)
    {
      do_topic (source, ac, av);
    }
  else
    {
      Channel *c = findchan (av[0]);
      time_t topic_time = time (NULL);

      if (!c)
    {
      if (debug)
        {
          alog ("debug: TOPIC %s for nonexistent channel %s",
            merge_args (ac - 1, av + 1), av[0]);
        }
      return MOD_CONT;
    }

      if (check_topiclock (c, topic_time))
    return MOD_CONT;

      if (c->topic)
    {
      free (c->topic);
      c->topic = NULL;
    }
      if (ac > 1 && *av[1])
    c->topic = sstrdup (av[1]);

      strscpy (c->topic_setter, source, sizeof (c->topic_setter));
      c->topic_time = topic_time;

      record_topic (av[0]);
      
      if (ac > 1 && *av[1])
          send_event(EVENT_TOPIC_UPDATED, 2, av[0], av[1]);
      else
          send_event(EVENT_TOPIC_UPDATED, 2, av[0], "");
              
    }
  return MOD_CONT;
}

int
anope_event_tburst (char *source, int ac, char **av)
{
  if (ac != 5)
    return MOD_CONT;

  av[0] = av[1];
  av[1] = av[3];
  av[3] = av[4];
  do_topic (source, 4, av);
  return MOD_CONT;
}

/*
 * ENCAP handler
 * av[0] = servermask (not used)
 * av[1] = command
 * av[2] and beyond are dynamic.
 */
int
anope_event_encap (char *source, int ac, char **av)
{
  if (ac < 2)
    return MOD_CONT;

  if (!stricmp (av[1], "CHGHOST"))
    {
      User *u;

      if (ac != 4)
    return MOD_CONT;

      u = finduser (av[2]);
      if (!u)
    {
      if (debug)
        {
          alog ("debug: CHGHOST for nonexistent user %s", av[2]);
        }
      return MOD_CONT;
    }

      change_user_host (u, av[3]);
      return MOD_CONT;
    }
  return MOD_CONT;
}

int
anope_event_436 (char *source, int ac, char **av)
{
  if (ac < 1)
    return MOD_CONT;

  m_nickcoll (av[0]);
  return MOD_CONT;
}


void
moduleAddIRCDMsgs (void)
{
  Message *m;

  updateProtectDetails("PROTECT","PROTECTME","protect","deprotect","AUTOPROTECT","+a","-a");

  m = createMessage ("401", anope_event_null);
  addCoreMessage (IRCD, m);
  m = createMessage ("402", anope_event_null);
  addCoreMessage (IRCD, m);
  m = createMessage ("436", anope_event_436);
  addCoreMessage (IRCD, m);
  m = createMessage ("AWAY", anope_event_away);
  addCoreMessage (IRCD, m);
  m = createMessage ("INVITE", anope_event_invite);
  addCoreMessage (IRCD, m);
  m = createMessage ("JOIN", anope_event_join);
  addCoreMessage (IRCD, m);
  m = createMessage ("KICK", anope_event_kick);
  addCoreMessage (IRCD, m);
  m = createMessage ("KILL", anope_event_kill);
  addCoreMessage (IRCD, m);
  m = createMessage ("MODE", anope_event_mode);
  addCoreMessage (IRCD, m);
  m = createMessage ("MOTD", anope_event_motd);
  addCoreMessage (IRCD, m);
  m = createMessage ("NICK", anope_event_nick);
  addCoreMessage (IRCD, m);
  m = createMessage ("NOTICE", anope_event_notice);
  addCoreMessage (IRCD, m);
  m = createMessage ("PART", anope_event_part);
  addCoreMessage (IRCD, m);
  m = createMessage ("PASS", anope_event_pass);
  addCoreMessage (IRCD, m);
  m = createMessage ("PING", anope_event_ping);
  addCoreMessage (IRCD, m);
  m = createMessage ("PRIVMSG", anope_event_privmsg);
  addCoreMessage (IRCD, m);
  m = createMessage ("QUIT", anope_event_quit);
  addCoreMessage (IRCD, m);
  m = createMessage ("SERVER", anope_event_server);
  addCoreMessage (IRCD, m);
  m = createMessage ("SQUIT", anope_event_squit);
  addCoreMessage (IRCD, m);
  m = createMessage ("TOPIC", anope_event_topic);
  addCoreMessage (IRCD, m);
  m = createMessage ("TBURST", anope_event_tburst);
  addCoreMessage (IRCD, m);
  m = createMessage ("USER", anope_event_null);
  addCoreMessage (IRCD, m);
  m = createMessage ("WALLOPS", anope_event_null);
  addCoreMessage (IRCD, m);
  m = createMessage ("WHOIS", anope_event_whois);
  addCoreMessage (IRCD, m);
  m = createMessage ("CAPAB", anope_event_capab);
  addCoreMessage (IRCD, m);
  m = createMessage ("SJOIN", anope_event_sjoin);
  addCoreMessage (IRCD, m);
  m = createMessage ("SVINFO", anope_event_svinfo);
  addCoreMessage (IRCD, m);
  m = createMessage ("EOB", anope_event_eob);
  addCoreMessage (IRCD, m);
  m = createMessage ("ADMIN", anope_event_admin);
  addCoreMessage (IRCD, m);
  m = createMessage ("ERROR", anope_event_error);
  addCoreMessage (IRCD, m);
  m = createMessage ("ENCAP", anope_event_encap);
  addCoreMessage (IRCD, m);
  m = createMessage ("SVSMODE", anope_event_mode);
  addCoreMessage (IRCD, m);
}

void
plexus_cmd_sqline (char *mask, char *reason)
{
  send_cmd (s_OperServ, "RESV * %s :%s", mask, reason);
}

void
plexus_cmd_unsgline (char *mask)
{
  send_cmd (s_OperServ, "UNXLINE * %s", mask);
}

void
plexus_cmd_unszline (char *mask)
{
  /* Does not support */
}

void
plexus_cmd_szline (char *mask, char *reason, char *whom)
{
  /* Does not support */
}

void
plexus_cmd_svsnoop (char *server, int set)
{
  send_cmd(ServerName, "ENCAP %s SVSNOOP %s",
           server, (set ? "+" : "-"));
}

void
plexus_cmd_svsadmin (char *server, int set)
{
  plexus_cmd_svsnoop (server, set);
}

void
plexus_cmd_sgline (char *mask, char *reason)
{
  send_cmd (s_OperServ, "XLINE * %s 0 :%s", mask, reason);
}

void
plexus_cmd_remove_akill (char *user, char *host)
{
  send_cmd (s_OperServ, "UNKLINE * %s %s", user, host);
}

void
plexus_cmd_topic (char *whosets, char *chan, char *whosetit,
          char *topic, time_t when)
{
  send_cmd (whosets, "ENCAP * TOPIC %s %s %lu :%s", chan, whosetit,
        (unsigned long int) when, topic);
}

void
plexus_cmd_vhost_off (User * u)
{
  common_svsmode (u, "-x", NULL);
}

void
plexus_cmd_vhost_on (char *nick, char *vIdent, char *vhost)
{
  User *u;

  if (!nick)
    {
      return;
    }

  u = finduser (nick);

  if (u)
    {
      send_cmd (ServerName, "ENCAP * CHGHOST %s %s", u->nick, vhost);
      common_svsmode (u, "+x", NULL);
      u->mode |= UMODE_x;
    }
}

void
plexus_cmd_unsqline (char *user)
{
  send_cmd (s_OperServ, "UNRESV * %s", user);
}

void
plexus_cmd_join (char *user, char *channel, time_t chantime)
{
  send_cmd (ServerName, "SJOIN %ld %s + :%s", (long int) chantime, channel,
        user);
}

/*
oper:       the nick of the oper performing the kline
target.server:  the server(s) this kline is destined for
duration:   the duration if a tkline, 0 if permanent.
user:       the 'user' portion of the kline
host:       the 'host' portion of the kline
reason:     the reason for the kline.
*/

void
plexus_cmd_akill (char *user, char *host, char *who, time_t when,
          time_t expires, char *reason)
{
  send_cmd (s_OperServ, "KLINE * %ld %s %s :%s",
        (long int) (expires - (long) time (NULL)), user, host, reason);
}

void
plexus_cmd_svskill (char *source, char *user, char *buf)
{
  if (!buf)
    {
      return;
    }

  if (!source || !user)
    {
      return;
    }

  send_cmd (source, "KILL %s :%s", user, buf);
}

void
plexus_cmd_svsmode (User * u, int ac, char **av)
{
  send_cmd (ServerName, "ENCAP * SVSMODE %s %ld %s%s%s", u->nick,
        (long int) u->timestamp, av[0], (ac == 2 ? " " : ""),
        (ac == 2 ? av[1] : ""));
}

/*
 * SVINFO
 *      parv[0] = sender prefix
 *      parv[1] = TS_CURRENT for the server
 *      parv[2] = TS_MIN for the server
 *      parv[3] = server is standalone or connected to non-TS only
 *      parv[4] = server's idea of UTC time
 */
void
plexus_cmd_svinfo ()
{
  send_cmd (NULL, "SVINFO 5 5 0 :%ld", (long int) time (NULL));
}

/* CAPAB */
/*
  QS     - Can handle quit storm removal
  EX     - Can do channel +e exemptions 
  CHW    - Can do channel wall @#
  LL     - Can do lazy links 
  IE     - Can do invite exceptions 
  EOB    - Can do EOB message
  KLN    - Can do KLINE message 
  GLN    - Can do GLINE message 
  HOPS   - can do half ops (+h)
  HUB    - This server is a HUB 
  AOPS   - Can do anon ops (+a) 
  UID    - Can do UIDs
  ZIP    - Can do ZIPlinks
  ENC    - Can do ENCrypted links 
  KNOCK  -  supports KNOCK 
  TBURST - supports TBURST
  PARA   - supports invite broadcasting for +p
  ENCAP  - supports encapsulization of protocol messages
  SVS    - supports services protocol extensions
*/
void
plexus_cmd_capab ()
{
  send_cmd (NULL,
        "CAPAB :QS EX CHW IE EOB KLN UNKLN GLN HUB KNOCK TBURST PARA ENCAP SVS");
}

/* PASS */
void
plexus_cmd_pass (char *pass)
{
  send_cmd (NULL, "PASS %s :TS", pass);
}

/* SERVER name hop descript */
void
plexus_cmd_server (char *servname, int hop, char *descript)
{
  send_cmd (NULL, "SERVER %s %d :%s", servname, hop, descript);
}

void
plexus_cmd_connect (int servernum)
{
  me_server = new_server (NULL, ServerName, ServerDesc, SERVER_ISME, NULL);

  if (servernum == 1)
    plexus_cmd_pass (RemotePassword);
  else if (servernum == 2)
    plexus_cmd_pass (RemotePassword2);
  else if (servernum == 3)
    plexus_cmd_pass (RemotePassword3);

  plexus_cmd_capab ();
  plexus_cmd_server (ServerName, 1, ServerDesc);
  plexus_cmd_svinfo ();
}

void
plexus_cmd_svsinfo ()
{
  /* not used */
}



void
plexus_cmd_bot_nick (char *nick, char *user, char *host, char *real,
             char *modes)
{
  EnforceQlinedNick (nick, NULL);
  send_cmd (ServerName, "NICK %s 1 %ld %s %s %s %s 0 %s :%s", nick,
        (long int) time (NULL), modes, user, host, ServerName, host,
        real);
  plexus_cmd_sqline (nick, "Reserved for services");

}

void
plexus_cmd_part (char *nick, char *chan, char *buf)
{
  if (buf)
    {
      send_cmd (nick, "PART %s :%s", chan, buf);
    }
  else
    {
      send_cmd (nick, "PART %s", chan);
    }
}

int
anope_event_ping (char *source, int ac, char **av)
{
  if (ac < 1)
    return MOD_CONT;
  plexus_cmd_pong (ac > 1 ? av[1] : ServerName, av[0]);
  return MOD_CONT;
}

int
anope_event_away (char *source, int ac, char **av)
{
  if (!source)
    {
      return MOD_CONT;
    }
  m_away (source, (ac ? av[0] : NULL));
  return MOD_CONT;
}

int
anope_event_kill (char *source, int ac, char **av)
{
  if (ac != 2)
    return MOD_CONT;

  m_kill (av[0], av[1]);
  return MOD_CONT;
}

int
anope_event_kick (char *source, int ac, char **av)
{
  if (ac != 3)
    return MOD_CONT;
  do_kick (source, ac, av);
  return MOD_CONT;
}

int
anope_event_eob (char *source, int ac, char **av)
{
  Server *s;
  s = findserver (servlist, source);
  /* If we found a server with the given source, that one just
   * finished bursting. If there was no source, then our uplink
   * server finished bursting. -GD
   */
  if (!s && serv_uplink)
    s = serv_uplink;
  finish_sync (s, 1);

  return MOD_CONT;
}

void
plexus_cmd_eob ()
{
  send_cmd (ServerName, "EOB");
}


int
anope_event_join (char *source, int ac, char **av)
{
  if (ac != 1)
    return MOD_CONT;
  do_join (source, ac, av);
  return MOD_CONT;
}

int
anope_event_motd (char *source, int ac, char **av)
{
  if (!source)
    {
      return MOD_CONT;
    }

  m_motd (source);
  return MOD_CONT;
}

int
anope_event_privmsg (char *source, int ac, char **av)
{
  if (ac != 2)
    return MOD_CONT;
  m_privmsg (source, av[0], av[1]);
  return MOD_CONT;
}

int
anope_event_part (char *source, int ac, char **av)
{
  if (ac < 1 || ac > 2)
    return MOD_CONT;
  do_part (source, ac, av);
  return MOD_CONT;
}

int
anope_event_whois (char *source, int ac, char **av)
{
  if (source && ac >= 1)
    {
      m_whois (source, av[0]);
    }
  return MOD_CONT;
}

/* EVENT: SERVER */
int
anope_event_server (char *source, int ac, char **av)
{
  if (!stricmp (av[1], "1"))
    {
      uplink = sstrdup (av[0]);
    }
  do_server (source, av[0], av[1], av[2], NULL);
  return MOD_CONT;
}

int
anope_event_squit (char *source, int ac, char **av)
{
  if (ac != 2)
    return MOD_CONT;
  do_squit (source, ac, av);
  return MOD_CONT;
}

int
anope_event_quit (char *source, int ac, char **av)
{
  if (ac != 1)
    return MOD_CONT;
  do_quit (source, ac, av);
  return MOD_CONT;
}

void
plexus_cmd_372 (char *source, char *msg)
{
  send_cmd (ServerName, "372 %s :- %s", source, msg);
}

void
plexus_cmd_372_error (char *source)
{
  send_cmd (ServerName, "422 %s :- MOTD file not found!  Please "
        "contact your IRC administrator.", source);
}

void
plexus_cmd_375 (char *source)
{
  send_cmd (ServerName, "375 %s :- %s Message of the Day",
        source, ServerName);
}

void
plexus_cmd_376 (char *source)
{
  send_cmd (ServerName, "376 %s :End of /MOTD command.", source);
}

/* 391 */
void
plexus_cmd_391 (char *source, char *timestr)
{
  if (!timestr)
    {
      return;
    }
  send_cmd (ServerName, "391 :%s %s :%s", source, ServerName, timestr);
}

/* 250 */
void
plexus_cmd_250 (char *buf)
{
  if (!buf)
    {
      return;
    }

  send_cmd (ServerName, "250 %s", buf);
}

/* 307 */
void
plexus_cmd_307 (char *buf)
{
  if (!buf)