/*
 * =================================================================
 * Filename:            m_userip.c
 * Description:         Command /userip
 * Author:		AngryWolf <angrywolf@flashmail.com>
 * Documentation:       m_userip.txt (comes with the package)
 * =================================================================
 */

#include "config.h"
#include "struct.h"
#include "common.h"
#include "sys.h"
#include "numeric.h"
#include "msg.h"
#include "channel.h"
#include <time.h>
#include <sys/stat.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#ifdef _WIN32
#include <io.h>
#endif
#include <fcntl.h>
#include "h.h"
#ifdef STRIPBADWORDS
#include "badwords.h"
#endif
#ifdef _WIN32
#include "version.h"
#endif

#define RPL_USERIP	":%s 340 %s :%s %s %s %s %s"
#define IsParam(x)      (parc > (x) && !BadPtr(parv[(x)]))
#define IsNotParam(x)   (parc <= (x) || BadPtr(parv[(x)]))
#define DelCommand(x)	if (x) CommandDel(x); x = NULL

static int		m_userip(aClient *cptr, aClient *sptr, int parc, char *parv[]);
static Command		*CmdUserip = NULL;

ModuleHeader MOD_HEADER(m_userip)
  = {
	"userip",
	"$Id: m_userip.c,v 1.2 2004/07/04 21:03:53 angrywolf Exp $",
	"command /userip",
	"3.2-b8-1",
	NULL 
    };


DLLFUNC int MOD_INIT(m_userip)(ModuleInfo *modinfo)
{
	if (CommandExists("USERIP"))
    	{
		config_error("Command USERIP already exists");
		return MOD_FAILED;
    	}

	CmdUserip = CommandAdd(modinfo->handle, "USERIP", NULL, m_userip, 1, 0);

#ifndef STATIC_LINKING
	if (ModuleGetError(modinfo->handle) != MODERR_NOERROR)
#else
	if (!CmdUserip)
#endif
	{
#ifndef STATIC_LINKING
		config_error("Error adding command USERIP: %s",
			ModuleGetErrorStr(modinfo->handle));
#else
		config_error("Error adding command USERIP");
#endif
		return MOD_FAILED;
	}

	return MOD_SUCCESS;
}

DLLFUNC int MOD_LOAD(m_userip)(int module_load)
{
	return MOD_SUCCESS;
}


DLLFUNC int MOD_UNLOAD(m_userip)(int module_unload)
{
	DelCommand(CmdUserip);
	return MOD_SUCCESS;
}

/*
 * =================================================================
 * m_userip -- Show the IP addresses of the given users
 *             (based on the code of /userhost)
 *
 *     parv[0]    = sender prefix
 *     parv[1..5] = nicknames
 * =================================================================
 */

// Copyright info:

/*
 *
 *   IRC - Internet Relay Chat, src/modules/m_userhost.c
 *   (C) 2004 The UnrealIRCd Team
 *
 *   See file AUTHORS in IRC package for additional names of
 *   the programmers.
 *
 *   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 1, 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., 675 Mass Ave, Cambridge, MA 02139, USA.
 */

/*
 * m_userhost added by Darren Reed 13/8/91 to aid clients and reduce
 * the need for complicated requests like WHOIS. It returns user/host
 * information only (no spurious AWAY labels or channels).
 * Re-written by Dianora 1999
 */

static int m_userip(aClient *cptr, aClient *sptr, int parc, char *parv[])
{
        char *p;                /* scratch end pointer */
        char *cn;               /* current name */
	char *ip;
        struct Client *acptr;
        char response[5][NICKLEN * 2 + CHANNELLEN + USERLEN + HOSTLEN + 30];
        int  i;                 /* loop counter */

        if (parc < 2)
        {
                sendto_one(sptr, rpl_str(ERR_NEEDMOREPARAMS),
                    me.name, parv[0], "USERIP");
                return 0;
        }

        /* The idea is to build up the response string out of pieces
         * none of this strlen() nonsense.
         * 5 * (NICKLEN*2+CHANNELLEN+USERLEN+HOSTLEN+30) is still << sizeof(buf)
         * and our ircsprintf() truncates it to fit anyway. There is
         * no danger of an overflow here. -Dianora
         */
        response[0][0] = response[1][0] = response[2][0] =
            response[3][0] = response[4][0] = '\0';

        cn = parv[1];

        for (i = 0; (i < 5) && cn; i++)
        {
                if ((p = strchr(cn, ' ')))
                        *p = '\0';

                if ((acptr = find_person(cn, NULL)))
                {
                        ircsprintf(response[i], "%s%s=%c%s@%s",
                            acptr->name,
                            (IsAnOper(acptr) && (!IsHideOper(acptr) || sptr == acptr || IsAnOper(sptr)))
                                ? "*" : "",
                            (acptr->user->away) ? '-' : '+',
                            acptr->user->username,
			    (ip = GetIP(acptr))
				? ((acptr != sptr) && !IsOper(sptr) && IsHidden(acptr))
				    ? RCallbacks[CALLBACKTYPE_CLOAK]->func.pcharfunc(ip)
				    : ip
				: "<unknown>");
                }
                if (p)
                        p++;
                cn = p;
        }

        sendto_one(sptr, RPL_USERIP, me.name, parv[0],
            response[0], response[1], response[2], response[3], response[4]);

        return 0;
}