[solanum.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 "send.h"
#include "channel.h"
#include "client.h"
#include "common.h"
#include "config.h"
#include "ircd.h"
#include "numeric.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 "whowas.h"
#include "monitor.h"

static int _modinit(void);
static void _moddeinit(void);

static void mark_services(void);
static void unmark_services(void);

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 *);
static void h_svc_conf_read_start(void *);
static void h_svc_conf_read_end(void *);

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 },
	{ "conf_read_start", (hookfn) h_svc_conf_read_start },
	{ "conf_read_end", (hookfn) h_svc_conf_read_end },
	{ NULL, NULL }
};

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

static int
_modinit(void)
{
	mark_services();
	return 0;
}

static void
_moddeinit(void)
{
	unmark_services();
}

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))
	{
		sendto_realops_snomask(SNO_GENERAL, L_ALL,
			"Non-service server %s attempting to execute services-only command SU", source_p->name);
		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
		rb_strlcpy(target_p->user->suser, parv[2], sizeof(target_p->user->suser));

	sendto_common_channels_local_butone(target_p, CLICAP_ACCOUNT_NOTIFY, NOCAPS, ":%s!%s@%s ACCOUNT %s",
					    target_p->name, target_p->username, target_p->host,
					    EmptyString(target_p->user->suser) ? "*" : 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;

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

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;
	char note[NICKLEN + 10];

	if(!(source_p->flags & FLAGS_SERVICE))
	{
		sendto_realops_snomask(SNO_GENERAL, L_ALL,
			"Non-service server %s attempting to execute services-only command RSFNC", source_p->name);
		return 0;
	}

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

	if(!MyClient(target_p))
		return 0;

	if(!clean_nick(parv[2], 0) || IsDigit(parv[2][0]))
		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)
			goto doit;

		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);
			sendto_realops_snomask(SNO_SKILL, L_ALL,
					"Nick collision due to services forced nick change on %s",
					parv[2]);
		}

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

doit:
	newts = atol(parv[3]);

	/* timestamp is older than 15mins, ignore it */
	if(newts < (rb_current_time() - 900))
		newts = rb_current_time() - 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, NOCAPS, NOCAPS, ":%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);

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

	monitor_signon(target_p);

	del_all_accepts(target_p);

	rb_snprintf(note, NICKLEN + 10, "Nick: %s", target_p->name);
	rb_note(target_p->localClient->F, note);
	return 0;
}

