/*
 * ignore.c: handles the ingore command for irc 
 *
 * Written By Michael Sandrof
 *
 * Copyright(c) 1990 
 *
 * See the COPYRIGHT file, or do a HELP IRCII COPYRIGHT 
 */


#include "irc.h"
static char cvsrevision[] = "$Id$";
CVS_REVISION(ignore_c)
#include "struct.h"

#include "ignore.h"
#include "ircaux.h"
#include "list.h"
#include "input.h"
#include "screen.h"
#include "misc.h"
#include "vars.h"
#include "output.h"
#define MAIN_SOURCE
#include "modval.h"

int	ignore_usernames = 0;
char	*highlight_char = NULL;

static	int	remove_ignore (char *);
static	void	ignore_list (char *);
static char *cut_n_fix_glob ( char *);

/* ignored_nicks: pointer to the head of the ignore list */
Ignore *ignored_nicks = NULL;

#define IGNORE_REMOVE	1
#define IGNORE_DONT	2
#define IGNORE_HIGH	-1
#define IGNORE_CGREP	-2

static Ignore *new_ignore = NULL;

void add_channel_grep(char *channel, char *what, int flag)
{
Ignore *new;
int count;
char *chan, *ptr;
char *new_str, *p;
	while (channel)
	{
		new_str = p = m_strdup(what);
		if ((ptr = strchr(channel, ',')) != NULL)
			*ptr = '\0';

		chan = make_channel(channel);
		if (chan && !(new = (Ignore *) list_lookup((List **) &ignored_nicks, chan, !USE_WILDCARDS, !REMOVE_FROM_LIST)))
		{
			Ignore *tmp, *old;
			char *s;
			if ((new = (Ignore *) remove_from_list((List **) &ignored_nicks, channel)) != NULL)
			{
				new_free(&(new->nick));
				for (tmp = new->except; tmp; tmp = old)
				{
					old = tmp->next;
					new_free(&(tmp->nick));
					new_free(&(tmp));
				}
				for (tmp = new->looking; tmp; tmp = old)
				{
					old = tmp->next;
					new_free(&(tmp->nick));
					new_free(&(tmp));
				}
				new_free((char **)&new);
			}
			new = (Ignore *) new_malloc(sizeof(Ignore));
			new->nick = m_strdup(chan);
			while ((s = new_next_arg(new_str, &new_str)))
			{
				tmp = (Ignore *) new_malloc(sizeof(Ignore));
				tmp->nick = m_strdup(s);
				add_to_list((List **)&new->looking, (List *)tmp);
			}
			add_to_list((List **) &ignored_nicks, (List *) new);
			new->cgrep = flag;
		}
		if (ptr)
			*(ptr++) = ',';
		channel = ptr;
		new_free(&p);
	}
	for (new = ignored_nicks, count = 1; new; new = new->next, count++)
		new->num = count;
	if (*what)
		*what = 0;
}

/*
 * ignore_nickname: adds nick to the ignore list, using type as the type of
 * ignoring to take place.  
 */
