[irc/rqf/shadowircd.git] / unsupported / m_force.c

/* contrib/m_force.c
 * Copyright (C) 1996-2002 Hybrid Development Team
 * Copyright (C) 2004 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_force.c 3297 2007-03-28 14:49:48Z jilles $
 */

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

static int mo_forcejoin(struct Client *client_p, struct Client *source_p,
			int parc, const char *parv[]);
static int mo_forcepart(struct Client *client_p, struct Client *source_p,
			int parc, const char *parv[]);

struct Message forcejoin_msgtab = {
	"FORCEJOIN", 0, 0, 0, MFLG_SLOW,
	{mg_unreg, mg_not_oper, mg_ignore, mg_ignore, mg_ignore, {mo_forcejoin, 3}}
};

struct Message forcepart_msgtab = {
	"FORCEPART", 0, 0, 0, MFLG_SLOW,
	{mg_unreg, mg_not_oper, mg_ignore, mg_ignore, mg_ignore, {mo_forcepart, 3}}
};

mapi_clist_av1 force_clist[] = { &forcejoin_msgtab, &forcepart_msgtab, NULL };

DECLARE_MODULE_AV1(force, NULL, NULL, force_clist, NULL, NULL, "$Revision: 3297 $");

/*
 * m_forcejoin
 *      parv[1] = user to force
 *      parv[2] = channel to force them into
 */
static int
mo_forcejoin(struct Client *client_p, struct Client *source_p, int parc, const char *parv[])
{
	struct Client *target_p;
	struct Channel *chptr;
	int type;
	char mode;
	char sjmode;
	char *newch;

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

	if((hunt_server(client_p, source_p, ":%s FORCEJOIN %s %s", 1, parc, parv)) != HUNTED_ISME)
		return 0;

	/* if target_p is not existant, print message
	 * to source_p and bail - scuzzy
	 */
	if((target_p = find_client(parv[1])) == NULL)
	{
		sendto_one(source_p, form_str(ERR_NOSUCHNICK), me.name, source_p->name, parv[1]);
		return 0;
	}

	if(!IsPerson(target_p))
		return 0;

	sendto_wallops_flags(UMODE_WALLOP, &me,
			     "FORCEJOIN called for %s %s by %s!%s@%s",
			     parv[1], parv[2], source_p->name, source_p->username, source_p->host);
	ilog(L_MAIN, "FORCEJOIN called for %s %s by %s!%s@%s",
	     parv[1], parv[2], source_p->name, source_p->username, source_p->host);
	sendto_server(NULL, NULL, NOCAPS, NOCAPS,
			":%s WALLOPS :FORCEJOIN called for %s %s by %s!%s@%s",
			me.name, parv[1], parv[2],
			source_p->name, source_p->username, source_p->host);

	/* select our modes from parv[2] if they exist... (chanop) */
	if(*parv[2] == '@')
	{
		type = CHFL_CHANOP;
		mode = 'o';
		sjmode = '@';
	}
	else if(*parv[2] == '+')
	{
		type = CHFL_VOICE;
		mode = 'v';
		sjmode = '+';
	}
	else
	{
		type = CHFL_PEON;
		mode = sjmode = '\0';
	}

	if(mode != '\0')
		parv[2]++;

	if((chptr = find_channel(parv[2])) != NULL)
	{
		if(IsMember(target_p, chptr))
		{
			/* debugging is fun... */
			sendto_one_notice(source_p, ":*** Notice -- %s is already in %s",
				 target_p->name, chptr->chname);
			return 0;
		}

		add_user_to_channel(chptr, target_p, type);

		sendto_server(target_p, chptr, NOCAPS, NOCAPS,
			      ":%s SJOIN %ld %s + :%c%s",
			      me.name, (long) chptr->channelts,
			      chptr->chname, type ? sjmode : ' ', target_p->name);

		sendto_channel_local(ALL_MEMBERS, chptr, ":%s!%s@%s JOIN :%s",
				     target_p->name, target_p->username,
				     target_p->host, chptr->chname);

		if(type)
			sendto_channel_local(ALL_MEMBERS, chptr, ":%s MODE %s +%c %s",
					     me.name, chptr->chname, mode, target_p->name);

		if(chptr->topic != NULL)
		{
			sendto_one(target_p, form_str(RPL_TOPIC), me.name,
				   target_p->name, chptr->chname, chptr->topic);
			sendto_one(target_p, form_str(RPL_TOPICWHOTIME),
				   me.name, source_p->name, chptr->chname,
				   chptr->topic_info, chptr->topic_time);
		}

		channel_member_names(chptr, target_p, 1);
	}
	else
	{
		newch = LOCAL_COPY(parv[2]);
		if(!check_channel_name(newch))
		{
			sendto_one(source_p, form_str(ERR_BADCHANNAME), me.name,
				   source_p->name, (unsigned char *) newch);
			return 0;
		}

		/* channel name must begin with & or # */
		if(!IsChannelName(newch))
		{
			sendto_one(source_p, form_str(ERR_BADCHANNAME), me.name,
				   source_p->name, (unsigned char *) newch);
			return 0;
		}

		/* newch can't be longer than CHANNELLEN */
		if(strlen(newch) > CHANNELLEN)
		{
			sendto_one_notice(source_p, ":Channel name is too long");
			return 0;
		}

		chptr = get_or_create_channel(target_p, newch, NULL);
		add_user_to_channel(chptr, target_p, CHFL_CHANOP);

		/* send out a join, make target_p join chptr */
		sendto_server(target_p, chptr, NOCAPS, NOCAPS,
			      ":%s SJOIN %ld %s +nt :@%s", me.name,
			      (long) chptr->channelts, chptr->chname, target_p->name);

		sendto_channel_local(ALL_MEMBERS, chptr, ":%s!%s@%s JOIN :%s",
				     target_p->name, target_p->username,
				     target_p->host, chptr->chname);

		chptr->mode.mode |= MODE_TOPICLIMIT;
		chptr->mode.mode |= MODE_NOPRIVMSGS;

		sendto_channel_local(ALL_MEMBERS, chptr, ":%s MODE %s +nt", me.name, chptr->chname);

		target_p->localClient->last_join_time = rb_current_time();
		channel_member_names(chptr, target_p, 1);

		/* we do this to let the oper know that a channel was created, this will be
		 * seen from the server handling the command instead of the server that
		 * the oper is on.
		 */
		sendto_one_notice(source_p, ":*** Notice -- Creating channel %s", chptr->chname);
	}
	return 0;
}