/*
** me_nickdelay
**      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))
	{
		sendto_realops_snomask(SNO_GENERAL, L_ALL,
			"Non-service server %s attempting to execute services-only command NICKDELAY", source_p->name);
		return 0;
	}

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

	return 0;
}

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

	RB_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_numeric(data->client, RPL_WHOISLOGGEDIN,
				form_str(RPL_WHOISLOGGEDIN),
				data->target->name, p);
	}
}

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

	if (statchar == 'U' && IsOper(data->client))
	{
		RB_DLINK_FOREACH(ptr, service_list.head)
		{
			sendto_one_numeric(data->client, RPL_STATSULINE,
						form_str(RPL_STATSULINE),
						(const char *)ptr->data, "*", "*", "s");
		}
	}
}

static void
h_svc_conf_read_start(void *dummy)
{
	unmark_services();
}

static void
unmark_services(void)
{
	struct Client *target_p;
	rb_dlink_node *ptr;

	RB_DLINK_FOREACH(ptr, global_serv_list.head)
	{
		target_p = ptr->data;

		target_p->flags &= ~FLAGS_SERVICE;
	}
}

static void
h_svc_conf_read_end(void *dummy)
{
	mark_services();
}

static void
mark_services(void)
{
	struct Client *target_p;
	rb_dlink_node *ptr;

	RB_DLINK_FOREACH(ptr, service_list.head)
	{
		target_p = find_server(NULL, (const char *)ptr->data);

		if (target_p)
			target_p->flags |= FLAGS_SERVICE;
	}
}
Commit	Line	Data
212380e3 AC	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
212380e3 AC	34	#include "send.h"
	35	#include "channel.h"
	36	#include "client.h"
	37	#include "common.h"
	38	#include "config.h"
	39	#include "ircd.h"
	40	#include "numeric.h"
212380e3 AC	41	#include "s_conf.h"
	42	#include "s_newconf.h"
	43	#include "s_serv.h"
	44	#include "hash.h"
	45	#include "msg.h"
	46	#include "parse.h"
	47	#include "modules.h"
212380e3 AC	48	#include "whowas.h"
	49	#include "monitor.h"
	50
c46a4ecd KB	51	static int _modinit(void);
	52	static void _moddeinit(void);
	53
	54	static void mark_services(void);
	55	static void unmark_services(void);
	56
212380e3 AC	57	static int me_su(struct Client , struct Client , int, const char **);
	58	static int me_login(struct Client , struct Client , int, const char **);
	59	static int me_rsfnc(struct Client , struct Client , int, const char **);
	60	static int me_nickdelay(struct Client , struct Client , int, const char **);
	61
	62	static void h_svc_server_introduced(hook_data_client *);
	63	static void h_svc_whois(hook_data_client *);
	64	static void h_svc_stats(hook_data_int *);
c46a4ecd KB	65	static void h_svc_conf_read_start(void *);
c46a4ecd KB	66	static void h_svc_conf_read_end(void *);
212380e3 AC	67
	68	struct Message su_msgtab = {
	69	"SU", 0, 0, 0, MFLG_SLOW,
	70	{mg_ignore, mg_ignore, mg_ignore, mg_ignore, {me_su, 2}, mg_ignore}
	71	};
	72	struct Message login_msgtab = {
	73	"LOGIN", 0, 0, 0, MFLG_SLOW,
	74	{mg_ignore, mg_ignore, mg_ignore, mg_ignore, {me_login, 2}, mg_ignore}
	75	};
	76	struct Message rsfnc_msgtab = {
	77	"RSFNC", 0, 0, 0, MFLG_SLOW,
	78	{mg_ignore, mg_ignore, mg_ignore, mg_ignore, {me_rsfnc, 4}, mg_ignore}
	79	};
	80	struct Message nickdelay_msgtab = {
	81	"NICKDELAY", 0, 0, 0, MFLG_SLOW,
	82	{mg_unreg, mg_ignore, mg_ignore, mg_ignore, {me_nickdelay, 3}, mg_ignore}
	83	};
	84
55abcbb2	85	mapi_clist_av1 services_clist[] = {
212380e3 AC	86	&su_msgtab, &login_msgtab, &rsfnc_msgtab, &nickdelay_msgtab, NULL
	87	};
	88	mapi_hfn_list_av1 services_hfnlist[] = {
	89	{ "doing_stats", (hookfn) h_svc_stats },
	90	{ "doing_whois", (hookfn) h_svc_whois },
	91	{ "doing_whois_global", (hookfn) h_svc_whois },
	92	{ "server_introduced", (hookfn) h_svc_server_introduced },
c46a4ecd KB	93	{ "conf_read_start", (hookfn) h_svc_conf_read_start },
c46a4ecd KB	94	{ "conf_read_end", (hookfn) h_svc_conf_read_end },
212380e3 AC	95	{ NULL, NULL }
	96	};
	97
c46a4ecd KB	98	DECLARE_MODULE_AV1(services, _modinit, _moddeinit, services_clist, NULL, services_hfnlist, "$Revision: 1907 $");
	99
	100	static int
	101	_modinit(void)
	102	{
	103	mark_services();
8a4b8377	104	return 0;
c46a4ecd KB	105	}
	106
	107	static void
	108	_moddeinit(void)
	109	{
	110	unmark_services();
	111	}
212380e3 AC	112
	113	static int
	114	me_su(struct Client client_p, struct Client source_p,
	115	int parc, const char *parv[])
	116	{
	117	struct Client *target_p;
	118
	119	if(!(source_p->flags & FLAGS_SERVICE))
ec57fe67 KB	120	{
	121	sendto_realops_snomask(SNO_GENERAL, L_ALL,
	122	"Non-service server %s attempting to execute services-only command SU", source_p->name);
212380e3	123	return 0;
ec57fe67	124	}
212380e3 AC	125
	126	if((target_p = find_client(parv[1])) == NULL)
	127	return 0;
	128
	129	if(!target_p->user)
	130	return 0;
	131
	132	if(EmptyString(parv[2]))
	133	target_p->user->suser[0] = '\0';
	134	else
f427c8b0	135	rb_strlcpy(target_p->user->suser, parv[2], sizeof(target_p->user->suser));
212380e3	136
583f064f	137	sendto_common_channels_local_butone(target_p, CLICAP_ACCOUNT_NOTIFY, NOCAPS, ":%s!%s@%s ACCOUNT %s",
7a7f86d3 AC	138	target_p->name, target_p->username, target_p->host,
	139	EmptyString(target_p->user->suser) ? "*" : target_p->user->suser);
	140
212380e3 AC	141	invalidate_bancache_user(target_p);
	142
	143	return 0;
	144	}
	145
	146	static int
	147	me_login(struct Client client_p, struct Client source_p,
	148	int parc, const char *parv[])
	149	{
	150	if(!IsPerson(source_p))
	151	return 0;
	152
f427c8b0	153	rb_strlcpy(source_p->user->suser, parv[1], sizeof(source_p->user->suser));
212380e3 AC	154	return 0;
	155	}
	156
212380e3 AC	157	static int
	158	me_rsfnc(struct Client client_p, struct Client source_p,
	159	int parc, const char *parv[])
	160	{
	161	struct Client *target_p;
	162	struct Client *exist_p;
	163	time_t newts, curts;
75d60088	164	char note[NICKLEN + 10];
212380e3 AC	165
212380e3 AC	166	if(!(source_p->flags & FLAGS_SERVICE))
ec57fe67 KB	167	{
	168	sendto_realops_snomask(SNO_GENERAL, L_ALL,
	169	"Non-service server %s attempting to execute services-only command RSFNC", source_p->name);
212380e3	170	return 0;
ec57fe67	171	}
212380e3 AC	172
	173	if((target_p = find_person(parv[1])) == NULL)
	174	return 0;
	175
	176	if(!MyClient(target_p))
	177	return 0;
	178
2d28539c	179	if(!clean_nick(parv[2], 0) \|\| IsDigit(parv[2][0]))
212380e3 AC	180	return 0;
	181
	182	curts = atol(parv[4]);
	183
	184	/* if tsinfo is different from what it was when services issued the
	185	* RSFNC, then we ignore it. This can happen when a client changes
	186	* nicknames before the RSFNC arrives.. --anfl
	187	*/
	188	if(target_p->tsinfo != curts)
	189	return 0;
	190
	191	if((exist_p = find_named_client(parv[2])))
	192	{
	193	char buf[BUFSIZE];
	194
	195	/* this would be one hell of a race condition to trigger
55abcbb2	196	* this one given the tsinfo check above, but its here for
212380e3 AC	197	* safety --anfl
	198	*/
	199	if(target_p == exist_p)
03510227	200	goto doit;
212380e3 AC	201
	202	if(MyClient(exist_p))
	203	sendto_one(exist_p, ":%s KILL %s :(Nickname regained by services)",
	204	me.name, exist_p->name);
	205
	206	exist_p->flags \|= FLAGS_KILLED;
	207	/* Do not send kills to servers for unknowns -- jilles */
	208	if(IsClient(exist_p))
45ed8835	209	{
212380e3 AC	210	kill_client_serv_butone(NULL, exist_p, "%s (Nickname regained by services)",
212380e3 AC	211	me.name);
45ed8835 JT	212	sendto_realops_snomask(SNO_SKILL, L_ALL,
	213	"Nick collision due to services forced nick change on %s",
	214	parv[2]);
	215	}
212380e3	216
c2f73e5d	217	rb_snprintf(buf, sizeof(buf), "Killed (%s (Nickname regained by services))",
212380e3 AC	218	me.name);
	219	exit_client(NULL, exist_p, &me, buf);
	220	}
	221