void ignore_nickname(char *nick, long type, int flag)
{
	Ignore	*new, *newc;
	char	*msg,
		*ptr;
	char *new_nick = NULL;
	char buffer[BIG_BUFFER_SIZE + 1];
	int count;
	
	if (type == -1)
		return;
	while (nick)
	{
		if ((ptr = strchr(nick, ',')) != NULL)
			*ptr = '\0';

		if (*nick)
		{
			new_nick = is_channel(nick) ? m_strdup(nick) : cut_n_fix_glob(nick);

			if (!(new = (Ignore *) list_lookup((List **) &ignored_nicks, new_nick, !USE_WILDCARDS, !REMOVE_FROM_LIST)))
			{
				if (flag == IGNORE_REMOVE)
				{
					say("%s is not on the ignore list", nick);
					if (ptr)
						*(ptr++) = ',';
					nick = ptr;
					continue;
				}
				else
				{
					if ((new = (Ignore *) remove_from_list((List **) &ignored_nicks, nick)) != NULL)
					{
						Ignore *tmp, *old;
						new_free(&(new->nick));
						new_free(&new->looking);
						for (tmp = new->except; tmp; tmp = old)
						{
							old = tmp->next;
							new_free(&(tmp->nick));
							new_free(&(tmp));
						}
						for (tmp = new->looking; tmp; tmp = old)
						{
							old = tmp->next;
							new_free(&(tmp->nick));
							new_free(&(tmp));
						}
						new_free((char **)&new);
					}
					new = (Ignore *) new_malloc(sizeof(Ignore));
					new->nick = new_nick;
					add_to_list((List **) &ignored_nicks, (List *) new);
				}
				for (newc = ignored_nicks, count = 1; newc; newc = newc->next, count++)
					newc->num = count;

			}
			new_ignore = new;
			switch (flag)
			{
				case IGNORE_REMOVE:
					new->type &= (~type);
					new->high &= (~type);
					new->dont &= (~type);
					new->cgrep &= (~type);
					msg = "Not ignoring";
					break;
				case IGNORE_DONT:
					new->dont |= type;
					new->type &= (~type);
					new->high &= (~type);
					new->cgrep &= (~type);
					msg = "Never ignoring";
					break;
				case IGNORE_HIGH:
					new->high |= type;
					new->type &= (~type);
					new->dont &= (~type);
					new->cgrep &= (~type);
					msg = "Highlighting";
					break;
				case IGNORE_CGREP:
					new->cgrep |= type;
					new->high &= (~type);
					new->type &= (~type);
					new->dont &= (~type);
					msg = "Channel Grep";
					break;
				default:
					new->type |= type;
					new->high &= (~type);
					new->dont &= (~type);
					new->cgrep &= (~type);
					msg = "Ignoring";
					break;
			}
			if (type == IGNORE_ALL)
			{
				switch (flag)
				{
				case IGNORE_REMOVE:
					remove_ignore(new->nick);
					break;
				case IGNORE_HIGH:
					say("Highlighting ALL messages from %s", new->nick);
					break;
				case IGNORE_CGREP:
					say("Grepping ALL messages from %s", new->nick);
					break;
				case IGNORE_DONT:
					say("Never ignoring messages from %s", new->nick);
					break;
				default:
					say("Ignoring ALL messages from %s", new->nick);
					break;
				}
				return;
			}
			else if (type)
			{
				strcpy(buffer, msg);
				if (type & IGNORE_MSGS)
					strcat(buffer, " MSGS");
				if (type & IGNORE_PUBLIC)
					strcat(buffer, " PUBLIC");
				if (type & IGNORE_WALLS)
					strcat(buffer, " WALLS");
				if (type & IGNORE_WALLOPS)
					strcat(buffer, " WALLOPS");
				if (type & IGNORE_INVITES)
					strcat(buffer, " INVITES");
				if (type & IGNORE_NOTICES)
					strcat(buffer, " NOTICES");
				if (type & IGNORE_NOTES)
					strcat(buffer, " NOTES");
				if (type & IGNORE_CTCPS)
					strcat(buffer, " CTCPS");
				if (type & IGNORE_CRAP)
					strcat(buffer, " CRAP");
				if (type & IGNORE_CDCC)
					strcat(buffer, " CDCC");
				if (type & IGNORE_KICKS)
					strcat(buffer, " KICKS");
				if (type & IGNORE_MODES)
					strcat(buffer, " MODES");
				if (type & IGNORE_SMODES)
					strcat(buffer, " SMODES");
				if (type & IGNORE_JOINS)
					strcat(buffer, " JOINS");
				if (type & IGNORE_TOPICS)
					strcat(buffer, " TOPICS");
				if (type & IGNORE_QUITS)
					strcat(buffer, " QUITS");
				if (type & IGNORE_PARTS)
					strcat(buffer, " PARTS");
				if (type & IGNORE_NICKS)
					strcat(buffer, " NICKS");
				if (type & IGNORE_PONGS)
					strcat(buffer, " PONGS");
				if (type & IGNORE_SPLITS)
					strcat(buffer, " SPLITS");
				say("%s from %s", buffer, new->nick);
			}
		}
		if (ptr)
			*(ptr++) = ',';
		nick = ptr;
	}
}

/*
 * remove_ignore: removes the given nick from the ignore list and returns 0.
 * If the nick wasn't in the ignore list to begin with, 1 is returned. 
 */
static	int remove_ignore(char *nick)
{
	Ignore	*tmp, *new, *old;
	char *new_nick = NULL;
	int count = 0;

	new_nick = (is_channel(nick) ? m_strdup(nick) : cut_n_fix_glob(nick));

	/*
	 * Look for an exact match first.
	 */
	if ((tmp = (Ignore *) list_lookup((List **)&ignored_nicks, new_nick, !USE_WILDCARDS, REMOVE_FROM_LIST)) != NULL)
	{
		say("%s removed from ignore list", tmp->nick);
		new_free(&(tmp->nick));
		for (new = tmp->except; new; new = old)
		{
			old = new->next;
			new_free(&(new->nick));
			new_free(&(new));
		}
		for (new = tmp->looking; new; new = old)
		{
			old = new->next;
			new_free(&(new->nick));
			new_free(&(new));
		}
		new_free((char **)&tmp);
		count++;
	}

	/*
	 * Otherwise clear everything that matches.
	 */
	else while ((tmp = (Ignore *)list_lookup((List **)&ignored_nicks, new_nick, USE_WILDCARDS, REMOVE_FROM_LIST)) != NULL)
	{
		say("%s removed from ignore list", tmp->nick);
		new_free(&(tmp->nick));
		for (new = tmp->except; new; new = old)
		{
			old = new->next;
			new_free(&(new->nick));
			new_free(&(new));
		}
		for (new = tmp->looking; new; new = old)
		{
			old = new->next;
			new_free(&(new->nick));
			new_free(&(new));
		}
		new_free((char **)&tmp);
	
		count++;
	} 

	if (!count)
		say("%s is not in the ignore list!", new_nick);

	new_free(&new_nick);
	return count;
}

