/* MemoServ core functions
 *
 * (C) 2003-2011 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.
 */

/*************************************************************************/

#include "module.h"

class CommandMSSet : public Command
{
 private:
	CommandReturn DoNotify(CommandSource &source, const std::vector<Anope::string> &params, MemoInfo *mi)
	{
		User *u = source.u;
		const Anope::string &param = params[1];

		if (param.equals_ci("ON"))
		{
			u->Account()->SetFlag(NI_MEMO_SIGNON);
			u->Account()->SetFlag(NI_MEMO_RECEIVE);
			source.Reply(_("%s will now notify you of memos when you log on and when they are sent to you."), Config->s_MemoServ.c_str());
		}
		else if (param.equals_ci("LOGON"))
		{
			u->Account()->SetFlag(NI_MEMO_SIGNON);
			u->Account()->UnsetFlag(NI_MEMO_RECEIVE);
			source.Reply(_("%s will now notify you of memos when you log on or unset /AWAY."), Config->s_MemoServ.c_str());
		}
		else if (param.equals_ci("NEW"))
		{
			u->Account()->UnsetFlag(NI_MEMO_SIGNON);
			u->Account()->SetFlag(NI_MEMO_RECEIVE);
			source.Reply(_("%s will now notify you of memos when they are sent to you."), Config->s_MemoServ.c_str());
		}
		else if (param.equals_ci("MAIL"))
		{
			if (!u->Account()->email.empty())
			{
				u->Account()->SetFlag(NI_MEMO_MAIL);
				source.Reply(_("You will now be informed about new memos via email."));
			}
			else
				source.Reply(_("There's no email address set for your nick."));
		}
		else if (param.equals_ci("NOMAIL"))
		{
			u->Account()->UnsetFlag(NI_MEMO_MAIL);
			source.Reply(_("You will no longer be informed via email."));
		}
		else if (param.equals_ci("OFF"))
		{
			u->Account()->UnsetFlag(NI_MEMO_SIGNON);
			u->Account()->UnsetFlag(NI_MEMO_RECEIVE);
			u->Account()->UnsetFlag(NI_MEMO_MAIL);
			source.Reply(_("%s will not send you any notification of memos."), Config->s_MemoServ.c_str());
		}
		else
			SyntaxError(source, "SET NOTIFY", _("SET NOTIFY {ON | LOGON | NEW | MAIL | NOMAIL | OFF }"));

		return MOD_CONT;
	}

