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

/* modules/m_xline.c
 * 
 *  Copyright (C) 2002-2003 Lee Hardy <lee@leeh.co.uk>
 *  Copyright (C) 2002-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_xline.c 3161 2007-01-25 07:23:01Z nenolod $
 */

#include "stdinc.h"
#include "send.h"
#include "channel.h"
#include "client.h"
#include "common.h"
#include "config.h"
#include "class.h"
#include "ircd.h"
#include "numeric.h"
#include "logger.h"
#include "s_serv.h"
#include "whowas.h"
#include "match.h"
#include "hash.h"
#include "msg.h"
#include "parse.h"
#include "modules.h"
#include "s_conf.h"
#include "s_newconf.h"
#include "reject.h"

static int mo_xline(struct Client *client_p, struct Client *source_p, int parc, const char *parv[]);
static int ms_xline(struct Client *client_p, struct Client *source_p, int parc, const char *parv[]);
static int me_xline(struct Client *client_p, struct Client *source_p, int parc, const char *parv[]);
static int mo_unxline(struct Client *client_p, struct Client *source_p, int parc, const char *parv[]);
static int ms_unxline(struct Client *client_p, struct Client *source_p, int parc, const char *parv[]);
static int me_unxline(struct Client *client_p, struct Client *source_p, int parc, const char *parv[]);

struct Message xline_msgtab = {
	"XLINE", 0, 0, 0, MFLG_SLOW,
	{mg_unreg, mg_not_oper, {ms_xline, 5}, {ms_xline, 5}, {me_xline, 5}, {mo_xline, 3}}
};
struct Message unxline_msgtab = {
	"UNXLINE", 0, 0, 0, MFLG_SLOW,
	{mg_unreg, mg_not_oper, {ms_unxline, 3}, {ms_unxline, 3}, {me_unxline, 2}, {mo_unxline, 2}}
};

mapi_clist_av1 xline_clist[] =  { &xline_msgtab, &unxline_msgtab, NULL };
DECLARE_MODULE_AV1(xline, NULL, NULL, xline_clist, NULL, NULL, "$Revision: 3161 $");

static int valid_xline(struct Client *, const char *, const char *);
static void apply_xline(struct Client *client_p, const char *name, 
			const char *reason, int temp_time);
static void write_xline(struct Client *source_p, struct ConfItem *aconf);
static void propagate_xline(struct Client *source_p, const char *target,
			int temp_time, const char *name, 
			const char *type, const char *reason);
static void cluster_xline(struct Client *source_p, int temp_time,
			const char *name, const char *reason);

static void handle_remote_xline(struct Client *source_p, int temp_time,
				const char *name, const char *reason);
static void handle_remote_unxline(struct Client *source_p, const char *name);

static void remove_xline(struct Client *source_p, const char *name);
static int remove_xline_from_file(struct Client *source_p, const char *gecos);


/* m_xline()
 *
 * parv[1] - thing to xline
 * parv[2] - optional type/reason
 * parv[3] - reason
 */
static int
mo_xline(struct Client *client_p, struct Client *source_p, int parc, const char *parv[])
{
	struct ConfItem *aconf;
	const char *name;
	const char *reason;
	const char *target_server = NULL;
	int temp_time;
	int loc = 1;

	if(!IsOperXline(source_p))
	{
		sendto_one(source_p, form_str(ERR_NOPRIVS),
			   me.name, source_p->name, "xline");
		return 0;
	}

	if((temp_time = valid_temp_time(parv[loc])) >= 0)
		loc++;
	/* we just set temp_time to -1! */
	else
		temp_time = 0;

	name = parv[loc];
	loc++;

	/* XLINE <gecos> ON <server> :<reason> */
	if(parc >= loc+2 && !irccmp(parv[loc], "ON"))
	{
		if(!IsOperRemoteBan(source_p))
		{
			sendto_one(source_p, form_str(ERR_NOPRIVS),
				me.name, source_p->name, "remoteban");
			return 0;
		}

		target_server = parv[loc+1];
		loc += 2;
	}

	if(parc <= loc || EmptyString(parv[loc]))
	{
		sendto_one(source_p, form_str(ERR_NEEDMOREPARAMS),
				me.name, source_p->name, "XLINE");
		return 0;
	}

	reason = parv[loc];

	if(target_server != NULL)
	{
		propagate_xline(source_p, target_server, temp_time,
				name, "2", reason);

		if(!match(target_server, me.name))
			return 0;
	}
	else if(rb_dlink_list_length(&cluster_conf_list) > 0)
		cluster_xline(source_p, temp_time, name, reason);

	if((aconf = find_xline_mask(name)) != NULL)
	{
		sendto_one(source_p, ":%s NOTICE %s :[%s] already X-Lined by [%s] - %s",
			   me.name, source_p->name, name, aconf->name, aconf->passwd);
		return 0;
	}

	if(!valid_xline(source_p, name, reason))
		return 0;

	apply_xline(source_p, name, reason, temp_time);

	return 0;
}

/* ms_xline()
 *
 * handles a remote xline
 */
static int
ms_xline(struct Client *client_p, struct Client *source_p, int parc, const char *parv[])
{
	/* source_p  parv[1]      parv[2]  parv[3]  parv[4]
	 * oper      target serv  xline    type     reason
	 */
	propagate_xline(source_p, parv[1], 0, parv[2], parv[3], parv[4]);

	if(!IsPerson(source_p))
		return 0;

	/* destined for me? */
	if(!match(parv[1], me.name))
		return 0;

	handle_remote_xline(source_p, 0, parv[2], parv[4]);
	return 0;
}