/*
 * is_ignored: checks to see if nick is being ignored (poor nick).  Checks
 * against type to see if ignoring is to take place.  If nick is marked as
 * IGNORE_ALL or ignorace types match, 1 is returned, otherwise 0 is
 * returned.  
 */
int is_ignored(char *nick, long type)
{
	Ignore	*tmp;

	if (ignored_nicks)
	{
		if ((tmp = (Ignore *) list_lookup((List **) &ignored_nicks, nick, USE_WILDCARDS, !REMOVE_FROM_LIST)) != NULL)
		{
			if (tmp->dont & type)
				return (DONT_IGNORE);
			if (tmp->type & type)
				return (IGNORED);
			if (tmp->high & type)
				return (HIGHLIGHTED);
			if (tmp->high & type)
				return (CHANNEL_GREP);
		}
	}
	return (0);
}

int check_is_ignored(char *nick)
{
	Ignore	*tmp;

	if (ignored_nicks)
	{
		if ((tmp = (Ignore *) list_lookup((List **) &ignored_nicks, nick, USE_WILDCARDS, !REMOVE_FROM_LIST)) != NULL)
			return 1;
	}
	return 0;
}

/* ignore_list: shows the entired ignore list */
static	void ignore_list(char *nick)
{
	Ignore	*tmp;
	int	len = 0;
	char buffer[BIG_BUFFER_SIZE + 1];
	if (ignored_nicks)
	{
		say("Ignore List:");
		if (nick)
			len = strlen(nick);
		for (tmp = ignored_nicks; tmp; tmp = tmp->next)
		{

			if (nick)
			{
				if (strncmp(nick, tmp->nick, len))
					continue;
			}
			*buffer = 0;
			if (tmp->type == IGNORE_ALL)
				strmopencat(buffer, BIG_BUFFER_SIZE, " ALL", NULL);
			else if (tmp->high == IGNORE_ALL)
				strmopencat(buffer, BIG_BUFFER_SIZE, space, highlight_char, "ALL", highlight_char, NULL);
			else if (tmp->dont == IGNORE_ALL)
				strmopencat(buffer, BIG_BUFFER_SIZE, " DONT-ALL", NULL);
			else
			{
	if (tmp->type & IGNORE_PUBLIC)
		strlcat(buffer, " PUBLIC", sizeof buffer);
	else if (tmp->high & IGNORE_PUBLIC)
		strmopencat(buffer, BIG_BUFFER_SIZE, space, highlight_char, "PUBLIC", highlight_char, NULL);
	else if (tmp->dont & IGNORE_PUBLIC)
		strlcat(buffer, " DONT-PUBLIC", sizeof buffer);

	if (tmp->type & IGNORE_MSGS)
		strlcat(buffer, " MSGS", sizeof buffer);
	else if (tmp->high & IGNORE_MSGS)
		strmopencat(buffer, BIG_BUFFER_SIZE, space, highlight_char, "MSG", highlight_char, NULL);
	else if (tmp->dont & IGNORE_MSGS)
		strlcat(buffer, " DONT-MSGS", sizeof buffer);

	if (tmp->type & IGNORE_WALLS)
		strlcat(buffer, " WALLS", sizeof buffer);
	else if (tmp->high & IGNORE_WALLS)
		strmopencat(buffer, BIG_BUFFER_SIZE, space, highlight_char, "WALL", highlight_char, NULL);
	else if (tmp->dont & IGNORE_WALLS)
		strlcat(buffer, " DONT-WALLS", sizeof buffer);

	if (tmp->type & IGNORE_WALLOPS)
		strlcat(buffer, " WALLOPS", sizeof buffer);
	else if (tmp->high & IGNORE_WALLOPS)
		strmopencat(buffer, BIG_BUFFER_SIZE, space, highlight_char, "WALLOPS", highlight_char, NULL);
	else if (tmp->dont & IGNORE_WALLOPS)
		strlcat(buffer, " DONT-WALLOPS", sizeof buffer);

	if (tmp->type & IGNORE_INVITES)
		strlcat(buffer, " INVITES", sizeof buffer);
	else if (tmp->high & IGNORE_INVITES)
		strmopencat(buffer, BIG_BUFFER_SIZE, space, highlight_char, "INVITES", highlight_char, NULL);
	else if (tmp->dont & IGNORE_INVITES)
		strlcat(buffer, " DONT-INVITES", sizeof buffer);

	if (tmp->type & IGNORE_NOTICES)
		strlcat(buffer, " NOTICES", sizeof buffer);
	else if (tmp->high & IGNORE_NOTICES)
		strmopencat(buffer, BIG_BUFFER_SIZE, space, highlight_char, "NOTICES", highlight_char, NULL);
	else if (tmp->dont & IGNORE_NOTICES)
		strlcat(buffer, " DONT-NOTICES", sizeof buffer);

	if (tmp->type & IGNORE_NOTES)
		strlcat(buffer, " NOTES", sizeof buffer);
	else if (tmp->high & IGNORE_NOTES)
		strmopencat(buffer, BIG_BUFFER_SIZE, space, highlight_char, "NOTES", highlight_char, NULL);
	else if (tmp->dont & IGNORE_NOTES)
		strlcat(buffer, " DONT-NOTES", sizeof buffer);

	if (tmp->type & IGNORE_CTCPS)
		strlcat(buffer, " CTCPS", sizeof buffer);
	else if (tmp->high & IGNORE_CTCPS)
		strmopencat(buffer, BIG_BUFFER_SIZE, space, highlight_char, "CTCPS", highlight_char, NULL);
	else if (tmp->dont & IGNORE_CTCPS)
		strlcat(buffer, " DONT-CTCPS", sizeof buffer);

	if (tmp->type & IGNORE_CDCC)
		strlcat(buffer, " CDCC", sizeof buffer);
	else if (tmp->high & IGNORE_CDCC)
		strmopencat(buffer, BIG_BUFFER_SIZE,space, highlight_char, "CDCC", highlight_char, NULL);
	else if (tmp->dont & IGNORE_CDCC)
		strlcat(buffer, " DONT-CDCC", sizeof buffer);

	if (tmp->type & IGNORE_KICKS)
		strlcat(buffer, " KICKS", sizeof buffer);
	else if (tmp->high & IGNORE_KICKS)
		strmopencat(buffer, BIG_BUFFER_SIZE,space, highlight_char, "KICKS", highlight_char, NULL);
	else if (tmp->dont & IGNORE_KICKS)
		strlcat(buffer, " DONT-KICKS", sizeof buffer);

	if (tmp->type & IGNORE_MODES)
		strlcat(buffer, " MODES", sizeof buffer);
	else if (tmp->high & IGNORE_MODES)
		strmopencat(buffer, BIG_BUFFER_SIZE,space, highlight_char, "MODES", highlight_char, NULL);
	else if (tmp->dont & IGNORE_MODES)
		strlcat(buffer, " DONT-MODES", sizeof buffer);

	if (tmp->type & IGNORE_SMODES)
		strlcat(buffer, " SMODES", sizeof buffer);
	else if (tmp->high & IGNORE_SMODES)
		strmopencat(buffer, BIG_BUFFER_SIZE,space, highlight_char, "SMODES", highlight_char, NULL);
	else if (tmp->dont & IGNORE_SMODES)
		strlcat(buffer, " DONT-SMODES", sizeof buffer);

	if (tmp->type & IGNORE_JOINS)
		strlcat(buffer, " JOINS", sizeof buffer);
	else if (tmp->high & IGNORE_JOINS)
		strmopencat(buffer, BIG_BUFFER_SIZE,space, highlight_char, "JOINS", highlight_char, NULL);
	else if (tmp->dont & IGNORE_JOINS)
		strlcat(buffer, " DONT-JOINS", sizeof buffer);

	if (tmp->type & IGNORE_TOPICS)
		strlcat(buffer, " TOPICS", sizeof buffer);
	else if (tmp->high & IGNORE_TOPICS)
		strmopencat(buffer, BIG_BUFFER_SIZE,space, highlight_char, "TOPICS", highlight_char, NULL);
	else if (tmp->dont & IGNORE_TOPICS)
		strlcat(buffer, " DONT-TOPICS", sizeof buffer);

	if (tmp->type & IGNORE_QUITS)
		strlcat(buffer, " QUITS", sizeof buffer);
	else if (tmp->high & IGNORE_QUITS)
		strmopencat(buffer, BIG_BUFFER_SIZE,space, highlight_char, "QUITS", highlight_char, NULL);
	else if (tmp->dont & IGNORE_QUITS)
		strlcat(buffer, " DONT-QUITS", sizeof buffer);

	if (tmp->type & IGNORE_PARTS)
		strlcat(buffer, " PARTS", sizeof buffer);
	else if (tmp->high & IGNORE_PARTS)
		strmopencat(buffer, BIG_BUFFER_SIZE, space, highlight_char, "PARTS", highlight_char, NULL);
	else if (tmp->dont & IGNORE_PARTS)
		strlcat(buffer, " DONT-PARTS", sizeof buffer);

	if (tmp->type & IGNORE_NICKS)
		strlcat(buffer, " NICKS", sizeof buffer);
	else if (tmp->high & IGNORE_NICKS)
		strmopencat(buffer, BIG_BUFFER_SIZE, space, highlight_char, "NICKS", highlight_char, NULL);
	else if (tmp->dont & IGNORE_NICKS)
		strlcat(buffer, " DONT-NICKS", sizeof buffer);


	if (tmp->type & IGNORE_PONGS)
		strlcat(buffer, " PONGS", sizeof buffer);
	else if (tmp->high & IGNORE_PONGS)
		strmopencat(buffer, BIG_BUFFER_SIZE, space, highlight_char, "PONGS", highlight_char, NULL);
	else if (tmp->dont & IGNORE_PONGS)
		strlcat(buffer, " DONT-PONGS", sizeof buffer);


	if (tmp->type & IGNORE_SPLITS)
		strlcat(buffer, " SPLITS", sizeof buffer);
	else if (tmp->high & IGNORE_SPLITS)
		strmopencat(buffer, BIG_BUFFER_SIZE, space, highlight_char, "SPLITS", highlight_char, NULL);
	else if (tmp->dont & IGNORE_SPLITS)
		strlcat(buffer, " DONT-SPLITS", sizeof buffer);

	if (tmp->type & IGNORE_CRAP)
		strlcat(buffer, " CRAP", sizeof buffer);
	else if (tmp->high & IGNORE_CRAP)
		strmopencat(buffer, BIG_BUFFER_SIZE, space, highlight_char, "CRAP", highlight_char, NULL);
	else if (tmp->dont & IGNORE_CRAP)
		strlcat(buffer, " DONT-CRAP", sizeof buffer);

			}
			if (tmp->except)
			{
				Ignore *new;
				strlcat(buffer, " EXCEPT ", sizeof buffer);
				for (new = tmp->except; new; new = new->next)
					strmopencat(buffer, BIG_BUFFER_SIZE, new->nick, space, NULL);
			}
			if (tmp->looking && tmp->cgrep)
			{
				Ignore *new;
				strlcat(buffer, " CGREP ", sizeof buffer);
				for (new = tmp->looking; new; new = new->next)
					strmopencat(buffer, BIG_BUFFER_SIZE, "[", new->nick, "] ", NULL);
			}
			put_it("%s", convert_output_format("  %K[%G$[-2]0%K] %C$[-25]1%W:%n $2-", "%d %s %s", tmp->num, tmp->nick, buffer));
		}
	}
	else
		bitchsay("There are no nicknames or channels being ignored");
}

