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

/* modules/m_services.c
 *   Copyright (C) 2005 Lee Hardy <lee -at- leeh.co.uk>
 *   Copyright (C) 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_services.c 1907 2006-08-29 19:18:15Z jilles $
 */

#include "stdinc.h"

#include "tools.h"
#include "send.h"
#include "channel.h"
#include "client.h"
#include "common.h"
#include "config.h"
#include "ircd.h"
#include "numeric.h"
#include "memory.h"
#include "s_conf.h"
#include "s_newconf.h"
#include "s_serv.h"
#include "hash.h"
#include "msg.h"
#include "parse.h"
#include "modules.h"
#include "sprintf_irc.h"
#include "whowas.h"
#include "monitor.h"

static int me_su(struct Client *, struct Client *, int, const char **);
static int me_login(struct Client *, struct Client *, int, const char **);
static int me_rsfnc(struct Client *, struct Client *, int, const char **);
static int me_nickdelay(struct Client *, struct Client *, int, const char **);

static void h_svc_server_introduced(hook_data_client *);
static void h_svc_whois(hook_data_client *);
static void h_svc_stats(hook_data_int *);

struct Message su_msgtab = {
	"SU", 0, 0, 0, MFLG_SLOW,
	{mg_ignore, mg_ignore, mg_ignore, mg_ignore, {me_su, 2}, mg_ignore}
};
struct Message login_msgtab = {
	"LOGIN", 0, 0, 0, MFLG_SLOW,
	{mg_ignore, mg_ignore, mg_ignore, mg_ignore, {me_login, 2}, mg_ignore}
};
struct Message rsfnc_msgtab = {
	"RSFNC", 0, 0, 0, MFLG_SLOW,
	{mg_ignore, mg_ignore, mg_ignore, mg_ignore, {me_rsfnc, 4}, mg_ignore}
};
struct Message nickdelay_msgtab = {
	"NICKDELAY", 0, 0, 0, MFLG_SLOW,
	{mg_unreg, mg_ignore, mg_ignore, mg_ignore, {me_nickdelay, 3}, mg_ignore}
};

mapi_clist_av1 services_clist[] = { 
	&su_msgtab, &login_msgtab, &rsfnc_msgtab, &nickdelay_msgtab, NULL
};
mapi_hfn_list_av1 services_hfnlist[] = {
	{ "doing_stats",	(hookfn) h_svc_stats },
	{ "doing_whois",	(hookfn) h_svc_whois },
	{ "doing_whois_global",	(hookfn) h_svc_whois },
	{ "server_introduced",	(hookfn) h_svc_server_introduced },
	{ NULL, NULL }
};

DECLARE_MODULE_AV1(services, NULL, NULL, services_clist, NULL, services_hfnlist, "$Revision: 1907 $");

static int
me_su(struct Client *client_p, struct Client *source_p,
	int parc, const char *parv[])
{
	struct Client *target_p;

	if(!(source_p->flags & FLAGS_SERVICE))
		return 0;

	if((target_p = find_client(parv[1])) == NULL)
		return 0;

	if(!target_p->user)
		return 0;

	if(EmptyString(parv[2]))
		target_p->user->suser[0] = '\0';
	else
		strlcpy(target_p->user->suser, parv[2], sizeof(target_p->user->suser));

	invalidate_bancache_user(target_p);

	return 0;
}

static int
me_login(struct Client *client_p, struct Client *source_p,
	int parc, const char *parv[])
{
	if(!IsPerson(source_p))
		return 0;

	strlcpy(source_p->user->suser, parv[1], sizeof(source_p->user->suser));
	return 0;
}

static int
clean_nick(const char *nick)
{
	int len = 0;

	if(EmptyString(nick) || *nick == '-' || IsDigit(*nick))
		return 0;

	for(; *nick; nick++)
	{
		len++;
		if(!IsNickChar(*nick))
			return 0;
	}

	if(len >= NICKLEN)
		return 0;

	return 1;
}