03510227	222	doit:
212380e3 AC	223	newts = atol(parv[3]);
	224
	225	/* timestamp is older than 15mins, ignore it */
e3354945 VY	226	if(newts < (rb_current_time() - 900))
e3354945 VY	227	newts = rb_current_time() - 900;
212380e3 AC	228
	229	target_p->tsinfo = newts;
	230
	231	monitor_signoff(target_p);
	232
	233	invalidate_bancache_user(target_p);
	234
	235	sendto_realops_snomask(SNO_NCHANGE, L_ALL,
	236	"Nick change: From %s to %s [%s@%s]",
	237	target_p->name, parv[2], target_p->username,
	238	target_p->host);
	239
583f064f	240	sendto_common_channels_local(target_p, NOCAPS, NOCAPS, ":%s!%s@%s NICK :%s",
212380e3 AC	241	target_p->name, target_p->username,
	242	target_p->host, parv[2]);
	243
	244	add_history(target_p, 1);
	245	sendto_server(NULL, NULL, CAP_TS6, NOCAPS, ":%s NICK %s :%ld",
	246	use_id(target_p), parv[2], (long) target_p->tsinfo);
212380e3 AC	247
212380e3 AC	248	del_from_client_hash(target_p->name, target_p);
e2606551	249	rb_strlcpy(target_p->name, parv[2], NICKLEN);
212380e3 AC	250	add_to_client_hash(target_p->name, target_p);
	251
	252	monitor_signon(target_p);
	253
	254	del_all_accepts(target_p);
	255