static int
me_xline(struct Client *client_p, struct Client *source_p, int parc, const char *parv[])
{
	/* time name type :reason */
	if(!IsPerson(source_p))
		return 0;

	handle_remote_xline(source_p, atoi(parv[1]), parv[2], parv[4]);
	return 0;
}

static void
handle_remote_xline(struct Client *source_p, int temp_time,
			const char *name, const char *reason)
{
	struct ConfItem *aconf;

	if(!find_shared_conf(source_p->username, source_p->host,
				source_p->servptr->name,
				(temp_time > 0) ? SHARED_TXLINE : SHARED_PXLINE))
		return;

	if(!valid_xline(source_p, name, reason))
		return;

	/* already xlined */
	if((aconf = find_xline_mask(name)) != NULL)
	{
		sendto_one_notice(source_p, ":[%s] already X-Lined by [%s] - %s", name, aconf->name, aconf->passwd);
		return;
	}

	apply_xline(source_p, name, reason, temp_time);
}

/* valid_xline()
 *
 * inputs	- client xlining, gecos, reason and whether to warn
 * outputs	-
 * side effects - checks the xline for validity, erroring if needed
 */
static int
valid_xline(struct Client *source_p, const char *gecos,
	    const char *reason)
{
	if(EmptyString(reason))
	{
		sendto_one(source_p, form_str(ERR_NEEDMOREPARAMS),
			   get_id(&me, source_p), 
			   get_id(source_p, source_p), "XLINE");
		return 0;
	}

	if(strchr(reason, ':') != NULL)
	{
		sendto_one_notice(source_p,
				  ":Invalid character ':' in comment");
		return 0;
	}

	if(strchr(reason, '"'))
	{
		sendto_one_notice(source_p,
				":Invalid character '\"' in comment");
		return 0;
	}

	if(!valid_wild_card_simple(gecos))
	{
		sendto_one_notice(source_p,
				  ":Please include at least %d non-wildcard "
				  "characters with the xline",
				  ConfigFileEntry.min_nonwildcard_simple);
		return 0;
	}

	return 1;
}

void
apply_xline(struct Client *source_p, const char *name, const char *reason,
		int temp_time)
{
	struct ConfItem *aconf;

	aconf = make_conf();
	aconf->status = CONF_XLINE;

	aconf->name = rb_strdup(name);
	aconf->passwd = rb_strdup(reason);
	collapse(aconf->name);

	if(temp_time > 0)
	{
		aconf->hold = rb_current_time() + temp_time;

		sendto_realops_snomask(SNO_GENERAL, L_ALL,
			     "%s added temporary %d min. X-Line for [%s] [%s]",
			     get_oper_name(source_p), temp_time / 60,
			     aconf->name, reason);
		ilog(L_KLINE, "X %s %d %s %s",
			get_oper_name(source_p), temp_time / 60,
			name, reason);
		sendto_one_notice(source_p, ":Added temporary %d min. X-Line [%s]",
				temp_time / 60, aconf->name);
	}
	else
	{
		sendto_realops_snomask(SNO_GENERAL, L_ALL, "%s added X-Line for [%s] [%s]",
				get_oper_name(source_p), 
				aconf->name, aconf->passwd);
		sendto_one_notice(source_p, ":Added X-Line for [%s] [%s]",
					aconf->name, aconf->passwd);
		write_xline(source_p, aconf);
		ilog(L_KLINE, "X %s 0 %s %s",
			get_oper_name(source_p), name, reason);
	}

	rb_dlinkAddAlloc(aconf, &xline_conf_list);
	check_xlines();
}

/* write_xline()
 *
 * inputs	- gecos, reason, xline type
 * outputs	- writes an xline to the config
 * side effects - 
 */
static void
write_xline(struct Client *source_p, struct ConfItem *aconf)
{
	char buffer[BUFSIZE * 2];
	FILE *out;
	const char *filename;

	filename = ConfigFileEntry.xlinefile;

	if((out = fopen(filename, "a")) == NULL)
	{
		sendto_realops_snomask(SNO_GENERAL, L_ALL, "*** Problem opening %s ", filename);
		sendto_one_notice(source_p, ":*** Problem opening file, xline added temporarily only");
		return;
	}

	rb_sprintf(buffer, "\"%s\",\"0\",\"%s\",\"%s\",%ld\n",
		   aconf->name, aconf->passwd,
		   get_oper_name(source_p), (long) rb_current_time());

	if(fputs(buffer, out) == -1)
	{
		sendto_realops_snomask(SNO_GENERAL, L_ALL, "*** Problem writing to %s", filename);
		sendto_one_notice(source_p, ":*** Problem writing to file, xline added temporarily only");
		fclose(out);
		return;
	}

	if(fclose(out))
	{
		sendto_realops_snomask(SNO_GENERAL, L_ALL, "*** Problem writing to %s", filename);
		sendto_one_notice(source_p, ":*** Problem writing to file, xline added temporarily only");
		return;
	}
}