long ignore_type (char *type, int len)
{
long ret = -1;
	if (!type || !*type)
		return -1;
	if (!strncmp(type, "ALL", len))
		ret = IGNORE_ALL;
	else if (!strncmp(type, "MSGS", len))
		ret = IGNORE_MSGS;
	else if (!strncmp(type, "PUBLIC", len))
		ret = IGNORE_PUBLIC;
	else if (!strncmp(type, "WALLS", len))
		ret = IGNORE_WALLS;
	else if (!strncmp(type, "WALLOPS", len))
		ret = IGNORE_WALLOPS;
	else if (!strncmp(type, "INVITES", len))
		ret = IGNORE_INVITES;
	else if (!strncmp(type, "NOTICES", len))
		ret = IGNORE_NOTICES;
	else if (!strncmp(type, "NOTES", len))
		ret = IGNORE_NOTES;
	else if (!strncmp(type, "CTCPS", len))
		ret = IGNORE_CTCPS;
	else if (!strncmp(type, "CDCC", len))
		ret = IGNORE_CDCC;
	else if (!strncmp(type, "KICKS", len))
		ret = IGNORE_KICKS;
	else if (!strncmp(type, "MODES", len))
		ret = IGNORE_MODES;
	else if (!strncmp(type, "SMODES", len))
		ret = IGNORE_SMODES;
	else if (!strncmp(type, "JOINS", len))
		ret = IGNORE_JOINS;
	else if (!strncmp(type, "TOPICS", len))
		ret = IGNORE_TOPICS;
	else if (!strncmp(type, "QUITS", len))
		ret = IGNORE_QUITS;
	else if (!strncmp(type, "CRAP", len))
		ret = IGNORE_CRAP;
	else if (!strncmp(type, "PARTS", len))
		ret = IGNORE_PARTS;
	else if (!strncmp(type, "NICKS", len))
		ret = IGNORE_NICKS;
	else if (!strncmp(type, "PONGS", len))
		ret = IGNORE_PONGS;
	else if (!strncmp(type, "SPLITS", len))
		ret = IGNORE_SPLITS;
	else if (!strncmp(type, "NONE", len))
		ret = 0;
	return ret;
}

