energymech/src/debug.c

/*

    EnergyMech, IRC bot software
    Copyright (c) 1997-2024 proton

    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., 675 Mass Ave, Cambridge, MA 02139, USA.

*/
#define DEBUG_C
#include "config.h"

#ifdef DEBUG

#include "defines.h"
#include "structs.h"
#include "global.h"
#ifdef TCL
#include <tcl.h>
#endif
#include "h.h"
#include "settings.h"

#ifndef TEST

#define boolstr(x)	(x) ? "TRUE" : "FALSE"

LS const char tabs[20] = "\t\t\t\t\t\t\t\t\t\t";

LS const struct
{
	char	*name;
	int	size;

} StructList[] =
{
{ "aME\t",		sizeof(aME)		}, /* for memory allocation debugging */
{ "aMEA",		sizeof(aMEA)		},
#ifdef ALIAS
{ "Alias",		sizeof(Alias)		},
#endif /* ALIAS */
{ "Auth",		sizeof(Auth)		},
{ "Ban\t",		sizeof(Ban)		},
#ifdef BOTNET
{ "BotInfo",		sizeof(BotInfo)		},
{ "BotNet",		sizeof(BotNet)		},
#endif
{ "Chan",		sizeof(Chan)		},
{ "ChanStats",		sizeof(ChanStats)	},
{ "ChanUser",		sizeof(ChanUser)	},
{ "Client",		sizeof(Client)		},
{ "ShortClient",	sizeof(ShortClient)	},
#ifdef RAWDNS
{ "dnsAuthority",	sizeof(dnsAuthority)	},
{ "dnsList",		sizeof(dnsList)		},
{ "dnsQuery",		sizeof(dnsQuery)	},
#endif
#ifdef SCRIPTING
{ "Hook",		sizeof(Hook)		},
{ "HookTimer",		sizeof(HookTimer)	},
#endif
{ "ircLink",		sizeof(ircLink)		},
{ "IReq",		sizeof(IReq)		},
{ "KickSay",		sizeof(KickSay)		},
{ "KillSock",		sizeof(KillSock)	},
{ "Mech",		sizeof(Mech)		},
#ifdef BOTNET
{ "NetCfg",		sizeof(NetCfg)		},
#endif
#ifdef NOTE
{ "Note",		sizeof(Note)		},
#endif /* NOTE */
#ifdef NOTIFY
{ "nfLog",		sizeof(nfLog)		},
{ "Notify",		sizeof(Notify)		},
#endif /* NOTIFY */
{ "OnMsg",		sizeof(OnMsg)		},
{ "qKick",		sizeof(qKick)		},
{ "qMode",		sizeof(qMode)		},
#ifdef SEEN
{ "Seen",		sizeof(Seen)		},
#endif /* SEEN */
{ "Server",		sizeof(Server)		},
{ "Setting",		sizeof(Setting)		},
{ "Shit",		sizeof(Shit)		},
{ "Spy\t",		sizeof(Spy)		},
{ "Strp",		sizeof(Strp)		},
#ifdef TRIVIA
{ "TrivScore",		sizeof(TrivScore)	},
#endif /* TRIVIA */
{ "UniVar",		sizeof(UniVar)		},
{ "User",		sizeof(User)		},
#ifdef WEB
{ "WebDoc",		sizeof(WebDoc)		},
{ "WebSock",		sizeof(WebSock)		},
#endif
{ NULL, }};

#define CORE_SE		,"CORE"
#define CFG1_SE		,"CFG1"
#define CMD1_SE		,"CMD1"
#define INIT_SE		,"INIT"
#define RARE_SE		,"RARE"
#define DBUG_SE		,"DBUG"

LS struct
{
	void	*func;
	char	*name;
	char	segment[5];
	int	num;
	int	size;
	int	mall_size;

} ProcList[] =
{
{	SockConnect,			"SockConnect"			CORE_SE },
{	add_bot,			"add_bot"			CFG1_SE },
{	add_server,			"add_server"			CFG1_SE },
{	add_shit,			"add_shit"			},
{	add_user,			"add_user"			},
{	addtouser,			"addtouser"			CORE_SE },
{	cfg_opt,			"cfg_opt"			CFG1_SE },
{	cfg_pass,			"cfg_pass"			CFG1_SE },
{	cfg_user,			"cfg_user"			CFG1_SE },
{	change_authnick,		"change_authnick"		},
{	ctcp_dcc,			"ctcp_dcc"			},
{	copy_vars,			"copy_vars"			CFG1_SE },
{	dcc_chat,			"dcc_chat"			CMD1_SE },
{	do_die,				"do_die"			RARE_SE },
{	do_nick,			"do_nick"			CMD1_SE },
{	do_kicksay,			"do_kicksay"			CMD1_SE },
{	do_set,				"do_set"			CMD1_SE },
{	do_spy,				"do_spy"			CMD1_SE },
{	join_channel,			"join_channel"			CFG1_SE },
{	killsock,			"killsock"			},
{	make_auth,			"make_auth"			},
{	make_ban,			"make_ban"			},
{	make_chanuser,			"make_chanuser"			},
{	make_ireq,			"make_ireq"			CMD1_SE },
{	make_strp,			"make_strp"			CORE_SE },
{	mirror_user,			"mirror_user"			CORE_SE },
{	on_join,			"on_join"			CORE_SE },
{	on_kick,			"on_kick"			CORE_SE },
{	on_mode,			"on_mode"			CORE_SE },
{	on_msg,				"on_msg"			CORE_SE },
{	on_nick,			"on_nick"			CORE_SE },
{	parse_311,			"parse_311"			},
{	randstring_getline,		"randstring_getline"		CMD1_SE },
{	readcfgfile,			"readcfgfile"			},
{	recover_client,			"recover_client"		INIT_SE },
{	reverse_topic,			"reverse_topic"			},
{	to_user,			"to_user"			},
{	to_user_q,			"to_user_q"			},
{	send_kick,			"send_kick"			},
{	send_mode,			"send_mode"			},
{	set_str_varc,			"set_str_varc"			CFG1_SE },
{	set_mix16,			"set_mix16"			CORE_SE },
{	set_mix64,			"set_mix64"			CORE_SE },
{	sig_hup,			"sig_hup"			RARE_SE },
{	table_buffer,			"table_buffer"			},
#ifdef ALIAS
{	do_alias,			"do_alias"			},
#endif /* ALIAS */
#ifdef BOTNET
{	botnet_newsock,			"botnet_newsock"		},
{	connect_to_bot,			"connect_to_bot"		},
{	do_link,			"do_link"			},
{	make_botinfo,			"make_botinfo"			},
#endif /* BOTNET */
#ifdef BOUNCE
{	bounce_parse,			"bounce_parse"			},
{	process_bounce,			"process_bounce"		},
#endif /* BOUNCE */
#ifdef CHANBAN
{	process_chanbans,		"process_chanbans"		},
#endif /* CHANBAN */
#ifdef GREET
{	cfg_greet,			"cfg_greet"			},
{	do_greet,			"do_greet"			},
#endif /* GREET */
#ifdef HOSTINFO
{	monitor_fs,			"monitor_fs"			},
#endif /* HOSTINFO */
#ifdef NOTE
{	catch_note,			"catch_note"			},
{	do_note,			"do_note"			CMD1_SE },
#endif /* NOTE */
#ifdef NOTIFY
{	catch_whois,			"catch_whois"			},
{	notify_callback,		"notify_callback"		},
{	notifylog_callback,		"notifylog_callback"		},
#endif /* NOTIFY */
#ifdef PYTHON
{	python_hook,			"python_hook"			},
{	python_unhook,			"python_unhook"			},
#endif /* PYTHON */
#ifdef RAWDNS
{	rawdns,				"rawdns"			},
{	parse_query,			"parse_query"			},
{	read_dnsroot,			"read_dnsroot"			CFG1_SE },
#endif /* RAWDNS */
#ifdef REDIRECT
{	begin_redirect,			"begin_redirect"		CORE_SE },
#endif /* REDIRECT */
#ifdef SEEN
{	make_seen,			"make_seen"			},
#endif /* SEEN */
#ifdef STATS
{	stats_plusminususer,		"stats_plusminususer"		},
#endif /* STATS */
#ifdef TCL
{	tcl_hook,			"tcl_hook"			},
#endif /* TCL */
#ifdef TELNET
{	check_telnet,			"check_telnet"			},
#endif /* TELNET */
#ifdef TOYBOX
{	read_charset_callback,		"read_charset_callback"		CMD1_SE },
#endif /* TOYBOX */
#ifdef TRIVIA
{	trivia_check,			"trivia_check"			CMD1_SE },
{	trivia_question,		"trivia_question"		CMD1_SE },
{	trivia_score_callback,		"trivia_score_callback"		CMD1_SE },
#endif /* TRIVIA */
#ifdef UPTIME
{	init_uptime,			"init_uptime"			CFG1_SE },
{	send_uptime,			"send_uptime"			CORE_SE },
#endif /* UPTIME */
#ifdef URLCAPTURE
{	urlcapture,			"urlcapture"			CORE_SE },
#endif /* URLCAPTURE */
{	0,				"(unknown)"			},
{ NULL, }};