static int
me_rsfnc(struct Client *client_p, struct Client *source_p,
	int parc, const char *parv[])
{
	struct Client *target_p;
	struct Client *exist_p;
	time_t newts, curts;

	if(!(source_p->flags & FLAGS_SERVICE))
		return 0;

	if((target_p = find_person(parv[1])) == NULL)
		return 0;

	if(!MyClient(target_p))
		return 0;

	if(!clean_nick(parv[2]))
		return 0;

	curts = atol(parv[4]);

	/* if tsinfo is different from what it was when services issued the
	 * RSFNC, then we ignore it.  This can happen when a client changes
	 * nicknames before the RSFNC arrives.. --anfl
	 */
	if(target_p->tsinfo != curts)
		return 0;

	if((exist_p = find_named_client(parv[2])))
	{
		char buf[BUFSIZE];

		/* this would be one hell of a race condition to trigger
		 * this one given the tsinfo check above, but its here for 
		 * safety --anfl
		 */
		if(target_p == exist_p)
			return 0;

		if(MyClient(exist_p))
			sendto_one(exist_p, ":%s KILL %s :(Nickname regained by services)",
				me.name, exist_p->name);

		exist_p->flags |= FLAGS_KILLED;
		/* Do not send kills to servers for unknowns -- jilles */
		if(IsClient(exist_p))
			kill_client_serv_butone(NULL, exist_p, "%s (Nickname regained by services)",
						me.name);

		snprintf(buf, sizeof(buf), "Killed (%s (Nickname regained by services))",
			me.name);
		exit_client(NULL, exist_p, &me, buf);
	}

	newts = atol(parv[3]);

	/* timestamp is older than 15mins, ignore it */
	if(newts < (CurrentTime - 900))
		newts = CurrentTime - 900;

	target_p->tsinfo = newts;

	monitor_signoff(target_p);

	invalidate_bancache_user(target_p);

	sendto_realops_snomask(SNO_NCHANGE, L_ALL,
			"Nick change: From %s to %s [%s@%s]",
			target_p->name, parv[2], target_p->username,
			target_p->host);

	sendto_common_channels_local(target_p, ":%s!%s@%s NICK :%s",
				target_p->name, target_p->username,
				target_p->host, parv[2]);

	add_history(target_p, 1);
	sendto_server(NULL, NULL, CAP_TS6, NOCAPS, ":%s NICK %s :%ld",
			use_id(target_p), parv[2], (long) target_p->tsinfo);
	sendto_server(NULL, NULL, NOCAPS, CAP_TS6, ":%s NICK %s :%ld",
			target_p->name, parv[2], (long) target_p->tsinfo);

	del_from_client_hash(target_p->name, target_p);
	strcpy(target_p->name, parv[2]);
	add_to_client_hash(target_p->name, target_p);

	monitor_signon(target_p);

	del_all_accepts(target_p);

	comm_note(target_p->localClient->fd, "Nick: %s", target_p->name);
	return 0;
}

/*
** me_nickdelay
**      parv[0] = sender prefix
**      parv[1] = duration in seconds (0 to remove)
**      parv[2] = nick
*/
static int
me_nickdelay(struct Client *client_p, struct Client *source_p, int parc, const char *parv[])
{
	int duration;
	struct nd_entry *nd;

	if(!(source_p->flags & FLAGS_SERVICE))
		return 0;

	duration = atoi(parv[1]);
	if (duration <= 0)
	{
		nd = hash_find_nd(parv[2]);
		if (nd != NULL)
			free_nd_entry(nd);
	}
	else
	{
		if (duration > 86400)
			duration = 86400;
		add_nd_entry(parv[2]);
		nd = hash_find_nd(parv[2]);
		if (nd != NULL)
			nd->expire = CurrentTime + duration;
	}

	return 0;
}

static void
h_svc_server_introduced(hook_data_client *hdata)
{
	dlink_node *ptr;

	DLINK_FOREACH(ptr, service_list.head)
	{
		if(!irccmp((const char *) ptr->data, hdata->target->name))
		{
			hdata->target->flags |= FLAGS_SERVICE;
			return;
		}
	}
}