#define HANDLE_TYPE(x, y)						\
	     if ((tmp->dont & x) == x)					\
		strlcat(buffer, " DONT-" y, sizeof buffer);		\
	else if ((tmp->type & x) == x)					\
		strlcat(buffer, " " y, sizeof buffer);			\
	else if ((tmp->high & x) == x)					\
		strmopencat(buffer, BIG_BUFFER_SIZE, space, high, y, high, NULL);


char	*get_ignore_types (Ignore *tmp)
{
static	char 	buffer[BIG_BUFFER_SIZE + 1];
	char	*high = highlight_char;

	*buffer = 0;
	HANDLE_TYPE(IGNORE_ALL, "ALL")
	else
	{
		HANDLE_TYPE(IGNORE_MSGS,    "MSGS")
		HANDLE_TYPE(IGNORE_PUBLIC,  "PUBLIC")
		HANDLE_TYPE(IGNORE_WALLS,   "WALLS")
		HANDLE_TYPE(IGNORE_WALLOPS, "WALLOPS")
		HANDLE_TYPE(IGNORE_INVITES, "INVITES")
		HANDLE_TYPE(IGNORE_NOTICES, "NOTICES")
		HANDLE_TYPE(IGNORE_NOTES,   "NOTES")
		HANDLE_TYPE(IGNORE_CTCPS,   "CTCPS")
		HANDLE_TYPE(IGNORE_TOPICS,  "TOPICS")
		HANDLE_TYPE(IGNORE_NICKS,   "NICKS")
		HANDLE_TYPE(IGNORE_JOINS,   "JOINS")
		HANDLE_TYPE(IGNORE_CRAP,    "CRAP")
	}
	return buffer;
}