static void 
propagate_xline(struct Client *source_p, const char *target,
		int temp_time, const char *name, const char *type,
		const char *reason)
{
	if(!temp_time)
	{
		sendto_match_servs(source_p, target, CAP_CLUSTER, NOCAPS,
					"XLINE %s %s %s :%s",
					target, name, type, reason);
		sendto_match_servs(source_p, target, CAP_ENCAP, CAP_CLUSTER,
				"ENCAP %s XLINE %d %s 2 :%s",
				target, temp_time, name, reason);
	}
	else
		sendto_match_servs(source_p, target, CAP_ENCAP, NOCAPS,
				"ENCAP %s XLINE %d %s %s :%s",
				target, temp_time, name, type, reason);
}
			
static void
cluster_xline(struct Client *source_p, int temp_time, const char *name,
		const char *reason)
{
	struct remote_conf *shared_p;
	rb_dlink_node *ptr;

	RB_DLINK_FOREACH(ptr, cluster_conf_list.head)
	{
		shared_p = ptr->data;

		/* old protocol cant handle temps, and we dont really want
		 * to convert them to perm.. --fl
		 */
		if(!temp_time)
		{
			if(!(shared_p->flags & SHARED_PXLINE))
				continue;

			sendto_match_servs(source_p, shared_p->server, CAP_CLUSTER, NOCAPS,
					"XLINE %s %s 2 :%s",
					shared_p->server, name, reason);
			sendto_match_servs(source_p, shared_p->server, CAP_ENCAP, CAP_CLUSTER,
					"ENCAP %s XLINE 0 %s 2 :%s",
					shared_p->server, name, reason);
		}
		else if(shared_p->flags & SHARED_TXLINE)
			sendto_match_servs(source_p, shared_p->server, CAP_ENCAP, NOCAPS,
					"ENCAP %s XLINE %d %s 2 :%s",
					shared_p->server, temp_time, name, reason);
	}
}

/* mo_unxline()
 *
 * parv[1] - thing to unxline
 */
static int
mo_unxline(struct Client *client_p, struct Client *source_p, int parc, const char *parv[])
{
	if(!IsOperXline(source_p))
	{
		sendto_one(source_p, form_str(ERR_NOPRIVS),
			   me.name, source_p->name, "xline");
		return 0;
	}

	if(parc == 4 && !(irccmp(parv[2], "ON")))
	{
		if(!IsOperRemoteBan(source_p))
		{
			sendto_one(source_p, form_str(ERR_NOPRIVS),
				me.name, source_p->name, "remoteban");
			return 0;
		}

		propagate_generic(source_p, "UNXLINE", parv[3], CAP_CLUSTER,
				"%s", parv[1]);

		if(match(parv[3], me.name) == 0)
			return 0;
	}
	else if(rb_dlink_list_length(&cluster_conf_list))
		cluster_generic(source_p, "UNXLINE", SHARED_UNXLINE, CAP_CLUSTER,
				"%s", parv[1]);

	remove_xline(source_p, parv[1]);

	return 0;
}

/* ms_unxline()
 *
 * handles a remote unxline
 */
static int
ms_unxline(struct Client *client_p, struct Client *source_p, int parc, const char *parv[])
{
	/* source_p  parv[1]        parv[2]
	 * oper      target server  gecos
	 */
	propagate_generic(source_p, "UNXLINE", parv[1], CAP_CLUSTER,
			"%s", parv[2]);

	if(!match(parv[1], me.name))
		return 0;

	if(!IsPerson(source_p))
		return 0;

	handle_remote_unxline(source_p, parv[2]);
	return 0;
}

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

	handle_remote_unxline(source_p, parv[1]);
	return 0;
}

static void
handle_remote_unxline(struct Client *source_p, const char *name)
{
	if(!find_shared_conf(source_p->username, source_p->host,
				source_p->servptr->name, SHARED_UNXLINE))
		return;

	remove_xline(source_p, name);

	return;
}

static void
remove_xline(struct Client *source_p, const char *name)
{
	struct ConfItem *aconf;
	rb_dlink_node *ptr;
	char *encoded;

	encoded = xline_encode_spaces(name);

	RB_DLINK_FOREACH(ptr, xline_conf_list.head)
	{
		aconf = ptr->data;

		if(!irccmp(aconf->name, encoded))
		{
			if (!aconf->hold)
			{
				if (!remove_xline_from_file(source_p, encoded))
					return;
			}
			else
			{
				sendto_one_notice(source_p, 
						":X-Line for [%s] is removed",
						encoded);
				sendto_realops_snomask(SNO_GENERAL, L_ALL,
						"%s has removed the temporary X-Line for: [%s]",
						get_oper_name(source_p), encoded);
				ilog(L_KLINE, "UX %s %s", 
						get_oper_name(source_p), encoded);
			}
			
			remove_reject_mask(aconf->name, NULL);
			free_conf(aconf);
			rb_dlinkDestroy(ptr, &xline_conf_list);
			rb_free(encoded);
			return;
		}
	}

	sendto_one_notice(source_p, ":No X-Line for %s", encoded);
	rb_free(encoded);

	return;
}

/* remove_xline_from_file()
 *
 * inputs	- gecos to remove
 * outputs	- 
 * side effects - removes xline from conf, if exists
 *              - does not touch xline_conf_list
 */