static void
h_svc_whois(hook_data_client *data)
{
	char *p = data->target->user->suser;
	if(!EmptyString(p))
	{
		/* Try to strip off any leading digits as this may be used to
		 * store both an ID number and an account name in one field.
		 * If only digits are present, leave as is.
		 */
		while(IsDigit(*p))
			p++;
		if(*p == '\0')
			p = data->target->user->suser;

		sendto_one(data->client, form_str(RPL_WHOISLOGGEDIN),
				get_id(&me, data->client),
				get_id(data->client, data->client),
				data->target->name, p);
	}
}

static void
h_svc_stats(hook_data_int *data)
{
	char statchar = (char) data->arg2;
	dlink_node *ptr;

	if (statchar == 'U' && IsOper(data->client))
	{
		DLINK_FOREACH(ptr, service_list.head)
		{
			sendto_one_numeric(data->client, RPL_STATSULINE,
						form_str(RPL_STATSULINE),
						ptr->data, "*", "*", "s");
		}
	}
}
Commit	Line	Data
212380e3	1	/* modules/m_services.c
	2	* Copyright (C) 2005 Lee Hardy <lee -at- leeh.co.uk>
	3	* Copyright (C) 2005 ircd-ratbox development team
	4	*
	5	* Redistribution and use in source and binary forms, with or without
	6	* modification, are permitted provided that the following conditions are
	7	* met:
	8	*
	9	* 1.Redistributions of source code must retain the above copyright notice,
	10	* this list of conditions and the following disclaimer.
	11	* 2.Redistributions in binary form must reproduce the above copyright
	12	* notice, this list of conditions and the following disclaimer in the
	13	* documentation and/or other materials provided with the distribution.
	14	* 3.The name of the author may not be used to endorse or promote products
	15	* derived from this software without specific prior written permission.
	16	*
	17	* THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
	18	* IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
	19	* WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
	20	* DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT,
	21	* INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
	22	* (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
	23	* SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
	24	* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
	25	* STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING
	26	* IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
	27	* POSSIBILITY OF SUCH DAMAGE.
	28	*
	29	* $Id: m_services.c 1907 2006-08-29 19:18:15Z jilles $
	30	*/
	31
	32	#include "stdinc.h"
	33
	34	#include "tools.h"
	35	#include "send.h"
	36	#include "channel.h"
	37	#include "client.h"
	38	#include "common.h"
	39	#include "config.h"
	40	#include "ircd.h"
	41	#include "numeric.h"
	42	#include "memory.h"
	43	#include "s_conf.h"
	44	#include "s_newconf.h"
	45	#include "s_serv.h"
	46	#include "hash.h"
	47	#include "msg.h"
	48	#include "parse.h"
	49	#include "modules.h"
	50	#include "sprintf_irc.h"
	51	#include "whowas.h"
	52	#include "monitor.h"
	53
	54	static int me_su(struct Client , struct Client , int, const char **);
	55	static int me_login(struct Client , struct Client , int, const char **);
	56	static int me_rsfnc(struct Client , struct Client , int, const char **);
	57	static int me_nickdelay(struct Client , struct Client , int, const char **);
	58
	59	static void h_svc_server_introduced(hook_data_client *);
	60	static void h_svc_whois(hook_data_client *);
	61	static void h_svc_stats(hook_data_int *);
	62
	63	struct Message su_msgtab = {
	64	"SU", 0, 0, 0, MFLG_SLOW,
65	{mg_ignore, mg_ignore, mg_ignore, mg_ignore, {me_su, 2}, mg_ignore}
66	};
67	struct Message login_msgtab = {
68	"LOGIN", 0, 0, 0, MFLG_SLOW,
69	{mg_ignore, mg_ignore, mg_ignore, mg_ignore, {me_login, 2}, mg_ignore}
70	};
71	struct Message rsfnc_msgtab = {
72	"RSFNC", 0, 0, 0, MFLG_SLOW,
73	{mg_ignore, mg_ignore, mg_ignore, mg_ignore, {me_rsfnc, 4}, mg_ignore}
74	};
75	struct Message nickdelay_msgtab = {
76	"NICKDELAY", 0, 0, 0, MFLG_SLOW,
77	{mg_unreg, mg_ignore, mg_ignore, mg_ignore, {me_nickdelay, 3}, mg_ignore}
78	};
79
80	mapi_clist_av1 services_clist[] = {
81	&su_msgtab, &login_msgtab, &rsfnc_msgtab, &nickdelay_msgtab, NULL
82	};
83	mapi_hfn_list_av1 services_hfnlist[] = {
84	{ "doing_stats", (hookfn) h_svc_stats },
85	{ "doing_whois", (hookfn) h_svc_whois },
86	{ "doing_whois_global", (hookfn) h_svc_whois },
87	{ "server_introduced", (hookfn) h_svc_server_introduced },
88	{ NULL, NULL }
89	};
90
91	DECLARE_MODULE_AV1(services, NULL, NULL, services_clist, NULL, services_hfnlist, "$Revision: 1907 $");
92
93	static int
94	me_su(struct Client client_p, struct Client source_p,
95	int parc, const char *parv[])
96	{
97	struct Client *target_p;
98
99	if(!(source_p->flags & FLAGS_SERVICE))
100	return 0;
101
102	if((target_p = find_client(parv[1])) == NULL)
103	return 0;
104
105	if(!target_p->user)
106	return 0;
107
108	if(EmptyString(parv[2]))
109	target_p->user->suser[0] = '\0';
110	else
111	strlcpy(target_p->user->suser, parv[2], sizeof(target_p->user->suser));
112
113	invalidate_bancache_user(target_p);
114
115	return 0;
116	}
117
118	static int
119	me_login(struct Client client_p, struct Client source_p,
120	int parc, const char *parv[])
121	{
122	if(!IsPerson(source_p))
123	return 0;
124
125	strlcpy(source_p->user->suser, parv[1], sizeof(source_p->user->suser));
126	return 0;
127	}
128
129	static int
130	clean_nick(const char *nick)
131	{
132	int len = 0;
133
134	if(EmptyString(nick) \|\| nick == '-' \|\| IsDigit(nick))
135	return 0;
136
137	for(; *nick; nick++)
138	{
139	len++;
140	if(!IsNickChar(*nick))
141	return 0;
142	}
143
144	if(len >= NICKLEN)
145	return 0;
146
147	return 1;
148	}
149
150	static int
151	me_rsfnc(struct Client client_p, struct Client source_p,
152	int parc, const char *parv[])
153	{
154	struct Client *target_p;
155	struct Client *exist_p;
156	time_t newts, curts;
157
158	if(!(source_p->flags & FLAGS_SERVICE))
159	return 0;
160
161	if((target_p = find_person(parv[1])) == NULL)
162	return 0;
163
164	if(!MyClient(target_p))
165	return 0;
166
167	if(!clean_nick(parv[2]))
168	return 0;
169
170	curts = atol(parv[4]);
171
172	/* if tsinfo is different from what it was when services issued the
173	* RSFNC, then we ignore it. This can happen when a client changes
174	* nicknames before the RSFNC arrives.. --anfl
175	*/
176	if(target_p->tsinfo != curts)
177	return 0;
178
179	if((exist_p = find_named_client(parv[2])))
180	{
181	char buf[BUFSIZE];
182
183	/* this would be one hell of a race condition to trigger
184	* this one given the tsinfo check above, but its here for
185	* safety --anfl
186	*/
187	if(target_p == exist_p)
188	return 0;
189
190	if(MyClient(exist_p))
191	sendto_one(exist_p, ":%s KILL %s :(Nickname regained by services)",
192	me.name, exist_p->name);
193
194	exist_p->flags \|= FLAGS_KILLED;
195	/* Do not send kills to servers for unknowns -- jilles */
196	if(IsClient(exist_p))
197	kill_client_serv_butone(NULL, exist_p, "%s (Nickname regained by services)",
198	me.name);
199
200	snprintf(buf, sizeof(buf), "Killed (%s (Nickname regained by services))",
201	me.name);
202	exit_client(NULL, exist_p, &me, buf);
203	}
204
205	newts = atol(parv[3]);
206
207	/* timestamp is older than 15mins, ignore it */
208	if(newts < (CurrentTime - 900))
209	newts = CurrentTime - 900;
210
211	target_p->tsinfo = newts;
212
213	monitor_signoff(target_p);
214
215	invalidate_bancache_user(target_p);
216
217	sendto_realops_snomask(SNO_NCHANGE, L_ALL,
218	"Nick change: From %s to %s [%s@%s]",
219	target_p->name, parv[2], target_p->username,
220	target_p->host);
221
222	sendto_common_channels_local(target_p, ":%s!%s@%s NICK :%s",
223	target_p->name, target_p->username,
224	target_p->host, parv[2]);
225
226	add_history(target_p, 1);
227	sendto_server(NULL, NULL, CAP_TS6, NOCAPS, ":%s NICK %s :%ld",
228	use_id(target_p), parv[2], (long) target_p->tsinfo);
229	sendto_server(NULL, NULL, NOCAPS, CAP_TS6, ":%s NICK %s :%ld",
230	target_p->name, parv[2], (long) target_p->tsinfo);
231
232	del_from_client_hash(target_p->name, target_p);
233	strcpy(target_p->name, parv[2]);
234	add_to_client_hash(target_p->name, target_p);
235
236	monitor_signon(target_p);
237
238	del_all_accepts(target_p);
239
240	comm_note(target_p->localClient->fd, "Nick: %s", target_p->name);
241	return 0;
242	}
243
244	/*
245	** me_nickdelay
246	** parv[0] = sender prefix
247	** parv[1] = duration in seconds (0 to remove)
248	** parv[2] = nick
249	*/
250	static int
251	me_nickdelay(struct Client client_p, struct Client source_p, int parc, const char *parv[])
252	{
253	int duration;
254	struct nd_entry *nd;
255
256	if(!(source_p->flags & FLAGS_SERVICE))
257	return 0;
258
259	duration = atoi(parv[1]);
260	if (duration <= 0)
261	{
262	nd = hash_find_nd(parv[2]);
263	if (nd != NULL)
264	free_nd_entry(nd);
265	}
266	else
267	{
268	if (duration > 86400)
269	duration = 86400;
270	add_nd_entry(parv[2]);
271	nd = hash_find_nd(parv[2]);
272	if (nd != NULL)
273	nd->expire = CurrentTime + duration;
274	}
275
276	return 0;
277	}
278
279	static void
280	h_svc_server_introduced(hook_data_client *hdata)
281	{
282	dlink_node *ptr;
283
284	DLINK_FOREACH(ptr, service_list.head)
285	{
286	if(!irccmp((const char *) ptr->data, hdata->target->name))
287	{
288	hdata->target->flags \|= FLAGS_SERVICE;
289	return;
290	}
291	}
292	}
293
294	static void
295	h_svc_whois(hook_data_client *data)
296	{
297	char *p = data->target->user->suser;
298	if(!EmptyString(p))
299	{
300	/* Try to strip off any leading digits as this may be used to
301	* store both an ID number and an account name in one field.
302	* If only digits are present, leave as is.
303	*/
304	while(IsDigit(*p))
305	p++;
306	if(*p == '\0')
307	p = data->target->user->suser;
308
309	sendto_one(data->client, form_str(RPL_WHOISLOGGEDIN),
310	get_id(&me, data->client),
311	get_id(data->client, data->client),
312	data->target->name, p);
313	}
314	}
315
316	static void
317	h_svc_stats(hook_data_int *data)
318	{
319	char statchar = (char) data->arg2;
320	dlink_node *ptr;
321
322	if (statchar == 'U' && IsOper(data->client))
323	{
324	DLINK_FOREACH(ptr, service_list.head)
325	{
326	sendto_one_numeric(data->client, RPL_STATSULINE,
327	form_str(RPL_STATSULINE),
328	ptr->data, "", "", "s");
329	}
330	}
331	}