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

/*
 *  ircd-ratbox: A slightly useful ircd.
 *  m_trace.c: Traces a path to a client/server.
 *
 *  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: m_trace.c 3183 2007-02-01 01:07:42Z jilles $
 */

#include "stdinc.h"
#include "class.h"
#include "hook.h"
#include "client.h"
#include "hash.h"
#include "common.h"
#include "hash.h"
#include "irc_string.h"
#include "ircd.h"
#include "numeric.h"
#include "commio.h"
#include "s_serv.h"
#include "s_conf.h"
#include "s_newconf.h"
#include "send.h"
#include "msg.h"
#include "parse.h"
#include "modules.h"

static int m_trace(struct Client *, struct Client *, int, const char **);

static void trace_spy(struct Client *, struct Client *);

struct Message trace_msgtab = {
	"TRACE", 0, 0, 0, MFLG_SLOW,
	{mg_unreg, {m_trace, 0}, {m_trace, 0}, mg_ignore, mg_ignore, {m_trace, 0}}
};

int doing_trace_hook;

mapi_clist_av1 trace_clist[] = { &trace_msgtab, NULL };
mapi_hlist_av1 trace_hlist[] = {
	{ "doing_trace",	&doing_trace_hook },
	{ NULL, NULL }
};
DECLARE_MODULE_AV1(trace, NULL, NULL, trace_clist, trace_hlist, NULL, "$Revision: 3183 $");

static void count_downlinks(struct Client *server_p, int *pservcount, int *pusercount);
static int report_this_status(struct Client *source_p, struct Client *target_p, int dow);

/*
 * m_trace
 *      parv[0] = sender prefix
 *      parv[1] = servername
 */