static int
mo_forcepart(struct Client *client_p, struct Client *source_p, int parc, const char *parv[])
{
	struct Client *target_p;
	struct Channel *chptr;
	struct membership *msptr;

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

	if((hunt_server(client_p, source_p, ":%s FORCEPART %s %s", 1, parc, parv)) != HUNTED_ISME)
		return 0;

	/* if target_p == NULL then let the oper know */
	if((target_p = find_client(parv[1])) == NULL)
	{
		sendto_one(source_p, form_str(ERR_NOSUCHNICK), me.name, source_p->name, parv[1]);
		return 0;
	}

	if(!IsClient(target_p))
		return 0;

	sendto_wallops_flags(UMODE_WALLOP, &me,
			     "FORCEPART called for %s %s by %s!%s@%s",
			     parv[1], parv[2], source_p->name, source_p->username, source_p->host);
	ilog(L_MAIN, "FORCEPART called for %s %s by %s!%s@%s",
	     parv[1], parv[2], source_p->name, source_p->username, source_p->host);
	sendto_server(NULL, NULL, NOCAPS, NOCAPS,
			":%s WALLOPS :FORCEPART called for %s %s by %s!%s@%s",
			me.name, parv[1], parv[2],
			source_p->name, source_p->username, source_p->host);

	if((chptr = find_channel(parv[2])) == NULL)
	{
		sendto_one_numeric(source_p, ERR_NOSUCHCHANNEL,
				   form_str(ERR_NOSUCHCHANNEL), parv[1]);
		return 0;
	}

	if((msptr = find_channel_membership(chptr, target_p)) == NULL)
	{
		sendto_one_numeric(source_p, ERR_USERNOTINCHANNEL,
				form_str(ERR_USERNOTINCHANNEL),
				parv[1], parv[2]);
		return 0;
	}

	sendto_server(target_p, chptr, NOCAPS, NOCAPS,
		      ":%s PART %s :%s", target_p->name, chptr->chname, target_p->name);

	sendto_channel_local(ALL_MEMBERS, chptr, ":%s!%s@%s PART %s :%s",
			     target_p->name, target_p->username,
			     target_p->host, chptr->chname, target_p->name);


	remove_user_from_channel(msptr);

	return 0;
}
Commit	Line	Data
212380e3	1	/* contrib/m_force.c
	2	* Copyright (C) 1996-2002 Hybrid Development Team
	3	* Copyright (C) 2004 ircd-ratbox Development Team
	4	*
	5	* Redistribution and use in source and binary forms, with or without
	6	* modification, are permitted provided that the following conditions are
	7	* met:
	8	*
	9	* 1.Redistributions of source code must retain the above copyright notice,
	10	* this list of conditions and the following disclaimer.
	11	* 2.Redistributions in binary form must reproduce the above copyright
	12	* notice, this list of conditions and the following disclaimer in the
	13	* documentation and/or other materials provided with the distribution.
	14	* 3.The name of the author may not be used to endorse or promote products
	15	* derived from this software without specific prior written permission.
	16	*
	17	* THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
	18	* IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
	19	* WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
	20	* DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT,
	21	* INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
	22	* (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
	23	* SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
	24	* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
	25	* STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING
	26	* IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
	27	* POSSIBILITY OF SUCH DAMAGE.
	28	*
a5ea0e0d	29	* $Id: m_force.c 3297 2007-03-28 14:49:48Z jilles $
212380e3	30	*/
	31
	32	#include "stdinc.h"
