[svn] Backport from early 3.x:

[irc/rqf/shadowircd.git] / src / s_user.c

/*
 *  ircd-ratbox: A slightly useful ircd.
 *  s_user.c: User related functions.
 *
 *  Copyright (C) 1990 Jarkko Oikarinen and University of Oulu, Co Center
 *  Copyright (C) 1996-2002 Hybrid Development Team
 *  Copyright (C) 2002-2005 ircd-ratbox development team
 *
 *  This program is free software; you can redistribute it and/or modify
 *  it under the terms of the GNU General Public License as published by
 *  the Free Software Foundation; either version 2 of the License, or
 *  (at your option) any later version.
 *
 *  This program is distributed in the hope that it will be useful,
 *  but WITHOUT ANY WARRANTY; without even the implied warranty of
 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 *  GNU General Public License for more details.
 *
 *  You should have received a copy of the GNU General Public License
 *  along with this program; if not, write to the Free Software
 *  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307
 *  USA
 *
 *  $Id: s_user.c 3161 2007-01-25 07:23:01Z nenolod $
 */

#include "stdinc.h"
#include "tools.h"
#include "s_user.h"
#include "channel.h"
#include "class.h"
#include "client.h"
#include "common.h"
#include "hash.h"
#include "irc_string.h"
#include "sprintf_irc.h"
#include "ircd.h"
#include "listener.h"
#include "msg.h"
#include "numeric.h"
#include "commio.h"
#include "s_conf.h"
#include "s_newconf.h"
#include "s_log.h"
#include "s_serv.h"
#include "s_stats.h"
#include "scache.h"
#include "send.h"
#include "supported.h"
#include "whowas.h"
#include "memory.h"
#include "packet.h"
#include "reject.h"
#include "cache.h"
#include "hook.h"
#include "monitor.h"
#include "snomask.h"
#include "blacklist.h"
#include "substitution.h"

static void report_and_set_user_flags(struct Client *, struct ConfItem *);
void user_welcome(struct Client *source_p);

extern char *crypt();

char umodebuf[128];

int user_modes[256] = {
        /* 0x00 */ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* 0x0F */
        /* 0x10 */ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* 0x1F */
        /* 0x20 */ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* 0x2F */
        /* 0x30 */ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* 0x3F */
        0,                      /* @ */
        0,                      /* A */
        0,                      /* B */
        0,                      /* C */
        UMODE_DEAF,             /* D */
        0,                      /* E */
        0,                      /* F */
        0,                      /* G */
        0,                      /* H */
        0,                      /* I */
        0,                      /* J */
        0,                      /* K */
        0,                      /* L */
        0,                      /* M */
        0,                      /* N */
        0,                      /* O */
        0,                      /* P */
        UMODE_NOFORWARD,        /* Q */
        UMODE_REGONLYMSG,       /* R */
        UMODE_SERVICE,          /* S */
        0,                      /* T */
        0,                      /* U */
        0,                      /* V */
        0,                      /* W */
        0,                      /* X */
        0,                      /* Y */
        0,                      /* Z */
        /* 0x5B */ 0, 0, 0, 0, 0, 0, /* 0x60 */
        UMODE_ADMIN,            /* a */
        0,                      /* b */
        0,                      /* c */
        0,                      /* d */
        0,                      /* e */
        0,                      /* f */
        UMODE_CALLERID,         /* g */
        0,                      /* h */
        UMODE_INVISIBLE,        /* i */
        0,                      /* j */
        0,                      /* k */
        UMODE_LOCOPS,           /* l */
        0,                      /* m */
        0,                      /* n */
        UMODE_OPER,             /* o */
        0,                      /* p */
        0,                      /* q */
        0,                      /* r */
        UMODE_SERVNOTICE,       /* s */
        0,                      /* t */
        0,                      /* u */
        0,                      /* v */
        UMODE_WALLOP,           /* w */
        0,                      /* x */
        0,                      /* y */
        UMODE_OPERWALL,         /* z */
        /* 0x7B */ 0, 0, 0, 0, 0, /* 0x7F */
        /* 0x80 */ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* 0x9F */
        /* 0x90 */ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* 0x9F */
        /* 0xA0 */ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* 0xAF */
        /* 0xB0 */ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* 0xBF */
        /* 0xC0 */ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* 0xCF */
        /* 0xD0 */ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* 0xDF */
        /* 0xE0 */ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* 0xEF */
        /* 0xF0 */ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0  /* 0xFF */
};
/* *INDENT-ON* */

/*
 * show_lusers -
 *
 * inputs       - pointer to client
 * output       -
 * side effects - display to client user counts etc.
 */
int
show_lusers(struct Client *source_p)
{
        sendto_one_numeric(source_p, RPL_LUSERCLIENT, form_str(RPL_LUSERCLIENT),
                           (Count.total - Count.invisi),
                           Count.invisi, dlink_list_length(&global_serv_list));

        if(dlink_list_length(&oper_list) > 0)
                sendto_one_numeric(source_p, RPL_LUSEROP, 
                                   form_str(RPL_LUSEROP), dlink_list_length(&oper_list));

        if(dlink_list_length(&unknown_list) > 0)
                sendto_one_numeric(source_p, RPL_LUSERUNKNOWN, 
                                   form_str(RPL_LUSERUNKNOWN),
                                   dlink_list_length(&unknown_list));

        if(dlink_list_length(&global_channel_list) > 0)
                sendto_one_numeric(source_p, RPL_LUSERCHANNELS, 
                                   form_str(RPL_LUSERCHANNELS),
                                   dlink_list_length(&global_channel_list));

        sendto_one_numeric(source_p, RPL_LUSERME, form_str(RPL_LUSERME),
                           dlink_list_length(&lclient_list),
                           dlink_list_length(&serv_list));

        sendto_one_numeric(source_p, RPL_LOCALUSERS, 
                           form_str(RPL_LOCALUSERS),
                           dlink_list_length(&lclient_list),
                           Count.max_loc,
                           dlink_list_length(&lclient_list),
                           Count.max_loc);

        sendto_one_numeric(source_p, RPL_GLOBALUSERS, form_str(RPL_GLOBALUSERS),
                           Count.total, Count.max_tot,
                           Count.total, Count.max_tot);

        sendto_one_numeric(source_p, RPL_STATSCONN,
                           form_str(RPL_STATSCONN),
                           MaxConnectionCount, MaxClientCount, 
                           Count.totalrestartcount);

        if(dlink_list_length(&lclient_list) > (unsigned long)MaxClientCount)
                MaxClientCount = dlink_list_length(&lclient_list);

        if((dlink_list_length(&lclient_list) + dlink_list_length(&serv_list)) >
           (unsigned long)MaxConnectionCount)
                MaxConnectionCount = dlink_list_length(&lclient_list) + 
                                        dlink_list_length(&serv_list);

        return 0;
}