int ignore_exception(Ignore *old, char *args)
{
Ignore *new = NULL;
int flag = 0;
	if (args && !(new = (Ignore *)list_lookup((List **)&old->except, args, !USE_WILDCARDS, !REMOVE_FROM_LIST)))
	{
		new = new_malloc(sizeof(Ignore));
		malloc_strcpy(&new->nick, args);
		add_to_list((List **)&old->except, (List *)new);
		flag = DONT_IGNORE;
		bitchsay(" EXCEPT %s", new->nick);
	}
	return flag;
}

/*
 * ignore: does the /IGNORE command.  Figures out what type of ignoring the
 * user wants to do and calls the proper ignore command to do it. 
 */
BUILT_IN_COMMAND(ignore)
{
	char	*nick,
		*type;
	int	len,
		flag,
		no_flags;
	long	ret;	

	if ((nick = next_arg(args, &args)) != NULL)
	{
		no_flags = 1;
		while ((type = next_arg(args, &args)) != NULL)
		{
			no_flags = 0;
			upper(type);
			switch (*type)
			{
			case '^':
				flag = IGNORE_DONT;
				type++;
				break;
			case '-':
				flag = IGNORE_REMOVE;
				type++;
				break;
			case '+':
				flag = IGNORE_HIGH;
				type++;
				break;
			case '%':
				flag = IGNORE_CGREP;
				type++;
				break;
			default:
				flag = 0;
				break;
			}
			if (!(len = strlen(type)))
			{
				say("You must specify one of the following:");
				say("\tALL MSGS PUBLIC WALLS WALLOPS INVITES \
NOTICES NOTES CTCPS CDCC KICKS MODES SMODES JOINS TOPICS QUITS PARTS NICKS PONGS SQUITS CRAP NONE");
				return;
			}
			if (!strncmp(type, "NONE", len))
			{
				char	*ptr;

				while (nick)
				{
					if ((ptr = strchr(nick, ',')) != NULL)
						*ptr = 0;
					if (*nick)
						remove_ignore(nick);
					if (ptr)
						*(ptr++) = ',';
					nick = ptr;
				}
			}
			else if (!strncmp(type, "EXCEPT", len) && new_ignore)
			{
				while ((nick = next_arg(args, &args)))				
					flag = ignore_exception(new_ignore, nick);
			}
			else if ((flag == IGNORE_CGREP) && ((ret = ignore_type(type, len)) != -1))
				add_channel_grep(nick, args, ret);
			else if ((ret = ignore_type(type, len)) != -1)
				ignore_nickname(nick, ret, flag);
			else
			{
				bitchsay("You must specify one of the following:");
				say("\tALL MSGS PUBLIC WALLS WALLOPS INVITES \
NOTICES NOTES CTCPS CDCC KICKS MODES SMODES JOINS TOPICS QUITS PARTS NICKS PONGS SQUITS CRAP NONE");
			}
		}
		if (no_flags)
			ignore_list(nick);
		new_ignore = NULL;
	} else
		ignore_list(NULL);
}

/*
 * set_highlight_char: what the name says..  the character to use
 * for highlighting..  either BOLD, INVERSE, or UNDERLINE..
 */
