[irc/rqf/shadowircd.git] / modules / m_testline.c

/* modules/m_testline.c
 * 
 *  Copyright (C) 2004 Lee Hardy <lee@leeh.co.uk>
 *  Copyright (C) 2004-2005 ircd-ratbox development team
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions are
 * met:
 *
 * 1.Redistributions of source code must retain the above copyright notice,
 *   this list of conditions and the following disclaimer.
 * 2.Redistributions in binary form must reproduce the above copyright
 *   notice, this list of conditions and the following disclaimer in the
 *   documentation and/or other materials provided with the distribution.
 * 3.The name of the author may not be used to endorse or promote products
 *   derived from this software without specific prior written permission.
 *
 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
 * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
 * DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT,
 * INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
 * (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
 * SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
 * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING
 * IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
 * POSSIBILITY OF SUCH DAMAGE.
 *
 * $Id: m_testline.c 3303 2007-03-28 15:22:49Z jilles $
 */
#include "stdinc.h"
#include "send.h"
#include "client.h"
#include "modules.h"
#include "msg.h"
#include "hash.h"
#include "hostmask.h"
#include "numeric.h"
#include "s_conf.h"
#include "s_newconf.h"
#include "sprintf_irc.h"

static int mo_testline(struct Client *, struct Client *, int, const char **);
static int mo_testgecos(struct Client *, struct Client *, int, const char **);

struct Message testline_msgtab = {
	"TESTLINE", 0, 0, 0, MFLG_SLOW,
	{mg_unreg, mg_ignore, mg_ignore, mg_ignore, mg_ignore, {mo_testline, 2}}
};
struct Message testgecos_msgtab = {
	"TESTGECOS", 0, 0, 0, MFLG_SLOW,
	{mg_unreg, mg_ignore, mg_ignore, mg_ignore, mg_ignore, {mo_testgecos, 2}}
};

mapi_clist_av1 testline_clist[] = { &testline_msgtab, &testgecos_msgtab, NULL };
DECLARE_MODULE_AV1(testline, NULL, NULL, testline_clist, NULL, NULL, "$Revision: 3303 $");