/*
** register_local_user
**      This function is called when both NICK and USER messages
**      have been accepted for the client, in whatever order. Only
**      after this, is the USER message propagated.
**
**      NICK's must be propagated at once when received, although
**      it would be better to delay them too until full info is
**      available. Doing it is not so simple though, would have
**      to implement the following:
**
**      (actually it has been implemented already for a while) -orabidoo
**
**      1) user telnets in and gives only "NICK foobar" and waits
**      2) another user far away logs in normally with the nick
**         "foobar" (quite legal, as this server didn't propagate
**         it).
**      3) now this server gets nick "foobar" from outside, but
**         has alread the same defined locally. Current server
**         would just issue "KILL foobar" to clean out dups. But,
**         this is not fair. It should actually request another
**         nick from local user or kill him/her...
*/

int
register_local_user(struct Client *client_p, struct Client *source_p, const char *username)
{
        struct ConfItem *aconf;
        struct User *user = source_p->user;
        char tmpstr2[IRCD_BUFSIZE];
        char ipaddr[HOSTIPLEN];
        char myusername[USERLEN+1];
        int status;

        s_assert(NULL != source_p);
        s_assert(MyConnect(source_p));
        s_assert(source_p->username != username);

        if(source_p == NULL)
                return -1;

        if(IsAnyDead(source_p))
                return -1;

        if(ConfigFileEntry.ping_cookie)
        {
                if(!(source_p->flags & FLAGS_PINGSENT) && source_p->localClient->random_ping == 0)
                {
                        source_p->localClient->random_ping = (unsigned long) (rand() * rand()) << 1;
                        sendto_one(source_p, "PING :%08lX",
                                   (unsigned long) source_p->localClient->random_ping);
                        source_p->flags |= FLAGS_PINGSENT;
                        return -1;
                }
                if(!(source_p->flags2 & FLAGS2_PING_COOKIE))
                {
                        return -1;
                }
        }

        /* hasnt finished client cap negotiation */
        if(source_p->flags2 & FLAGS2_CLICAP)
                return -1;

        /* still has DNSbls to validate against */
        if(dlink_list_length(&source_p->preClient->dnsbl_queries) > 0)
                return -1;

        client_p->localClient->last = CurrentTime;
        /* Straight up the maximum rate of flooding... */
        source_p->localClient->allow_read = MAX_FLOOD_BURST;

        /* XXX - fixme. we shouldnt have to build a users buffer twice.. */
        if(!IsGotId(source_p) && (strchr(username, '[') != NULL))
        {
                const char *p;
                int i = 0;

                p = username;

                while(*p && i < USERLEN)
                {
                        if(*p != '[')
                                myusername[i++] = *p;
                        p++;
                }

                myusername[i] = '\0';
                username = myusername;
        }

        if((status = check_client(client_p, source_p, username)) < 0)
                return (CLIENT_EXITED);

        /* Apply nick override */
        if(*source_p->preClient->spoofnick)
        {
                del_from_client_hash(source_p->name, source_p);
                strlcpy(source_p->name, source_p->preClient->spoofnick, NICKLEN + 1);
                add_to_client_hash(source_p->name, source_p);
                comm_note(source_p->localClient->fd, "Nick: %s", source_p->name);
        }

        if(!valid_hostname(source_p->host))
        {
                sendto_one_notice(source_p, ":*** Notice -- You have an illegal character in your hostname");

                strlcpy(source_p->host, source_p->sockhost, sizeof(source_p->host));

#ifdef IPV6
                if(ConfigFileEntry.dot_in_ip6_addr == 1)
                        strlcat(source_p->host, ".", sizeof(source_p->host));
#endif
        }
 

        aconf = source_p->localClient->att_conf;

        if(aconf == NULL)
        {
                exit_client(client_p, source_p, &me, "*** Not Authorised");
                return (CLIENT_EXITED);
        }

        if(!IsGotId(source_p))
        {
                const char *p;
                int i = 0;

                if(IsNeedIdentd(aconf))
                {
                        ServerStats->is_ref++;
                        sendto_one_notice(source_p, ":*** Notice -- You need to install identd to use this server");
                        exit_client(client_p, source_p, &me, "Install identd");
                        return (CLIENT_EXITED);
                }

                /* dont replace username if its supposed to be spoofed --fl */
                if(!IsConfDoSpoofIp(aconf) || !strchr(aconf->name, '@'))
                {
                        p = username;

                        if(!IsNoTilde(aconf))
                                source_p->username[i++] = '~';

                        while (*p && i < USERLEN)
                        {
                                if(*p != '[')
                                        source_p->username[i++] = *p;
                                p++;
                        }

                        source_p->username[i] = '\0';
                }
        }

        if(IsNeedSasl(aconf) && !*user->suser)
        {
                ServerStats->is_ref++;
                sendto_one_notice(source_p, ":*** Notice -- You need to identify via SASL to use this server");
                exit_client(client_p, source_p, &me, "SASL access only");
                return (CLIENT_EXITED);
        }

        /* password check */
        if(!EmptyString(aconf->passwd))
        {
                const char *encr;

                if(EmptyString(source_p->localClient->passwd))
                        encr = "";
                else if(IsConfEncrypted(aconf))
                        encr = crypt(source_p->localClient->passwd, aconf->passwd);
                else
                        encr = source_p->localClient->passwd;

                if(strcmp(encr, aconf->passwd))
                {
                        ServerStats->is_ref++;
                        sendto_one(source_p, form_str(ERR_PASSWDMISMATCH), me.name, source_p->name);
                        exit_client(client_p, source_p, &me, "Bad Password");
                        return (CLIENT_EXITED);
                }

                /* clear password only if used now, otherwise send it
                 * to services -- jilles */
                if(source_p->localClient->passwd)
                {
                        memset(source_p->localClient->passwd, 0, strlen(source_p->localClient->passwd));
                        MyFree(source_p->localClient->passwd);
                        source_p->localClient->passwd = NULL;
                }
        }

        /* report if user has &^>= etc. and set flags as needed in source_p */
        report_and_set_user_flags(source_p, aconf);

        /* Limit clients */
        /*
         * We want to be able to have servers and F-line clients
         * connect, so save room for "buffer" connections.
         * Smaller servers may want to decrease this, and it should
         * probably be just a percentage of the MAXCLIENTS...
         *   -Taner
         */
        /* Except "F:" clients */
        if(((dlink_list_length(&lclient_list) + 1) >= 
           ((unsigned long)GlobalSetOptions.maxclients + MAX_BUFFER) ||
           (dlink_list_length(&lclient_list) + 1) >= 
            ((unsigned long)GlobalSetOptions.maxclients - 5)) && !(IsExemptLimits(source_p)))
        {
                sendto_realops_snomask(SNO_FULL, L_ALL,
                                     "Too many clients, rejecting %s[%s].", source_p->name, source_p->host);

                ServerStats->is_ref++;
                exit_client(client_p, source_p, &me, "Sorry, server is full - try later");
                return (CLIENT_EXITED);
        }

        /* valid user name check */

        if(!valid_username(source_p->username))
        {
                sendto_realops_snomask(SNO_REJ, L_ALL,
                                     "Invalid username: %s (%s@%s)",
                                     source_p->name, source_p->username, source_p->host);
                ServerStats->is_ref++;
                ircsprintf(tmpstr2, "Invalid username [%s]", source_p->username);
                exit_client(client_p, source_p, &me, tmpstr2);
                return (CLIENT_EXITED);
        }

        /* end of valid user name check */

        /* kline exemption extends to xline too */
        if(!IsExemptKline(source_p) &&
           find_xline(source_p->info, 1) != NULL)
        {
                ServerStats->is_ref++;
                add_reject(source_p);
                exit_client(client_p, source_p, &me, "Bad user info");
                return CLIENT_EXITED;
        }

        /* dnsbl check */
        if (source_p->preClient->dnsbl_listed != NULL)
        {
                if (IsExemptKline(source_p) || IsConfExemptDNSBL(aconf))
                        sendto_one_notice(source_p, ":*** Your IP address %s is listed in %s, but you are exempt",
                                        source_p->sockhost, source_p->preClient->dnsbl_listed->host);
                else
                {
                        dlink_list varlist;

                        substitution_append_var(&varlist, "nick", source_p->name);
                        substitution_append_var(&varlist, "ip", source_p->sockhost);
                        substitution_append_var(&varlist, "host", source_p->host);
                        substitution_append_var(&varlist, "dnsbl-host", source_p->preClient->dnsbl_listed->host);
                        substitution_append_var(&varlist, "network-name", ServerInfo.network_name);

                        ServerStats->is_ref++;

                        sendto_one(source_p, form_str(ERR_YOUREBANNEDCREEP),
                                        me.name, source_p->name,
                                        substitution_parse(source_p->preClient->dnsbl_listed->reject_reason, &varlist));

                        substitution_free(&varlist);

                        sendto_one_notice(source_p, ":*** Your IP address %s is listed in %s",
                                        source_p->sockhost, source_p->preClient->dnsbl_listed->host);
                        source_p->preClient->dnsbl_listed->hits++;
                        add_reject(source_p);
                        exit_client(client_p, source_p, &me, "*** Banned (DNS blacklist)");
                        return CLIENT_EXITED;
                }
        }

        /* Store original hostname -- jilles */
        strlcpy(source_p->orighost, source_p->host, HOSTLEN + 1);

        /* Spoof user@host */
        if(*source_p->preClient->spoofuser)
                strlcpy(source_p->username, source_p->preClient->spoofuser, USERLEN + 1);
        if(*source_p->preClient->spoofhost)
        {
                strlcpy(source_p->host, source_p->preClient->spoofhost, HOSTLEN + 1);
                if (irccmp(source_p->host, source_p->orighost))
                        SetDynSpoof(source_p);
        }

        if(IsAnyDead(client_p))
                return CLIENT_EXITED;

        inetntop_sock((struct sockaddr *)&source_p->localClient->ip, ipaddr, sizeof(ipaddr));

        sendto_realops_snomask(SNO_CCONN, L_ALL,
                             "Client connecting: %s (%s@%s) [%s] {%s} [%s]",
                             source_p->name, source_p->username, source_p->orighost,
                             show_ip(NULL, source_p) ? ipaddr : "255.255.255.255",
                             get_client_class(source_p), source_p->info);

        sendto_realops_snomask(SNO_CCONNEXT, L_ALL,
                        "CLICONN %s %s %s %s %s %s 0 %s",
                        source_p->name, source_p->username, source_p->orighost,
                        show_ip(NULL, source_p) ? ipaddr : "255.255.255.255",
                        get_client_class(source_p),
                        /* mirc can sometimes send ips here */
                        show_ip(NULL, source_p) ? source_p->localClient->fullcaps : "<hidden> <hidden>",
                        source_p->info);

        /* If they have died in send_* don't do anything. */
        if(IsAnyDead(source_p))
                return CLIENT_EXITED;

        add_to_hostname_hash(source_p->orighost, source_p);

        /* Allocate a UID if it was not previously allocated.
         * If this already occured, it was probably during SASL auth...
         */
        if(!*source_p->id)
        {
                strcpy(source_p->id, generate_uid());
                add_to_id_hash(source_p->id, source_p);
        }

        source_p->umodes |= ConfigFileEntry.default_umodes & ~ConfigFileEntry.oper_only_umodes;

        if (source_p->umodes & UMODE_INVISIBLE)
                Count.invisi++;

        s_assert(!IsClient(source_p));
        dlinkMoveNode(&source_p->localClient->tnode, &unknown_list, &lclient_list);
        SetClient(source_p);

        /* XXX source_p->servptr is &me, since local client */
        source_p->servptr = find_server(NULL, user->server);
        dlinkAdd(source_p, &source_p->lnode, &source_p->servptr->serv->users);
        /* Increment our total user count here */
        if(++Count.total > Count.max_tot)
                Count.max_tot = Count.total;
        source_p->localClient->allow_read = MAX_FLOOD_BURST;

        Count.totalrestartcount++;

        s_assert(source_p->localClient != NULL);

        if(dlink_list_length(&lclient_list) > (unsigned long)Count.max_loc)
        {
                Count.max_loc = dlink_list_length(&lclient_list);
                if(!(Count.max_loc % 10))
                        sendto_realops_snomask(SNO_GENERAL, L_ALL,
                                             "New Max Local Clients: %d", Count.max_loc);
        }

        /* they get a reduced limit */
        if(find_tgchange(source_p->sockhost))
                USED_TARGETS(source_p) = 6;

        call_hook(h_new_local_user, source_p);

        monitor_signon(source_p);
        user_welcome(source_p);

        free_pre_client(source_p);

        return (introduce_client(client_p, source_p, user, source_p->name, 1));
}