	CommandReturn DoLimit(CommandSource &source, const std::vector<Anope::string> &params, MemoInfo *mi)
	{
		User *u = source.u;

		Anope::string p1 = params[1];
		Anope::string p2 = params.size() > 2 ? params[2] : "";
		Anope::string p3 = params.size() > 3 ? params[3] : "";
		Anope::string user, chan;
		int16 limit;
		NickCore *nc = u->Account();
		ChannelInfo *ci = NULL;
		bool is_servadmin = u->HasPriv("memoserv/set-limit");

		if (p1[0] == '#')
		{
			chan = p1;
			p1 = p2;
			p2 = p3;
			p3 = params.size() > 4 ? params[4] : "";
			if (!(ci = cs_findchan(chan)))
			{
				source.Reply(_(CHAN_X_NOT_REGISTERED), chan.c_str());
				return MOD_CONT;
			}
			else if (!is_servadmin && !check_access(u, ci, CA_MEMO))
			{
				source.Reply(_(ACCESS_DENIED));
				return MOD_CONT;
			}
			mi = &ci->memos;
		}
		if (is_servadmin)
		{
			if (!p2.empty() && !p2.equals_ci("HARD") && chan.empty())
			{
				NickAlias *na;
				if (!(na = findnick(p1)))
				{
					source.Reply(_(NICK_X_NOT_REGISTERED), p1.c_str());
					return MOD_CONT;
				}
				user = p1;
				mi = &na->nc->memos;
				nc = na->nc;
				p1 = p2;
				p2 = p3;
			}
			else if (p1.empty() || (!p1.is_pos_number_only() && !p1.equals_ci("NONE")) || (!p2.empty() && !p2.equals_ci("HARD")))
			{
				SyntaxError(source, "SET LIMIT", _("SET LIMIT [\037user\037 | \037channel\037] {\037limit\037 | NONE} [HARD]"));
				return MOD_CONT;
			}
			if (!chan.empty())
			{
				if (!p2.empty())
					ci->SetFlag(CI_MEMO_HARDMAX);
				else
					ci->UnsetFlag(CI_MEMO_HARDMAX);
			}
			else
			{
				if (!p2.empty())
					nc->SetFlag(NI_MEMO_HARDMAX);
				else
					nc->UnsetFlag(NI_MEMO_HARDMAX);
			}
			limit = -1;
			try
			{
				limit = convertTo<int16>(p1);
			}
			catch (const ConvertException &) { }
		}
		else
		{
			if (p1.empty() || !p2.empty() || !isdigit(p1[0]))
			{
				SyntaxError(source, "SET LIMIT", _("SET LIMIT [\037channel\037] \037limit\037"));
				return MOD_CONT;
			}
			if (!chan.empty() && ci->HasFlag(CI_MEMO_HARDMAX))
			{
				source.Reply(_("The memo limit for %s may not be changed."), chan.c_str());
				return MOD_CONT;
			}
			else if (chan.empty() && nc->HasFlag(NI_MEMO_HARDMAX))
			{
				source.Reply(_("You are not permitted to change your memo limit."));
				return MOD_CONT;
			}
			limit = -1;
			try
			{
				limit = convertTo<int16>(p1);
			}
			catch (const ConvertException &) { }
			/* The first character is a digit, but we could still go negative
			 * from overflow... watch out! */
			if (limit < 0 || (Config->MSMaxMemos > 0 && static_cast<unsigned>(limit) > Config->MSMaxMemos))
			{
				if (!chan.empty())
					source.Reply(_("You cannot set the memo limit for %s higher than %d."), chan.c_str(), Config->MSMaxMemos);
				else
					source.Reply(_("You cannot set your memo limit higher than %d."), Config->MSMaxMemos);
				return MOD_CONT;
			}
		}
		mi->memomax = limit;
		if (limit > 0)
		{
			if (chan.empty() && nc == u->Account())
				source.Reply(_("Your memo limit has been set to \002%d\002."), limit);
			else
				source.Reply(_("Memo limit for %s set to \002%d\002."), !chan.empty() ? chan.c_str() : user.c_str(), limit);
		}
		else if (!limit)
		{
			if (chan.empty() && nc == u->Account())
				source.Reply(_("You will no longer be able to receive memos."));
			else
				source.Reply(_("Memo limit for %s set to \0020\002."), !chan.empty() ? chan.c_str() : user.c_str());
		}
		else
		{
			if (chan.empty() && nc == u->Account())
				source.Reply(_("Your memo limit has been disabled."));
			else
				source.Reply(_("Memo limit \002disabled\002 for %s."), !chan.empty() ? chan.c_str() : user.c_str());
		}
		return MOD_CONT;
	}
 public:
	CommandMSSet() : Command("SET", 2, 5)
	{
		this->SetDesc(_("Set options related to memos"));
	}

	CommandReturn Execute(CommandSource &source, const std::vector<Anope::string> &params)
	{
		User *u = source.u;
		const Anope::string &cmd = params[0];
		MemoInfo *mi = &u->Account()->memos;

		if (readonly)
			source.Reply(_("Sorry, memo option setting is temporarily disabled."));
		else if (cmd.equals_ci("NOTIFY"))
			return this->DoNotify(source, params, mi);
		else if (cmd.equals_ci("LIMIT"))
			return this->DoLimit(source, params, mi);
		else
		{
			source.Reply(_(NICK_SET_UNKNOWN_OPTION), Config->UseStrictPrivMsgString.c_str(), cmd.c_str());
			source.Reply(_(MORE_INFO), Config->UseStrictPrivMsgString.c_str(), Config->s_MemoServ.c_str(), "SET");
		}

		return MOD_CONT;
	}