#ifdef SCRIPTING
LS const DEFstruct SCRIPTdefs[] =
{
{ MEV_PARSE,		"MEV_PARSE"		},
{ MEV_TIMER,		"MEV_TIMER"		},
{ MEV_COMMAND,		"MEV_COMMAND"		},
{ MEV_BOTNET,		"MEV_BOTNET"		},
{ MEV_DCC_COMPLETE,	"MEV_DCC_COMPLETE"	},
{ MEV_DNSRESULT,	"MEV_DNSRESULT"		},
#ifdef TCL
{ .v.func=tcl_timer_jump,	"tcl_timer_jump"	},
{ .v.func=tcl_parse_jump,	"tcl_parse_jump"	},
#endif /* TCL */
#ifdef PYTHON
{ .v.func=python_timer_jump, "python_timer_jump"	},
{ .v.func=python_parse_jump, "python_parse_jump"	},
#endif /* PYTHON */
{ 0, }};
#endif /* SCRIPTING */

LS const DEFstruct CNdefs[] =
{
{ CN_NOSOCK,		"CN_NOSOCK"		},
{ CN_DNSLOOKUP,		"CN_DNSLOOKUP"		},
{ CN_TRYING,		"CN_TRYING"		},
{ CN_CONNECTED,		"CN_CONNECTED"		},
{ CN_ONLINE,		"CN_ONLINE"		},
{ CN_DISCONNECT,	"CN_DISCONNECT"		},
{ CN_BOTDIE,		"CN_BOTDIE"		},
{ CN_NEXTSERV,		"CN_NEXTSERV"		},
{ CN_WINGATEWAIT,	"CN_WINGATEWAIT"	},
{ CN_SPINNING,		"CN_SPINNING"		},
{ 0, }};

LS const DEFstruct SPdefs[] =
{
{ SP_NULL,		"SP_NULL"		},
{ SP_NOAUTH,		"SP_NOAUTH"		},
{ SP_KLINED,		"SP_KLINED"		},
{ SP_FULLCLASS,		"SP_FULLCLASS"		},
{ SP_TIMEOUT,		"SP_TIMEOUT"		},
{ SP_ERRCONN,		"SP_ERRCONN"		},
{ SP_DIFFPORT,		"SP_DIFFPORT"		},
{ 0, }};

#ifdef NOTIFY
LS const DEFstruct NFdefs[] =
{
{ NF_OFFLINE,		"NF_OFFLINE"		},
{ NF_WHOIS,		"NF_WHOIS"		},
{ NF_MASKONLINE,	"NF_MASKONLINE"		},
{ NF_NOMATCH,		"NF_NOMATCH"		},
{ 0, }};
#endif /* NOTIFY */

#ifdef SEEN
LS const DEFstruct SEdefs[] =
{
{ SEEN_PARTED,		"SEEN_PARTED"		},
{ SEEN_QUIT,		"SEEN_QUIT"		},
{ SEEN_NEWNICK,		"SEEN_NEWNICK"		},
{ SEEN_KICKED,		"SEEN_KICKED"		},
{ 0, }};
#endif /* SEEN */

#ifdef BOTNET
LS const DEFstruct BNdefs[] =
{
{ BN_UNKNOWN,		"BN_UNKNOWN"		},
{ BN_DEAD,		"BN_DEAD"		},
{ BN_LINKSOCK,		"BN_LINKSOCK"		},
{ BN_CONNECT,		"BN_CONNECT"		},
{ BN_BANNERSENT,	"BN_BANNERSENT"		},
{ BN_WAITAUTH,		"BN_WAITAUTH"		},
{ BN_WAITLINK,		"BN_WAITLINK"		},
{ BN_LINKED,		"BN_LINKED"		},
{ 0, }};
#endif /* BOTNET */

LS const DEFstruct dcc_flags[] =
{
{ DCC_SEND,		"DCC_SEND"		},
{ DCC_RECV,		"DCC_RECV"		},
{ DCC_WAIT,		"DCC_WAIT"		},
{ DCC_ASYNC,		"DCC_ASYNC"		},
{ DCC_ACTIVE,		"DCC_ACTIVE"		},
{ DCC_TELNET,		"DCC_TELNET"		},
{ DCC_TELNETPASS,	"DCC_TELNETPASS"	},
{ DCC_DELETE,		"DCC_DELETE"		},
{ 0, }};

LS const DEFstruct ircx_flags[] =
{
{ IRCX_WALLCHOPS,	"IRCX_WALLCHOPS"	},
{ IRCX_WALLVOICES,	"IRCX_WALLVOICES"	},
{ IRCX_IMODE,		"IRCX_IMODE"		},
{ IRCX_EMODE,		"IRCX_EMODE"		},
{ 0, }};

LS const DEFstruct chanuser_flags[] =
{
{ CU_VOICE,		"CU_VOICE"		},
{ CU_CHANOP,		"CU_CHANOP"		},
{ CU_VOICETMP,		"CU_VOICETMP"		},
{ CU_NEEDOP,		"CU_NEEDOP"		},
{ CU_MODES,		"CU_MODES"		},
{ CU_DEOPPED,		"CU_DEOPPED"		},
{ CU_KICKED,		"CU_KICKED"		},
{ CU_BANNED,		"CU_BANNED"		},
{ CU_MASSTMP,		"CU_MASSTMP"		},
{ 0, }};

void strflags(char *dst, const DEFstruct *flagsstruct, int flags)
{
	int	i;

	*dst = 0;
	for(i=0;(flagsstruct[i].v.id);i++)
	{
		if (flagsstruct[i].v.id & flags)
		{
			if (*dst)
				stringcat(dst,"|");
			stringcat(dst,flagsstruct[i].idstr);
		}
	}
}