/*
 * introduce_clients
 *
 * inputs       -
 * output       -
 * side effects - This common function introduces a client to the rest
 *                of the net, either from a local client connect or
 *                from a remote connect.
 */
int
introduce_client(struct Client *client_p, struct Client *source_p, struct User *user, const char *nick, int use_euid)
{
        static char ubuf[12];
        struct Client *identifyservice_p;
        char *p;
        hook_data_umode_changed hdata;
        hook_data_client hdata2;

        if(MyClient(source_p))
                send_umode(source_p, source_p, 0, 0, ubuf);
        else
                send_umode(NULL, source_p, 0, 0, ubuf);

        if(!*ubuf)
        {
                ubuf[0] = '+';
                ubuf[1] = '\0';
        }

        /* if it has an ID, introduce it with its id to TS6 servers,
         * otherwise introduce it normally to all.
         */
        if(has_id(source_p))
        {
                char sockhost[HOSTLEN];
                if(source_p->sockhost[0] == ':')
                {
                        sockhost[0] = '0';
                        sockhost[1] = '\0';
                        strlcat(sockhost, source_p->sockhost, sizeof(sockhost));
                } else
                        strcpy(sockhost, source_p->sockhost);
                
                if (use_euid)
                        sendto_server(client_p, NULL, CAP_EUID | CAP_TS6, NOCAPS,
                                        ":%s EUID %s %d %ld %s %s %s %s %s %s %s :%s",
                                        source_p->servptr->id, nick,
                                        source_p->hopcount + 1,
                                        (long) source_p->tsinfo, ubuf,
                                        source_p->username, source_p->host,
                                        IsIPSpoof(source_p) ? "0" : sockhost,
                                        source_p->id,
                                        IsDynSpoof(source_p) ? source_p->orighost : "*",
                                        EmptyString(source_p->user->suser) ? "*" : source_p->user->suser,
                                        source_p->info);

                sendto_server(client_p, NULL, CAP_TS6, use_euid ? CAP_EUID : NOCAPS,
                              ":%s UID %s %d %ld %s %s %s %s %s :%s",
                              source_p->servptr->id, nick,
                              source_p->hopcount + 1,
                              (long) source_p->tsinfo, ubuf,
                              source_p->username, source_p->host,
                              IsIPSpoof(source_p) ? "0" : sockhost,
                              source_p->id, source_p->info);

                sendto_server(client_p, NULL, NOCAPS, CAP_TS6,
                              "NICK %s %d %ld %s %s %s %s :%s",
                              nick, source_p->hopcount + 1,
                              (long) source_p->tsinfo,
                              ubuf, source_p->username, source_p->host,
                              user->server, source_p->info);
        }
        else
                sendto_server(client_p, NULL, NOCAPS, NOCAPS,
                              "NICK %s %d %ld %s %s %s %s :%s",
                              nick, source_p->hopcount + 1,
                              (long) source_p->tsinfo,
                              ubuf, source_p->username, source_p->host,
                              user->server, source_p->info);

        if (IsDynSpoof(source_p))
        {
                sendto_server(client_p, NULL, CAP_TS6, use_euid ? CAP_EUID : NOCAPS, ":%s ENCAP * REALHOST %s",
                                use_id(source_p), source_p->orighost);
                sendto_server(client_p, NULL, NOCAPS, CAP_TS6, ":%s ENCAP * REALHOST %s",
                                source_p->name, source_p->orighost);
        }
        if (!EmptyString(source_p->user->suser))
        {
                sendto_server(client_p, NULL, CAP_TS6, use_euid ? CAP_EUID : NOCAPS, ":%s ENCAP * LOGIN %s",
                                use_id(source_p), source_p->user->suser);
                sendto_server(client_p, NULL, NOCAPS, CAP_TS6, ":%s ENCAP * LOGIN %s",
                                source_p->name, source_p->user->suser);
        }

        if(MyConnect(source_p) && source_p->localClient->passwd)
        {
                if (ConfigFileEntry.identifyservice[0] != '\0' &&
                                ConfigFileEntry.identifycommand[0] != '\0')
                {
                        /* use user@server */
                        p = strchr(ConfigFileEntry.identifyservice, '@');
                        if (p != NULL)
                                identifyservice_p = find_named_client(p + 1);
                        else
                                identifyservice_p = NULL;
                        if (identifyservice_p != NULL)
                                sendto_one(identifyservice_p, ":%s PRIVMSG %s :%s %s",
                                                get_id(source_p, identifyservice_p),
                                                ConfigFileEntry.identifyservice,
                                                ConfigFileEntry.identifycommand,
                                                source_p->localClient->passwd);
                }
                memset(source_p->localClient->passwd, 0, strlen(source_p->localClient->passwd));
                MyFree(source_p->localClient->passwd);
                source_p->localClient->passwd = NULL;
        }

        /* let modules providing usermodes know that we've got a new user,
         * why is this here? -- well, some modules need to be able to send out new
         * information about a client, so this was the best place to do it
         *    --nenolod
         */
        hdata.client = source_p;
        hdata.oldumodes = 0;
        hdata.oldsnomask = 0;
        call_hook(h_umode_changed, &hdata);

        /* On the other hand, some modules need to know when a client is
         * being introduced, period.
         * --gxti
         */
        hdata2.client = client_p;
        hdata2.target = source_p;
        call_hook(h_introduce_client, &hdata2);

        return 0;
}