	bool OnHelp(CommandSource &source, const Anope::string &subcommand)
	{
		if (subcommand.empty())
			source.Reply(_("Syntax: \002SET \037option\037 \037parameters\037\002\n \n"
					"Sets various memo options.  \037option\037 can be one of:\n"
					" \n"
					"    NOTIFY      Changes when you will be notified about\n"
					"                   new memos (only for nicknames)\n"
					"    LIMIT       Sets the maximum number of memos you can\n"
					"                   receive\n"
					" \n"
					"Type \002%s%s HELP SET \037option\037\002 for more information\n"
					"on a specific option."), Config->UseStrictPrivMsgString.c_str(), MemoServ->nick.c_str());
		else if (subcommand.equals_ci("NOTIFY"))
			source.Reply(_("Syntax: \002SET NOTIFY {ON | LOGON | NEW | MAIL | NOMAIL | OFF}\002\n"
					"Changes when you will be notified about new memos:\n"
					" \n"
					"    ON      You will be notified of memos when you log on,\n"
					"               when you unset /AWAY, and when they are sent\n"
					"               to you.\n"
					"    LOGON   You will only be notified of memos when you log\n"
					"               on or when you unset /AWAY.\n"
					"    NEW     You will only be notified of memos when they\n"
					"               are sent to you.\n"
					"    MAIL    You will be notified of memos by email aswell as\n"
					"               any other settings you have.\n"
					"    NOMAIL  You will not be notified of memos by email.\n"
					"    OFF     You will not receive any notification of memos.\n"
					" \n"
					"\002ON\002 is essentially \002LOGON\002 and \002NEW\002 combined."));
		else if (subcommand.equals_ci("LIMIT"))
		{
			User *u = source.u;
			if (u->IsServicesOper())
				source.Reply(_("Syntax: \002SET LIMIT [\037user\037 | \037channel\037] {\037limit\037 | NONE} [HARD]\002\n"
						" \n"
						"Sets the maximum number of memos a user or channel is\n"
						"allowed to have.  Setting the limit to 0 prevents the user\n"
						"from receiving any memos; setting it to \002NONE\002 allows the\n"
						"user to receive and keep as many memos as they want.  If\n"
						"you do not give a nickname or channel, your own limit is\n"
						"set.\n"
						" \n"
						"Adding \002HARD\002 prevents the user from changing the limit.  Not\n"
						"adding \002HARD\002 has the opposite effect, allowing the user to\n"
						"change the limit (even if a previous limit was set with\n"
						"\002HARD\002).\n"
						"This use of the \002SET LIMIT\002 command is limited to \002Services\002\n"
						"\002admins\002.  Other users may only enter a limit for themselves\n"
						"or a channel on which they have such privileges, may not\n"
						"remove their limit, may not set a limit above %d, and may\n"
						"not set a hard limit."), Config->MSMaxMemos);
			else
				source.Reply(_("Syntax: \002SET LIMIT [\037channel\037] \037limit\037\002\n"
									" \n"
									"Sets the maximum number of memos you (or the given channel)\n"
									"are allowed to have. If you set this to 0, no one will be\n"
									"able to send any memos to you.  However, you cannot set\n"
									"this any higher than %d."), Config->MSMaxMemos);
		}
		else
			return false;

		return true;
	}

	void OnSyntaxError(CommandSource &source, const Anope::string &subcommand)
	{
		SyntaxError(source, "SET", _(NICK_SET_SYNTAX));
	}
};

class MSSet : public Module
{
	CommandMSSet commandmsset;

 public:
	MSSet(const Anope::string &modname, const Anope::string &creator) : Module(modname, creator)
	{
		this->SetAuthor("Anope");
		this->SetType(CORE);

		this->AddCommand(MemoServ, &commandmsset);
	}
};

MODULE_INIT(MSSet)