const char *strdef(const DEFstruct *dtab, int num)
{
	int	i;

	for(i=0;(dtab[i].idstr);i++)
	{
		if (dtab[i].v.id == num)
			return(dtab[i].idstr);
	}
	return("UNKNOWN");
}

const char *funcdef(const DEFstruct *dtab, void *func)
{
	int	i;

	for(i=0;(dtab[i].idstr);i++)
	{
		if (dtab[i].v.func == func)
			return(dtab[i].idstr);
	}
	return("UNKNOWN");
}

void memreset(void)
{
	aMEA	*mp;
	int	i;

	for(mp=mrrec;mp;mp=mp->next)
	{
		for(i=0;i<MRSIZE;i++)
			mp->mme[i].touch = FALSE;
	}
}

LS const void *mem_lowptr;
LS const void *mem_hiptr;

void memtouch(const void *addr)
{
	aMEA	*mp;
	int	i;

	if (addr == NULL)
		return;
	addr = addr - 4;
	for(mp=mrrec;mp;mp=mp->next)
	{
		for(i=0;i<MRSIZE;i++)
		{
			if (mp->mme[i].area == addr)
			{
				mp->mme[i].touch = TRUE;
				if (mem_hiptr < addr)
					mem_hiptr = addr;
				if (mem_lowptr > addr)
					mem_lowptr = addr;
				return;
			}
		}
	}
}

const char *proc_lookup(void *addr, int size)
{
	int	i;

	for(i=0;ProcList[i].name;i++)
	{
		if (ProcList[i].func == addr)
		{
			ProcList[i].size += size;
			ProcList[i].mall_size += size + 8 + ((size & 7) ? (8 - (size & 7)) : 0);
			ProcList[i].num++;
			return(ProcList[i].name);
		}
	}
	return(NULL);
}

void proc_list(void)
{
	int	i,sel;
	void	*a,*b,*l;

	a = l = NULL;

	do
	{
		b = NULL;
		for(i=0;ProcList[i].name;i++)
		{
			if ((ProcList[i].func > a) && ((b == NULL) || (ProcList[i].func < b)))
			{
				b = ProcList[i].func;
				sel = i;
			}
		}
		if (b)
		{
			if (l == NULL)
				l = b;
			if (strlen(ProcList[sel].name) < 14)
				a = "\t\t";
			else
			if (strlen(ProcList[sel].name) < 20)
				a = "\t";
			else
				a = " ";
			debug("; %s%s"mx_pfmt" (+%i) [%s]\n",ProcList[sel].name,a,b,b-l,ProcList[sel].segment);
			a = b;
		}
	}
	while (b);
}

char *atime(time_t when)
{
	char	*pt,*zp;

	pt = ctime(&when);
	zp = STRCHR(pt,'\n');
	*zp = 0;
	return(pt);
}

void debug_server(Server *sp, char *pad)
{
	char	*pl;

	if (!sp)
	{
		debug("%s; ---\n",pad);
		return;
	}
	pl = (strlen(pad) == 2) ? "\t" : "";
	debug("%s; Server*\t\t"mx_pfmt"\n",pad,(mx_ptr)sp);
	debug("%s; next\t\t"mx_pfmt"\n",pad,(mx_ptr)sp->next);
	debug("%s; ident\t\t%i\n",pad,sp->ident);
	debug("%s; name\t\t\"%s\"\n",pad,nullbuf(sp->name));
	debug("%s; pass\t\t\"%s\"\n",pad,nullbuf(sp->pass));
	debug("%s; group\t\t\"%s\"\n",pad,nullbuf(sp->group));
	debug("%s; realname\t\t\"%s\"\n",pad,nullbuf(sp->realname));
	debug("%s; usenum\t\t%i\n",pad,sp->usenum);
	debug("%s; port\t\t%i\n",pad,sp->port);
	debug("%s; err\t\t%s%s (%i)\n",pad,pl,strdef(SPdefs,sp->err),sp->err);
	debug("%s; lastconnect\t%s%s (%lu)\n",pad,pl,atime(sp->lastconnect),sp->lastconnect);
	debug("%s; lastattempt\t%s%s (%lu)\n",pad,pl,atime(sp->lastattempt),sp->lastattempt);
	debug("%s; maxontime\t\t%s (%lu)\n",pad,idle2str(sp->maxontime,FALSE),sp->maxontime);
	debug("%s; ---\n",pad);
}

#define DSET_PROC	0
#define DSET_GLOBAL	1
#define DSET_CHAN	2

void debug_settings(UniVar *setting, int type)
{
	UniVar	*varval;
	const char *tpad;
	char	*pad;
	int	i,n;

	i = CHANSET_SIZE;
	switch(type)
	{
	case DSET_PROC:
		pad = "  ";
		break;
	case DSET_GLOBAL:
		pad = "    ";
		break;
	default:
		i = 0;
		pad = "      ";
	}

	debug("%s> setting\n",pad+2);
	for(;i<SIZE_VARS;i++)
	{
		if ((type == DSET_CHAN) && (i >= CHANSET_SIZE))
			break;
		if (IsProc(i))
		{
			if (type == DSET_GLOBAL)
				continue;
		}
		else
		{
			if (type == DSET_PROC)
				continue;
		}

		tpad = STREND(tabs);
		n = 24 - (Strlen2(pad,VarName[i].name) + 2); /* VarName[i].name is never NULL */
		while(n >= 8)
		{
			n = n - 8;
			tpad--;
		}
		if (n > 0)
			tpad--;

		varval = (IsProc(i)) ? setting[i].proc_var : &setting[i];

		if (IsChar(i))
		{
			debug("%s; %s%s`%c'\n",pad,VarName[i].name,tpad,varval->int_var);
		}
		else
		if (IsTog(i))
		{
			debug("%s; %s%s%s\n",pad,VarName[i].name,tpad,boolstr(varval->int_var));
		}
		else
		if (IsInt(i))
		{
			debug("%s; %s%s%i\n",pad,VarName[i].name,tpad,varval->int_var);
		}
		else
		if (IsStr(i))
		{
			memtouch(setting[i].str_var);
			debug("%s; %s%s"mx_pfmt" \"%s\"\n",pad,VarName[i].name,tpad,
				(mx_ptr)varval->str_var,nullstr(varval->str_var));
		}
	}
	debug("%s; ---\n",pad);
}

