/* ChanServ core functions
 *
 * (C) 2003-2009 Anope Team
 * Contact us at team@anope.org
 *
 * Please read COPYING and README for further details.
 *
 * Based on the original code of Epona by Lara.
 * Based on the original code of Services by Andy Church.
 *
 * $Id$
 *
 */
/*************************************************************************/

#include "module.h"

class CommandCSClear : public Command
{
 public:
	CommandCSClear() : Command("CLEAR", 2, 2)
	{

	}

	CommandReturn Execute(User *u, std::vector<ci::string> &params)
	{
		const char *chan = params[0].c_str();
		ci::string what = params[1];
		Channel *c = findchan(chan);
		ChannelInfo *ci;
		ChannelMode *owner, *admin;
		std::string modebuf;

		owner = ModeManager::FindChannelModeByName(CMODE_OWNER);
		admin = ModeManager::FindChannelModeByName(CMODE_PROTECT);

		if (c)
			ci = c->ci;

		if (!c) {
			notice_lang(s_ChanServ, u, CHAN_X_NOT_IN_USE, chan);
		} else if (!u || !check_access(u, ci, CA_CLEAR)) {
			notice_lang(s_ChanServ, u, ACCESS_DENIED);
		} else if (what == "bans") {
			c->ClearBans();

			notice_lang(s_ChanServ, u, CHAN_CLEARED_BANS, chan);
		} else if (ModeManager::FindChannelModeByName(CMODE_EXCEPT) && what == "excepts") {
			c->ClearExcepts();

			notice_lang(s_ChanServ, u, CHAN_CLEARED_EXCEPTS, chan);

		} else if (ModeManager::FindChannelModeByName(CMODE_INVITE) && what == "invites") {
			c->ClearInvites();

			notice_lang(s_ChanServ, u, CHAN_CLEARED_INVITES, chan);

		} else if (what == "modes") {
			c->ClearModes();
			check_modes(c);

			notice_lang(s_ChanServ, u, CHAN_CLEARED_MODES, chan);
		} else if (what == "ops") {
			const char *av[6];  /* The max we have to hold: chan, ts, modes(max3), nick, nick, nick */
			int ac, isop, isadmin, isown, count, i;
			char buf[BUFSIZE], tmp[BUFSIZE], tmp2[BUFSIZE];
			struct c_userlist *cu, *bnext;

			if (ircd->svsmode_ucmode) {
				av[0] = chan;
				ircdproto->SendSVSModeChan(av[0], "-o", NULL);
				if (owner) {
					modebuf = '-';
					modebuf += owner->ModeChar;

					ircdproto->SendSVSModeChan(av[0], modebuf.c_str(), NULL);
				}
				if (admin) {
					modebuf = '-';
					modebuf += admin->ModeChar;

					ircdproto->SendSVSModeChan(av[0], modebuf.c_str(), NULL);
				}
				for (cu = c->users; cu; cu = bnext) {
					bnext = cu->next;
					isop = chan_has_user_status(c, cu->user, CUS_OP);
					isadmin = chan_has_user_status(c, cu->user, CUS_PROTECT);
					isown = chan_has_user_status(c, cu->user, CUS_OWNER);
					count = (isop ? 1 : 0) + (isadmin ? 1 : 0) + (isown ? 1 : 0);

					if (!isop && !isadmin && !isown)
						continue;

					snprintf(tmp, BUFSIZE, "-%s%s%s", (isop ? "o" : ""), (isadmin ?
							&admin->ModeChar : ""), (isown ? &owner->ModeChar : ""));

					if (ircdcap->tsmode) {
						snprintf(buf, BUFSIZE - 1, "%ld", static_cast<long>(time(NULL)));
						av[1] = buf;
						av[2] = tmp;
						/* We have to give as much nicks as modes.. - Viper */
						for (i = 0; i < count; i++)
							av[i+3] = cu->user->nick;
						ac = 3 + i;
					} else {
						av[1] = tmp;
						/* We have to give as much nicks as modes.. - Viper */
						for (i = 0; i < count; i++)
							av[i+2] = cu->user->nick;
						ac = 2 + i;
					}

					do_cmode(s_ChanServ, ac, av);
				}
			} else {
				av[0] = chan;
				for (cu = c->users; cu; cu = bnext) {
					bnext = cu->next;
					isop = chan_has_user_status(c, cu->user, CUS_OP);
					isadmin = chan_has_user_status(c, cu->user, CUS_PROTECT);
					isown = chan_has_user_status(c, cu->user, CUS_OWNER);
					count = (isop ? 1 : 0) + (isadmin ? 1 : 0) + (isown ? 1 : 0);

					if (!isop && !isadmin && !isown)
						continue;

					snprintf(tmp, BUFSIZE, "-%s%s%s", (isop ? "o" : ""), (isadmin ?
							&admin->ModeChar : ""), (isown ? &owner->ModeChar : ""));
					/* We need to send the IRCd a nick for every mode.. - Viper */
					snprintf(tmp2, BUFSIZE, "%s %s %s", (isop ? cu->user->nick : ""),
							(isadmin ? cu->user->nick : ""), (isown ? cu->user->nick : ""));

					if (ircdcap->tsmode) {
						snprintf(buf, BUFSIZE - 1, "%ld", static_cast<long>(time(NULL)));
						av[1] = buf;
						av[2] = tmp;
						/* We have to give as much nicks as modes.. - Viper */
						for (i = 0; i < count; i++)
							av[i+3] = cu->user->nick;
						ac = 3 + i;

						ircdproto->SendMode(whosends(ci), av[0], "%s %s", av[2], tmp2);
					} else {
						av[1] = tmp;
						/* We have to give as much nicks as modes.. - Viper */
						for (i = 0; i < count; i++)
							av[i+2] = cu->user->nick;
						ac = 2 + i;

						ircdproto->SendMode(whosends(ci), av[0], "%s %s", av[1], tmp2);
					}

					do_cmode(s_ChanServ, ac, av);
				}
			}
			notice_lang(s_ChanServ, u, CHAN_CLEARED_OPS, chan);
		} else if (ModeManager::FindChannelModeByName(CMODE_HALFOP) && what == "hops") {
			const char *av[4];
			int ac;
			char buf[BUFSIZE];
			struct c_userlist *cu, *bnext;

			for (cu = c->users; cu; cu = bnext) {
				bnext = cu->next;
				if (!chan_has_user_status(c, cu->user, CUS_HALFOP))
					continue;

				if (ircdcap->tsmode) {
					snprintf(buf, BUFSIZE - 1, "%ld", static_cast<long>(time(NULL)));
					av[0] = chan;
					av[1] = buf;
					av[2] = "-h";
					av[3] = cu->user->nick;
					ac = 4;
				} else {
					av[0] = chan;
					av[1] = "-h";
					av[2] = cu->user->nick;
					ac = 3;
				}

				if (ircd->svsmode_ucmode) {
					if (ircdcap->tsmode)
						ircdproto->SendSVSModeChan(av[0], av[2], NULL);
					else
						ircdproto->SendSVSModeChan(av[0], av[1], NULL);

					do_cmode(s_ChanServ, ac, av);
					break;
				} else {
					if (ircdcap->tsmode)
						ircdproto->SendMode(whosends(ci), av[0], "%s %s", av[2],
									   av[3]);
					else
						ircdproto->SendMode(whosends(ci), av[0], "%s %s", av[1],
									   av[2]);
				}
				do_cmode(s_ChanServ, ac, av);
			}
			notice_lang(s_ChanServ, u, CHAN_CLEARED_HOPS, chan);
		} else if (what == "voices") {
			const char *av[4];
			int ac;
			char buf[BUFSIZE];
			struct c_userlist *cu, *bnext;

			for (cu = c->users; cu; cu = bnext) {
				bnext = cu->next;
				if (!chan_has_user_status(c, cu->user, CUS_VOICE))
					continue;

				if (ircdcap->tsmode) {
					snprintf(buf, BUFSIZE - 1, "%ld", static_cast<long int>(time(NULL)));
					av[0] = chan;
					av[1] = buf;
					av[2] = "-v";
					av[3] = cu->user->nick;
					ac = 4;
				} else {
					av[0] = chan;
					av[1] = "-v";
					av[2] = cu->user->nick;
					ac = 3;
				}

				if (ircd->svsmode_ucmode) {
					if (ircdcap->tsmode)
						ircdproto->SendSVSModeChan(av[0], av[2], NULL);
					else
						ircdproto->SendSVSModeChan(av[0], av[1], NULL);

					do_cmode(s_ChanServ, ac, av);
					break;
				} else {
					if (ircdcap->tsmode) {
						ircdproto->SendMode(whosends(ci), av[0], "%s %s", av[2],
									   av[3]);
					} else {
						ircdproto->SendMode(whosends(ci), av[0], "%s %s", av[1],
									   av[2]);
					}
				}
				do_cmode(s_ChanServ, ac, av);
			}
			notice_lang(s_ChanServ, u, CHAN_CLEARED_VOICES, chan);
		} else if (what == "users") {
			const char *av[3];
			struct c_userlist *cu, *bnext;
			char buf[256];

			snprintf(buf, sizeof(buf), "CLEAR USERS command from %s", u->nick);

			for (cu = c->users; cu; cu = bnext) {
				bnext = cu->next;
				av[0] = sstrdup(chan);
				av[1] = sstrdup(cu->user->nick);
				av[2] = sstrdup(buf);
				ircdproto->SendKick(whosends(ci), av[0], av[1], av[2]);
				do_kick(s_ChanServ, 3, av);
				delete [] av[2];
				delete [] av[1];
				delete [] av[0];
			}
			notice_lang(s_ChanServ, u, CHAN_CLEARED_USERS, chan);
		} else {
			syntax_error(s_ChanServ, u, "CLEAR", CHAN_CLEAR_SYNTAX);
		}
		return MOD_CONT;
	}

	bool OnHelp(User *u, const ci::string &subcommand)
	{
		notice_help(s_ChanServ, u, CHAN_HELP_CLEAR);
		return true;
	}

	void OnSyntaxError(User *u)
	{
		syntax_error(s_ChanServ, u, "CLEAR", CHAN_CLEAR_SYNTAX);
	}
};

class CSClear : public Module
{
 public:
	CSClear(const std::string &modname, const std::string &creator) : Module(modname, creator)
	{
		this->SetAuthor("Anope");
		this->SetVersion("$Id$");
		this->SetType(CORE);
		this->AddCommand(CHANSERV, new CommandCSClear());

		ModuleManager::Attach(I_OnChanServHelp, this);
	}
	void OnChanServHelp(User *u)
	{
		notice_lang(s_ChanServ, u, CHAN_HELP_CMD_CLEAR);
	}
};

MODULE_INIT(CSClear)