static int
mo_testline(struct Client *client_p, struct Client *source_p, int parc, const char *parv[])
{
	struct ConfItem *aconf;
	struct ConfItem *resv_p;
	struct irc_sockaddr_storage ip;
	char user_trunc[USERLEN + 1], notildeuser_trunc[USERLEN + 1];
	const char *name = NULL;
	const char *username = NULL;
	const char *host = NULL;
	char *mask;
	char *p;
	int host_mask;
	int type;

	mask = LOCAL_COPY(parv[1]);

	if (IsChannelName(mask))
	{
		resv_p = hash_find_resv(mask);
		if (resv_p != NULL)
		{
			sendto_one(source_p, form_str(RPL_TESTLINE),
					me.name, source_p->name,
					resv_p->hold ? 'q' : 'Q',
					resv_p->hold ? (long) ((resv_p->hold - rb_current_time()) / 60) : 0L,
					resv_p->name, resv_p->passwd);
			/* this is a false positive, so make sure it isn't counted in stats q
			 * --nenolod
			 */
			resv_p->port--;
		}
		else
			sendto_one(source_p, form_str(RPL_NOTESTLINE),
					me.name, source_p->name, parv[1]);
		return 0;
	}

	if((p = strchr(mask, '!')))
	{
		*p++ = '\0';
		name = mask;
		mask = p;

		if(EmptyString(mask))
			return 0;
	}

	if((p = strchr(mask, '@')))
	{
		*p++ = '\0';
		username = mask;
		host = p;

		if(EmptyString(host))
			return 0;
	}
	else
		host = mask;

	/* parses as an IP, check for a dline */
	if((type = parse_netmask(host, (struct sockaddr *)&ip, &host_mask)) != HM_HOST)
	{
#ifdef IPV6
		if(type == HM_IPV6)
			aconf = find_dline((struct sockaddr *)&ip, AF_INET6);
		else
#endif
			aconf = find_dline((struct sockaddr *)&ip, AF_INET);

		if(aconf && aconf->status & CONF_DLINE)
		{
			sendto_one(source_p, form_str(RPL_TESTLINE),
				me.name, source_p->name,
				(aconf->flags & CONF_FLAGS_TEMPORARY) ? 'd' : 'D',
				(aconf->flags & CONF_FLAGS_TEMPORARY) ? 
				 (long) ((aconf->hold - rb_current_time()) / 60) : 0L, 
				aconf->host, aconf->passwd);

			return 0;
		}
	}

	if (username != NULL)
	{
		strlcpy(user_trunc, username, sizeof user_trunc);
		strlcpy(notildeuser_trunc, *username == '~' ? username + 1 : username, sizeof notildeuser_trunc);
	}
	else
	{
		strlcpy(user_trunc, "dummy", sizeof user_trunc);
		strlcpy(notildeuser_trunc, "dummy", sizeof notildeuser_trunc);
	}
	/* now look for a matching I/K/G */
	if((aconf = find_address_conf(host, NULL, user_trunc, notildeuser_trunc,
				(type != HM_HOST) ? (struct sockaddr *)&ip : NULL,
				(type != HM_HOST) ? (
#ifdef IPV6
				 (type == HM_IPV6) ? AF_INET6 : 
#endif
				  AF_INET) : 0)))
	{
		static char buf[HOSTLEN+USERLEN+2];

		if(aconf->status & CONF_KILL)
		{
			rb_snprintf(buf, sizeof(buf), "%s@%s", 
					aconf->user, aconf->host);
			sendto_one(source_p, form_str(RPL_TESTLINE),
				me.name, source_p->name,
				(aconf->flags & CONF_FLAGS_TEMPORARY) ? 'k' : 'K',
				(aconf->flags & CONF_FLAGS_TEMPORARY) ? 
				 (long) ((aconf->hold - rb_current_time()) / 60) : 0L,
				buf, aconf->passwd);
			return 0;
		}
		else if(aconf->status & CONF_GLINE)
		{
			rb_snprintf(buf, sizeof(buf), "%s@%s",
					aconf->user, aconf->host);
			sendto_one(source_p, form_str(RPL_TESTLINE),
				me.name, source_p->name,
				'G', (long) ((aconf->hold - rb_current_time()) / 60),
				buf, aconf->passwd);
			return 0;
		}
	}

	/* they asked us to check a nick, so hunt for resvs.. */
	if(name && (resv_p = find_nick_resv(name)))
	{
		sendto_one(source_p, form_str(RPL_TESTLINE),
				me.name, source_p->name,
				resv_p->hold ? 'q' : 'Q',
				resv_p->hold ? (long) ((resv_p->hold - rb_current_time()) / 60) : 0L,
				resv_p->name, resv_p->passwd);

		/* this is a false positive, so make sure it isn't counted in stats q
		 * --nenolod
		 */
		resv_p->port--;
		return 0;
	}

	/* no matching resv, we can print the I: if it exists */
	if(aconf && aconf->status & CONF_CLIENT)
	{
		sendto_one_numeric(source_p, RPL_STATSILINE, form_str(RPL_STATSILINE),
				aconf->name, show_iline_prefix(source_p, aconf, aconf->user),
				aconf->host, aconf->port, aconf->className);
		return 0;
	}

	/* nothing matches.. */
	sendto_one(source_p, form_str(RPL_NOTESTLINE),
			me.name, source_p->name, parv[1]);
	return 0;
}

static int
mo_testgecos(struct Client *client_p, struct Client *source_p, int parc, const char *parv[])
{
	struct ConfItem *aconf;

	if(!(aconf = find_xline(parv[1], 0)))
	{
		sendto_one(source_p, form_str(RPL_NOTESTLINE),
				me.name, source_p->name, parv[1]);
		return 0;
	}

	sendto_one(source_p, form_str(RPL_TESTLINE),
			me.name, source_p->name,
			aconf->hold ? 'x' : 'X',
			aconf->hold ? (long) ((aconf->hold - rb_current_time()) / 60) : 0L,
			aconf->name, aconf->passwd);
	return 0;
}
Commit	Line	Data
212380e3	1	/* modules/m_testline.c
	2	*
	3	* Copyright (C) 2004 Lee Hardy <lee@leeh.co.uk>
	4	* Copyright (C) 2004-2005 ircd-ratbox development team
	5	*
	6	* Redistribution and use in source and binary forms, with or without
	7	* modification, are permitted provided that the following conditions are
	8	* met:
	9	*
	10	* 1.Redistributions of source code must retain the above copyright notice,
	11	* this list of conditions and the following disclaimer.
	12	* 2.Redistributions in binary form must reproduce the above copyright
	13	* notice, this list of conditions and the following disclaimer in the
	14	* documentation and/or other materials provided with the distribution.
	15	* 3.The name of the author may not be used to endorse or promote products
	16	* derived from this software without specific prior written permission.
	17	*
	18	* THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
	19	* IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
	20	* WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
	21	* DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT,
	22	* INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
	23	* (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
	24	* SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
	25	* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
	26	* STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING
	27	* IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
	28	* POSSIBILITY OF SUCH DAMAGE.
	29	*
add9f99d	30	* $Id: m_testline.c 3303 2007-03-28 15:22:49Z jilles $
212380e3	31	*/
212380e3	32	#include "stdinc.h"
212380e3	33	#include "send.h"
	34	#include "client.h"
	35	#include "modules.h"
	36	#include "msg.h"