void debug_memory(void)
{
#ifdef ALIAS
	Alias	*alias;
#endif /* ALIAS */
#ifdef URLCAPTURE
	Strp	*sp;
#endif /* URLCAPTURE */
	Chan	*chan;
	Mech	*bot;
	aMEA	*mea;
	char	t[100],*pt,*funcname;
	int	*hc;
	int	i,n;

#ifdef ALIAS
	for(alias=aliaslist;alias;alias=alias->next)
	{
		memtouch(alias);
		memtouch(alias->alias);
		memtouch(alias->format);
	}
#endif /* ALIAS */
#ifdef URLCAPTURE
	for(sp=urlhistory;sp;sp=sp->next)
	{
		memtouch(sp);
	}
#endif /* URLCAPTURE */
	for(bot=botlist;bot;bot=bot->next)
	{
		for(i=CHANSET_SIZE;i<SIZE_VARS;i++)
		{
			if (IsStr(i))
				memtouch(bot->setting[i].str_var);
		}
		for(chan=bot->chanlist;chan;chan=chan->next)
		{
			for(i=0;i<CHANSET_SIZE;i++)
			{
				if (IsStr(i))
					memtouch(chan->setting[i].str_var);
			}
		}
		for(i=0;i<LASTCMDSIZE;i++)
		{
			memtouch(bot->lastcmds[i]);
		}
	}
	debug("> Memory allocations\n");
	for(mea=mrrec;(mea);mea=mea->next)
	{
		for(i=0;i<MRSIZE;i++)
		{
			if (mea->mme[i].area)
			{
				hc = mea->mme[i].area;
				funcname = (char*)proc_lookup(mea->mme[i].doer,mea->mme[i].size);
				if (funcname)
				{
					stringcpy(t,funcname);
				}
				else
				{
					sprintf(t,mx_pfmt,(mx_ptr)mea->mme[i].doer);
				}
				pt = (char*)&tabs[10 - ((31 - strlen(t)) / 8)];
				debug("  ; "mx_pfmt"\t\t%s%s\t%i\t%s\t%s (%lu) %s\n",
					(mx_ptr)mea->mme[i].area,
					t,pt,mea->mme[i].size,(mea->mme[i].touch) ? "" : "(Leak)",
					atime(mea->mme[i].when),mea->mme[i].when,(*hc) ? "HEAP CORRUPTION" : "");
			}
		}
	}
	debug("  ; ---\n");
	debug("> Memory by Function\n");
	for(i=0;ProcList[i].name;i++)
	{
		if (ProcList[i].num == 0)
			continue;

		sprintf(t,"  ; "mx_pfmt"",(mx_ptr)ProcList[i].func);

		n = 24 - strlen(t);
		while(n > 0)
		{
			n = n - 8;
			stringcat(t,"\t");
		}
		stringcat(t,ProcList[i].name);
		n = 32 - strlen(ProcList[i].name);
		while(n > 0)
		{
			n = n - 8;
			stringcat(t,"\t");
		}

		debug("%s%i\t\t%i\t\t%i\n",t,ProcList[i].num,ProcList[i].size,ProcList[i].mall_size);
	}
	debug("  ; ---\n");
	debug("; mem_lowptr\t\t"mx_pfmt"\n",(mx_ptr)mem_lowptr);
	debug("; mem_hiptr\t\t"mx_pfmt"\n",(mx_ptr)mem_hiptr);
	debug("; Memory Span\t\t%i bytes\n",(int)(mem_hiptr - mem_lowptr));
}

#ifdef BOTNET

void debug_botinfo(BotInfo *binfo)
{
	for(;binfo;binfo=binfo->next)
	{
		debug("    ; BotInfo*\t\t"mx_pfmt"\n",(mx_ptr)binfo);
		debug("    ; next\t\t"mx_pfmt"\n",(mx_ptr)binfo->next);
		debug("    ; guid\t\t%i\n",binfo->guid);
		debug("    ; hops\t\t%i\n",binfo->hops);
		debug("    ; version\t\t\"%s\"\n",nullstr(binfo->version));
		debug("    ; server\t\t\"%s\"\n",nullstr(binfo->server));
		debug("    ; nuh\t\t\"%s\"\n",nullbuf(binfo->nuh));
		debug("    ; ---\n");
	}
}

void debug_botnet(void)
{
	struct	sockaddr_in sai;
	BotNet	*bn;
	NetCfg	*cfg;
	int	sz;

	debug("; linkpass\t\t\"%s\"\n",nullstr(linkpass));
	memtouch(linkpass);
	debug("; linkport\t\t%i\n",linkport);
	debug("; autolink\t\t%s\n",boolstr(autolink));
	debug("; global_tick\t\t%i\n",global_tick);
	debug("> netcfglist\t\t"mx_pfmt"\n",(mx_ptr)netcfglist);
	if (netcfglist)
	{
		for(cfg=netcfglist;cfg;cfg=cfg->next)
		{
			memtouch(cfg);
			debug("  ; NetCfg*\t\t"mx_pfmt"\n",(mx_ptr)cfg);
			debug("  ; next\t\t"mx_pfmt"\n",(mx_ptr)cfg->next);
			debug("  ; guid\t\t%i\n",cfg->guid);
			debug("  ; port\t\t%i\n",cfg->port);
			debug("  ; linked\t\t%s\n",boolstr(cfg->linked));
			debug("  ; host\t\t\"%s\"\n",nullstr(cfg->host));
			debug("  ; pass\t\t\"%s\"\n",nullstr(cfg->pass));
			if (cfg->next)
				debug("  ; ---\n");
		}
		debug("; ---\n");
	}
	debug("> botnetlist\t\t"mx_pfmt"\n",(mx_ptr)botnetlist);
	if (botnetlist)
	{
		for(bn=botnetlist;bn;bn=bn->next)
		{
			memtouch(bn);
			debug("  ; BotNet*\t\t"mx_pfmt"\n",(mx_ptr)bn);
			debug("  ; next\t\t"mx_pfmt"\n",(mx_ptr)bn->next);
			sz = sizeof(sai);
			if (getpeername(bn->sock,(struct sockaddr*)&sai,&sz) < 0)
			{
				debug("  ; sock\t\t%i [ getpeername == -1 ]\n",bn->sock);
			}
			else
			{
				debug("  ; sock\t\t%i [ %s:%i ]\n",bn->sock,
					inet_ntoa(sai.sin_addr),ntohs(sai.sin_port));
			}
			debug("  ; status\t\t%s (%i)\n",strdef(BNdefs,bn->status),bn->status);
			if (bn->status != BN_LINKSOCK)
			{
				debug("  ; has_data\t\t%i\n",bn->has_data);
				debug("  ; guid\t\t%i\n",bn->guid);
				debug("  ; lsid\t\t%i\n",bn->lsid);
				debug("  ; rsid\t\t%i\n",bn->rsid);
				debug("  ; opt.pta\t\t%s\n",boolstr(bn->opt.pta));
				if (bn->controller)
				debug("  ; controller\t\t"mx_pfmt" { guid = %i }\n",(mx_ptr)bn->controller,bn->controller->guid);
				else
				debug("  ; controller\t\tnot set (NULL)\n");
				debug("  ; when\t\t%s (%lu)\n",atime(bn->when),bn->when);
				debug("  > botinfo\t\t"mx_pfmt"\n",(mx_ptr)bn->botinfo);
				debug_botinfo(bn->botinfo);
			}
			if (bn->next)
				debug("  ; ---\n");
		}
	}
}

#endif /* BOTNET */