void set_highlight_char(Window *win, char *s, int unused)
{
	int	len = strlen(s);

	if (!my_strnicmp(s, "BOLD", len))
		malloc_strcpy(&highlight_char, BOLD_TOG_STR);
	else if (!my_strnicmp(s, "INVERSE", len))
		malloc_strcpy(&highlight_char, REV_TOG_STR);
	else if (!my_strnicmp(s, "UNDERLINE", len))
		malloc_strcpy(&highlight_char, UND_TOG_STR);
	else
		malloc_strcpy(&highlight_char, s);
}

/* check_ignore -- replaces the old double_ignore
 *   Why did i change the name?
 *      * double_ignore isnt really applicable any more becuase it doesnt
 *        do two ignore lookups, it only does one.
 *      * This function doesnt look anything like the old double_ignore
 *      * This function works for the new *!*@* patterns stored by
 *        ignore instead of the old nick and userhost patterns.
 * (jfn may 1995)
 */
int	check_ignore (char *nick, char *userhost, char *channel, long type, char *str)
{
	char *nickuserhost = NULL;
	Ignore	*tmp;

	malloc_sprintf(&nickuserhost, "%s!%s", nick ? nick : "*", userhost ? userhost : "*");

	if (ignored_nicks)
	{
		if ((tmp = (Ignore *) list_lookup((List **)&ignored_nicks, nickuserhost, USE_WILDCARDS, !REMOVE_FROM_LIST)))
		{
			if (tmp->except && list_lookup((List **)&tmp->except, nickuserhost, USE_WILDCARDS, !REMOVE_FROM_LIST))
			{			
				new_free(&nickuserhost);
				return(DONT_IGNORE);
			}

			new_free(&nickuserhost); 
			if (tmp->dont & type)
				return(DONT_IGNORE);
			if (tmp->type & type)
				return (IGNORED);
			if (tmp->high & type)
				return (HIGHLIGHTED);
		}
		new_free(&nickuserhost);
		if (channel && is_channel(channel) && (tmp = (Ignore *) list_lookup((List **)&ignored_nicks, channel, USE_WILDCARDS, !REMOVE_FROM_LIST)))
		{
			if (tmp->dont & type)
				return(DONT_IGNORE);
			if (tmp->type & type)
				return (IGNORED);
			if (tmp->high & type)
				return (HIGHLIGHTED);
			if ((tmp->cgrep & type) && str)
			{
				Ignore *t;
				for (t = tmp->looking; t; t = t->next)
				{
					if (stristr(str, t->nick))
						return DONT_IGNORE;
				}
				return IGNORED;
			}
		}
	}
	new_free(&nickuserhost);
	return (DONT_IGNORE);
}

/* Written by hop in April 1995 -- taken from SIRP */
/* MALLOCED */
static char *cut_n_fix_glob ( char *nickuserhost )
{
	char *nick, *userhost = NULL,
	     *user = NULL, *host = NULL;
	char	*copy = NULL;
	
	/* patch by texaco makes this work right */

	copy = LOCAL_COPY(nickuserhost);
	nick = copy;
	if ((userhost = strchr(copy, '!')))
	{
		/* NICK IS CORRECT HERE */

		*userhost++ = 0;

		/* doh! */
		user = userhost;

		if ((host = sindex(userhost, "@")))
			/* USER IS CORRECT HERE */
			*host++ = 0;

		else if (sindex(userhost, "."))
		{
			user = "*";
			host = userhost;
		}
		/* fixed by sheik */
		if (!user)
			user = "*";
		if (!host)
			host = "*";
	}
	else
	{
		user = copy;
		if ((host = sindex(user, "@")))
		{
			nick = "*";
			*host++ = 0;
		}
		else
		{
			if (sindex(user, "."))
			{
				nick = "*";
				host = user;
				user = "*";
			}
			else
			{
				nick = user;
				user = "*";
				host = "*";
			}
		}
	}
	return m_opendup(nick, "!", user, "@", host, NULL);
}

void tremove_ignore (char *stuff, char *line)
{
int count = 0;
Ignore *new, *newc, *ex;
char *p;
int except = 0;
	if (!line || !*line)
		return;
	while ((p = next_arg(line, &line)))
	{
		for (new = ignored_nicks; new; new = newc)
		{
			newc = new->next;
			if (matchmcommand(p, new->num) || !my_stricmp(new->nick, p))
			{
				for (ex = new->except; ex; ex = ex->next)
					except++;
				remove_ignore(new->nick);
				count++;
			}
		}
	}
	if (count)
		bitchsay("Removed %d ignores and %d exceptions", count, except);
	else
		bitchsay("No matching ignore");
	for (new = ignored_nicks, count = 1; new; new = new->next, count++)
		new->num = count;
}