/* 
 * valid_hostname - check hostname for validity
 *
 * Inputs       - pointer to user
 * Output       - YES if valid, NO if not
 * Side effects - NONE
 *
 * NOTE: this doesn't allow a hostname to begin with a dot and
 * will not allow more dots than chars.
 */
int
valid_hostname(const char *hostname)
{
        const char *p = hostname;
        int found_sep = 0;

        s_assert(NULL != p);

        if(hostname == NULL)
                return NO;

        if('.' == *p || ':' == *p)
                return NO;

        while (*p)
        {
                if(!IsHostChar(*p))
                        return NO;
                if(*p == '.' || *p == ':')
                        found_sep++;
                p++;
        }

        if(found_sep == 0)
                return(NO);

        return (YES);
}

/* 
 * valid_username - check username for validity
 *
 * Inputs       - pointer to user
 * Output       - YES if valid, NO if not
 * Side effects - NONE
 * 
 * Absolutely always reject any '*' '!' '?' '@' in an user name
 * reject any odd control characters names.
 * Allow '.' in username to allow for "first.last"
 * style of username
 */
int
valid_username(const char *username)
{
        int dots = 0;
        const char *p = username;

        s_assert(NULL != p);

        if(username == NULL)
                return NO;

        if('~' == *p)
                ++p;

        /* reject usernames that don't start with an alphanum
         * i.e. reject jokers who have '-@somehost' or '.@somehost'
         * or "-hi-@somehost", "h-----@somehost" would still be accepted.
         */
        if(!IsAlNum(*p))
                return NO;

        while (*++p)
        {
                if((*p == '.') && ConfigFileEntry.dots_in_ident)
                {
                        dots++;
                        if(dots > ConfigFileEntry.dots_in_ident)
                                return NO;
                        if(!IsUserChar(p[1]))
                                return NO;
                }
                else if(!IsUserChar(*p))
                        return NO;
        }
        return YES;
}