void debug_core(void)
{
	char	tmpbuf[MAXLEN];
	Auth	*auth;
	Ban	*ban;
	Chan	*chan;
	ChanUser *CU;
	Client	*client;
	IReq	*ir;
	Mech	*bot;
#ifdef NOTIFY
	nfLog	*nfl;
	Notify	*nf;
#endif /* NOTIFY */
#ifdef SEEN
	Seen	*seen;
#endif /* SEEN */
	Server	*sp;
	Spy	*spy;
	Strp	*st;
	Shit	*shit;
#ifdef TOYBOX
	BigC	*bigc;
#endif /* TOYBOX */
#ifdef TRIVIA
	TrivScore *triv;
#endif /* TRIVIA */
	User	*user;
	int	i;

	debug("; mx_pfmt\t\t\"%s\"\n",mx_pfmt);
	debug("; VERSION\t\t\"%s\"\n",VERSION);
	debug("; SRCDATE\t\t\"%s\"\n",SRCDATE);
	debug("; BOTLOGIN\t\t\"%s\"\n",BOTLOGIN);
	debug("; BOTCLASS\t\t\"%s\"\n",BOTCLASS);
	debug("> StructList\n");
	for(i=0;StructList[i].name;i++)
	{
		debug("  ; %s\t%s%i\n",StructList[i].name,(strlen(StructList[i].name) < 12) ? "\t" : "",StructList[i].size);
	}
	debug("  ; ---\n");
	if (current)
		debug("; current\t\t"mx_pfmt" \"%s\"\n",(mx_ptr)current,nullstr(getbotnick(current)));
	else
		debug("; current\t\t"mx_pfmt"\n",(mx_ptr)current);
	debug("; executable\t\t\"%s\"\n",executable);
	debug("; configfile\t\t\"%s\"\n",configfile);
	debug("; uptime\t\t%s (%lu)\n",atime(uptime),uptime);
	debug("; short_tv\t\t%s (%is wait)\n",boolstr(cx.short_tv),(cx.short_tv) ? 1 : 30);
	debug("> serverlist\t\t"mx_pfmt"\n",(mx_ptr)serverlist);
	for(sp=serverlist;sp;sp=sp->next)
	{
		memtouch(sp);
		debug_server(sp,"  ");
	}
	if (botlist) debug_settings(botlist->setting,DSET_PROC);
	debug("> botlist\t\t"mx_pfmt"\n",(mx_ptr)botlist);
	for(bot=botlist;bot;bot=bot->next)
	{
		memtouch(bot);
		debug("  ; Mech*\t\t"mx_pfmt"\n",(mx_ptr)bot);
		debug("  ; next\t\t"mx_pfmt"\n",(mx_ptr)bot->next);
		debug("  ; connect\t\t%s (%i)\n",strdef(CNdefs,bot->connect),bot->connect);
		debug("  ; sock\t\t%i\n",bot->sock);
		debug("  ; ip\t\t\t%s\n",inet_ntoa(bot->ip));
		debug("  > server\t\t%i\n",bot->server);
		sp = find_server(bot->server);
		if (sp)
		{
			debug_server(sp,"    ");
		}
		debug("  > nextserver\t\t%i\n",bot->nextserver);
		sp = find_server(bot->nextserver);
		if (sp)
		{
			debug_server(sp,"    ");
		}
		debug("  ; nick\t\t\"%s\"\n",nullstr(getbotnick(bot)));
		debug("  ; wantnick\t\t\"%s\"\n",nullstr(getbotwantnick(bot)));

		debug_settings(bot->setting,DSET_GLOBAL);

		/*
		 *  userlist
		 */
		debug("  > userlist\t\t"mx_pfmt"\n",(mx_ptr)bot->userlist);
		for(user=bot->userlist;user;user=user->next)
		{
			memtouch(user);
			debug("    ; User*\t\t"mx_pfmt"\n",(mx_ptr)user);
			debug("    ; next\t\t"mx_pfmt"\n",(mx_ptr)user->next);
			debug("    > mask\t\t"mx_pfmt"\n",(mx_ptr)user->mask);
			for(st=user->mask;st;st=st->next)
			{
				memtouch(st);
				debug("      ; Strp*\t\t"mx_pfmt" { "mx_pfmt", \"%s\" }\n",
					(mx_ptr)st,(mx_ptr)st->next,st->p);
			}
			debug("    > chan\t\t"mx_pfmt"\n",(mx_ptr)user->chan);
			for(st=user->chan;st;st=st->next)
			{
				memtouch(st);
				debug("      ; Strp*\t\t"mx_pfmt" { "mx_pfmt", \"%s\" }\n",
					(mx_ptr)st,(mx_ptr)st->next,st->p);
			}
			debug("    ; name\t\t\"%s\"\n",user->name);
			debug("    ; pass\t\t\"%s\"\n",nullstr(user->pass));
			debug("    ; access\t\t%i\n",user->x.x.access);
			debug("    ; prot\t\t%i\n",user->x.x.prot);
#ifdef GREET
			debug("    ; greetfile\t\t%s\n",boolstr(user->greet));
			debug("    ; randline\t\t%s\n",boolstr(user->x.x.randline));
#endif /* GREET */
#ifdef BOUNCE
			debug("    ; bounce\t\t%s\n",boolstr(user->x.x.bounce));
#endif /* BOUNCE */
			debug("    ; echo\t\t%s\n",boolstr(user->x.x.echo));
			debug("    ; aop\t\t%s\n",boolstr(user->x.x.aop));
			debug("    ; avoice\t\t%s\n",boolstr(user->x.x.avoice));
#ifdef GREET
			memtouch(user->greet);
			debug("    ; greet\t\t"mx_pfmt" \"%s\"\n",(mx_ptr)user->greet,nullstr(user->greet));
#endif /* GREET */
#ifdef NOTE
			debug("    > note\t\t"mx_pfmt"\n",(mx_ptr)user->note);
			for(st=user->note;st;st=st->next)
			{
				memtouch(st);
				debug("      ; Strp*\t\t"mx_pfmt" { "mx_pfmt", \"%s\" }\n",
					(mx_ptr)st,(mx_ptr)st->next,st->p);
			}
#endif /* NOTE */
#ifdef BOTNET
			debug("    ; modcount\t\t%i\n",user->modcount);
			debug("    ; guid\t\t%i\n",user->guid);
			debug("    ; tick\t\t%i\n",user->tick);
			debug("    ; addsession\t\t%i\n",user->addsession);
#endif /* BOTNET */

			debug("    ; ---\n");
		}

		debug("  > parselist\t\t"mx_pfmt"\n",(mx_ptr)bot->parselist);
		for(ir=bot->parselist;ir;ir=ir->next)
		{
			memtouch(ir);
			debug("    ; IReq*\t\t"mx_pfmt"\n",(mx_ptr)ir);
			debug("    ; next\t\t"mx_pfmt"\n",(mx_ptr)ir->next);
			debug("    ; ---\n");
		}

		/*
		 *  spylist
		 */
		debug("  > spylist\t\t"mx_pfmt"\n",(mx_ptr)bot->spylist);
		for(spy=bot->spylist;spy;spy=spy->next)
		{
			memtouch(spy);
			debug("    ; Spy*\t\t"mx_pfmt"\n",(mx_ptr)spy);
			debug("    ; next\t\t"mx_pfmt"\n",(mx_ptr)spy->next);
			debug("    ; t_src\t\t%i\n",spy->t_src);
			debug("    ; t_dest\t\t%i\n",spy->t_dest);
			debug("    ; dcc\t\t"mx_pfmt"\n",(mx_ptr)spy->data.dcc);
			debug("    ; src\t\t"mx_pfmt" \"%s\"\n",(mx_ptr)spy->src,nullstr(spy->src));
			debug("    ; dest\t\t"mx_pfmt" \"%s\"\n",(mx_ptr)spy->dest,nullstr(spy->dest));
			debug("    ; ---\n");
		}
		debug("  > spy flags\n");
		debug("    ; any\t\t%s\n",    boolstr(bot->spy & SPYF_ANY));
		debug("    ; channel\t\t%s\n",boolstr(bot->spy & SPYF_CHANNEL));
		debug("    ; status\t\t%s\n", boolstr(bot->spy & SPYF_STATUS));
		debug("    ; message\t\t%s\n",boolstr(bot->spy & SPYF_MESSAGE));
		debug("    ; rawirc\t\t%s\n", boolstr(bot->spy & SPYF_RAWIRC));
		debug("    ; botnet\t\t%s\n", boolstr(bot->spy & SPYF_BOTNET));
		debug("    ; ---\n");

#ifdef NOTIFY
		debug("  > notifylist\t\t"mx_pfmt"\n",(mx_ptr)bot->notifylist);
		for(nf=bot->notifylist;nf;nf=nf->next)
		{
			memtouch(nf);
			debug("    ; Notify*\t\t"mx_pfmt"\n",(mx_ptr)nf);
			debug("    ; next\t\t"mx_pfmt"\n",(mx_ptr)nf->next);
			debug("    ; status\t\t%s (%i)\n",strdef(NFdefs,nf->status),nf->status);
			debug("    ; checked\t\t%s (%lu)\n",atime(nf->checked),nf->checked);

			debug("    > log\t\t"mx_pfmt"\n",(mx_ptr)nf->log);
			for(nfl=nf->log;nfl;nfl=nfl->next)
			{
				memtouch(nfl);
				debug("      ; nfLog*\t\t"mx_pfmt"\n",(mx_ptr)nfl);
				debug("      ; next\t\t"mx_pfmt"\n",(mx_ptr)nfl->next);
				debug("      ; signon\t\t%s (%lu)\n",atime(nfl->signon),nfl->signon);
				debug("      ; signoff\t\t%s (%lu)\n",atime(nfl->signoff),nfl->signoff);
				debug("      ; realname\t\"%s\"\n",nullstr(nfl->realname));
				debug("      ; userhost\t\"%s\"\n",nullstr(nfl->userhost));
				debug("      ; ---\n");
			}

			debug("    ; info\t\t\"%s\"\n",nullstr(nf->info));
			debug("    ; endofmask\t\t"mx_pfmt"\n",(mx_ptr)nf->endofmask);
			debug("    ; mask\t\t\"%s\"\n",nullstr(nf->mask));
			debug("    ; nick\t\t\"%s\"\n",nf->nick);
			debug("    ; ---\n");
		}
#endif /* NOTIFY */

		debug("  > authlist\t\t"mx_pfmt"\n",(mx_ptr)bot->authlist);
		for(auth=bot->authlist;auth;auth=auth->next)
		{
			memtouch(auth);
			debug("    ; Auth*\t\t"mx_pfmt"\n",(mx_ptr)auth);
			debug("    ; next\t\t"mx_pfmt"\n",(mx_ptr)auth->next);
			debug("    ; active\t\t%s (%lu)\n",atime(auth->active),auth->active);
			debug("    ; user\t\t"mx_pfmt" { \"%s\", ... }\n",(mx_ptr)auth->user,auth->user->name);
			debug("    ; nuh\t\t\"%s\"\n",nullstr(auth->nuh));
			debug("    ; ---\n");
		}

		debug("  > shitlist\t\t"mx_pfmt"\n",(mx_ptr)bot->shitlist);
		for(shit=bot->shitlist;shit;shit=shit->next)
		{
			memtouch(shit);
			debug("    ; Shit*\t\t"mx_pfmt"\n",(mx_ptr)shit);
			debug("    ; next\t\t"mx_pfmt"\n",(mx_ptr)shit->next);
			debug("    ; action\t\t%i\n",shit->action);
			debug("    ; time\t\t%s (%lu)\n",atime(shit->time),shit->time);
			debug("    ; expire\t\t%s (%lu)\n",atime(shit->expire),shit->expire);
			debug("    ; chan\t\t\"%s\"\n",nullstr(shit->chan));
			debug("    ; from\t\t\"%s\"\n",nullstr(shit->from));
			debug("    ; reason\t\t\"%s\"\n",nullstr(shit->reason));
			debug("    ; mask\t\t\"%s\"\n",nullstr(shit->mask));
		}

		debug("  > chanlist\t\t"mx_pfmt"\n",(mx_ptr)bot->chanlist);
		for(chan=bot->chanlist;chan;chan=chan->next)
		{
			memtouch(chan);
			memtouch(chan->name);
			memtouch(chan->key);
			memtouch(chan->topic);
			memtouch(chan->kickedby);
			debug("    ; Chan*\t\t"mx_pfmt"\n",(mx_ptr)chan);
			debug("    ; next\t\t"mx_pfmt"\n",(mx_ptr)chan->next);
			debug("    ; name\t\t"mx_pfmt" \"%s\"\n",(mx_ptr)chan->name,nullstr(chan->name));
			debug("    ; key\t\t"mx_pfmt" \"%s\"\n",(mx_ptr)chan->key,nullstr(chan->key));
			debug("    ; topic\t\t"mx_pfmt" \"%s\"\n",(mx_ptr)chan->topic,nullstr(chan->topic));
			debug("    ; kickedby\t\t"mx_pfmt" \"%s\"\n",(mx_ptr)chan->kickedby,nullstr(chan->kickedby));
			debug("    > Chan->banlist\n");
			for(ban=chan->banlist;ban;ban=ban->next)
			{
				memtouch(ban);
#ifdef IRCD_EXTENSIONS
				{
					char *s;

					if (ban->imode)
						s = "+I invite exception";
					else
					if (ban->emode)
						s = "+e ban exception";
					else
						s = "+b banmask";
					debug("      ; Ban*\t\t"mx_pfmt" { "mx_pfmt", \"%s\", %s, \"%s\", %s (%lu) }\n",
						(mx_ptr)ban,(mx_ptr)ban->next,nullstr(ban->banstring),s,
						nullstr(ban->bannedby),atime(ban->time),ban->time);
				}
#else /* IRCD_EXTENSIONS */
				debug("      ; Ban*\t\t"mx_pfmt" { "mx_pfmt", \"%s\", \"%s\", %s (%lu) }\n",
					(mx_ptr)ban,(mx_ptr)ban->next,nullstr(ban->banstring),
					nullstr(ban->bannedby),atime(ban->time),ban->time);
#endif /* IRCD_EXTENSIONS */

			}
			debug("      ; ---\n");
			debug("    > Chan->users\n");
			for(CU=chan->users;CU;CU=CU->next)
			{
				memtouch(CU);
				memtouch(CU->nick);
				strflags(tmpbuf,chanuser_flags,CU->flags);
				debug("      ; ChanUser*\t"mx_pfmt" { "mx_pfmt", \"%s\", \"%s\", [%s], ... }\n",
					(mx_ptr)CU,(mx_ptr)CU->next,nullstr(CU->nick),nullstr(CU->userhost),tmpbuf);
			}
			debug("      ; ---\n");
			if (chan->cacheuser)
			{
				debug("    ; cacheuser\t\t"mx_pfmt" { "mx_pfmt", \"%s\", \"%s\", ... }\n",
					(mx_ptr)chan->cacheuser,(mx_ptr)chan->cacheuser->next,
					nullstr(chan->cacheuser->nick),nullstr(chan->cacheuser->userhost));
			}
			else
			{
				debug("    ; cacheuser\t\t"mx_pfmt"\n",(mx_ptr)chan->cacheuser);
			}

			debug_settings(chan->setting,DSET_CHAN);

			debug("    ; limit\t\t%i\n",chan->limit);

			debug("    ; private\t\t%s\n",boolstr(chan->private));
			debug("    ; secret\t\t%s\n",boolstr(chan->secret));
			debug("    ; moderated\t\t%s\n",boolstr(chan->moderated));
			debug("    ; topprot\t\t%s\n",boolstr(chan->topprot));
			debug("    ; limitmode\t\t%s\n",boolstr(chan->limitmode));
			debug("    ; invite\t\t%s\n",boolstr(chan->invite));
			debug("    ; nomsg\t\t%s\n",boolstr(chan->nomsg));
			debug("    ; keymode\t\t%s\n",boolstr(chan->keymode));
			debug("    ; hiddenkey\t\t%s\n",boolstr(chan->hiddenkey));
			debug("    ; sync\t\t%s\n",boolstr(chan->sync));
			debug("    ; wholist\t\t%s\n",boolstr(chan->wholist));
			debug("    ; bot_is_op\t\t%s\n",boolstr(chan->bot_is_op));
			debug("    ; active\t\t%s\n",boolstr(chan->active));
			debug("    ; rejoin\t\t%s\n",boolstr(chan->rejoin));

			debug("    ; this10\t\t%i\n",chan->this10);
			debug("    ; last10\t\t%i\n",chan->last10);
			debug("    ; this60\t\t%i\n",chan->this60);
			debug("    ; last60\t\t%i\n",chan->last60);

#ifdef DYNAMODE
			debug("    ; lastlimit\t\t%s (%lu)\n",atime(chan->lastlimit),chan->lastlimit);
#endif /* DYNAMODE */
#ifdef STATS
			if (chan->stats)
			{
				debug("    > ChanStats\t\t"mx_pfmt"\n",(mx_ptr)chan->stats);
				debug("      ; userseconds\t%i\n",chan->stats->userseconds);
				debug("      ; LHuserseconds\t%i\n",chan->stats->LHuserseconds);
				debug("      ; users\t\t%i\n",chan->stats->users);
				debug("      ; lastuser\t%s (%lu)\n",atime(chan->stats->lastuser),chan->stats->lastuser);
				if (chan->stats->flags & CSTAT_PARTIAL)
					debug("      ; flags\t\tCSTAT_PARTIAL (%i)\n",chan->stats->flags);
				else
					debug("      ; flags\t\tNO_FLAGS (%i)\n",chan->stats->flags);
				debug("      ; userpeak\t%i\n",chan->stats->userpeak);
				debug("      ; userlow\t\t%i\n",chan->stats->userlow);
				debug("      ; kicks\t\t%i\n",chan->stats->kicks);
				debug("      ; joins\t\t%i\n",chan->stats->joins);
				debug("      ; parts\t\t%i\n",chan->stats->parts);
				debug("      ; quits\t\t%i\n",chan->stats->quits);
				debug("      ; privmsg\t\t%i\n",chan->stats->privmsg);
				debug("      ; notice\t\t%i\n",chan->stats->notice);
			}
#endif /* STATS */
			debug("    ; ---\n");
		}
		debug("  ; activechan\t\t"mx_pfmt"\n",(mx_ptr)bot->activechan);
		debug("  > clientlist\t\t"mx_pfmt"\n",(mx_ptr)bot->clientlist);
		for(client=bot->clientlist;client;client=client->next)
		{
			memtouch(client);
			debug("    ; Client*\t\t"mx_pfmt"\n",(mx_ptr)client);
			debug("    ; next\t\t"mx_pfmt"\n",(mx_ptr)client->next);
			if (client->user)
				debug("    ; user\t\t"mx_pfmt" { \"%s\", ... }\n",(mx_ptr)client->user,client->user->name);
			else
				debug("    ; user\t\tNULL\n");
			debug("    ; sock\t\t%i\n",client->sock);
#ifdef DCC_FILE
			debug("    ; fileno\t\t%i\n",client->fileno);
			debug("    ; fileend\t\t%i\n",client->fileend);
#endif /* DCC_FILE */
			strflags(tmpbuf,dcc_flags,client->flags);
			debug("    ; flags\t\t%i [%s]\n",client->flags,tmpbuf);
			debug("    ; inputcount\t%i\n",client->inputcount);
			debug("    ; lasttime\t\t%s (%lu)\n",atime(client->lasttime),client->lasttime);
			debug("    ; ---\n");
		}
		debug("  ; lastreset\t\t%s (%lu)\n",atime(bot->lastreset),bot->lastreset);
		debug("  ; lastantiidle\t%s (%lu)\n",atime(bot->lastantiidle),bot->lastantiidle);
		debug("  ; lastrejoin\t\t%s (%lu)\n",atime(bot->lastrejoin),bot->lastrejoin);
		debug("  ; conntry\t\t%s (%lu)\n",atime(bot->conntry),bot->conntry);
		debug("  ; activity\t\t%s (%lu)\n",atime(bot->activity),bot->activity);
		debug("  ; ontime\t\t%s (%lu)\n",atime(bot->ontime),bot->ontime);
#ifdef IRCD_EXTENSIONS
		strflags(tmpbuf,ircx_flags,bot->ircx_flags);
		debug("  ; ircx_flags\t\t%i [%s]\n",bot->ircx_flags,tmpbuf);
#endif /* IRCD_EXTENSIONS */
		debug("  ; ---\n");
	}
#ifdef SEEN
	debug("> seenlist\t\t"mx_pfmt"\n",(mx_ptr)seenlist);
	if (seenlist)
	{
		for(seen=seenlist;seen;seen=seen->next)
		{
			memtouch(seen);
			debug("  ; Seen*\t\t"mx_pfmt" { "mx_pfmt", \"%s\", \"%s\", \"%s\", \"%s\", %s (%lu), %s (%i) }\n",
				(mx_ptr)seen,
				(mx_ptr)seen->next,
				nullstr(seen->nick),
				nullstr(seen->userhost),
				nullstr(seen->pa),
				nullstr(seen->pb),
				atime(seen->when),seen->when,
				strdef(SEdefs,seen->t),
				seen->t
				);
		}
		debug("  ; ---\n");
	}
#endif /* SEEN */
#ifdef TOYBOX
	if (fontname)
		memtouch(fontname);
	debug("; fontname*\t\t"mx_pfmt" { \"%s\" }\n",
		(mx_ptr)fontname,nullstr(fontname));
	debug("> fontlist\t\t"mx_pfmt"\n",(mx_ptr)fontlist);
	for(bigc=fontlist;bigc;bigc=bigc->next)
	{
		memtouch(bigc);
		debug("  ; width\t\t%i\n",bigc->width);
		debug("  ; chars\t\t\"%s\"\n",bigc->chars);
		debug("  > data\t\t" mx_pfmt "\n",(mx_ptr)bigc->data);
		for(st=bigc->data;st != NULL;st=st->next)
		{
			memtouch(st);
			debug("    ; Strp*\t\t"mx_pfmt" { "mx_pfmt", \"%s\" }\n",
				(mx_ptr)st,(mx_ptr)st->next,st->p);
		}
		debug("  ; next\t\t" mx_pfmt "\n",(mx_ptr)bigc->next);
	}
#endif /* TOYBOX */
#ifdef TRIVIA
	debug("> scorelist\t\t"mx_pfmt"\n",(mx_ptr)scorelist);
	for(triv=scorelist;triv;triv=triv->next)
	{
		memtouch(triv);
		debug("  ; TrivScore*\t\t"mx_pfmt" { "mx_pfmt", %i, %i, %i, %i, %i, %i, \"%s\" }\n",
			(mx_ptr)triv,
			(mx_ptr)triv->next,
			triv->score_wk,
			triv->score_last_wk,
			triv->week_nr,
			triv->score_mo,
			triv->score_last_mo,
			triv->month_nr,
			triv->nick);
	}
	if (scorelist)
		debug("  ; ---\n");
#endif /* TRIVIA */
}