BUILT_IN_COMMAND(tignore)
{
	ignore_list(NULL);
	if (ignored_nicks)
	{
		if (args && *args)
			tremove_ignore(NULL, args);
		else
			add_wait_prompt("Which ignore to delete (-2, 2-5, ...) ? ", tremove_ignore, args, WAIT_PROMPT_LINE, 1);
	}
}

/*
 * get_ignores_by_pattern: Get all the ignores that match the pattern
 * If "covered" is 0, then return all ignores matched by patterns
 * If "covered" is 1, then return all ignores that would activate on patterns
 * MALLOCED
 */
char 	*get_ignores_by_pattern (char *patterns, int covered)
{
	Ignore	*tmp;
	char 	*pattern;
	char 	*retval = NULL;

	while ((pattern = new_next_arg(patterns, &patterns)))
	{
		for (tmp = ignored_nicks; tmp; tmp = tmp->next)
		{
			if (covered ? wild_match(tmp->nick, pattern)
				    : wild_match(pattern, tmp->nick))
				m_s3cat(&retval, space, tmp->nick);
		}
	}

	return retval ? retval : m_strdup(empty_string);
}

int	get_type_by_desc (char *type, int *do_mask, int *dont_mask)
{
	char	*l1, *l2;
	int	len;
	int	*mask = NULL;

	*do_mask = *dont_mask = 0;

	while (type && *type)
	{
		l1 = new_next_arg(type, &type);
		while (l1 && *l1)
		{
			l2 = l1;
			if ((l1 = strchr(l1, ',')))
				*l1++ = 0;

			if (*l2 == '!')
			{
				l2++;
				mask = dont_mask;
			}
			else
				mask = do_mask;

			if (!(len = strlen(l2)))
				continue;

			     if (!strncmp(l2, "ALL", len))
				*mask |= IGNORE_ALL;
			else if (!strncmp(l2, "MSGS", len))
				*mask |= IGNORE_MSGS;
			else if (!strncmp(l2, "PUBLIC", len))
				*mask |= IGNORE_PUBLIC;
			else if (!strncmp(l2, "WALLS", len))
				*mask |= IGNORE_WALLS;
			else if (!strncmp(l2, "WALLOPS", len))
				*mask |= IGNORE_WALLOPS;
			else if (!strncmp(l2, "INVITES", len))
				*mask |= IGNORE_INVITES;
			else if (!strncmp(l2, "NOTICES", len))
				*mask |= IGNORE_NOTICES;
			else if (!strncmp(l2, "NOTES", len))
				*mask |= IGNORE_NOTES;
			else if (!strncmp(l2, "CTCPS", len))
				*mask |= IGNORE_CTCPS;
			else if (!strncmp(l2, "TOPICS", len))
				*mask |= IGNORE_TOPICS;
			else if (!strncmp(l2, "NICKS", len))
				*mask |= IGNORE_NICKS;
			else if (!strncmp(l2, "JOINS", len))
				*mask |= IGNORE_JOINS;
			else if (!strncmp(l2, "CRAP", len))
				*mask |= IGNORE_CRAP;
		}
	}

	return 0;
}

/*
 * This is nasty and should be done in a more generalized way, but until
 * then, this function just does what has to be done.  Please note that
 * if you go to the pains to re-write the ignore handling, please do fix
 * this to work the right way, please? =)
 */
char	*get_ignore_types_by_pattern (char *pattern)
{
	Ignore	*tmp;

	upper(pattern);
	for (tmp = ignored_nicks; tmp; tmp = tmp->next)
	{
		if (!strcmp(tmp->nick, pattern))
			return get_ignore_types(tmp);
	}

	return empty_string;
}

char	*get_ignore_patterns_by_type (char *ctype)
{
	Ignore	*tmp;
	int	do_mask = 0, dont_mask = 0;
	char	*result = NULL;

	/*
	 * Convert the user's input into something we can use.
	 * If the user doesnt specify anything useful, then we
	 * just punt right here.
	 */
	upper(ctype);
	get_type_by_desc(ctype, &do_mask, &dont_mask);
	if (do_mask == 0 && dont_mask == 0)
		return m_strdup(empty_string);

	for (tmp = ignored_nicks; tmp; tmp = tmp->next)
	{
		/*
		 * Any "negative ignore" bits, if any, must be present.
		 */
		if ((tmp->dont & dont_mask) != dont_mask)
			continue;

		/*
		 * Any "positive ignore" bits, if any, must be present,
		 * but there must not be a corresponding "negative ignore"
		 * bit for the levels as well.  That is to say, the
		 * negative ignore bits "turn off" any corresponding bits
		 * in the positive ignore set.
		 */
		if (((tmp->type & ~tmp->dont) & do_mask) != do_mask)
			continue;

		/* Add it to the fray */
		m_s3cat(&result, space, tmp->nick);
	}

	return result;
}