/* report_and_set_user_flags
 *
 * Inputs       - pointer to source_p
 *              - pointer to aconf for this user
 * Output       - NONE
 * Side effects -
 * Report to user any special flags they are getting, and set them.
 */

static void
report_and_set_user_flags(struct Client *source_p, struct ConfItem *aconf)
{
        /* If this user is being spoofed, tell them so */
        if(IsConfDoSpoofIp(aconf))
        {
                sendto_one_notice(source_p, ":*** Spoofing your IP. congrats.");
        }

        /* If this user is in the exception class, Set it "E lined" */
        if(IsConfExemptKline(aconf))
        {
                SetExemptKline(source_p);
                sendto_one_notice(source_p, ":*** You are exempt from K/D/G/X lines. congrats.");
        }

        if(IsConfExemptGline(aconf))
        {
                SetExemptGline(source_p);

                /* dont send both a kline and gline exempt notice */
                if(!IsConfExemptKline(aconf))
                        sendto_one_notice(source_p, ":*** You are exempt from G lines.");
        }

        if(IsConfExemptDNSBL(aconf))
                /* kline exempt implies this, don't send both */
                if(!IsConfExemptKline(aconf))
                        sendto_one_notice(source_p, ":*** You are exempt from DNS blacklists.");

        /* If this user is exempt from user limits set it F lined" */
        if(IsConfExemptLimits(aconf))
        {
                SetExemptLimits(source_p);
                sendto_one_notice(source_p, "*** You are exempt from user limits. congrats.");
        }

        /* If this user is exempt from idle time outs */
        if(IsConfIdlelined(aconf))
        {
                SetIdlelined(source_p);
                sendto_one_notice(source_p, ":*** You are exempt from idle limits. congrats.");
        }

        if(IsConfExemptFlood(aconf))
        {
                SetExemptFlood(source_p);
                sendto_one_notice(source_p, ":*** You are exempt from flood limits.");
        }

        if(IsConfExemptSpambot(aconf))
        {
                SetExemptSpambot(source_p);
                sendto_one_notice(source_p, ":*** You are exempt from spambot checks.");
        }

        if(IsConfExemptJupe(aconf))
        {
                SetExemptJupe(source_p);
                sendto_one_notice(source_p, ":*** You are exempt from juped channel warnings.");
        }

        if(IsConfExemptResv(aconf))
        {
                SetExemptResv(source_p);
                sendto_one_notice(source_p, ":*** You are exempt from resvs.");
        }

        if(IsConfExemptShide(aconf))
        {
                SetExemptShide(source_p);
                sendto_one_notice(source_p, ":*** You are exempt from serverhiding.");
        }
}