static int
remove_xline_from_file(struct Client *source_p, const char *huntgecos)
{
	FILE *in, *out;
	char buf[BUFSIZE];
	char buff[BUFSIZE];
	char temppath[BUFSIZE];
	const char *filename;
	const char *gecos;
	mode_t oldumask;
	char *p;
	char *encoded;
	int error_on_write = 0;
	int found_xline = 0;

	filename = ConfigFileEntry.xlinefile;
	rb_snprintf(temppath, sizeof(temppath),
		 "%s.tmp", ConfigFileEntry.xlinefile);

	if((in = fopen(filename, "r")) == NULL)
	{
		sendto_one_notice(source_p, ":Cannot open %s", filename);
		return 0;
	}

	oldumask = umask(0);

	if((out = fopen(temppath, "w")) == NULL)
	{
		sendto_one_notice(source_p, ":Cannot open %s", temppath);
		fclose(in);
		umask(oldumask);
		return 0;
	}

	umask(oldumask);

	while (fgets(buf, sizeof(buf), in))
	{
		if(error_on_write)
		{
			if(temppath != NULL)
				(void) unlink(temppath);

			break;
		}

		rb_strlcpy(buff, buf, sizeof(buff));

		if((p = strchr(buff, '\n')) != NULL)
			*p = '\0';

		if((*buff == '\0') || (*buff == '#'))
		{
			error_on_write = (fputs(buf, out) < 0) ? YES : NO;
			continue;
		}

		if((gecos = getfield(buff)) == NULL)
		{
			error_on_write = (fputs(buf, out) < 0) ? YES : NO;
			continue;
		}

		/* matching.. */
		encoded = xline_encode_spaces(gecos);
		if(irccmp(encoded, huntgecos) == 0)
			found_xline++;
		else
			error_on_write = (fputs(buf, out) < 0) ? YES : NO;
		rb_free(encoded);
	}

	fclose(in);
	if (fclose(out))
		error_on_write = YES;

	if(error_on_write)
	{
		sendto_one_notice(source_p,
				  ":Couldn't write temp xline file, aborted");
		return 0;
	}
	else if(found_xline == 0)
	{
		sendto_one_notice(source_p, ":Cannot find X-Line for %s in file", huntgecos);

		if(temppath != NULL)
			(void) unlink(temppath);
		return 0;
	}

	if (rename(temppath, filename))
	{
		sendto_one_notice(source_p, ":Couldn't rename temp file, aborted");
		return 0;
	}

	sendto_one_notice(source_p, ":X-Line for [%s] is removed", huntgecos);
	sendto_realops_snomask(SNO_GENERAL, L_ALL,
			     "%s has removed the X-Line for: [%s]",
			     get_oper_name(source_p), huntgecos);
	ilog(L_KLINE, "UX %s %s", get_oper_name(source_p), huntgecos);

	return 1;
}
Commit	Line	Data
212380e3	1	/* modules/m_xline.c
	2	*
	3	* Copyright (C) 2002-2003 Lee Hardy <lee@leeh.co.uk>
	4	* Copyright (C) 2002-2005 ircd-ratbox development team
	5	*
	6	* Redistribution and use in source and binary forms, with or without
	7	* modification, are permitted provided that the following conditions are
	8	* met:
	9	*
	10	* 1.Redistributions of source code must retain the above copyright notice,
	11	* this list of conditions and the following disclaimer.
	12	* 2.Redistributions in binary form must reproduce the above copyright
	13	* notice, this list of conditions and the following disclaimer in the
	14	* documentation and/or other materials provided with the distribution.
	15	* 3.The name of the author may not be used to endorse or promote products
	16	* derived from this software without specific prior written permission.
	17	*
	18	* THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
	19	* IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
	20	* WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
	21	* DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT,
	22	* INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
	23	* (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
	24	* SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
	25	* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
	26	* STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING
	27	* IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
	28	* POSSIBILITY OF SUCH DAMAGE.
	29	*
5366977b	30	* $Id: m_xline.c 3161 2007-01-25 07:23:01Z nenolod $
212380e3	31	*/
	32
	33	#include "stdinc.h"
212380e3	34	#include "send.h"
	35	#include "channel.h"
	36	#include "client.h"
	37	#include "common.h"
	38	#include "config.h"
	39	#include "class.h"
	40	#include "ircd.h"
	41	#include "numeric.h"
d3455e2c	42	#include "logger.h"
212380e3	43	#include "s_serv.h"
212380e3	44	#include "whowas.h"
13ae2f4b	45	#include "match.h"
212380e3	46	#include "hash.h"
	47	#include "msg.h"
	48	#include "parse.h"
	49	#include "modules.h"
	50	#include "s_conf.h"
	51	#include "s_newconf.h"
35f6f850	52	#include "reject.h"
212380e3	53
	54	static int mo_xline(struct Client client_p, struct Client source_p, int parc, const char *parv[]);
	55	static int ms_xline(struct Client client_p, struct Client source_p, int parc, const char *parv[]);
	56	static int me_xline(struct Client client_p, struct Client source_p, int parc, const char *parv[]);
	57	static int mo_unxline(struct Client client_p, struct Client source_p, int parc, const char *parv[]);
	58	static int ms_unxline(struct Client client_p, struct Client source_p, int parc, const char *parv[]);
	59	static int me_unxline(struct Client client_p, struct Client source_p, int parc, const char *parv[]);
	60
	61	struct Message xline_msgtab = {
	62	"XLINE", 0, 0, 0, MFLG_SLOW,
	63	{mg_unreg, mg_not_oper, {ms_xline, 5}, {ms_xline, 5}, {me_xline, 5}, {mo_xline, 3}}
	64	};
	65	struct Message unxline_msgtab = {
	66	"UNXLINE", 0, 0, 0, MFLG_SLOW,
	67	{mg_unreg, mg_not_oper, {ms_unxline, 3}, {ms_unxline, 3}, {me_unxline, 2}, {mo_unxline, 2}}
	68	};
	69
	70	mapi_clist_av1 xline_clist[] = { &xline_msgtab, &unxline_msgtab, NULL };