static int
m_trace(struct Client *client_p, struct Client *source_p, int parc, const char *parv[])
{
	struct Client *target_p = NULL;
	struct Class *cltmp;
	const char *tname;
	int doall = 0;
	int cnt = 0, wilds, dow;
	dlink_node *ptr;

	if(parc > 1)
	{
		tname = parv[1];

		if(parc > 2)
		{
			if(hunt_server(client_p, source_p, ":%s TRACE %s :%s", 2, parc, parv) !=
					HUNTED_ISME)
				return 0;
		}
	}
	else
		tname = me.name;

	/* if we have 3 parameters, then the command is directed at us.  So
	 * we shouldnt be forwarding it anywhere.
	 */
	if(parc < 3)
	{
		switch (hunt_server(client_p, source_p, ":%s TRACE :%s", 1, parc, parv))
		{
		case HUNTED_PASS:	/* note: gets here only if parv[1] exists */
		{
			struct Client *ac2ptr;

			if(MyClient(source_p))
				ac2ptr = find_named_client(tname);
			else
				ac2ptr = find_client(tname);

			if(ac2ptr == NULL)
			{
				DLINK_FOREACH(ptr, global_client_list.head)
				{
					ac2ptr = ptr->data;

					if(match(tname, ac2ptr->name))
						break;
					else
						ac2ptr = NULL;
				}
			}

			/* giving this out with flattened links defeats the
			 * object --fl
			 */
			if(IsOper(source_p) || IsExemptShide(source_p) ||
			   !ConfigServerHide.flatten_links)
				sendto_one_numeric(source_p, RPL_TRACELINK, 
						   form_str(RPL_TRACELINK),
						   ircd_version, 
						   ac2ptr ? ac2ptr->name : tname,
						   ac2ptr ? ac2ptr->from->name : "EEK!");

			return 0;
		}

		case HUNTED_ISME:
			break;

		default:
			return 0;
		}
	}

	if(match(tname, me.name))
	{
		doall = 1;
	}
	/* if theyre tracing our SID, we need to move tname to our name so
	 * we dont give the sid in ENDOFTRACE
	 */
	else if(!MyClient(source_p) && !strcmp(tname, me.id))
	{
		doall = 1;
		tname = me.name;
	}

	wilds = strchr(tname, '*') || strchr(tname, '?');
	dow = wilds || doall;

	/* specific trace */
	if(dow == 0)
	{
		if(MyClient(source_p) || parc > 2)
			target_p = find_named_person(tname);
		else
			target_p = find_person(tname);

		/* tname could be pointing to an ID at this point, so reset
		 * it to target_p->name if we have a target --fl
		 */
		if(target_p != NULL)
		{
			report_this_status(source_p, target_p, 0);
			tname = target_p->name;
		}

		trace_spy(source_p, target_p);

		sendto_one_numeric(source_p, RPL_ENDOFTRACE, 
				   form_str(RPL_ENDOFTRACE), tname);
		return 0;
	}

	trace_spy(source_p, NULL);

	/* give non-opers a limited trace output of themselves (if local), 
	 * opers and servers (if no shide) --fl
	 */
	if(!IsOper(source_p))
	{
		if(MyClient(source_p))
		{
			if(doall || (wilds && match(tname, source_p->name)))
				report_this_status(source_p, source_p, 0);
		}

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

			if(!doall && wilds && (match(tname, target_p->name) == 0))
				continue;

			report_this_status(source_p, target_p, 0);
		}

		if (IsExemptShide(source_p) || !ConfigServerHide.flatten_links)
		{
			DLINK_FOREACH(ptr, serv_list.head)
			{
				target_p = ptr->data;

				if(!doall && wilds && !match(tname, target_p->name))
					continue;

				report_this_status(source_p, target_p, 0);
			}
		}

		sendto_one_numeric(source_p, RPL_ENDOFTRACE, 
				   form_str(RPL_ENDOFTRACE), tname);
		return 0;
	}

	/* source_p is opered */

	/* report all direct connections */
	DLINK_FOREACH(ptr, lclient_list.head)
	{
		target_p = ptr->data;

		/* dont show invisible users to remote opers */
		if(IsInvisible(target_p) && dow && !MyConnect(source_p) && !IsOper(target_p))
			continue;

		if(!doall && wilds && !match(tname, target_p->name))
			continue;

		cnt = report_this_status(source_p, target_p, dow);
	}

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

		if(!doall && wilds && !match(tname, target_p->name))
			continue;

		cnt = report_this_status(source_p, target_p, dow);
	}

	if(MyConnect(source_p))
	{
		DLINK_FOREACH(ptr, unknown_list.head)
		{
			target_p = ptr->data;

			if(!doall && wilds && !match(tname, target_p->name))
				continue;

			cnt = report_this_status(source_p, target_p, dow);
		}
	}

	if(!cnt)
	{
		sendto_one_numeric(source_p, ERR_NOSUCHSERVER, form_str(ERR_NOSUCHSERVER),
					tname);

		/* let the user have some idea that its at the end of the
		 * trace
		 */
		sendto_one_numeric(source_p, RPL_ENDOFTRACE, 
				   form_str(RPL_ENDOFTRACE), tname);
		return 0;
	}

	if(doall)
	{
		DLINK_FOREACH(ptr, class_list.head)
		{
			cltmp = ptr->data;

			if(CurrUsers(cltmp) > 0)
				sendto_one_numeric(source_p, RPL_TRACECLASS,
						   form_str(RPL_TRACECLASS), 
						   ClassName(cltmp), CurrUsers(cltmp));
		}
	}

	sendto_one_numeric(source_p, RPL_ENDOFTRACE, form_str(RPL_ENDOFTRACE), tname);

	return 0;
}

/*
 * count_downlinks
 *
 * inputs	- pointer to server to count
 *		- pointers to server and user count
 * output	- NONE
 * side effects - server and user counts are added to given values
 */
static void
count_downlinks(struct Client *server_p, int *pservcount, int *pusercount)
{
	dlink_node *ptr;

	(*pservcount)++;
	*pusercount += dlink_list_length(&server_p->serv->users);
	DLINK_FOREACH(ptr, server_p->serv->servers.head)
	{
		count_downlinks(ptr->data, pservcount, pusercount);
	}
}

/*
 * report_this_status
 *
 * inputs	- pointer to client to report to
 * 		- pointer to client to report about
 * output	- counter of number of hits
 * side effects - NONE
 */