/*
 * user_mode - set get current users mode
 *
 * m_umode() added 15/10/91 By Darren Reed.
 * parv[0] - sender
 * parv[1] - username to change mode for
 * parv[2] - modes to change
 */
int
user_mode(struct Client *client_p, struct Client *source_p, int parc, const char *parv[])
{
        int flag;
        int i;
        char *m;
        const char *pm;
        struct Client *target_p;
        int what, setflags;
        int badflag = NO;       /* Only send one bad flag notice */
        int showsnomask = NO;
        unsigned int setsnomask;
        char buf[BUFSIZE];
        hook_data_umode_changed hdata;

        what = MODE_ADD;

        if(parc < 2)
        {
                sendto_one(source_p, form_str(ERR_NEEDMOREPARAMS), me.name, source_p->name, "MODE");
                return 0;
        }

        if((target_p = MyClient(source_p) ? find_named_person(parv[1]) : find_person(parv[1])) == NULL)
        {
                if(MyConnect(source_p))
                        sendto_one_numeric(source_p, ERR_NOSUCHCHANNEL,
                                           form_str(ERR_NOSUCHCHANNEL), parv[1]);
                return 0;
        }

        /* Dont know why these were commented out..
         * put them back using new sendto() funcs
         */

        if(IsServer(source_p))
        {
                sendto_realops_snomask(SNO_GENERAL, L_ADMIN,
                                     "*** Mode for User %s from %s", parv[1], source_p->name);
                return 0;
        }

        if(source_p != target_p || target_p->from != source_p->from)
        {
                sendto_one(source_p, form_str(ERR_USERSDONTMATCH), me.name, source_p->name);
                return 0;
        }

        if(parc < 3)
        {
                m = buf;
                *m++ = '+';

                for (i = 0; i < 128; i++) /* >= 127 is extended ascii */
                        if (source_p->umodes & user_modes[i])
                                *m++ = (char) i;

                *m = '\0';
                sendto_one(source_p, form_str(RPL_UMODEIS), me.name, source_p->name, buf);
                if (source_p->snomask != 0)
                        sendto_one(source_p, form_str(RPL_SNOMASK), me.name, source_p->name,
                                construct_snobuf(source_p->snomask));
                return 0;
        }

        /* find flags already set for user */
        setflags = source_p->umodes;
        setsnomask = source_p->snomask;

        /*
         * parse mode change string(s)
         */
        for (pm = parv[2]; *pm; pm++)
                switch (*pm)
                {
                case '+':
                        what = MODE_ADD;
                        break;
                case '-':
                        what = MODE_DEL;
                        break;

                case 'o':
                        if(what == MODE_ADD)
                        {
                                if(IsServer(client_p) && !IsOper(source_p))
                                {
                                        ++Count.oper;
                                        SetOper(source_p);
                                        dlinkAddAlloc(source_p, &oper_list);
                                }
                        }
                        else
                        {
                                /* Only decrement the oper counts if an oper to begin with
                                 * found by Pat Szuta, Perly , perly@xnet.com 
                                 */

                                if(!IsOper(source_p))
                                        break;

                                ClearOper(source_p);

                                Count.oper--;

                                if(MyConnect(source_p))
                                {
                                        source_p->umodes &= ~ConfigFileEntry.oper_only_umodes;
                                        if (!(source_p->umodes & UMODE_SERVNOTICE) && source_p->snomask != 0)
                                        {
                                                source_p->snomask = 0;
                                                showsnomask = YES;
                                        }
                                        source_p->flags2 &= ~OPER_FLAGS;

                                        MyFree(source_p->localClient->opername);
                                        source_p->localClient->opername = NULL;

                                        dlinkFindDestroy(source_p, &local_oper_list);
                                }

                                dlinkFindDestroy(source_p, &oper_list);
                        }
                        break;

                        /* we may not get these,
                         * but they shouldnt be in default
                         */

                /* can only be set on burst */
                case 'S':
                case ' ':
                case '\n':
                case '\r':
                case '\t':
                        break;

                case 's':
                        if (MyConnect(source_p))
                        {
                                if(!IsOper(source_p)
                                                && (ConfigFileEntry.oper_only_umodes & UMODE_SERVNOTICE))
                                {
                                        if (what == MODE_ADD || source_p->umodes & UMODE_SERVNOTICE)
                                                badflag = YES;
                                        continue;
                                }
                                showsnomask = YES;
                                if(what == MODE_ADD)
                                {
                                        if (parc > 3)
                                                source_p->snomask = parse_snobuf_to_mask(source_p->snomask, parv[3]);
                                        else
                                                source_p->snomask |= SNO_GENERAL;
                                }
                                else
                                        source_p->snomask = 0;
                                if (source_p->snomask != 0)
                                        source_p->umodes |= UMODE_SERVNOTICE;
                                else
                                        source_p->umodes &= ~UMODE_SERVNOTICE;
                                break;
                        }
                        /* FALLTHROUGH */
                default:
                        if (MyConnect(source_p) && *pm == 'Q' && !ConfigChannel.use_forward) {
                                badflag = YES;
                                break;
                        }

                        if((flag = user_modes[(unsigned char) *pm]))
                        {
                                if(MyConnect(source_p)
                                   && !IsOper(source_p)
                                   && (ConfigFileEntry.oper_only_umodes & flag))
                                {
                                        if (what == MODE_ADD || source_p->umodes & flag)
                                                badflag = YES;
                                }
                                else
                                {
                                        if(what == MODE_ADD)
                                                source_p->umodes |= flag;
                                        else
                                                source_p->umodes &= ~flag;
                                }
                        }
                        else
                        {
                                if(MyConnect(source_p))
                                        badflag = YES;
                        }
                        break;
                }

        if(badflag)
                sendto_one(source_p, form_str(ERR_UMODEUNKNOWNFLAG), me.name, source_p->name);

        if(MyClient(source_p) && (source_p->snomask & SNO_NCHANGE) && !IsOperN(source_p))
        {
                sendto_one_notice(source_p, ":*** You need oper and N flag for +s +n");
                source_p->snomask &= ~SNO_NCHANGE;      /* only tcm's really need this */
        }

        if(MyClient(source_p) && (source_p->umodes & UMODE_OPERWALL) && !IsOperOperwall(source_p))
        {
                sendto_one_notice(source_p, ":*** You need oper and operwall flag for +z");
                source_p->umodes &= ~UMODE_OPERWALL;
        }

        if(MyConnect(source_p) && (source_p->umodes & UMODE_ADMIN) &&
           (!IsOperAdmin(source_p) || IsOperHiddenAdmin(source_p)))
        {
                sendto_one_notice(source_p, ":*** You need oper and A flag for +a");
                source_p->umodes &= ~UMODE_ADMIN;
        }

        /* let modules providing usermodes know that we've changed our usermode --nenolod */
        hdata.client = source_p;
        hdata.oldumodes = setflags;
        hdata.oldsnomask = setsnomask;
        call_hook(h_umode_changed, &hdata);

        if(!(setflags & UMODE_INVISIBLE) && IsInvisible(source_p))
                ++Count.invisi;
        if((setflags & UMODE_INVISIBLE) && !IsInvisible(source_p))
                --Count.invisi;
        /*
         * compare new flags with old flags and send string which
         * will cause servers to update correctly.
         */
        send_umode_out(client_p, source_p, setflags);
        if (showsnomask && MyConnect(source_p))
                sendto_one(source_p, form_str(RPL_SNOMASK), me.name, source_p->name,
                        construct_snobuf(source_p->snomask));

        return (0);
}