add9f99d	37	#include "hash.h"
212380e3	38	#include "hostmask.h"
	39	#include "numeric.h"
	40	#include "s_conf.h"
	41	#include "s_newconf.h"
	42	#include "sprintf_irc.h"
	43
	44	static int mo_testline(struct Client , struct Client , int, const char **);
	45	static int mo_testgecos(struct Client , struct Client , int, const char **);
	46
	47	struct Message testline_msgtab = {
	48	"TESTLINE", 0, 0, 0, MFLG_SLOW,
	49	{mg_unreg, mg_ignore, mg_ignore, mg_ignore, mg_ignore, {mo_testline, 2}}
	50	};
	51	struct Message testgecos_msgtab = {
	52	"TESTGECOS", 0, 0, 0, MFLG_SLOW,
	53	{mg_unreg, mg_ignore, mg_ignore, mg_ignore, mg_ignore, {mo_testgecos, 2}}
	54	};
	55
	56	mapi_clist_av1 testline_clist[] = { &testline_msgtab, &testgecos_msgtab, NULL };
add9f99d	57	DECLARE_MODULE_AV1(testline, NULL, NULL, testline_clist, NULL, NULL, "$Revision: 3303 $");
212380e3	58
	59	static int
	60	mo_testline(struct Client client_p, struct Client source_p, int parc, const char *parv[])
	61	{
	62	struct ConfItem *aconf;
	63	struct ConfItem *resv_p;
	64	struct irc_sockaddr_storage ip;
	65	char user_trunc[USERLEN + 1], notildeuser_trunc[USERLEN + 1];
	66	const char *name = NULL;
	67	const char *username = NULL;
	68	const char *host = NULL;
	69	char *mask;
	70	char *p;
	71	int host_mask;
	72	int type;
	73
	74	mask = LOCAL_COPY(parv[1]);
	75
add9f99d	76	if (IsChannelName(mask))
	77	{
	78	resv_p = hash_find_resv(mask);
	79	if (resv_p != NULL)
	80	{
	81	sendto_one(source_p, form_str(RPL_TESTLINE),
	82	me.name, source_p->name,
	83	resv_p->hold ? 'q' : 'Q',
9f6bbe3c	84	resv_p->hold ? (long) ((resv_p->hold - rb_current_time()) / 60) : 0L,
add9f99d	85	resv_p->name, resv_p->passwd);
	86	/* this is a false positive, so make sure it isn't counted in stats q
	87	* --nenolod
	88	*/
	89	resv_p->port--;
	90	}
	91	else
	92	sendto_one(source_p, form_str(RPL_NOTESTLINE),
	93	me.name, source_p->name, parv[1]);
	94	return 0;
	95	}
	96
212380e3	97	if((p = strchr(mask, '!')))
	98	{
	99	*p++ = '\0';
	100	name = mask;
	101	mask = p;
	102
	103	if(EmptyString(mask))
	104	return 0;
	105	}
	106
	107	if((p = strchr(mask, '@')))
	108	{
	109	*p++ = '\0';
	110	username = mask;
	111	host = p;
	112
	113	if(EmptyString(host))
	114	return 0;
	115	}
	116	else
	117	host = mask;
	118
	119	/* parses as an IP, check for a dline */
	120	if((type = parse_netmask(host, (struct sockaddr *)&ip, &host_mask)) != HM_HOST)
	121	{
	122	#ifdef IPV6
	123	if(type == HM_IPV6)
	124	aconf = find_dline((struct sockaddr *)&ip, AF_INET6);
	125	else
	126	#endif
	127	aconf = find_dline((struct sockaddr *)&ip, AF_INET);
	128
	129	if(aconf && aconf->status & CONF_DLINE)
	130	{
	131	sendto_one(source_p, form_str(RPL_TESTLINE),
	132	me.name, source_p->name,
	133	(aconf->flags & CONF_FLAGS_TEMPORARY) ? 'd' : 'D',
	134	(aconf->flags & CONF_FLAGS_TEMPORARY) ?
9f6bbe3c	135	(long) ((aconf->hold - rb_current_time()) / 60) : 0L,
212380e3	136	aconf->host, aconf->passwd);
	137
	138	return 0;
	139	}
	140	}
	141
	142	if (username != NULL)
	143	{
	144	strlcpy(user_trunc, username, sizeof user_trunc);
	145	strlcpy(notildeuser_trunc, *username == '~' ? username + 1 : username, sizeof notildeuser_trunc);
	146	}
	147	else
	148	{
	149	strlcpy(user_trunc, "dummy", sizeof user_trunc);
	150	strlcpy(notildeuser_trunc, "dummy", sizeof notildeuser_trunc);
	151	}
	152	/* now look for a matching I/K/G */
	153	if((aconf = find_address_conf(host, NULL, user_trunc, notildeuser_trunc,
	154	(type != HM_HOST) ? (struct sockaddr *)&ip : NULL,
	155	(type != HM_HOST) ? (
	156	#ifdef IPV6
	157	(type == HM_IPV6) ? AF_INET6 :
	158	#endif
	159	AF_INET) : 0)))
	160	{
	161	static char buf[HOSTLEN+USERLEN+2];
	162
	163	if(aconf->status & CONF_KILL)
	164	{
581fa5c4	165	rb_snprintf(buf, sizeof(buf), "%s@%s",
212380e3	166	aconf->user, aconf->host);
	167	sendto_one(source_p, form_str(RPL_TESTLINE),
	168	me.name, source_p->name,
	169	(aconf->flags & CONF_FLAGS_TEMPORARY) ? 'k' : 'K',
	170	(aconf->flags & CONF_FLAGS_TEMPORARY) ?
9f6bbe3c	171	(long) ((aconf->hold - rb_current_time()) / 60) : 0L,
212380e3	172	buf, aconf->passwd);
	173	return 0;
	174	}
	175	else if(aconf->status & CONF_GLINE)
	176	{
581fa5c4	177	rb_snprintf(buf, sizeof(buf), "%s@%s",
212380e3	178	aconf->user, aconf->host);
	179	sendto_one(source_p, form_str(RPL_TESTLINE),
	180	me.name, source_p->name,
9f6bbe3c	181	'G', (long) ((aconf->hold - rb_current_time()) / 60),
212380e3	182	buf, aconf->passwd);
	183	return 0;
	184	}
	185	}
	186
	187	/* they asked us to check a nick, so hunt for resvs.. */
	188	if(name && (resv_p = find_nick_resv(name)))
	189	{
	190	sendto_one(source_p, form_str(RPL_TESTLINE),
	191	me.name, source_p->name,
	192	resv_p->hold ? 'q' : 'Q',
9f6bbe3c	193	resv_p->hold ? (long) ((resv_p->hold - rb_current_time()) / 60) : 0L,
212380e3	194	resv_p->name, resv_p->passwd);
	195
	196	/* this is a false positive, so make sure it isn't counted in stats q
	197	* --nenolod
	198	*/
	199	resv_p->port--;
	200	return 0;
	201	}
	202
	203	/* no matching resv, we can print the I: if it exists */
	204	if(aconf && aconf->status & CONF_CLIENT)
	205	{
	206	sendto_one_numeric(source_p, RPL_STATSILINE, form_str(RPL_STATSILINE),
	207	aconf->name, show_iline_prefix(source_p, aconf, aconf->user),
	208	aconf->host, aconf->port, aconf->className);
	209	return 0;
	210	}
	211
	212	/* nothing matches.. */
	213	sendto_one(source_p, form_str(RPL_NOTESTLINE),
	214	me.name, source_p->name, parv[1]);
	215	return 0;
	216	}
	217
	218	static int
	219	mo_testgecos(struct Client client_p, struct Client source_p, int parc, const char *parv[])
	220	{
	221	struct ConfItem *aconf;
	222
	223	if(!(aconf = find_xline(parv[1], 0)))
	224	{
	225	sendto_one(source_p, form_str(RPL_NOTESTLINE),
	226	me.name, source_p->name, parv[1]);
	227	return 0;
	228	}
	229
	230	sendto_one(source_p, form_str(RPL_TESTLINE),
	231	me.name, source_p->name,
	232	aconf->hold ? 'x' : 'X',
9f6bbe3c	233	aconf->hold ? (long) ((aconf->hold - rb_current_time()) / 60) : 0L,
212380e3	234	aconf->name, aconf->passwd);
	235	return 0;
	236	}