static int
report_this_status(struct Client *source_p, struct Client *target_p,
		   int dow)
{
	const char *name;
	const char *class_name;
	char ip[HOSTIPLEN];
	int cnt = 0;

	/* sanity check - should never happen */
	if(!MyConnect(target_p))
		return 0;

	inetntop_sock((struct sockaddr *)&target_p->localClient->ip, ip, sizeof(ip));
	class_name = get_client_class(target_p);

	if(IsAnyServer(target_p))
		name = get_server_name(target_p, HIDE_IP);
	else
		name = get_client_name(target_p, HIDE_IP);

	switch (target_p->status)
	{
	case STAT_CONNECTING:
		sendto_one_numeric(source_p, RPL_TRACECONNECTING,
				form_str(RPL_TRACECONNECTING),
				class_name, name);
		cnt++;
		break;

	case STAT_HANDSHAKE:
		sendto_one_numeric(source_p, RPL_TRACEHANDSHAKE,
				form_str(RPL_TRACEHANDSHAKE),
				class_name, name);
		cnt++;
		break;

	case STAT_ME:
		break;

	case STAT_UNKNOWN:
		/* added time -Taner */
		sendto_one_numeric(source_p, RPL_TRACEUNKNOWN,
				   form_str(RPL_TRACEUNKNOWN),
				   class_name, name, ip,
				   CurrentTime - target_p->localClient->firsttime);
		cnt++;
		break;

	case STAT_CLIENT:
		/* Only opers see users if there is a wildcard
		 * but anyone can see all the opers.
		 */
		if((IsOper(source_p) &&
		    (MyClient(source_p) || !(dow && IsInvisible(target_p))))
		   || !dow || IsOper(target_p) || (source_p == target_p))
		{
			if(IsOper(target_p))
				sendto_one_numeric(source_p, RPL_TRACEOPERATOR,
						   form_str(RPL_TRACEOPERATOR),
						   class_name, name,
						   show_ip(source_p, target_p) ? ip : "255.255.255.255",
						   CurrentTime - target_p->localClient->lasttime,
						   CurrentTime - target_p->localClient->last);

			else
				sendto_one_numeric(source_p, RPL_TRACEUSER, 
						   form_str(RPL_TRACEUSER),
						   class_name, name,
						   show_ip(source_p, target_p) ? ip : "255.255.255.255",
						   CurrentTime - target_p->localClient->lasttime,
						   CurrentTime - target_p->localClient->last);
			cnt++;
		}
		break;

	case STAT_SERVER:
		{
			int usercount = 0;
			int servcount = 0;

			count_downlinks(target_p, &servcount, &usercount);

			sendto_one_numeric(source_p, RPL_TRACESERVER, form_str(RPL_TRACESERVER),
				   class_name, servcount, usercount, name,
				   *(target_p->serv->by) ? target_p->serv->by : "*", "*",
				   me.name, CurrentTime - target_p->localClient->lasttime);
			cnt++;

		}
		break;

	default:		/* ...we actually shouldn't come here... --msa */
		sendto_one_numeric(source_p, RPL_TRACENEWTYPE, 
				   form_str(RPL_TRACENEWTYPE), 
				   me.name, source_p->name, name);
		cnt++;
		break;
	}

	return (cnt);
}

/* trace_spy()
 *
 * input        - pointer to client
 * output       - none
 * side effects - hook event doing_trace is called
 */
static void
trace_spy(struct Client *source_p, struct Client *target_p)
{
	hook_data_client hdata;

	hdata.client = source_p;
	hdata.target = target_p;

	call_hook(doing_trace_hook, &hdata);
}
Commit	Line	Data
212380e3	1	/*
	2	* ircd-ratbox: A slightly useful ircd.
	3	* m_trace.c: Traces a path to a client/server.
	4	*
	5	* Copyright (C) 1990 Jarkko Oikarinen and University of Oulu, Co Center
	6	* Copyright (C) 1996-2002 Hybrid Development Team
	7	* Copyright (C) 2002-2005 ircd-ratbox development team
	8	*
	9	* This program is free software; you can redistribute it and/or modify
	10	* it under the terms of the GNU General Public License as published by
	11	* the Free Software Foundation; either version 2 of the License, or
	12	* (at your option) any later version.
	13	*
	14	* This program is distributed in the hope that it will be useful,
	15	* but WITHOUT ANY WARRANTY; without even the implied warranty of
	16	* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	17	* GNU General Public License for more details.
	18	*
	19	* You should have received a copy of the GNU General Public License
	20	* along with this program; if not, write to the Free Software
	21	* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
	22	* USA
	23	*
4d7a1ee5	24	* $Id: m_trace.c 3183 2007-02-01 01:07:42Z jilles $
212380e3	25	*/
	26
	27	#include "stdinc.h"
	28	#include "class.h"
	29	#include "hook.h"
	30	#include "client.h"
	31	#include "hash.h"
	32	#include "common.h"
	33	#include "hash.h"
	34	#include "irc_string.h"
	35	#include "ircd.h"
	36	#include "numeric.h"
	37	#include "commio.h"
	38	#include "s_serv.h"
	39	#include "s_conf.h"
	40	#include "s_newconf.h"
	41	#include "send.h"
	42	#include "msg.h"
	43	#include "parse.h"
	44	#include "modules.h"
	45
	46	static int m_trace(struct Client , struct Client , int, const char **);
	47
	48	static void trace_spy(struct Client , struct Client );
	49
	50	struct Message trace_msgtab = {
	51	"TRACE", 0, 0, 0, MFLG_SLOW,
	52	{mg_unreg, {m_trace, 0}, {m_trace, 0}, mg_ignore, mg_ignore, {m_trace, 0}}
	53	};
	54
	55	int doing_trace_hook;
	56
	57	mapi_clist_av1 trace_clist[] = { &trace_msgtab, NULL };
	58	mapi_hlist_av1 trace_hlist[] = {
	59	{ "doing_trace", &doing_trace_hook },
	60	{ NULL, NULL }
	61	};
