/* ns_maxemail.c - Limit the amount of times an email address
 *				 can be used for a NickServ account.
 *
 * (C) 2003-2009 Anope Team
 * Contact us at team@anope.org
 *
 * Included in the Anope module pack since Anope 1.7.9
 * Anope Coder: GeniusDex <geniusdex@anope.org>
 *
 * Please read COPYING and README for further details.
 *
 * Send any bug reports to the Anope Coder, as he will be able
 * to deal with it best.
 */

#include "module.h"

#define AUTHOR "Anope"
#define VERSION "$Id$"

void my_load_config();
void my_add_languages();
int my_ns_register(User * u);
int my_ns_set(User * u);
int my_event_reload(int argc, char **argv);

int NSEmailMax = 0;

#define LNG_NUM_STRINGS		2
#define LNG_NSEMAILMAX_REACHED		0
#define LNG_NSEMAILMAX_REACHED_ONE	1

static Module *me;

class NSMaxEmail : public Module
{
 public:
	NSMaxEmail(const std::string &modname, const std::string &creator) : Module(modname, creator)
	{
		Command *c;
		EvtHook *evt;
		int status;

		me = this;

		this->SetAuthor(AUTHOR);
		this->SetVersion(VERSION);
		this->SetType(SUPPORTED);

		c = createCommand("REGISTER", my_ns_register, NULL, -1, -1, -1, -1, -1);
		this->AddCommand(NICKSERV, c, MOD_HEAD);
		c = createCommand("SET", my_ns_set, NULL, -1, -1, -1, -1, -1);
		this->AddCommand(NICKSERV, c, MOD_HEAD);

		evt = createEventHook(EVENT_RELOAD, my_event_reload);
		if ((status = this->AddEventHook(evt)))
		throw ModuleException("ns_maxemail: Unable to hook to EVENT_RELOAD");

		my_load_config();

		const char *langtable_en_us[] = {
		/* LNG_NSEMAILMAX_REACHED */
		"The given email address has reached it's usage limit of %d users.",
		/* LNG_NSEMAILMAX_REACHED_ONE */
		"The given email address has reached it's usage limit of 1 user."
		};

		const char *langtable_nl[] = {
		/* LNG_NSEMAILMAX_REACHED */
		"Het gegeven email adres heeft de limiet van %d gebruikers bereikt.",
		/* LNG_NSEMAILMAX_REACHED_ONE */
		"Het gegeven email adres heeft de limiet van 1 gebruiker bereikt."
		};

		const char *langtable_de[] = {
		/* LNG_NSEMAILMAX_REACHED */
		"Die angegebene eMail hat die limit Begrenzung von %d User erreicht.",
		/* LNG_NSEMAILMAX_REACHED_ONE */
		"Die angegebene eMail hat die limit Begrenzung von 1 User erreicht."
		};

		const char *langtable_pt[] = {
		/* LNG_NSEMAILMAX_REACHED */
		"O endereзo de email fornecido alcanзou seu limite de uso de %d usuбrios.",
		/* LNG_NSEMAILMAX_REACHED_ONE */
		"O endereзo de email fornecido alcanзou seu limite de uso de 1 usuбrio."
		};

		const char *langtable_ru[] = {
		/* LNG_NSEMAILMAX_REACHED */
		"Указанный вами email-адрес используется максимально допустимое кол-во раз: %d",
		/* LNG_NSEMAILMAX_REACHED_ONE */
		"Указанный вами email-адрес уже кем-то используется."
		};

		const char *langtable_it[] = {
		/* LNG_NSEMAILMAX_REACHED */
		"L'indirizzo email specificato ha raggiunto il suo limite d'utilizzo di %d utenti.",
		/* LNG_NSEMAILMAX_REACHED_ONE */
		"L'indirizzo email specificato ha raggiunto il suo limite d'utilizzo di 1 utente."
		};

		this->InsertLanguage(LANG_EN_US, LNG_NUM_STRINGS, langtable_en_us);
		this->InsertLanguage(LANG_NL, LNG_NUM_STRINGS, langtable_nl);
		this->InsertLanguage(LANG_DE, LNG_NUM_STRINGS, langtable_de);
		this->InsertLanguage(LANG_PT, LNG_NUM_STRINGS, langtable_pt);
		this->InsertLanguage(LANG_RU, LNG_NUM_STRINGS, langtable_ru);
		this->InsertLanguage(LANG_IT, LNG_NUM_STRINGS, langtable_it);
	}
};


int count_email_in_use(char *email, User * u)
{
	NickCore *nc;
	int i;
	int count = 0;

	if (!email)
		return 0;

	for (i = 0; i < 1024; i++) {
		for (nc = nclists[i]; nc; nc = nc->next) {
			if (!(u->na && u->na->nc && (u->na->nc == nc)) && nc->email && (stricmp(nc->email, email) == 0))
				count++;
		}
	}

	return count;
}

int check_email_limit_reached(char *email, User * u)
{
	if ((NSEmailMax < 1) || !email || is_services_admin(u))
		return MOD_CONT;

	if (count_email_in_use(email, u) < NSEmailMax)
		return MOD_CONT;

	if (NSEmailMax == 1)
		me->NoticeLang(s_NickServ, u, LNG_NSEMAILMAX_REACHED_ONE);
	else
		me->NoticeLang(s_NickServ, u, LNG_NSEMAILMAX_REACHED,
						 NSEmailMax);

	return MOD_STOP;
}

int my_ns_register(User * u)
{
	char *cur_buffer;
	char *email;
	int ret;

	cur_buffer = moduleGetLastBuffer();
	email = myStrGetToken(cur_buffer, ' ', 1);
	if (!email)
		return MOD_CONT;

	ret = check_email_limit_reached(email, u);
	delete [] email;

	return ret;
}

int my_ns_set(User * u)
{
	char *cur_buffer;
	char *set;
	char *email;
	int ret;

	cur_buffer = moduleGetLastBuffer();
	set = myStrGetToken(cur_buffer, ' ', 0);

	if (!set)
		return MOD_CONT;

	if (stricmp(set, "email") != 0) {
		delete [] set;
		return MOD_CONT;
	}

	delete [] set;
	email = myStrGetToken(cur_buffer, ' ', 1);
	if (!email)
		return MOD_CONT;

	ret = check_email_limit_reached(email, u);
	delete [] email;

	return ret;
}

int my_event_reload(int argc, char **argv)
{
	if ((argc > 0) && (stricmp(argv[0], EVENT_START) == 0))
		my_load_config();

	return MOD_CONT;
}

void my_load_config()
{
	ConfigReader config;
	NSEmailMax = config.ReadInteger("ns_maxemail", "maxemails", "0", 0, false);

	if (debug)
		alog("debug: [ns_maxemail] NSEmailMax set to %d", NSEmailMax);
}



MODULE_INIT("ns_maxemail", NSMaxEmail)