5366977b	71	DECLARE_MODULE_AV1(xline, NULL, NULL, xline_clist, NULL, NULL, "$Revision: 3161 $");
212380e3	72
	73	static int valid_xline(struct Client , const char , const char *);
	74	static void apply_xline(struct Client client_p, const char name,
	75	const char *reason, int temp_time);
	76	static void write_xline(struct Client source_p, struct ConfItem aconf);
	77	static void propagate_xline(struct Client source_p, const char target,
	78	int temp_time, const char *name,
	79	const char type, const char reason);
	80	static void cluster_xline(struct Client *source_p, int temp_time,
	81	const char name, const char reason);
	82
	83	static void handle_remote_xline(struct Client *source_p, int temp_time,
	84	const char name, const char reason);
	85	static void handle_remote_unxline(struct Client source_p, const char name);
	86
60c96e64	87	static void remove_xline(struct Client source_p, const char name);
5408b484	88	static int remove_xline_from_file(struct Client source_p, const char gecos);
212380e3	89
	90
	91	/* m_xline()
	92	*
	93	* parv[1] - thing to xline
	94	* parv[2] - optional type/reason
	95	* parv[3] - reason
	96	*/
	97	static int
	98	mo_xline(struct Client client_p, struct Client source_p, int parc, const char *parv[])
	99	{
	100	struct ConfItem *aconf;
	101	const char *name;
	102	const char *reason;
	103	const char *target_server = NULL;
	104	int temp_time;
	105	int loc = 1;
	106
	107	if(!IsOperXline(source_p))
	108	{
	109	sendto_one(source_p, form_str(ERR_NOPRIVS),
	110	me.name, source_p->name, "xline");
	111	return 0;
	112	}
	113
	114	if((temp_time = valid_temp_time(parv[loc])) >= 0)
	115	loc++;
	116	/* we just set temp_time to -1! */
	117	else
	118	temp_time = 0;
	119
	120	name = parv[loc];
	121	loc++;
	122
	123	/* XLINE <gecos> ON <server> :<reason> */
	124	if(parc >= loc+2 && !irccmp(parv[loc], "ON"))
	125	{
	126	if(!IsOperRemoteBan(source_p))
	127	{
	128	sendto_one(source_p, form_str(ERR_NOPRIVS),
	129	me.name, source_p->name, "remoteban");
	130	return 0;
	131	}
	132
	133	target_server = parv[loc+1];
	134	loc += 2;
	135	}
	136
	137	if(parc <= loc \|\| EmptyString(parv[loc]))
	138	{
	139	sendto_one(source_p, form_str(ERR_NEEDMOREPARAMS),
	140	me.name, source_p->name, "XLINE");
	141	return 0;
	142	}
	143
	144	reason = parv[loc];
	145
	146	if(target_server != NULL)
	147	{
	148	propagate_xline(source_p, target_server, temp_time,
	149	name, "2", reason);
	150
	151	if(!match(target_server, me.name))
	152	return 0;
153	}
08d11e34	154	else if(rb_dlink_list_length(&cluster_conf_list) > 0)
212380e3	155	cluster_xline(source_p, temp_time, name, reason);
212380e3	156
0fdb2570	157	if((aconf = find_xline_mask(name)) != NULL)
212380e3	158	{
212380e3	159	sendto_one(source_p, ":%s NOTICE %s :[%s] already X-Lined by [%s] - %s",
60e127c1	160	me.name, source_p->name, name, aconf->name, aconf->passwd);
212380e3	161	return 0;
	162	}
	163
	164	if(!valid_xline(source_p, name, reason))
	165	return 0;
	166
	167	apply_xline(source_p, name, reason, temp_time);
	168
	169	return 0;
	170	}
	171
	172	/* ms_xline()
	173	*
	174	* handles a remote xline
	175	*/
	176	static int
	177	ms_xline(struct Client client_p, struct Client source_p, int parc, const char *parv[])
	178	{
77f3c1f4 JT	179	/* source_p parv[1] parv[2] parv[3] parv[4]
77f3c1f4 JT	180	* oper target serv xline type reason
212380e3	181	*/
	182	propagate_xline(source_p, parv[1], 0, parv[2], parv[3], parv[4]);
	183
	184	if(!IsPerson(source_p))
	185	return 0;
	186
	187	/* destined for me? */
	188	if(!match(parv[1], me.name))
	189	return 0;
	190
	191	handle_remote_xline(source_p, 0, parv[2], parv[4]);
	192	return 0;
	193	}
	194
	195	static int
	196	me_xline(struct Client client_p, struct Client source_p, int parc, const char *parv[])
	197	{
	198	/* time name type :reason */
	199	if(!IsPerson(source_p))
	200	return 0;
	201
	202	handle_remote_xline(source_p, atoi(parv[1]), parv[2], parv[4]);
	203	return 0;
	204	}
	205
	206	static void
	207	handle_remote_xline(struct Client *source_p, int temp_time,
	208	const char name, const char reason)
	209	{
	210	struct ConfItem *aconf;
	211
	212	if(!find_shared_conf(source_p->username, source_p->host,
c88cdb00	213	source_p->servptr->name,
212380e3	214	(temp_time > 0) ? SHARED_TXLINE : SHARED_PXLINE))
	215	return;
	216
	217	if(!valid_xline(source_p, name, reason))
	218	return;
	219
	220	/* already xlined */
0fdb2570	221	if((aconf = find_xline_mask(name)) != NULL)
212380e3	222	{
5366977b	223	sendto_one_notice(source_p, ":[%s] already X-Lined by [%s] - %s", name, aconf->name, aconf->passwd);
212380e3	224	return;
	225	}
	226
	227	apply_xline(source_p, name, reason, temp_time);
	228	}
	229
	230	/* valid_xline()
	231	*
	232	* inputs - client xlining, gecos, reason and whether to warn
	233	* outputs -
	234	* side effects - checks the xline for validity, erroring if needed
	235	*/
	236	static int
	237	valid_xline(struct Client source_p, const char gecos,
	238	const char *reason)
	239	{
	240	if(EmptyString(reason))
	241	{
	242	sendto_one(source_p, form_str(ERR_NEEDMOREPARAMS),
	243	get_id(&me, source_p),
	244	get_id(source_p, source_p), "XLINE");
	245	return 0;
	246	}
	247
	248	if(strchr(reason, ':') != NULL)
	249	{
	250	sendto_one_notice(source_p,
	251	":Invalid character ':' in comment");
	252	return 0;
	253	}
	254
	255	if(strchr(reason, '"'))
	256	{
	257	sendto_one_notice(source_p,
	258	":Invalid character '\"' in comment");
	259	return 0;
	260	}
	261
	262	if(!valid_wild_card_simple(gecos))
	263	{
	264	sendto_one_notice(source_p,
	265	":Please include at least %d non-wildcard "
	266	"characters with the xline",
	267	ConfigFileEntry.min_nonwildcard_simple);
	268	return 0;
	269	}
	270
	271	return 1;
	272	}
	273
	274	void
	275	apply_xline(struct Client source_p, const char name, const char *reason,
	276	int temp_time)
	277	{
	278	struct ConfItem *aconf;
	279
	280	aconf = make_conf();
	281	aconf->status = CONF_XLINE;
	282
63860dd1	283	aconf->name = rb_strdup(name);
62d28946	284	aconf->passwd = rb_strdup(reason);
212380e3	285	collapse(aconf->name);
	286
	287	if(temp_time > 0)
	288	{
9f6bbe3c	289	aconf->hold = rb_current_time() + temp_time;
212380e3	290
	291	sendto_realops_snomask(SNO_GENERAL, L_ALL,
	292	"%s added temporary %d min. X-Line for [%s] [%s]",
	293	get_oper_name(source_p), temp_time / 60,
	294	aconf->name, reason);
	295	ilog(L_KLINE, "X %s %d %s %s",
	296	get_oper_name(source_p), temp_time / 60,
	297	name, reason);
	298	sendto_one_notice(source_p, ":Added temporary %d min. X-Line [%s]",
	299	temp_time / 60, aconf->name);
	300	}
	301	else
	302	{
	303	sendto_realops_snomask(SNO_GENERAL, L_ALL, "%s added X-Line for [%s] [%s]",
	304	get_oper_name(source_p),
	305	aconf->name, aconf->passwd);
	306	sendto_one_notice(source_p, ":Added X-Line for [%s] [%s]",
	307	aconf->name, aconf->passwd);
	308	write_xline(source_p, aconf);
	309	ilog(L_KLINE, "X %s 0 %s %s",
	310	get_oper_name(source_p), name, reason);
	311	}
	312
b96058d1	313	rb_dlinkAddAlloc(aconf, &xline_conf_list);
212380e3	314	check_xlines();
	315	}
	316
	317	/* write_xline()
	318	*
	319	* inputs - gecos, reason, xline type
	320	* outputs - writes an xline to the config
	321	* side effects -
	322	*/
	323	static void
	324	write_xline(struct Client source_p, struct ConfItem aconf)
	325	{
	326	char buffer[BUFSIZE * 2];
	327	FILE *out;
	328	const char *filename;
	329
	330	filename = ConfigFileEntry.xlinefile;
	331
	332	if((out = fopen(filename, "a")) == NULL)
	333	{
	334	sendto_realops_snomask(SNO_GENERAL, L_ALL, "*** Problem opening %s ", filename);
	335	sendto_one_notice(source_p, ":*** Problem opening file, xline added temporarily only");
	336	return;
	337	}
	338
581fa5c4	339	rb_sprintf(buffer, "\"%s\",\"0\",\"%s\",\"%s\",%ld\n",
212380e3	340	aconf->name, aconf->passwd,
7db0e309	341	get_oper_name(source_p), (long) rb_current_time());
212380e3	342
	343	if(fputs(buffer, out) == -1)
	344	{
	345	sendto_realops_snomask(SNO_GENERAL, L_ALL, "*** Problem writing to %s", filename);
	346	sendto_one_notice(source_p, ":*** Problem writing to file, xline added temporarily only");
	347	fclose(out);
	348	return;
	349	}
	350
	351	if(fclose(out))
	352	{
	353	sendto_realops_snomask(SNO_GENERAL, L_ALL, "*** Problem writing to %s", filename);
	354	sendto_one_notice(source_p, ":*** Problem writing to file, xline added temporarily only");
	355	return;
	356	}
	357	}
	358
	359	static void
	360	propagate_xline(struct Client source_p, const char target,
	361	int temp_time, const char name, const char type,
	362	const char *reason)
	363	{
	364	if(!temp_time)
	365	{
	366	sendto_match_servs(source_p, target, CAP_CLUSTER, NOCAPS,
	367	"XLINE %s %s %s :%s",
	368	target, name, type, reason);
	369	sendto_match_servs(source_p, target, CAP_ENCAP, CAP_CLUSTER,
	370	"ENCAP %s XLINE %d %s 2 :%s",
	371	target, temp_time, name, reason);
	372	}
	373	else
	374	sendto_match_servs(source_p, target, CAP_ENCAP, NOCAPS,
	375	"ENCAP %s XLINE %d %s %s :%s",
	376	target, temp_time, name, type, reason);
	377	}
	378
	379	static void
	380	cluster_xline(struct Client source_p, int temp_time, const char name,
	381	const char *reason)
	382	{
	383	struct remote_conf *shared_p;
08d11e34	384	rb_dlink_node *ptr;
212380e3	385
08d11e34	386	RB_DLINK_FOREACH(ptr, cluster_conf_list.head)
212380e3	387	{
	388	shared_p = ptr->data;
	389
	390	/* old protocol cant handle temps, and we dont really want
	391	* to convert them to perm.. --fl
	392	*/
	393	if(!temp_time)
	394	{
	395	if(!(shared_p->flags & SHARED_PXLINE))
	396	continue;
	397
	398	sendto_match_servs(source_p, shared_p->server, CAP_CLUSTER, NOCAPS,
	399	"XLINE %s %s 2 :%s",
	400	shared_p->server, name, reason);
	401	sendto_match_servs(source_p, shared_p->server, CAP_ENCAP, CAP_CLUSTER,
	402	"ENCAP %s XLINE 0 %s 2 :%s",
	403	shared_p->server, name, reason);
	404	}
	405	else if(shared_p->flags & SHARED_TXLINE)
	406	sendto_match_servs(source_p, shared_p->server, CAP_ENCAP, NOCAPS,
	407	"ENCAP %s XLINE %d %s 2 :%s",
	408	shared_p->server, temp_time, name, reason);
	409	}
	410	}
	411
	412	/* mo_unxline()
	413	*
	414	* parv[1] - thing to unxline
	415	*/
	416	static int
	417	mo_unxline(struct Client client_p, struct Client source_p, int parc, const char *parv[])
	418	{
	419	if(!IsOperXline(source_p))
	420	{
	421	sendto_one(source_p, form_str(ERR_NOPRIVS),
	422	me.name, source_p->name, "xline");
	423	return 0;
	424	}
	425
	426	if(parc == 4 && !(irccmp(parv[2], "ON")))
	427	{
	428	if(!IsOperRemoteBan(source_p))
	429	{
	430	sendto_one(source_p, form_str(ERR_NOPRIVS),
	431	me.name, source_p->name, "remoteban");
	432	return 0;
	433	}
	434
	435	propagate_generic(source_p, "UNXLINE", parv[3], CAP_CLUSTER,
	436	"%s", parv[1]);
	437
	438	if(match(parv[3], me.name) == 0)
	439	return 0;
	440	}
08d11e34	441	else if(rb_dlink_list_length(&cluster_conf_list))
212380e3	442	cluster_generic(source_p, "UNXLINE", SHARED_UNXLINE, CAP_CLUSTER,
	443	"%s", parv[1]);
	444
212380e3	445	remove_xline(source_p, parv[1]);
	446
	447	return 0;
	448	}
	449
	450	/* ms_unxline()
	451	*
	452	* handles a remote unxline
	453	*/
	454	static int
	455	ms_unxline(struct Client client_p, struct Client source_p, int parc, const char *parv[])
	456	{
77f3c1f4 JT	457	/* source_p parv[1] parv[2]
77f3c1f4 JT	458	* oper target server gecos
212380e3	459	*/
	460	propagate_generic(source_p, "UNXLINE", parv[1], CAP_CLUSTER,
	461	"%s", parv[2]);
	462
	463	if(!match(parv[1], me.name))
	464	return 0;
	465
	466	if(!IsPerson(source_p))
	467	return 0;
	468
	469	handle_remote_unxline(source_p, parv[2]);
	470	return 0;
	471	}
	472
	473	static int
	474	me_unxline(struct Client client_p, struct Client source_p, int parc, const char *parv[])
	475	{
	476	/* name */
	477	if(!IsPerson(source_p))
	478	return 0;
	479
	480	handle_remote_unxline(source_p, parv[1]);
	481	return 0;
	482	}
	483
	484	static void
	485	handle_remote_unxline(struct Client source_p, const char name)
	486	{
	487	if(!find_shared_conf(source_p->username, source_p->host,
c88cdb00	488	source_p->servptr->name, SHARED_UNXLINE))
212380e3	489	return;
212380e3	490
212380e3	491	remove_xline(source_p, name);
	492
	493	return;
	494	}
	495