212380e3	33	#include "channel.h"
	34	#include "class.h"
	35	#include "client.h"
	36	#include "common.h"
13ae2f4b	37	#include "match.h"
212380e3	38	#include "ircd.h"
	39	#include "hostmask.h"
	40	#include "numeric.h"
212380e3	41	#include "s_conf.h"
212380e3	42	#include "s_newconf.h"
d3455e2c	43	#include "logger.h"
212380e3	44	#include "send.h"
	45	#include "hash.h"
	46	#include "s_serv.h"
	47	#include "msg.h"
	48	#include "parse.h"
	49	#include "modules.h"
212380e3	50
	51	static int mo_forcejoin(struct Client client_p, struct Client source_p,
	52	int parc, const char *parv[]);
	53	static int mo_forcepart(struct Client client_p, struct Client source_p,
	54	int parc, const char *parv[]);
	55
	56	struct Message forcejoin_msgtab = {
	57	"FORCEJOIN", 0, 0, 0, MFLG_SLOW,
	58	{mg_unreg, mg_not_oper, mg_ignore, mg_ignore, mg_ignore, {mo_forcejoin, 3}}
	59	};
	60
	61	struct Message forcepart_msgtab = {
	62	"FORCEPART", 0, 0, 0, MFLG_SLOW,
	63	{mg_unreg, mg_not_oper, mg_ignore, mg_ignore, mg_ignore, {mo_forcepart, 3}}
	64	};
	65
	66	mapi_clist_av1 force_clist[] = { &forcejoin_msgtab, &forcepart_msgtab, NULL };
	67