#ifdef RAWDNS

void debug_rawdns(void)
{
	dnsAuthority *da;
	dnsList *dns;

	for(da=dnsroot;da;da=da->next)
	{
		memtouch(da);
	}

	debug("> dnslist\t\t"mx_pfmt"\n",(mx_ptr)dnslist);
	for(dns=dnslist;dns;dns=dns->next)
	{
		memtouch(dns);
		debug("  ; dnsList*\t\t"mx_pfmt"\n",(mx_ptr)dns);
		debug("  ; next\t\t"mx_pfmt"\n",(mx_ptr)dns->next);
		debug("  ; when\t\t%s (%lu)\n",atime(dns->when),dns->when);
		if (dns->ip.s_addr)
		{
			debug("  ; ip\t\t\t%s\n",inet_ntoa(dns->ip));
		}
		else
			debug("  ; ip\t\t\t0\n");
		debug("  ; id\t\t\t%i\n",dns->id);
		debug("  ; cname\t\t\"%s\"\n",nullstr(dns->cname));
		debug("  ; host\t\t\"%s\"\n",dns->host);
		if (dns->next)
			debug("  ; ---\n");
	}
}

#endif /* RAWDNS */

#if defined(TCL) || defined(PYTHON) || defined(PERL)

#if 0
typedef struct
{
        time_t          last;
        time_t          next;
        uint32_t        second1;        /*:30;*/
        uint32_t        second2;        /*:30;*/
        uint32_t        minute1;        /*:30;*/
        uint32_t        minute2;        /*:30;*/
        uint32_t        hour;           /*:24;*/
        uint32_t        weekday;        /*:7;*/

} HookTimer;
#endif /* 0 */