/*
 * send the MODE string for user (user) to connection client_p
 * -avalon
 */
void
send_umode(struct Client *client_p, struct Client *source_p, int old, int sendmask, char *umode_buf)
{
        int i;
        int flag;
        char *m;
        int what = 0;

        /*
         * build a string in umode_buf to represent the change in the user's
         * mode between the new (source_p->flag) and 'old'.
         */
        m = umode_buf;
        *m = '\0';

        for (i = 0; i < 128; i++)
        {
                flag = user_modes[i];

                if((flag & old) && !(source_p->umodes & flag))
                {
                        if(what == MODE_DEL)
                                *m++ = (char) i;
                        else
                        {
                                what = MODE_DEL;
                                *m++ = '-';
                                *m++ = (char) i;
                        }
                }
                else if(!(flag & old) && (source_p->umodes & flag))
                {
                        if(what == MODE_ADD)
                                *m++ = (char) i;
                        else
                        {
                                what = MODE_ADD;
                                *m++ = '+';
                                *m++ = (char) i;
                        }
                }
        }
        *m = '\0';

        if(*umode_buf && client_p)
                sendto_one(client_p, ":%s MODE %s :%s", source_p->name, source_p->name, umode_buf);
}

/*
 * send_umode_out
 *
 * inputs       -
 * output       - NONE
 * side effects - 
 */
void
send_umode_out(struct Client *client_p, struct Client *source_p, int old)
{
        struct Client *target_p;
        char buf[BUFSIZE];
        dlink_node *ptr;

        send_umode(NULL, source_p, old, 0, buf);

        DLINK_FOREACH(ptr, serv_list.head)
        {
                target_p = ptr->data;

                if((target_p != client_p) && (target_p != source_p) && (*buf))
                {
                        sendto_one(target_p, ":%s MODE %s :%s",
                                   get_id(source_p, target_p), 
                                   get_id(source_p, target_p), buf);
                }
        }

        if(client_p && MyClient(client_p))
                send_umode(client_p, source_p, old, 0, buf);
}

/* 
 * user_welcome
 *
 * inputs       - client pointer to client to welcome
 * output       - NONE
 * side effects -
 */
void
user_welcome(struct Client *source_p)
{
        sendto_one(source_p, form_str(RPL_WELCOME), me.name, source_p->name,
                   ServerInfo.network_name, source_p->name);
        sendto_one(source_p, form_str(RPL_YOURHOST), me.name,
                   source_p->name,
                   get_listener_name(source_p->localClient->listener), ircd_version);

        sendto_one(source_p, form_str(RPL_CREATED), me.name, source_p->name, creation);
        sendto_one(source_p, form_str(RPL_MYINFO), me.name, source_p->name, me.name, ircd_version, umodebuf);

        show_isupport(source_p);

        show_lusers(source_p);

        if(ConfigFileEntry.short_motd)
        {
                sendto_one_notice(source_p, ":*** Notice -- motd was last changed at %s", user_motd_changed);
                sendto_one_notice(source_p, ":*** Notice -- Please read the motd if you haven't read it");

                sendto_one(source_p, form_str(RPL_MOTDSTART), 
                           me.name, source_p->name, me.name);

                sendto_one(source_p, form_str(RPL_MOTD),
                           me.name, source_p->name, "*** This is the short motd ***");

                sendto_one(source_p, form_str(RPL_ENDOFMOTD), me.name, source_p->name);
        }
        else
                send_user_motd(source_p);
}