75d60088 AC	256	rb_snprintf(note, NICKLEN + 10, "Nick: %s", target_p->name);
75d60088 AC	257	rb_note(target_p->localClient->F, note);
212380e3 AC	258	return 0;
	259	}
	260
	261	/*
	262	** me_nickdelay
212380e3 AC	263	** parv[1] = duration in seconds (0 to remove)
	264	** parv[2] = nick
	265	*/
	266	static int
	267	me_nickdelay(struct Client client_p, struct Client source_p, int parc, const char *parv[])
	268	{
	269	int duration;
	270	struct nd_entry *nd;
	271
	272	if(!(source_p->flags & FLAGS_SERVICE))
ec57fe67 KB	273	{
	274	sendto_realops_snomask(SNO_GENERAL, L_ALL,
	275	"Non-service server %s attempting to execute services-only command NICKDELAY", source_p->name);
212380e3	276	return 0;
ec57fe67	277	}
212380e3 AC	278
	279	duration = atoi(parv[1]);
	280	if (duration <= 0)
	281	{
b37021a4	282	nd = irc_dictionary_retrieve(nd_dict, parv[2]);
212380e3 AC	283	if (nd != NULL)
	284	free_nd_entry(nd);
	285	}
	286	else
	287	{
	288	if (duration > 86400)
	289	duration = 86400;
	290	add_nd_entry(parv[2]);
b37021a4	291	nd = irc_dictionary_retrieve(nd_dict, parv[2]);
212380e3	292	if (nd != NULL)
e3354945	293	nd->expire = rb_current_time() + duration;
212380e3 AC	294	}
	295
	296	return 0;
	297	}
	298
	299	static void
	300	h_svc_server_introduced(hook_data_client *hdata)
	301	{
5b96d9a6	302	rb_dlink_node *ptr;
212380e3	303
5b96d9a6	304	RB_DLINK_FOREACH(ptr, service_list.head)
212380e3 AC	305	{
	306	if(!irccmp((const char *) ptr->data, hdata->target->name))
	307	{
	308	hdata->target->flags \|= FLAGS_SERVICE;
	309	return;
	310	}
	311	}
	312	}
	313
	314	static void
	315	h_svc_whois(hook_data_client *data)
	316	{
	317	char *p = data->target->user->suser;
	318	if(!EmptyString(p))
	319	{
	320	/* Try to strip off any leading digits as this may be used to
	321	* store both an ID number and an account name in one field.
	322	* If only digits are present, leave as is.
	323	*/
	324	while(IsDigit(*p))
	325	p++;
	326	if(*p == '\0')
	327	p = data->target->user->suser;
	328
5b383ce0 JT	329	sendto_one_numeric(data->client, RPL_WHOISLOGGEDIN,
5b383ce0 JT	330	form_str(RPL_WHOISLOGGEDIN),
212380e3 AC	331	data->target->name, p);
	332	}
	333	}
	334
	335	static void
	336	h_svc_stats(hook_data_int *data)
	337	{
	338	char statchar = (char) data->arg2;
5b96d9a6	339	rb_dlink_node *ptr;
212380e3 AC	340
	341	if (statchar == 'U' && IsOper(data->client))
	342	{
5b96d9a6	343	RB_DLINK_FOREACH(ptr, service_list.head)
212380e3 AC	344	{
	345	sendto_one_numeric(data->client, RPL_STATSULINE,
	346	form_str(RPL_STATSULINE),
0cce01d3	347	(const char )ptr->data, "", "*", "s");
212380e3 AC	348	}
	349	}
	350	}
c46a4ecd KB	351
	352	static void
	353	h_svc_conf_read_start(void *dummy)
	354	{
	355	unmark_services();
	356	}
	357
	358	static void
	359	unmark_services(void)
	360	{
	361	struct Client *target_p;
	362	rb_dlink_node *ptr;
	363
	364	RB_DLINK_FOREACH(ptr, global_serv_list.head)
	365	{
	366	target_p = ptr->data;
	367
	368	target_p->flags &= ~FLAGS_SERVICE;
	369	}
	370	}
	371
	372	static void
	373	h_svc_conf_read_end(void *dummy)
	374	{
	375	mark_services();
	376	}
	377
	378	static void
	379	mark_services(void)
	380	{
	381	struct Client *target_p;
	382	rb_dlink_node *ptr;
	383
	384	RB_DLINK_FOREACH(ptr, service_list.head)
	385	{
	386	target_p = find_server(NULL, (const char *)ptr->data);
	387
	388	if (target_p)
	389	target_p->flags \|= FLAGS_SERVICE;
	390	}
	391	}