char binstr[33];

char *uint32tobin(int limit, uint32_t x)
{
	char	*dst = binstr;
	int	n;

	if (limit > 30)
		limit -= 30;
	x <<= (32 - limit);

	for(n=0;n<limit;n++)
	{
		if (x & 0x80000000)
			*(dst++) = '1';
		else
			*(dst++) = '0';
		x <<= 1;
	}
	*dst = 0;
	return(binstr);
}

#endif /* TCL || PYTHON */

#ifdef SCRIPTING

void debug_scripthook(void)
{
	Hook	*h;

	debug("> hooklist\n");
	for(h=hooklist;h;h=h->next)
	{
		memtouch(h);
		debug("  ; func\t\t"mx_pfmt" %s\n",(mx_ptr)h->func,funcdef(SCRIPTdefs,h->func));
		debug("  ; guid\t\t%i\n",h->guid);
		debug("  ; flags\t\t%s (%i)\n",strdef(SCRIPTdefs,h->flags),h->flags);
		if (h->flags == MEV_TIMER)
		{
			debug("  ; timer\t\t"mx_pfmt"\n",(mx_ptr)h->type.timer);
			debug("  ; timer.second1\t%s ( 0..29)\n",uint32tobin(30,h->type.timer->second1));
			debug("  ; timer.second2\t%s (30..59)\n",uint32tobin(30,h->type.timer->second2));
			debug("  ; timer.minute1\t%s ( 0..29)\n",uint32tobin(30,h->type.timer->minute1));
			debug("  ; timer.minute2\t%s (30..59)\n",uint32tobin(30,h->type.timer->minute2));
			debug("  ; timer.hour\t\t%s (0..23)\n",uint32tobin(24,h->type.timer->hour));
			debug("  ; timer.weekday\t%s (0..6)\n",uint32tobin(7,h->type.timer->weekday));
		}
		debug("  ; self\t\t\"%s\"\n",nullstr(h->self));
		if (h->next)
			debug("  ; ---\n");
	}
}