60c96e64	496	static void
5408b484	497	remove_xline(struct Client source_p, const char name)
212380e3	498	{
212380e3	499	struct ConfItem *aconf;
08d11e34	500	rb_dlink_node *ptr;
63860dd1 JT	501	char *encoded;
	502
	503	encoded = xline_encode_spaces(name);
212380e3	504
08d11e34	505	RB_DLINK_FOREACH(ptr, xline_conf_list.head)
212380e3	506	{
	507	aconf = ptr->data;
	508
63860dd1	509	if(!irccmp(aconf->name, encoded))
212380e3	510	{
5408b484 JT	511	if (!aconf->hold)
5408b484 JT	512	{
63860dd1	513	if (!remove_xline_from_file(source_p, encoded))
60c96e64	514	return;
5408b484 JT	515	}
	516	else
	517	{
	518	sendto_one_notice(source_p,
	519	":X-Line for [%s] is removed",
63860dd1	520	encoded);
5408b484 JT	521	sendto_realops_snomask(SNO_GENERAL, L_ALL,
5408b484 JT	522	"%s has removed the temporary X-Line for: [%s]",
63860dd1	523	get_oper_name(source_p), encoded);
5408b484	524	ilog(L_KLINE, "UX %s %s",
63860dd1	525	get_oper_name(source_p), encoded);
5408b484	526	}
212380e3	527
35f6f850	528	remove_reject_mask(aconf->name, NULL);
212380e3	529	free_conf(aconf);
9f6c3353	530	rb_dlinkDestroy(ptr, &xline_conf_list);
63860dd1	531	rb_free(encoded);
60c96e64	532	return;
212380e3	533	}
	534	}
	535
63860dd1 JT	536	sendto_one_notice(source_p, ":No X-Line for %s", encoded);
63860dd1 JT	537	rb_free(encoded);
5408b484	538
60c96e64	539	return;
212380e3	540	}
212380e3	541
60c96e64	542	/* remove_xline_from_file()
212380e3	543	*
	544	* inputs - gecos to remove
	545	* outputs -
	546	* side effects - removes xline from conf, if exists
5408b484	547	* - does not touch xline_conf_list
212380e3	548	*/
5408b484 JT	549	static int
5408b484 JT	550	remove_xline_from_file(struct Client source_p, const char huntgecos)
212380e3	551	{
	552	FILE in, out;
	553	char buf[BUFSIZE];
	554	char buff[BUFSIZE];
	555	char temppath[BUFSIZE];
	556	const char *filename;
	557	const char *gecos;
	558	mode_t oldumask;
	559	char *p;
63860dd1	560	char *encoded;
212380e3	561	int error_on_write = 0;
	562	int found_xline = 0;
	563
	564	filename = ConfigFileEntry.xlinefile;
581fa5c4	565	rb_snprintf(temppath, sizeof(temppath),
212380e3	566	"%s.tmp", ConfigFileEntry.xlinefile);
	567
	568	if((in = fopen(filename, "r")) == NULL)
	569	{
	570	sendto_one_notice(source_p, ":Cannot open %s", filename);
5408b484	571	return 0;
212380e3	572	}
	573
	574	oldumask = umask(0);
	575
	576	if((out = fopen(temppath, "w")) == NULL)
	577	{
	578	sendto_one_notice(source_p, ":Cannot open %s", temppath);
	579	fclose(in);
	580	umask(oldumask);
5408b484	581	return 0;
212380e3	582	}
	583
	584	umask(oldumask);
	585
	586	while (fgets(buf, sizeof(buf), in))
	587	{
	588	if(error_on_write)
	589	{
	590	if(temppath != NULL)
	591	(void) unlink(temppath);
	592
	593	break;
	594	}
	595
907468c4	596	rb_strlcpy(buff, buf, sizeof(buff));
212380e3	597
	598	if((p = strchr(buff, '\n')) != NULL)
	599	*p = '\0';
	600
	601	if((buff == '\0') \|\| (buff == '#'))
	602	{
	603	error_on_write = (fputs(buf, out) < 0) ? YES : NO;
	604	continue;
	605	}
	606
	607	if((gecos = getfield(buff)) == NULL)
	608	{
	609	error_on_write = (fputs(buf, out) < 0) ? YES : NO;
	610	continue;
	611	}
	612
	613	/* matching.. */
63860dd1 JT	614	encoded = xline_encode_spaces(gecos);
63860dd1 JT	615	if(irccmp(encoded, huntgecos) == 0)
212380e3	616	found_xline++;
	617	else
	618	error_on_write = (fputs(buf, out) < 0) ? YES : NO;
63860dd1	619	rb_free(encoded);
212380e3	620	}
	621
	622	fclose(in);
	623	if (fclose(out))
	624	error_on_write = YES;
	625
	626	if(error_on_write)
	627	{
	628	sendto_one_notice(source_p,
	629	":Couldn't write temp xline file, aborted");
5408b484	630	return 0;
212380e3	631	}
	632	else if(found_xline == 0)
	633	{
5408b484	634	sendto_one_notice(source_p, ":Cannot find X-Line for %s in file", huntgecos);
212380e3	635
	636	if(temppath != NULL)
	637	(void) unlink(temppath);
5408b484	638	return 0;
212380e3	639	}
	640
	641	if (rename(temppath, filename))
	642	{
	643	sendto_one_notice(source_p, ":Couldn't rename temp file, aborted");
5408b484	644	return 0;
212380e3	645	}
212380e3	646
	647	sendto_one_notice(source_p, ":X-Line for [%s] is removed", huntgecos);
	648	sendto_realops_snomask(SNO_GENERAL, L_ALL,
	649	"%s has removed the X-Line for: [%s]",
	650	get_oper_name(source_p), huntgecos);
	651	ilog(L_KLINE, "UX %s %s", get_oper_name(source_p), huntgecos);
5408b484 JT	652
5408b484 JT	653	return 1;
212380e3	654	}