a5ea0e0d	68	DECLARE_MODULE_AV1(force, NULL, NULL, force_clist, NULL, NULL, "$Revision: 3297 $");
212380e3	69
	70	/*
	71	* m_forcejoin
212380e3	72	* parv[1] = user to force
	73	* parv[2] = channel to force them into
	74	*/
	75	static int
	76	mo_forcejoin(struct Client client_p, struct Client source_p, int parc, const char *parv[])
	77	{
	78	struct Client *target_p;
	79	struct Channel *chptr;
	80	int type;
	81	char mode;
	82	char sjmode;
	83	char *newch;
	84
	85	if(!IsOperAdmin(source_p))
	86	{
a5ea0e0d	87	sendto_one(source_p, form_str(ERR_NOPRIVS), me.name, source_p->name, "admin");
212380e3	88	return 0;
	89	}
	90
	91	if((hunt_server(client_p, source_p, ":%s FORCEJOIN %s %s", 1, parc, parv)) != HUNTED_ISME)
	92	return 0;
	93
	94	/* if target_p is not existant, print message
	95	* to source_p and bail - scuzzy
	96	*/
	97	if((target_p = find_client(parv[1])) == NULL)
	98	{
	99	sendto_one(source_p, form_str(ERR_NOSUCHNICK), me.name, source_p->name, parv[1]);
	100	return 0;
	101	}
	102
	103	if(!IsPerson(target_p))
	104	return 0;
	105
	106	sendto_wallops_flags(UMODE_WALLOP, &me,
	107	"FORCEJOIN called for %s %s by %s!%s@%s",
	108	parv[1], parv[2], source_p->name, source_p->username, source_p->host);
	109	ilog(L_MAIN, "FORCEJOIN called for %s %s by %s!%s@%s",
	110	parv[1], parv[2], source_p->name, source_p->username, source_p->host);
	111	sendto_server(NULL, NULL, NOCAPS, NOCAPS,
	112	":%s WALLOPS :FORCEJOIN called for %s %s by %s!%s@%s",
	113	me.name, parv[1], parv[2],
	114	source_p->name, source_p->username, source_p->host);
	115
	116	/* select our modes from parv[2] if they exist... (chanop) */
	117	if(*parv[2] == '@')
	118	{
	119	type = CHFL_CHANOP;
	120	mode = 'o';
	121	sjmode = '@';
	122	}
	123	else if(*parv[2] == '+')
	124	{
	125	type = CHFL_VOICE;
	126	mode = 'v';
	127	sjmode = '+';
	128	}
	129	else
	130	{
	131	type = CHFL_PEON;
	132	mode = sjmode = '\0';
	133	}
	134
	135	if(mode != '\0')
	136	parv[2]++;
	137
	138	if((chptr = find_channel(parv[2])) != NULL)
	139	{
	140	if(IsMember(target_p, chptr))
	141	{
	142	/* debugging is fun... */
5366977b	143	sendto_one_notice(source_p, ":*** Notice -- %s is already in %s",
5366977b	144	target_p->name, chptr->chname);
212380e3	145	return 0;
	146	}
	147
	148	add_user_to_channel(chptr, target_p, type);
	149
	150	sendto_server(target_p, chptr, NOCAPS, NOCAPS,
	151	":%s SJOIN %ld %s + :%c%s",
	152	me.name, (long) chptr->channelts,
	153	chptr->chname, type ? sjmode : ' ', target_p->name);
	154
	155	sendto_channel_local(ALL_MEMBERS, chptr, ":%s!%s@%s JOIN :%s",
	156	target_p->name, target_p->username,
	157	target_p->host, chptr->chname);
	158
	159	if(type)
	160	sendto_channel_local(ALL_MEMBERS, chptr, ":%s MODE %s +%c %s",
	161	me.name, chptr->chname, mode, target_p->name);
	162
	163	if(chptr->topic != NULL)
	164	{
	165	sendto_one(target_p, form_str(RPL_TOPIC), me.name,
	166	target_p->name, chptr->chname, chptr->topic);
	167	sendto_one(target_p, form_str(RPL_TOPICWHOTIME),
	168	me.name, source_p->name, chptr->chname,
	169	chptr->topic_info, chptr->topic_time);
	170	}
	171
	172	channel_member_names(chptr, target_p, 1);
	173	}
	174	else
	175	{
	176	newch = LOCAL_COPY(parv[2]);
	177	if(!check_channel_name(newch))
	178	{
	179	sendto_one(source_p, form_str(ERR_BADCHANNAME), me.name,
	180	source_p->name, (unsigned char *) newch);
	181	return 0;
	182	}
	183
	184	/* channel name must begin with & or # */
	185	if(!IsChannelName(newch))
	186	{
	187	sendto_one(source_p, form_str(ERR_BADCHANNAME), me.name,
	188	source_p->name, (unsigned char *) newch);
	189	return 0;
	190	}
	191
	192	/* newch can't be longer than CHANNELLEN */
	193	if(strlen(newch) > CHANNELLEN)
	194	{
5366977b	195	sendto_one_notice(source_p, ":Channel name is too long");
212380e3	196	return 0;
	197	}
	198
	199	chptr = get_or_create_channel(target_p, newch, NULL);
	200	add_user_to_channel(chptr, target_p, CHFL_CHANOP);
	201
	202	/* send out a join, make target_p join chptr */
	203	sendto_server(target_p, chptr, NOCAPS, NOCAPS,
	204	":%s SJOIN %ld %s +nt :@%s", me.name,
	205	(long) chptr->channelts, chptr->chname, target_p->name);
	206
	207	sendto_channel_local(ALL_MEMBERS, chptr, ":%s!%s@%s JOIN :%s",
	208	target_p->name, target_p->username,
	209	target_p->host, chptr->chname);
	210
	211	chptr->mode.mode \|= MODE_TOPICLIMIT;
	212	chptr->mode.mode \|= MODE_NOPRIVMSGS;
	213
	214	sendto_channel_local(ALL_MEMBERS, chptr, ":%s MODE %s +nt", me.name, chptr->chname);
	215
d9baf66a	216	target_p->localClient->last_join_time = rb_current_time();
212380e3	217	channel_member_names(chptr, target_p, 1);
	218
	219	/* we do this to let the oper know that a channel was created, this will be
	220	* seen from the server handling the command instead of the server that
	221	* the oper is on.
	222	*/
5366977b	223	sendto_one_notice(source_p, ":*** Notice -- Creating channel %s", chptr->chname);
212380e3	224	}
	225	return 0;
	226	}
	227
	228
	229	static int
	230	mo_forcepart(struct Client client_p, struct Client source_p, int parc, const char *parv[])
	231	{
	232	struct Client *target_p;
	233	struct Channel *chptr;
	234	struct membership *msptr;
	235
	236	if(!IsOperAdmin(source_p))
	237	{
a5ea0e0d	238	sendto_one(source_p, form_str(ERR_NOPRIVS), me.name, source_p->name, "admin");
212380e3	239	return 0;
	240	}
	241
	242	if((hunt_server(client_p, source_p, ":%s FORCEPART %s %s", 1, parc, parv)) != HUNTED_ISME)
	243	return 0;
	244
	245	/* if target_p == NULL then let the oper know */
	246	if((target_p = find_client(parv[1])) == NULL)
	247	{
	248	sendto_one(source_p, form_str(ERR_NOSUCHNICK), me.name, source_p->name, parv[1]);
	249	return 0;
	250	}
	251
	252	if(!IsClient(target_p))
	253	return 0;
	254
	255	sendto_wallops_flags(UMODE_WALLOP, &me,
	256	"FORCEPART called for %s %s by %s!%s@%s",
	257	parv[1], parv[2], source_p->name, source_p->username, source_p->host);
	258	ilog(L_MAIN, "FORCEPART called for %s %s by %s!%s@%s",
	259	parv[1], parv[2], source_p->name, source_p->username, source_p->host);
	260	sendto_server(NULL, NULL, NOCAPS, NOCAPS,
	261	":%s WALLOPS :FORCEPART called for %s %s by %s!%s@%s",
	262	me.name, parv[1], parv[2],
	263	source_p->name, source_p->username, source_p->host);
	264
	265	if((chptr = find_channel(parv[2])) == NULL)
	266	{
	267	sendto_one_numeric(source_p, ERR_NOSUCHCHANNEL,
	268	form_str(ERR_NOSUCHCHANNEL), parv[1]);
	269	return 0;
	270	}
	271
	272	if((msptr = find_channel_membership(chptr, target_p)) == NULL)
	273	{
	274	sendto_one_numeric(source_p, ERR_USERNOTINCHANNEL,
	275	form_str(ERR_USERNOTINCHANNEL),
	276	parv[1], parv[2]);
	277	return 0;
	278	}
	279
	280	sendto_server(target_p, chptr, NOCAPS, NOCAPS,
	281	":%s PART %s :%s", target_p->name, chptr->chname, target_p->name);
	282
	283	sendto_channel_local(ALL_MEMBERS, chptr, ":%s!%s@%s PART %s :%s",
	284	target_p->name, target_p->username,
	285	target_p->host, chptr->chname, target_p->name);
	286
	287
	288	remove_user_from_channel(msptr);
	289
	290	return 0;
	291	}