#endif /* SCRIPTING */

void run_debug(void)
{
	memreset();

	mem_lowptr = ((void*)-1);
	mem_hiptr = NULL;

#ifdef SEEN
	memtouch(seenfile);
#endif /* SEEN */

#ifdef TRIVIA
	memtouch(triv_qfile);
#endif /* TRIVIA */

#ifdef UPTIME
	memtouch(uptimehost);
	memtouch(uptimenick);
#endif /* UPTIME */

	debug_core();
#ifdef BOTNET
	debug_botnet();
#endif /* BOTNET */
#ifdef RAWDNS
	debug_rawdns();
#endif /* RAWDNS */
#ifdef SCRIPTING
	debug_scripthook();
#endif /* SCRIPTING */

	debug_memory();
	debug("> functions\n");
	proc_list();
	debug("; ---\n");
}

int wrap_debug(void)
{
	char	fname[20];
	int	fd,backup_fd,backup_dodebug;

	debug("(wrap_debug) init...\n");

	backup_dodebug = dodebug;
	backup_fd = debug_fd;

	sprintf(fname,"debug.%lu",now);
	if ((fd = open(fname,O_WRONLY|O_CREAT|O_TRUNC,NEWFILEMODE)) < 0)
		return(0);
	debug_fd = fd;
	dodebug = TRUE;

	run_debug();
	parse_server_input(NULL);

	close(fd);
	debug_fd = backup_fd;
	dodebug = backup_dodebug;

	debug("(wrap_debug) all done.\n");
	return(1);
}

void do_debug(COMMAND_ARGS)
{
	const char *arg;
	int	m;

	arg = chop(&rest);
	if (arg && strcasecmp(arg,"off") == 0)
	{
		if (debugfile && debugfilemalloc == TRUE)
			Free(&debugfile);
		debugfilemalloc = FALSE;
		debugfile = NULL;
		dodebug = FALSE;
		to_user(from,"Debug output turned off");
		return;
	}
	if (arg && strcasecmp(arg,"on") == 0)
	{
		m = is_safepath(rest,FILE_MAY_EXIST);
		debug("(do_debug) turn on, rest = '%s', %i\n",rest,m);
		if (*rest && m == FILE_IS_SAFE)
		{
			if (debugfile && debugfilemalloc == TRUE)
				Free(&debugfile);
			debugfilemalloc = TRUE;
			set_mallocdoer(do_debug);
			debugfile = stringdup(rest);
			dodebug = TRUE;
			to_user(from,"Debug output turned on, Output = %s",rest);
		}
		else
		{
			to_user(from,"debug: Unsafe filename");
		}
		return;

	}
	if (wrap_debug())
		to_user(from,"Debug information has been written to file");
	else
		to_user(from,"Unable to write debug information to file");
}

void do_crash(COMMAND_ARGS)
{
	int	*a;

	a = NULL;
	*a = 1; /* break time and space */
}

#endif /* ifndef TEST */

void debug(char *format, ...)
{
	va_list msg;
	int	sz;

	if (!dodebug)
		return;

	if (debug_fd == -1)
	{
		if (debugfile)
		{
			if ((debug_fd = open(debugfile,O_CREAT|O_APPEND|O_WRONLY,SECUREFILEMODE)) < 0)
			{
				dodebug = FALSE;
				return;
			}
		}
		else
		{
			debug_fd = 0;
		}
		CoreClient.sock = debug_fd;
	}

	va_start(msg,format);
	sz = vsnprintf(debugbuf,sizeof(debugbuf),format,msg);
	va_end(msg);

	if ((write(debug_fd,debugbuf,sz)) < 0)
		dodebug = FALSE;
}

#endif /* DEBUG */