BUILD : 1.7.4 (264) BUGS : N/A NOTES : Switched to autoconf - try to commit part 1

git-svn-id: svn://svn.anope.org/anope/trunk@264 31f1291d-b8d6-0310-a050-a5561fc1590b


git-svn-id: http://anope.svn.sourceforge.net/svnroot/anope/trunk@169 5417fbe8-f217-4b02-8779-1006273d7864

1 files changed, 1284 insertions, 0 deletions

diff --git a/src/messages.c b/src/messages.c
new file mode 100644
index 000000000..9e5d4466b
--- /dev/null
+++ b/src/messages.c
@@ -0,0 +1,1284 @@
+/* Definitions of IRC message functions and list of messages.
+ *
+ * (C) 2003 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.
+ *
+ * $Id$
+ *
+ */
+
+#include "services.h"
+#include "messages.h"
+#include "language.h"
+
+static char *uplink;
+int servernum;
+/* List of messages is at the bottom of the file. */
+
+/*************************************************************************/
+/*************************************************************************/
+
+static int m_nickcoll(char *source, int ac, char **av)
+{
+    if (ac < 1)
+        return MOD_CONT;
+    if (!skeleton && !readonly)
+        introduce_user(av[0]);
+    return MOD_CONT;
+}
+
+/*************************************************************************/
+
+static int m_ping(char *source, int ac, char **av)
+{
+    if (ac < 1)
+        return MOD_CONT;
+    send_cmd(ServerName, "PONG %s %s", ac > 1 ? av[1] : ServerName, av[0]);
+    return MOD_CONT;
+}
+
+/*************************************************************************/
+
+static int m_away(char *source, int ac, char **av)
+{
+    User *u = finduser(source);
+
+    if (u && (ac == 0 || *av[0] == 0))  /* un-away */
+        check_memos(u);
+    return MOD_CONT;
+}
+
+/*************************************************************************/
+
+
+#ifdef IRC_BAHAMUT
+
+static int m_capab(char *source, int ac, char **av)
+{
+    int i;
+
+    for (i = 0; i < ac; i++) {
+        if (!stricmp(av[i], "NOQUIT"))
+            uplink_capab |= CAPAB_NOQUIT;
+        else if (!stricmp(av[i], "TSMODE"))
+            uplink_capab |= CAPAB_TSMODE;
+        else if (!stricmp(av[i], "UNCONNECT"))
+            uplink_capab |= CAPAB_UNCONNECT;
+    }
+
+    return MOD_CONT;
+}
+
+#endif
+
+/*************************************************************************/
+
+#ifdef IRC_BAHAMUT
+
+static int m_cs(char *source, int ac, char **av)
+{
+    User *u;
+    time_t starttime, stoptime; /* When processing started and finished */
+
+    if (ac < 1 || skeleton)
+        return MOD_CONT;
+
+    u = finduser(source);
+
+    if (!u) {
+        alog("%s: user record for %s not found", s_ChanServ, source);
+        notice(s_ChanServ, source, getstring(NULL, USER_RECORD_NOT_FOUND));
+        return MOD_CONT;
+    }
+
+    /* Check if we should ignore.  Operators always get through. */
+    if (allow_ignore && !is_oper(u)) {
+        IgnoreData *ign = get_ignore(source);
+        if (ign && ign->time > time(NULL)) {
+            alog("Ignored message from %s: \"%s\"", source, inbuf);
+            return MOD_CONT;
+        }
+    }
+
+    starttime = time(NULL);
+    if (!is_oper(u) && CSOpersOnly)
+        notice_lang(s_ChanServ, u, ACCESS_DENIED);
+    else
+        chanserv(u, av[0]);
+
+    /* Add to ignore list if the command took a significant amount of time. */
+    if (allow_ignore) {
+        stoptime = time(NULL);
+        if (stoptime > starttime && *source && !strchr(source, '.'))
+            add_ignore(source, stoptime - starttime);
+    }
+    return MOD_CONT;
+}
+
+#endif
+
+/*************************************************************************/
+
+#ifdef IRC_BAHAMUT
+
+static int m_hs(char *source, int ac, char **av)
+{
+    User *u;
+    time_t starttime, stoptime; /* When processing started and finished */
+
+    if (ac < 1 || skeleton)
+        return MOD_CONT;
+
+    u = finduser(source);
+
+    if (!u) {
+        alog("%s: user record for %s not found", s_HelpServ, source);
+        notice(s_HelpServ, source, getstring(NULL, USER_RECORD_NOT_FOUND));
+        return MOD_CONT;
+    }
+
+    /* Check if we should ignore.  Operators always get through. */
+    if (allow_ignore && !is_oper(u)) {
+        IgnoreData *ign = get_ignore(source);
+        if (ign && ign->time > time(NULL)) {
+            alog("Ignored message from %s: \"%s\"", source, inbuf);
+            return MOD_CONT;
+        }
+    }
+
+    starttime = time(NULL);
+
+    notice_help(s_HelpServ, u, HELP_HELP, s_NickServ, s_ChanServ,
+                s_MemoServ);
+    if (s_BotServ)
+        notice_help(s_HelpServ, u, HELP_HELP_BOT, s_BotServ);
+
+    /* Add to ignore list if the command took a significant amount of time. */
+    if (allow_ignore) {
+        stoptime = time(NULL);
+        if (stoptime > starttime && *source && !strchr(source, '.'))
+            add_ignore(source, stoptime - starttime);
+    }
+    return MOD_CONT;
+}
+
+#endif
+
+/*************************************************************************/
+
+static int m_join(char *source, int ac, char **av)
+{
+    if (ac != 1)
+        return MOD_CONT;
+    do_join(source, ac, av);
+    return MOD_CONT;
+}
+
+/*************************************************************************/
+
+static int m_kick(char *source, int ac, char **av)
+{
+    if (ac != 3)
+        return MOD_CONT;
+    do_kick(source, ac, av);
+    return MOD_CONT;
+}
+
+/*************************************************************************/
+
+static int m_kill(char *source, int ac, char **av)
+{
+    BotInfo *bi;
+
+    if (ac != 2)
+        return MOD_CONT;
+    /* Recover if someone kills us. */
+    if (stricmp(av[0], s_OperServ) == 0 ||
+        (s_OperServAlias && stricmp(av[0], s_OperServAlias) == 0) ||
+        stricmp(av[0], s_NickServ) == 0 ||
+        (s_NickServAlias && stricmp(av[0], s_NickServAlias) == 0) ||
+        stricmp(av[0], s_ChanServ) == 0 ||
+        (s_ChanServAlias && stricmp(av[0], s_ChanServAlias) == 0) ||
+        stricmp(av[0], s_MemoServ) == 0 ||
+        (s_MemoServAlias && stricmp(av[0], s_MemoServAlias) == 0) ||
+        (s_HostServ && stricmp(av[0], s_HostServ) == 0) ||
+        (s_HostServAlias && stricmp(av[0], s_HostServAlias) == 0) ||
+        (s_BotServ && stricmp(av[0], s_BotServ) == 0) ||
+        (s_BotServAlias && stricmp(av[0], s_BotServAlias) == 0) ||
+        stricmp(av[0], s_HelpServ) == 0 ||
+        (s_HelpServAlias && stricmp(av[0], s_HelpServAlias) == 0) ||
+        (s_DevNull && stricmp(av[0], s_DevNull) == 0) ||
+        (s_DevNullAlias && stricmp(av[0], s_DevNullAlias) == 0) ||
+        stricmp(av[0], s_GlobalNoticer) == 0 ||
+        (s_GlobalNoticerAlias && stricmp(av[0], s_GlobalNoticerAlias) == 0)
+        ) {
+        if (!readonly && !skeleton)
+            introduce_user(av[0]);
+    } else if (s_BotServ && (bi = findbot(av[0]))) {
+        if (!readonly && !skeleton) {
+            introduce_user(av[0]);
+            bot_rejoin_all(bi);
+        }
+    } else {
+        do_kill(source, ac, av);
+    }
+    return MOD_CONT;
+}
+
+/*************************************************************************/
+
+static int m_mode(char *source, int ac, char **av)
+{
+    if (*av[0] == '#' || *av[0] == '&') {
+        if (ac < 2)
+            return MOD_CONT;
+        do_cmode(source, ac, av);
+    } else {
+        if (ac != 2)
+            return MOD_CONT;
+        do_umode(source, ac, av);
+    }
+    return MOD_CONT;
+}
+
+/*************************************************************************/
+
+static int m_motd(char *source, int ac, char **av)
+{
+    FILE *f;
+    char buf[BUFSIZE];
+
+    f = fopen(MOTDFilename, "r");
+    send_cmd(ServerName, "375 %s :- %s Message of the Day",
+             source, ServerName);
+    if (f) {
+        while (fgets(buf, sizeof(buf), f)) {
+            buf[strlen(buf) - 1] = 0;
+            send_cmd(ServerName, "372 %s :- %s", source, buf);
+        }
+        fclose(f);
+    } else {
+        send_cmd(ServerName, "372 %s :- MOTD file not found!  Please "
+                 "contact your IRC administrator.", source);
+    }
+    send_cmd(ServerName, "376 %s :End of /MOTD command.", source);
+    return MOD_CONT;
+}
+
+/*************************************************************************/
+
+#ifdef IRC_BAHAMUT
+
+static int m_ms(char *source, int ac, char **av)
+{
+    User *u;
+    time_t starttime, stoptime; /* When processing started and finished */
+
+    if (ac < 1 || skeleton)
+        return MOD_CONT;
+
+    u = finduser(source);
+
+    if (!u) {
+        alog("%s: user record for %s not found", s_MemoServ, source);
+        notice(s_MemoServ, source, getstring(NULL, USER_RECORD_NOT_FOUND));
+        return MOD_CONT;
+    }
+
+    /* Check if we should ignore.  Operators always get through. */
+    if (allow_ignore && !is_oper(u)) {
+        IgnoreData *ign = get_ignore(source);
+        if (ign && ign->time > time(NULL)) {
+            alog("Ignored message from %s: \"%s\"", source, inbuf);
+            return MOD_CONT;
+        }
+    }
+
+    starttime = time(NULL);
+
+    memoserv(u, av[0]);
+
+    /* Add to ignore list if the command took a significant amount of time. */
+    if (allow_ignore) {
+        stoptime = time(NULL);
+        if (stoptime > starttime && *source && !strchr(source, '.'))
+            add_ignore(source, stoptime - starttime);
+    }
+    return MOD_CONT;
+}
+
+#endif
+
+/*************************************************************************/
+
+static int m_nick(char *source, int ac, char **av)
+{
+    if (ac != 2) {
+#if defined(IRC_HYBRID)
+        User *user = do_nick(source, av[0], av[4], av[5], av[6], av[7],
+                             strtoul(av[2], NULL, 10), 0);
+        if (user)
+            set_umode(user, 1, &av[3]);
+#else
+#if defined(IRC_BAHAMUT)
+#if defined(IRC_ULTIMATE3) || defined(IRC_RAGE2)
+        User *user = do_nick(source, av[0], av[4], av[5], av[6], av[9],
+                             strtoul(av[2], NULL, 10), strtoul(av[7], NULL,
+                                                               0),
+                             strtoul(av[8], NULL, 0), "*");
+# else
+        User *user = do_nick(source, av[0], av[4], av[5], av[6], av[9],
+                             strtoul(av[2], NULL, 10), strtoul(av[7], NULL,
+                                                               0),
+                             strtoul(av[8], NULL, 0));
+# endif
+        if (user)
+            set_umode(user, 1, &av[3]);
+#elif defined(IRC_UNREAL)
+        if (ac == 7) {
+            /* For some reasons, Unreal sends this sometimes */
+            do_nick(source, av[0], av[3], av[4], av[5], av[6],
+                    strtoul(av[2], NULL, 10), 0, "*");
+        } else {
+            User *user = do_nick(source, av[0], av[3], av[4], av[5], av[9],
+                                 strtoul(av[2], NULL, 10), strtoul(av[6],
+                                                                   NULL,
+                                                                   0),
+                                 av[8]);
+
+            if (user)
+                set_umode(user, 1, &av[7]);
+        }
+#else
+# if defined(IRC_ULTIMATE)
+        if (ac == 7) {
+            do_nick(source, av[0], av[3], av[4], av[5], av[6],
+                    strtoul(av[2], NULL, 10), 0);
+        } else {
+            do_nick(source, av[0], av[3], av[4], av[5], av[7],
+                    strtoul(av[2], NULL, 10), strtoul(av[6], NULL, 0));
+        }
+/* PTlink IRCd - PTS4 */
+#elif defined(IRC_PTLINK)
+        User *user = do_nick(source, av[0], av[4], av[6], av[7], av[8],
+                             strtoul(av[2], NULL, 10), 0, av[5]);
+        if (user)
+            set_umode(user, 1, &av[3]);
+#else
+        do_nick(source, av[0], av[3], av[4], av[5], av[7],
+                strtoul(av[2], NULL, 10), strtoul(av[6], NULL, 0));
+# endif
+#endif
+#endif
+    } else {
+        do_nick(source, av[0], NULL, NULL, NULL, NULL,
+                strtoul(av[1], NULL, 10), 0);
+    }
+    return MOD_CONT;
+}
+
+/*************************************************************************/
+
+#ifdef IRC_ULTIMATE3
+
+static int m_client(char *source, int ac, char **av)
+{
+    if (ac != 2) {
+        User *user = do_nick(source, av[0], av[5], av[6], av[8], av[11],
+                             strtoul(av[2], NULL, 10), strtoul(av[9], NULL,
+                                                               0),
+                             strtoul(av[10], NULL, 0), av[7]);
+        if (user) {
+            set_umode(user, 1, &av[3]);
+        }
+    }
+    return MOD_CONT;
+}
+
+#endif
+
+/*************************************************************************/
+
+#ifdef IRC_RAGE2
+
+static int m_snick(char *source, int ac, char **av)
+{
+    if (ac != 2) {
+        User *user = do_nick(source, av[0], av[3], av[4], av[8], av[10],
+                             strtoul(av[1], NULL, 10), strtoul(av[7], NULL,
+                                                               0),
+                             strtoul(av[5], NULL, 0), av[6]);
+        if (user) {
+            set_umode(user, 1, &av[9]);
+        }
+    }
+    return MOD_CONT;
+}
+
+#endif
+
+/*************************************************************************/
+
+#ifdef IRC_BAHAMUT
+
+static int m_ns(char *source, int ac, char **av)
+{
+    User *u;
+    time_t starttime, stoptime; /* When processing started and finished */
+
+    if (ac < 1 || skeleton)
+        return MOD_CONT;
+
+    u = finduser(source);
+
+    if (!u) {
+        alog("%s: user record for %s not found", s_NickServ, source);
+        notice(s_NickServ, source, getstring(NULL, USER_RECORD_NOT_FOUND));
+        return MOD_CONT;
+    }
+
+    /* Check if we should ignore.  Operators always get through. */
+    if (allow_ignore && !is_oper(u)) {
+        IgnoreData *ign = get_ignore(source);
+        if (ign && ign->time > time(NULL)) {
+            alog("Ignored message from %s: \"%s\"", source, inbuf);
+            return MOD_CONT;
+        }
+    }
+
+    starttime = time(NULL);
+
+    nickserv(u, av[0]);
+
+    /* Add to ignore list if the command took a significant amount of time. */
+    if (allow_ignore) {
+        stoptime = time(NULL);
+        if (stoptime > starttime && *source && !strchr(source, '.'))
+            add_ignore(source, stoptime - starttime);
+    }
+    return MOD_CONT;
+}
+
+#endif
+
+/*************************************************************************/
+
+#ifdef IRC_PTLINK
+/*
+ * Note: This function has no validation whatsoever. Also, as of PTlink6.15.1
+ * when you /deoper you get to keep your vindent, but you lose your vhost. In
+ * that case serives will *NOT* modify it's internal record for the vhost. We
+ * need to address this in the future.
+ */
+static int m_newmask(char *source, int ac, char **av)
+{
+    User *u;
+    char *newhost = NULL, *newuser = NULL;
+
+    if (ac != 1)
+        return MOD_CONT;
+    u = finduser(source);
+
+    if (!u) {
+        alog("user: NEWMASK for nonexistent user %s", av[0]);
+        return MOD_CONT;
+    }
+
+    newuser = myStrGetOnlyToken(av[0], '@', 0);
+    if (newuser) {
+        newhost = myStrGetTokenRemainder(av[0], '@', 1);
+        change_user_username(u, newuser);
+    } else {
+        newhost = av[0];
+    }
+
+    if (*newhost == '@')
+        newhost++;
+
+    if (newhost) {
+        change_user_host(u, newhost);
+    }
+
+    return MOD_CONT;
+}
+#endif
+
+
+/*************************************************************************/
+
+#ifdef IRC_BAHAMUT
+
+static int m_os(char *source, int ac, char **av)
+{
+    User *u;
+    time_t starttime, stoptime; /* When processing started and finished */
+
+    if (ac < 1)
+        return MOD_CONT;
+
+    u = finduser(source);
+
+    if (!u) {
+        alog("%s: user record for %s not found", s_OperServ, source);
+        notice(s_OperServ, source, getstring(NULL, USER_RECORD_NOT_FOUND));
+        return MOD_CONT;
+    }
+
+    /* Check if we should ignore.  Operators always get through. */
+    if (allow_ignore && !is_oper(u)) {
+        IgnoreData *ign = get_ignore(source);
+        if (ign && ign->time > time(NULL)) {
+            alog("Ignored message from %s: \"%s\"", source, inbuf);
+            return MOD_CONT;
+        }
+    }
+
+    starttime = time(NULL);
+
+    if (is_oper(u)) {
+        operserv(u, av[0]);
+    } else {
+        notice_lang(s_OperServ, u, ACCESS_DENIED);
+
+        if (WallBadOS)
+            wallops(s_OperServ,
+                    "Denied access to %s from %s!%s@%s (non-oper)",
+                    s_OperServ, u->nick, u->username, u->host);
+    }
+
+    /* Add to ignore list if the command took a significant amount of time. */
+    if (allow_ignore) {
+        stoptime = time(NULL);
+        if (stoptime > starttime && *source && !strchr(source, '.'))
+            add_ignore(source, stoptime - starttime);
+    }
+    return MOD_CONT;
+}
+
+#endif
+
+/*************************************************************************/
+
+static int m_part(char *source, int ac, char **av)
+{
+    if (ac < 1 || ac > 2)
+        return MOD_CONT;
+    do_part(source, ac, av);
+    return MOD_CONT;
+}
+
+/*************************************************************************/
+
+static int m_privmsg(char *source, int ac, char **av)
+{
+    char *s;
+    time_t starttime, stoptime; /* When processing started and finished */
+
+    BotInfo *bi;
+    ChannelInfo *ci;
+    User *u;
+
+    if (ac != 2)
+        return MOD_CONT;
+
+    u = finduser(source);
+
+    if (!u) {
+        alog("%s: user record for %s not found", av[1], source);
+        notice(av[1], source, getstring(NULL, USER_RECORD_NOT_FOUND));
+        return MOD_CONT;
+    }
+
+    if (*av[0] == '#') {
+        if (s_BotServ && (ci = cs_findchan(av[0])))
+            if (!(ci->flags & CI_VERBOTEN) && ci->c && ci->bi)  /* Some paranoia checks */
+                botchanmsgs(u, ci, av[1]);
+    } else {
+
+        /* Check if we should ignore.  Operators always get through. */
+        if (allow_ignore && !is_oper(u)) {
+            IgnoreData *ign = get_ignore(source);
+            if (ign && ign->time > time(NULL)) {
+                alog("Ignored message from %s: \"%s\"", source, inbuf);
+                return MOD_CONT;
+            }
+        }
+
+        /* If a server is specified (nick@server format), make sure it matches
+         * us, and strip it off. */
+        s = strchr(av[0], '@');
+        if (s) {
+            *s++ = 0;
+            if (stricmp(s, ServerName) != 0)
+                return MOD_CONT;
+        }
+
+        starttime = time(NULL);
+
+        if ((stricmp(av[0], s_OperServ) == 0)
+            || (s_OperServAlias && (stricmp(av[0], s_OperServAlias) == 0))) {
+            if (is_oper(u)) {
+                operserv(u, av[1]);
+            } else {
+                notice_lang(s_OperServ, u, ACCESS_DENIED);
+
+                if (WallBadOS)
+                    wallops(s_OperServ,
+                            "Denied access to %s from %s!%s@%s (non-oper)",
+                            s_OperServ, u->nick, u->username, u->host);
+            }
+        } else if ((stricmp(av[0], s_NickServ) == 0)
+                   || (s_NickServAlias
+                       && (stricmp(av[0], s_NickServAlias) == 0))) {
+            nickserv(u, av[1]);
+        } else if ((stricmp(av[0], s_ChanServ) == 0)
+                   || (s_ChanServAlias
+                       && (stricmp(av[0], s_ChanServAlias) == 0))) {
+            if (!is_oper(u) && CSOpersOnly)
+                notice_lang(s_ChanServ, u, ACCESS_DENIED);
+            else
+                chanserv(u, av[1]);
+        } else if ((stricmp(av[0], s_MemoServ) == 0)
+                   || (s_MemoServAlias
+                       && (stricmp(av[0], s_MemoServAlias) == 0))) {
+            memoserv(u, av[1]);
+        } else if (s_HostServ && ((stricmp(av[0], s_HostServ) == 0)
+                                  || (s_HostServAlias
+                                      && (stricmp(av[0], s_HostServAlias)
+                                          == 0)))) {
+            hostserv(u, av[1]);
+        } else if (s_HelpServ && ((stricmp(av[0], s_HelpServ) == 0)
+                                  || (s_HelpServAlias
+                                      && (stricmp(av[0], s_HelpServAlias)
+                                          == 0)))) {
+            helpserv(u, av[1]);
+        } else if (s_BotServ && ((stricmp(av[0], s_BotServ) == 0)
+                                 || (s_BotServAlias
+                                     && (stricmp(av[0], s_BotServAlias) ==
+                                         0)))) {
+            botserv(u, av[1]);
+/* This HelpServ code is history since HelpServ is a REAL service */
+
+/*        } else if ((stricmp(av[0], s_HelpServ) == 0)
+                   || (s_HelpServAlias
+                       && (stricmp(av[0], s_HelpServAlias) == 0))) {
+            notice_help(s_HelpServ, u, HELP_HELP, s_NickServ, s_ChanServ,
+                        s_MemoServ);
+            if (s_BotServ)
+                notice_help(s_HelpServ, u, HELP_HELP_BOT, s_BotServ); */
+        } else if (s_BotServ && (bi = findbot(av[0]))) {
+            botmsgs(u, bi, av[1]);
+        }
+
+        /* Add to ignore list if the command took a significant amount of time. */
+        if (allow_ignore) {
+            stoptime = time(NULL);
+            if (stoptime > starttime && *source && !strchr(source, '.'))
+                add_ignore(source, stoptime - starttime);
+        }
+    }
+    return MOD_CONT;
+}
+
+/*************************************************************************/
+
+static int m_quit(char *source, int ac, char **av)
+{
+    if (ac != 1)
+        return MOD_CONT;
+    do_quit(source, ac, av);
+    return MOD_CONT;
+}
+
+/*************************************************************************/
+
+static int m_squit(char *source, int ac, char **av)
+{
+    if (ac != 2)
+        return MOD_CONT;
+    do_squit(source, ac, av);
+    return MOD_CONT;
+}
+
+/*************************************************************************/
+
+static int m_server(char *source, int ac, char **av)
+{
+    if (!stricmp(av[1], "1"))
+        uplink = sstrdup(av[0]);
+#ifdef IRC_PTLINK
+    if (ac != 4)
+#else
+    if (ac != 3)
+#endif
+        return MOD_CONT;
+    do_server(source, ac, av);
+    return MOD_CONT;
+}
+
+/*************************************************************************/
+
+#if defined(IRC_ULTIMATE3)
+
+static int m_sethost(char *source, int ac, char **av)
+{
+    User *u;
+
+    if (ac != 2)
+        return MOD_CONT;
+
+    u = finduser(av[0]);
+    if (!u) {
+        if (debug)
+            alog("user: SETHOST for nonexistent user %s", av[0]);
+        return MOD_CONT;
+    }
+
+    change_user_host(u, av[1]);
+    return MOD_CONT;
+}
+
+#endif
+
+/*************************************************************************/
+
+#ifdef IRC_RAGE2
+
+static int m_vhost(char *source, int ac, char **av)
+{
+    User *u;
+
+    if (ac != 2)
+        return MOD_CONT;
+
+    u = finduser(av[0]);
+    if (!u) {
+        if (debug)
+            alog("user: VHOST for nonexistent user %s", av[0]);
+        return MOD_CONT;
+    }
+
+    change_user_host(u, av[1]);
+    return MOD_CONT;
+}
+
+#endif
+
+/*************************************************************************/
+
+#if defined(IRC_ULTIMATE) || defined(IRC_UNREAL) || defined(IRC_VIAGRA)
+
+static int m_chghost(char *source, int ac, char **av)
+{
+    User *u;
+
+    if (ac != 2)
+        return MOD_CONT;
+
+    u = finduser(av[0]);
+    if (!u) {
+        alog("user: CHGHOST for nonexistent user %s", av[0]);
+        return MOD_CONT;
+    }
+
+    change_user_host(u, av[1]);
+    return MOD_CONT;
+}
+
+/*************************************************************************/
+
+static int m_sethost(char *source, int ac, char **av)
+{
+    User *u;
+
+    if (ac != 1)
+        return MOD_CONT;
+
+    u = finduser(source);
+    if (!u) {
+        if (debug)
+            alog("user: SETHOST for nonexistent user %s", source);
+        return MOD_CONT;
+    }
+
+    change_user_host(u, av[0]);
+    return MOD_CONT;
+}
+
+/*************************************************************************/
+
+static int m_chgident(char *source, int ac, char **av)
+{
+    User *u;
+
+    if (ac != 2)
+        return MOD_CONT;
+
+    u = finduser(av[0]);
+    if (!u) {
+        alog("user: CHGIDENT for nonexistent user %s", av[0]);
+        return MOD_CONT;
+    }
+
+    change_user_username(u, av[1]);
+    return MOD_CONT;
+}
+
+/*************************************************************************/
+
+static int m_setident(char *source, int ac, char **av)
+{
+    User *u;
+
+    if (ac != 1)
+        return MOD_CONT;
+
+    u = finduser(source);
+    if (!u) {
+        alog("user: SETIDENT for nonexistent user %s", source);
+        return MOD_CONT;
+    }
+
+    change_user_username(u, av[0]);
+    return MOD_CONT;
+}
+
+/*************************************************************************/
+
+static int m_chgname(char *source, int ac, char **av)
+{
+    User *u;
+
+    if (ac != 2)
+        return MOD_CONT;
+
+    u = finduser(av[0]);
+    if (!u) {
+        alog("user: CHGNAME for nonexistent user %s", av[0]);
+        return MOD_CONT;
+    }
+
+    change_user_realname(u, av[1]);
+    return MOD_CONT;
+}
+
+/*************************************************************************/
+
+static int m_setname(char *source, int ac, char **av)
+{
+    User *u;
+
+    if (ac != 1)
+        return MOD_CONT;
+
+    u = finduser(source);
+    if (!u) {
+        alog("user: SETNAME for nonexistent user %s", source);
+        return MOD_CONT;
+    }
+
+    change_user_realname(u, av[0]);
+    return MOD_CONT;
+}
+
+#endif
+
+/*************************************************************************/
+
+#if defined(IRC_BAHAMUT) || defined(IRC_HYBRID) || defined(IRC_PTLINK) || defined(IRC_RAGE2)
+
+static int m_sjoin(char *source, int ac, char **av)
+{
+    do_sjoin(source, ac, av);
+    return MOD_CONT;
+}
+
+#endif
+
+/*************************************************************************/
+
+static int m_stats(char *source, int ac, char **av)
+{
+    int i;
+    User *u;
+    NickCore *nc;
+
+    if (ac < 1)
+        return MOD_CONT;
+
+    switch (*av[0]) {
+    case 'l':
+        u = finduser(source);
+
+        if (u && is_oper(u)) {
+
+            if (servernum == 1) {
+                send_cmd(NULL,
+                         "211 %s Server SendBuf SentBytes SentMsgs RecvBuf "
+                         "RecvBytes RecvMsgs ConnTime", source);
+                send_cmd(NULL, "211 %s %s %d %d %d %d %d %d %ld", source,
+                         RemoteServer, write_buffer_len(), total_written,
+                         -1, read_buffer_len(), total_read, -1,
+                         time(NULL) - start_time);
+            } else if (servernum == 2) {
+                send_cmd(NULL,
+                         "211 %s Server SendBuf SentBytes SentMsgs RecvBuf "
+                         "RecvBytes RecvMsgs ConnTime", source);
+                send_cmd(NULL, "211 %s %s %d %d %d %d %d %d %ld", source,
+                         RemoteServer2, write_buffer_len(), total_written,
+                         -1, read_buffer_len(), total_read, -1,
+                         time(NULL) - start_time);
+            } else if (servernum == 3) {
+                send_cmd(NULL,
+                         "211 %s Server SendBuf SentBytes SentMsgs RecvBuf "
+                         "RecvBytes RecvMsgs ConnTime", source);
+                send_cmd(NULL, "211 %s %s %d %d %d %d %d %d %ld", source,
+                         RemoteServer3, write_buffer_len(), total_written,
+                         -1, read_buffer_len(), total_read, -1,
+                         time(NULL) - start_time);
+            }
+        }
+
+        send_cmd(NULL, "219 %s l :End of /STATS report.", source);
+        break;
+    case 'o':
+    case 'O':
+/* Check whether the user is an operator */
+        u = finduser(source);
+        if (u && !is_oper(u) && HideStatsO) {
+            send_cmd(NULL, "219 %s %c :End of /STATS report.", source,
+                     *av[0]);
+        } else {
+            for (i = 0; i < RootNumber; i++)
+                send_cmd(NULL, "243 %s O * * %s Root 0", source,
+                         ServicesRoots[i]);
+            for (i = 0; i < servadmins.count && (nc = servadmins.list[i]);
+                 i++)
+                send_cmd(NULL, "243 %s O * * %s Admin 0", source,
+                         nc->display);
+            for (i = 0; i < servopers.count && (nc = servopers.list[i]);
+                 i++)
+                send_cmd(NULL, "243 %s O * * %s Oper 0", source,
+                         nc->display);
+
+            send_cmd(NULL, "219 %s %c :End of /STATS report.", source,
+                     *av[0]);
+        }
+
+        break;
+
+    case 'u':{
+            int uptime = time(NULL) - start_time;
+            send_cmd(NULL, "242 %s :Services up %d day%s, %02d:%02d:%02d",
+                     source, uptime / 86400,
+                     (uptime / 86400 == 1) ? "" : "s",
+                     (uptime / 3600) % 24, (uptime / 60) % 60,
+                     uptime % 60);
+            send_cmd(NULL,
+                     "250 %s :Current users: %d (%d ops); maximum %d",
+                     source, usercnt, opcnt, maxusercnt);
+            send_cmd(NULL, "219 %s u :End of /STATS report.", source);
+            break;
+        }                       /* case 'u' */
+
+    default:
+        send_cmd(NULL, "219 %s %c :End of /STATS report.", source, *av[0]);
+        break;
+    }
+    return MOD_CONT;
+}
+
+/*************************************************************************/
+
+static int m_time(char *source, int ac, char **av)
+{
+    time_t t;
+    struct tm *tm;
+    char buf[64];
+
+    time(&t);
+    tm = localtime(&t);
+    strftime(buf, sizeof(buf), "%a %b %d %H:%M:%S %Y %Z", tm);
+    send_cmd(NULL, "391 %s %s :%s", source, ServerName, buf);
+    return MOD_CONT;
+}
+
+/*************************************************************************/
+#ifdef IRC_HYBRID
+static int m_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) {
+            alog("channel: 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]);
+    }
+    return MOD_CONT;
+}
+#else
+/*************************************************************************/
+static int m_topic(char *source, int ac, char **av)
+{
+    if (ac != 4)
+        return MOD_CONT;
+    do_topic(source, ac, av);
+    return MOD_CONT;
+}
+#endif
+/*************************************************************************/
+
+int m_version(char *source, int ac, char **av)
+{
+    if (source)
+        send_cmd(ServerName, "351 %s Anope-%s %s :%s -- %s",
+                 source, version_number, ServerName, version_flags,
+                 version_build);
+    return MOD_CONT;
+}
+
+/*************************************************************************/
+
+int m_whois(char *source, int ac, char **av)
+{
+    BotInfo *bi;
+    const char *clientdesc;
+
+    if (source && ac >= 1) {
+        if (stricmp(av[0], s_NickServ) == 0)
+            clientdesc = desc_NickServ;
+        else if (stricmp(av[0], s_ChanServ) == 0)
+            clientdesc = desc_ChanServ;
+        else if (stricmp(av[0], s_MemoServ) == 0)
+            clientdesc = desc_MemoServ;
+        else if (s_BotServ && stricmp(av[0], s_BotServ) == 0)
+            clientdesc = desc_BotServ;
+        else if (s_HostServ && stricmp(av[0], s_HostServ) == 0)
+            clientdesc = desc_HostServ;
+        else if (stricmp(av[0], s_HelpServ) == 0)
+            clientdesc = desc_HelpServ;
+        else if (stricmp(av[0], s_OperServ) == 0)
+            clientdesc = desc_OperServ;
+        else if (stricmp(av[0], s_GlobalNoticer) == 0)
+            clientdesc = desc_GlobalNoticer;
+        else if (s_DevNull && stricmp(av[0], s_DevNull) == 0)
+            clientdesc = desc_DevNull;
+        else if (s_BotServ && (bi = findbot(av[0]))) {
+            /* Bots are handled separately */
+            send_cmd(ServerName, "311 %s %s %s %s * :%s", source, bi->nick,
+                     bi->user, bi->host, bi->real);
+            send_cmd(ServerName, "307 %s :%s is a registered nick", source,
+                     bi->nick);
+            send_cmd(ServerName, "312 %s %s %s :%s", source, bi->nick,
+                     ServerName, ServerDesc);
+            send_cmd(ServerName,
+                     "317 %s %s %ld %ld :seconds idle, signon time",
+                     source, bi->nick, time(NULL) - bi->lastmsg,
+                     start_time);
+            send_cmd(ServerName, "318 %s %s :End of /WHOIS list.", source,
+                     bi->nick);
+            return MOD_CONT;
+        } else {
+            send_cmd(ServerName, "401 %s %s :No such service.", source,
+                     av[0]);
+            return MOD_CONT;
+        }
+        send_cmd(ServerName, "311 %s %s %s %s * :%s", source, av[0],
+                 ServiceUser, ServiceHost, clientdesc);
+        send_cmd(ServerName, "312 %s %s %s :%s", source, av[0], ServerName,
+                 ServerDesc);
+        send_cmd(ServerName,
+                 "317 %s %s %ld %ld :seconds idle, signon time", source,
+                 av[0], time(NULL) - start_time, start_time);
+        send_cmd(ServerName, "318 %s %s :End of /WHOIS list.", source,
+                 av[0]);
+    }
+    return MOD_CONT;
+}
+
+/*************************************************************************/
+
+#ifdef IRC_VIAGRA
+int m_vs(char *source, int ac, char **av)
+{
+    User *u;
+
+    if (ac != 2)
+        return MOD_CONT;
+
+    u = finduser(av[0]);
+    if (!u) {
+        alog("user: VS for nonexistent user %s", av[0]);
+        return MOD_CONT;
+    }
+
+    change_user_host(u, av[1]);
+    return MOD_CONT;
+
+}
+#endif
+
+/*************************************************************************/
+
+/* *INDENT-OFF* */
+void moduleAddMsgs(void) {
+    Message *m;
+    m = createMessage("401",       NULL); addCoreMessage(IRCD,m);
+    m = createMessage("436",       m_nickcoll); addCoreMessage(IRCD,m);
+    m = createMessage("AWAY",      m_away); addCoreMessage(IRCD,m);
+    m = createMessage("INVITE",    NULL); addCoreMessage(IRCD,m);
+    m = createMessage("JOIN",      m_join); addCoreMessage(IRCD,m);
+    m = createMessage("KICK",      m_kick); addCoreMessage(IRCD,m);
+    m = createMessage("KILL",      m_kill); addCoreMessage(IRCD,m);
+    m = createMessage("MODE",      m_mode); addCoreMessage(IRCD,m);
+    m = createMessage("MOTD",      m_motd); addCoreMessage(IRCD,m);
+    m = createMessage("NICK",      m_nick); addCoreMessage(IRCD,m);
+    m = createMessage("NOTICE",    NULL); addCoreMessage(IRCD,m);
+    m = createMessage("PART",      m_part); addCoreMessage(IRCD,m);
+    m = createMessage("PASS",      NULL); addCoreMessage(IRCD,m);
+    m = createMessage("PING",      m_ping); addCoreMessage(IRCD,m);
+    m = createMessage("PRIVMSG",   m_privmsg); addCoreMessage(IRCD,m);
+    m = createMessage("QUIT",      m_quit); addCoreMessage(IRCD,m);
+    m = createMessage("SERVER",    m_server); addCoreMessage(IRCD,m);
+    m = createMessage("SQUIT",     m_squit); addCoreMessage(IRCD,m);
+    m = createMessage("STATS",     m_stats); addCoreMessage(IRCD,m);
+    m = createMessage("TIME",      m_time); addCoreMessage(IRCD,m);
+    m = createMessage("TOPIC",     m_topic); addCoreMessage(IRCD,m);
+    m = createMessage("USER",      NULL); addCoreMessage(IRCD,m);
+    m = createMessage("VERSION",   m_version); addCoreMessage(IRCD,m);
+    m = createMessage("WALLOPS",   NULL); addCoreMessage(IRCD,m);
+    m = createMessage("WHOIS",     m_whois); addCoreMessage(IRCD,m);
+
+    /* DALnet specific messages */
+    m = createMessage("AKILL",     NULL); addCoreMessage(IRCD,m);
+    m = createMessage("GLOBOPS",   NULL); addCoreMessage(IRCD,m);
+    m = createMessage("GNOTICE",   NULL); addCoreMessage(IRCD,m);
+    m = createMessage("GOPER",     NULL); addCoreMessage(IRCD,m);
+    m = createMessage("RAKILL",    NULL); addCoreMessage(IRCD,m);
+    m = createMessage("SILENCE",   NULL); addCoreMessage(IRCD,m);
+    m = createMessage("SVSKILL",   NULL); addCoreMessage(IRCD,m);
+    m = createMessage("SVSMODE",   NULL); addCoreMessage(IRCD,m);
+    m = createMessage("SVSNICK",   NULL); addCoreMessage(IRCD,m);
+    m = createMessage("SVSNOOP",   NULL); addCoreMessage(IRCD,m);
+    m = createMessage("SQLINE",    NULL); addCoreMessage(IRCD,m);
+    m = createMessage("UNSQLINE",  NULL); addCoreMessage(IRCD,m);
+
+    /* DreamForge specific messages */
+#ifdef IRC_DREAMFORGE
+    m = createMessage("PROTOCTL",  NULL); addCoreMessage(IRCD,m);
+#endif
+
+    /* Bahamut specific messages */
+#ifdef IRC_BAHAMUT
+    m = createMessage("CAPAB", 	   m_capab); addCoreMessage(IRCD,m);
+    m = createMessage("CS",        m_cs); addCoreMessage(IRCD,m);
+    m = createMessage("HS",        m_hs); addCoreMessage(IRCD,m);
+    m = createMessage("MS",        m_ms); addCoreMessage(IRCD,m);
+    m = createMessage("NS",        m_ns); addCoreMessage(IRCD,m);
+    m = createMessage("OS",        m_os); addCoreMessage(IRCD,m);
+    m = createMessage("RS",        NULL); addCoreMessage(IRCD,m);
+    m = createMessage("SGLINE",    NULL); addCoreMessage(IRCD,m);
+    m = createMessage("SJOIN",     m_sjoin); addCoreMessage(IRCD,m);
+    m = createMessage("SS",        NULL); addCoreMessage(IRCD,m);
+    m = createMessage("SVINFO",    NULL); addCoreMessage(IRCD,m);
+    m = createMessage("SZLINE",    NULL); addCoreMessage(IRCD,m);
+    m = createMessage("UNSGLINE",  NULL); addCoreMessage(IRCD,m);
+    m = createMessage("UNSZLINE",  NULL); addCoreMessage(IRCD,m);
+#endif
+ /* Hyb Messages */
+#ifdef IRC_HYBRID
+    m = createMessage("CAPAB",     NULL); addCoreMessage(IRCD,m);
+    m = createMessage("SJOIN",     m_sjoin); addCoreMessage(IRCD,m);
+    m = createMessage("SVINFO",    NULL); addCoreMessage(IRCD,m);
+#endif
+
+
+#ifdef IRC_ULTIMATE
+    m = createMessage("CHGHOST",   m_chghost); addCoreMessage(IRCD,m);
+    m = createMessage("CHGIDENT",  m_chgident); addCoreMessage(IRCD,m);
+    m = createMessage("CHGNAME",   m_chgname); addCoreMessage(IRCD,m);
+    m = createMessage("NETINFO",   NULL); addCoreMessage(IRCD,m);
+    m = createMessage("SETHOST",   m_sethost); addCoreMessage(IRCD,m);
+    m = createMessage("SETIDENT",  m_setident); addCoreMessage(IRCD,m);
+    m = createMessage("SETNAME",   m_setname); addCoreMessage(IRCD,m);
+    m = createMessage("VCTRL",     NULL); addCoreMessage(IRCD,m);
+#endif
+
+#ifdef IRC_PTLINK
+    m = createMessage("NEWMASK" , m_newmask); addCoreMessage(IRCD,m);
+    m = createMessage("CAPAB"  , NULL); addCoreMessage(IRCD,m);
+    m = createMessage("SVINFO" , NULL); addCoreMessage(IRCD,m);
+    m = createMessage("SVSINFO"        , NULL); addCoreMessage(IRCD,m);
+    m = createMessage("SJOIN",     m_sjoin); addCoreMessage(IRCD,m);
+#endif
+
+#ifdef IRC_UNREAL
+    m = createMessage("CHGHOST",   m_chghost); addCoreMessage(IRCD,m);
+    m = createMessage("CHGIDENT",  m_chgident); addCoreMessage(IRCD,m);
+    m = createMessage("CHGNAME",   m_chgname); addCoreMessage(IRCD,m);
+    m = createMessage("NETINFO",   NULL); addCoreMessage(IRCD,m);
+    m = createMessage("SETHOST",   m_sethost); addCoreMessage(IRCD,m);
+    m = createMessage("SETIDENT",  m_setident); addCoreMessage(IRCD,m);
+    m = createMessage("SETNAME",   m_setname); addCoreMessage(IRCD,m);
+#endif
+#ifdef IRC_VIAGRA
+    m = createMessage("CHGHOST",   m_chghost); addCoreMessage(IRCD,m);
+    m = createMessage("CHGIDENT",  m_chgident); addCoreMessage(IRCD,m);
+    m = createMessage("CHGNAME",   m_chgname); addCoreMessage(IRCD,m);
+    m = createMessage("SETHOST",   m_sethost); addCoreMessage(IRCD,m);
+    m = createMessage("SETIDENT",  m_setident); addCoreMessage(IRCD,m);
+    m = createMessage("SETNAME",   m_setname); addCoreMessage(IRCD,m);
+    m = createMessage("VS",        m_vs); addCoreMessage(IRCD,m);
+#endif
+#ifdef IRC_ULTIMATE3
+    m = createMessage("SETHOST",   m_sethost); addCoreMessage(IRCD,m);
+    m = createMessage("NETINFO",   NULL); addCoreMessage(IRCD,m);
+    m = createMessage("GCONNECT",	NULL); addCoreMessage(IRCD,m);
+    m = createMessage("NETGLOBAL", NULL); addCoreMessage(IRCD,m);
+    m = createMessage("CHATOPS",	NULL); addCoreMessage(IRCD,m);
+    m = createMessage("NETCTRL",	NULL); addCoreMessage(IRCD,m);
+    m = createMessage("CLIENT",	m_client); addCoreMessage(IRCD,m);
+    m = createMessage("SMODE",	NULL); addCoreMessage(IRCD,m);
+#endif
+#ifdef IRC_RAGE2
+    m = createMessage("SNICK", m_snick); addCoreMessage(IRCD,m);
+    m = createMessage("VHOST", m_vhost); addCoreMessage(IRCD,m);
+#endif
+}
+
+/* *INDENT-ON* */
+/*************************************************************************/
+
+Message *find_message(const char *name)
+{
+    Message *m;
+    m = findMessage(IRCD, name);
+    return m;
+}
+
+/*************************************************************************/