4d7a1ee5	62	DECLARE_MODULE_AV1(trace, NULL, NULL, trace_clist, trace_hlist, NULL, "$Revision: 3183 $");
212380e3	63
	64	static void count_downlinks(struct Client server_p, int pservcount, int *pusercount);
	65	static int report_this_status(struct Client source_p, struct Client target_p, int dow);
	66
	67	/*
	68	* m_trace
	69	* parv[0] = sender prefix
	70	* parv[1] = servername
	71	*/
	72	static int
	73	m_trace(struct Client client_p, struct Client source_p, int parc, const char *parv[])
	74	{
	75	struct Client *target_p = NULL;
	76	struct Class *cltmp;
	77	const char *tname;
	78	int doall = 0;
	79	int cnt = 0, wilds, dow;
	80	dlink_node *ptr;
	81
	82	if(parc > 1)
	83	{
	84	tname = parv[1];
	85
	86	if(parc > 2)
	87	{
	88	if(hunt_server(client_p, source_p, ":%s TRACE %s :%s", 2, parc, parv) !=
	89	HUNTED_ISME)
	90	return 0;
	91	}
	92	}
	93	else
	94	tname = me.name;
	95
	96	/* if we have 3 parameters, then the command is directed at us. So
	97	* we shouldnt be forwarding it anywhere.
	98	*/
	99	if(parc < 3)
	100	{
	101	switch (hunt_server(client_p, source_p, ":%s TRACE :%s", 1, parc, parv))
	102	{
	103	case HUNTED_PASS: /* note: gets here only if parv[1] exists */
	104	{
	105	struct Client *ac2ptr;
	106
	107	if(MyClient(source_p))
	108	ac2ptr = find_named_client(tname);
	109	else
	110	ac2ptr = find_client(tname);
	111
	112	if(ac2ptr == NULL)
	113	{
	114	DLINK_FOREACH(ptr, global_client_list.head)
	115	{
	116	ac2ptr = ptr->data;
	117
4d7a1ee5	118	if(match(tname, ac2ptr->name))
212380e3	119	break;
	120	else
	121	ac2ptr = NULL;
	122	}
	123	}
	124
	125	/* giving this out with flattened links defeats the
	126	* object --fl
	127	*/
	128	if(IsOper(source_p) \|\| IsExemptShide(source_p) \|\|
	129	!ConfigServerHide.flatten_links)
	130	sendto_one_numeric(source_p, RPL_TRACELINK,
	131	form_str(RPL_TRACELINK),
	132	ircd_version,
	133	ac2ptr ? ac2ptr->name : tname,
	134	ac2ptr ? ac2ptr->from->name : "EEK!");
	135
	136	return 0;
	137	}
	138
	139	case HUNTED_ISME:
	140	break;
	141
	142	default:
	143	return 0;
	144	}
	145	}
	146
	147	if(match(tname, me.name))
	148	{
	149	doall = 1;
	150	}
	151	/* if theyre tracing our SID, we need to move tname to our name so
	152	* we dont give the sid in ENDOFTRACE
	153	*/
	154	else if(!MyClient(source_p) && !strcmp(tname, me.id))
	155	{
	156	doall = 1;
	157	tname = me.name;
	158	}
	159
	160	wilds = strchr(tname, '*') \|\| strchr(tname, '?');
	161	dow = wilds \|\| doall;
	162
	163	/* specific trace */
	164	if(dow == 0)
	165	{
	166	if(MyClient(source_p) \|\| parc > 2)
	167	target_p = find_named_person(tname);
	168	else
	169	target_p = find_person(tname);
	170
	171	/* tname could be pointing to an ID at this point, so reset
	172	* it to target_p->name if we have a target --fl
	173	*/
	174	if(target_p != NULL)
	175	{
	176	report_this_status(source_p, target_p, 0);
	177	tname = target_p->name;
	178	}
	179
	180	trace_spy(source_p, target_p);
	181
	182	sendto_one_numeric(source_p, RPL_ENDOFTRACE,
183	form_str(RPL_ENDOFTRACE), tname);
184	return 0;
185	}
186
187	trace_spy(source_p, NULL);
188
189	/* give non-opers a limited trace output of themselves (if local),
190	* opers and servers (if no shide) --fl
191	*/
192	if(!IsOper(source_p))
193	{
194	if(MyClient(source_p))
195	{
196	if(doall \|\| (wilds && match(tname, source_p->name)))
197	report_this_status(source_p, source_p, 0);
198	}
199
200	DLINK_FOREACH(ptr, local_oper_list.head)
201	{
202	target_p = ptr->data;
203
204	if(!doall && wilds && (match(tname, target_p->name) == 0))
205	continue;
206
207	report_this_status(source_p, target_p, 0);
208	}
209
210	if (IsExemptShide(source_p) \|\| !ConfigServerHide.flatten_links)
211	{
212	DLINK_FOREACH(ptr, serv_list.head)
213	{
214	target_p = ptr->data;
215
216	if(!doall && wilds && !match(tname, target_p->name))
217	continue;
218
219	report_this_status(source_p, target_p, 0);
220	}
221	}
222
223	sendto_one_numeric(source_p, RPL_ENDOFTRACE,
224	form_str(RPL_ENDOFTRACE), tname);
225	return 0;
226	}
227
228	/* source_p is opered */
229
230	/* report all direct connections */
231	DLINK_FOREACH(ptr, lclient_list.head)
232	{
233	target_p = ptr->data;
234
235	/* dont show invisible users to remote opers */
236	if(IsInvisible(target_p) && dow && !MyConnect(source_p) && !IsOper(target_p))
237	continue;
238
239	if(!doall && wilds && !match(tname, target_p->name))
240	continue;
241
242	cnt = report_this_status(source_p, target_p, dow);
243	}
244
245	DLINK_FOREACH(ptr, serv_list.head)
246	{
247	target_p = ptr->data;
248
249	if(!doall && wilds && !match(tname, target_p->name))
250	continue;
251
252	cnt = report_this_status(source_p, target_p, dow);
253	}
254
255	if(MyConnect(source_p))
256	{
257	DLINK_FOREACH(ptr, unknown_list.head)
258	{
259	target_p = ptr->data;
260
261	if(!doall && wilds && !match(tname, target_p->name))
262	continue;
263
264	cnt = report_this_status(source_p, target_p, dow);
265	}
266	}
267
268	if(!cnt)
269	{
270	sendto_one_numeric(source_p, ERR_NOSUCHSERVER, form_str(ERR_NOSUCHSERVER),
271	tname);
272
273	/* let the user have some idea that its at the end of the
274	* trace
275	*/
276	sendto_one_numeric(source_p, RPL_ENDOFTRACE,
277	form_str(RPL_ENDOFTRACE), tname);
278	return 0;
279	}
280
281	if(doall)
282	{
283	DLINK_FOREACH(ptr, class_list.head)
284	{
285	cltmp = ptr->data;
286
287	if(CurrUsers(cltmp) > 0)
288	sendto_one_numeric(source_p, RPL_TRACECLASS,
289	form_str(RPL_TRACECLASS),
290	ClassName(cltmp), CurrUsers(cltmp));
291	}
292	}
293
294	sendto_one_numeric(source_p, RPL_ENDOFTRACE, form_str(RPL_ENDOFTRACE), tname);
295
296	return 0;
297	}
298
299	/*
300	* count_downlinks
301	*
302	* inputs - pointer to server to count
303	* - pointers to server and user count
304	* output - NONE
305	* side effects - server and user counts are added to given values
306	*/
307	static void
308	count_downlinks(struct Client server_p, int pservcount, int *pusercount)
309	{
310	dlink_node *ptr;
311
312	(*pservcount)++;
313	*pusercount += dlink_list_length(&server_p->serv->users);
314	DLINK_FOREACH(ptr, server_p->serv->servers.head)
315	{
316	count_downlinks(ptr->data, pservcount, pusercount);
317	}
318	}
319
320	/*
321	* report_this_status
322	*
323	* inputs - pointer to client to report to
324	* - pointer to client to report about
325	* output - counter of number of hits
326	* side effects - NONE
327	*/
328	static int
329	report_this_status(struct Client source_p, struct Client target_p,
330	int dow)
331	{
332	const char *name;
333	const char *class_name;
334	char ip[HOSTIPLEN];
335	int cnt = 0;
336
337	/* sanity check - should never happen */
338	if(!MyConnect(target_p))
339	return 0;
340
341	inetntop_sock((struct sockaddr *)&target_p->localClient->ip, ip, sizeof(ip));
342	class_name = get_client_class(target_p);
343
344	if(IsAnyServer(target_p))
345	name = get_server_name(target_p, HIDE_IP);
346	else
347	name = get_client_name(target_p, HIDE_IP);
348
349	switch (target_p->status)
350	{
351	case STAT_CONNECTING:
352	sendto_one_numeric(source_p, RPL_TRACECONNECTING,
353	form_str(RPL_TRACECONNECTING),
354	class_name, name);
355	cnt++;
356	break;
357
358	case STAT_HANDSHAKE:
359	sendto_one_numeric(source_p, RPL_TRACEHANDSHAKE,
360	form_str(RPL_TRACEHANDSHAKE),
361	class_name, name);
362	cnt++;
363	break;
364
365	case STAT_ME:
366	break;
367
368	case STAT_UNKNOWN:
369	/* added time -Taner */
370	sendto_one_numeric(source_p, RPL_TRACEUNKNOWN,
371	form_str(RPL_TRACEUNKNOWN),
372	class_name, name, ip,
373	CurrentTime - target_p->localClient->firsttime);
374	cnt++;
375	break;
376
377	case STAT_CLIENT:
378	/* Only opers see users if there is a wildcard
379	* but anyone can see all the opers.
380	*/
381	if((IsOper(source_p) &&
382	(MyClient(source_p) \|\| !(dow && IsInvisible(target_p))))
383	\|\| !dow \|\| IsOper(target_p) \|\| (source_p == target_p))
384	{
385	if(IsOper(target_p))
386	sendto_one_numeric(source_p, RPL_TRACEOPERATOR,
387	form_str(RPL_TRACEOPERATOR),
388	class_name, name,
389	show_ip(source_p, target_p) ? ip : "255.255.255.255",
390	CurrentTime - target_p->localClient->lasttime,
391	CurrentTime - target_p->localClient->last);
392
393	else
394	sendto_one_numeric(source_p, RPL_TRACEUSER,
395	form_str(RPL_TRACEUSER),
396	class_name, name,
397	show_ip(source_p, target_p) ? ip : "255.255.255.255",
398	CurrentTime - target_p->localClient->lasttime,
399	CurrentTime - target_p->localClient->last);
400	cnt++;
401	}
402	break;
403
404	case STAT_SERVER:
405	{
406	int usercount = 0;
407	int servcount = 0;
408
409	count_downlinks(target_p, &servcount, &usercount);
410
411	sendto_one_numeric(source_p, RPL_TRACESERVER, form_str(RPL_TRACESERVER),
412	class_name, servcount, usercount, name,
413	(target_p->serv->by) ? target_p->serv->by : "", "*",
414	me.name, CurrentTime - target_p->localClient->lasttime);
415	cnt++;
416
417	}
418	break;
419
420	default: /* ...we actually shouldn't come here... --msa */
421	sendto_one_numeric(source_p, RPL_TRACENEWTYPE,
422	form_str(RPL_TRACENEWTYPE),
423	me.name, source_p->name, name);
424	cnt++;
425	break;
426	}
427
428	return (cnt);
429	}
430
431	/* trace_spy()
432	*
433	* input - pointer to client
434	* output - none
435	* side effects - hook event doing_trace is called
436	*/
437	static void
438	trace_spy(struct Client source_p, struct Client target_p)
439	{
440	hook_data_client hdata;
441
442	hdata.client = source_p;
443	hdata.target = target_p;
444
445	call_hook(doing_trace_hook, &hdata);
446	}