/* oper_up()
 *
 * inputs       - pointer to given client to oper
 *              - pointer to ConfItem to use
 * output       - none
 * side effects - opers up source_p using aconf for reference
 */
int
oper_up(struct Client *source_p, struct oper_conf *oper_p)
{
        unsigned int old = source_p->umodes, oldsnomask = source_p->snomask;
        hook_data_umode_changed hdata;

        SetOper(source_p);

        if(oper_p->umodes)
                source_p->umodes |= oper_p->umodes;
        else if(ConfigFileEntry.oper_umodes)
                source_p->umodes |= ConfigFileEntry.oper_umodes;
        else
                source_p->umodes |= DEFAULT_OPER_UMODES;

        if (oper_p->snomask)
        {
                source_p->snomask |= oper_p->snomask;
                source_p->umodes |= UMODE_SERVNOTICE;
        }
        else if (source_p->umodes & UMODE_SERVNOTICE)
        {
                /* Only apply these if +s is already set -- jilles */
                if (ConfigFileEntry.oper_snomask)
                        source_p->snomask |= ConfigFileEntry.oper_snomask;
                else
                        source_p->snomask |= DEFAULT_OPER_SNOMASK;
        }

        Count.oper++;

        SetExemptKline(source_p);

        source_p->flags2 |= oper_p->flags;
        DupString(source_p->localClient->opername, oper_p->name);

        dlinkAddAlloc(source_p, &local_oper_list);
        dlinkAddAlloc(source_p, &oper_list);

        if(IsOperAdmin(source_p) && !IsOperHiddenAdmin(source_p))
                source_p->umodes |= UMODE_ADMIN;
        if(!IsOperN(source_p))
                source_p->snomask &= ~SNO_NCHANGE;
        if(!IsOperOperwall(source_p))
                source_p->umodes &= ~UMODE_OPERWALL;
        hdata.client = source_p;
        hdata.oldumodes = old;
        hdata.oldsnomask = oldsnomask;
        call_hook(h_umode_changed, &hdata);

        sendto_realops_snomask(SNO_GENERAL, L_ALL,
                             "%s (%s@%s) is now an operator", source_p->name,
                             source_p->username, source_p->host);
        send_umode_out(source_p, source_p, old);
        sendto_one(source_p, form_str(RPL_SNOMASK), me.name, source_p->name,
                   construct_snobuf(source_p->snomask));
        sendto_one(source_p, form_str(RPL_YOUREOPER), me.name, source_p->name);
        sendto_one_notice(source_p, ":*** Oper privs are %s", get_oper_privs(oper_p->flags));
        send_oper_motd(source_p);

        return (1);
}

void
construct_umodebuf(void)
{
        int i;
        char *ptr = umodebuf;

        *ptr = '\0';

        for (i = 0; i < 128; i++)
                if (user_modes[i])
                        *ptr++ = (char) i;

        *ptr++ = '\0';
}

void
change_nick_user_host(struct Client *target_p,  const char *nick, const char *user,
                      const char *host, int newts, char *format, ...)
{
        dlink_node *ptr;
        struct Channel *chptr;
        struct membership *mscptr;
        int changed = irccmp(target_p->name, nick);
        int changed_case = strcmp(target_p->name, nick);
        int do_qjm = irccmp(target_p->username, user) || irccmp(target_p->host, host);
        char mode[10], modeval[NICKLEN * 2 + 2], reason[256], *mptr;
        va_list ap;

        modeval[0] = '\0';
        
        if(changed)
        {
                target_p->tsinfo = newts;
                monitor_signoff(target_p);
        }
        invalidate_bancache_user(target_p);

        if(do_qjm)
        {
                va_start(ap, format);
                vsnprintf(reason, 255, format, ap);
                va_end(ap);

                sendto_common_channels_local_butone(target_p, ":%s!%s@%s QUIT :%s",
                                target_p->name, target_p->username, target_p->host,
                                reason);

                DLINK_FOREACH(ptr, target_p->user->channel.head)
                {
                        mscptr = ptr->data;
                        chptr = mscptr->chptr;
                        mptr = mode;

                        if(is_chanop(mscptr))
                        {
                                *mptr++ = 'o';
                                strcat(modeval, nick);
                                strcat(modeval, " ");
                        }

                        if(is_voiced(mscptr))
                        {
                                *mptr++ = 'v';
                                strcat(modeval, nick);
                        }

                        *mptr = '\0';

                        sendto_channel_local_butone(target_p, ALL_MEMBERS, chptr, ":%s!%s@%s JOIN :%s",
                                        nick, user, host, chptr->chname);
                        if(*mode)
                                sendto_channel_local_butone(target_p, ALL_MEMBERS, chptr,
                                                ":%s MODE %s +%s %s",
                                                target_p->servptr->name,
                                                chptr->chname, mode, modeval);

                        *modeval = '\0';
                }

                if(MyClient(target_p) && changed_case)
                        sendto_one(target_p, ":%s!%s@%s NICK %s",
                                        target_p->name, target_p->username, target_p->host, nick);
        }
        else if(changed_case)
        {
                sendto_common_channels_local(target_p, ":%s!%s@%s NICK :%s",
                                target_p->name, target_p->username,
                                target_p->host, nick);
        }

        strlcpy(target_p->username, user, USERLEN);
        strlcpy(target_p->host, host, HOSTLEN);

        if (changed)
                add_history(target_p, 1);

        del_from_client_hash(target_p->name, target_p);
        strlcpy(target_p->name, nick, NICKLEN);
        add_to_client_hash(target_p->name, target_p);

        if(changed)
        {
                monitor_signon(target_p);
                del_all_accepts(target_p);
        }
}