/**************************************************************************
*  Original Diku Mud copyright (C) 1990, 1991 by Sebastian Hammer,        *
*  Michael Seifert, Hans Henrik St{rfeldt, Tom Madsen, and Katja Nyboe.   *
*                                                                         *
*  Merc Diku Mud improvements copyright (C) 1992, 1993 by Michael         *
*  Chastain, Michael Quan, and Mitchell Tse.                              *
*                                                                         *
*  In order to use any part of this Merc Diku Mud, you must comply with   *
*  both the original Diku license in 'license.doc' as well the Merc       *
*  license in 'license.txt'.  In particular, you may not remove either of *
*  these copyright notices.                                               *
*                                                                         *
*  Much time and thought has gone into this software and you are          *
*  benefiting.  We hope that you share your changes too.  What goes       *
*  around, comes around.                                                  *
***************************************************************************
*       ROM 2.4 is copyright 1993-1998 Russ Taylor                        *
*       ROM has been brought to you by the ROM consortium                 *
*           Russ Taylor (rtaylor@hypercube.org)                           *
*           Gabrielle Taylor (gtaylor@hypercube.org)                      *
*           Brian Moore (zump@rom.org)                                    *
*       By using this code, you have agreed to follow the terms of the    *
*       ROM license, in the file Rom24/doc/rom.license                    *
***************************************************************************
*       1stMUD ROM Derivative (c) 2001-2002 by Ryan Jennings              *
*            http://1stmud.dlmud.com/  <r-jenn@shaw.ca>                   *
***************************************************************************/
#include <sys/types.h>
#if !defined(WIN32)
#include <sys/time.h>
#include <unistd.h>
#endif
#include <stdio.h>
#include <string.h>
#include <stdlib.h>
#include "merc.h"
#include "recycle.h"
#include "interp.h"

BAN_DATA *ban_list;

bool check_ban (const char *site, int type)
{
	BAN_DATA *pban;
	char host[MAX_STRING_LENGTH];

	strcpy (host, capitalize (site));
	host[0] = LOWER (host[0]);

	for (pban = ban_list; pban != NULL; pban = pban->next)
	{
		if (!IS_SET (pban->ban_flags, type))
			continue;

		if (IS_SET (pban->ban_flags, BAN_PREFIX) &&
			IS_SET (pban->ban_flags, BAN_SUFFIX) &&
			strstr (pban->name, host) != NULL)
			return TRUE;

		if (IS_SET (pban->ban_flags, BAN_PREFIX) &&
			!str_suffix (pban->name, host))
			return TRUE;

		if (IS_SET (pban->ban_flags, BAN_SUFFIX) &&
			!str_prefix (pban->name, host))
			return TRUE;
	}

	return FALSE;
}

void ban_site (CHAR_DATA * ch, const char *argument, bool fPerm)
{
	char buf[MAX_STRING_LENGTH], buf2[MAX_STRING_LENGTH];
	char arg1[MAX_INPUT_LENGTH], arg2[MAX_INPUT_LENGTH];
	char *name;
	BUFFER *buffer;
	BAN_DATA *pban, *prev;
	bool prefix = FALSE, suffix = FALSE;
	int type;

	argument = one_argument (argument, arg1);
	argument = one_argument (argument, arg2);

	if (arg1[0] == '\0')
	{
		if (ban_list == NULL)
		{
			chprintln (ch, "No sites banned at this time.");
			return;
		}
		buffer = new_buf ();

		add_buf (buffer, "Banned sites  level  type     status\n\r");
		for (pban = ban_list; pban != NULL; pban = pban->next)
		{
			sprintf (buf2, "%s%s%s",
					 IS_SET (pban->ban_flags, BAN_PREFIX) ? "*" : "",
					 pban->name, IS_SET (pban->ban_flags,
										 BAN_SUFFIX) ? "*" : "");
			sprintf (buf, "%-12s    %-3d  %-7s  %s\n\r", buf2,
					 pban->level, IS_SET (pban->ban_flags,
										  BAN_NEWBIES) ? "newbies" :
					 IS_SET (pban->ban_flags,
							 BAN_PERMIT) ? "permit" :
					 IS_SET (pban->ban_flags, BAN_ALL) ? "all" : "",
					 IS_SET (pban->ban_flags,
							 BAN_PERMANENT) ? "perm" : "temp");
			add_buf (buffer, buf);
		}

		page_to_char (buf_string (buffer), ch);
		free_buf (buffer);
		return;
	}

	/* find out what type of ban */
	if (arg2[0] == '\0' || !str_prefix (arg2, "all"))
		type = BAN_ALL;
	else if (!str_prefix (arg2, "newbies"))
		type = BAN_NEWBIES;
	else if (!str_prefix (arg2, "permit"))
		type = BAN_PERMIT;
	else
	{
		chprintln (ch, "Acceptable ban types are all, newbies, and permit.");
		return;
	}

	name = arg1;

	if (name[0] == '*')
	{
		prefix = TRUE;
		name++;
	}

	if (name[strlen (name) - 1] == '*')
	{
		suffix = TRUE;
		name[strlen (name) - 1] = '\0';
	}

	if (strlen (name) == 0)
	{
		chprintln (ch, "You have to ban SOMETHING.");
		return;
	}

	prev = NULL;
	for (pban = ban_list; pban != NULL; prev = pban, pban = pban->next)
	{
		if (!str_cmp (name, pban->name))
		{
			if (pban->level > get_trust (ch))
			{
				chprint (ch, "That ban was set by a higher power.");
				return;
			}
			else
			{
				if (prev == NULL)
					ban_list = pban->next;
				else
					prev->next = pban->next;
				free_ban (pban);
			}
		}
	}

	pban = new_ban ();
	pban->name = str_dup (name);
	pban->level = get_trust (ch);

	/* set ban type */
	pban->ban_flags = type;

	if (prefix)
		SET_BIT (pban->ban_flags, BAN_PREFIX);
	if (suffix)
		SET_BIT (pban->ban_flags, BAN_SUFFIX);
	if (fPerm)
		SET_BIT (pban->ban_flags, BAN_PERMANENT);

	pban->next = ban_list;
	ban_list = pban;
	save_bans ();
	sprintf (buf, "%s has been banned.\n\r", pban->name);
	chprint (ch, buf);
	return;
}

CH_CMD (do_ban)
{
	ban_site (ch, argument, FALSE);
}

CH_CMD (do_permban)
{
	ban_site (ch, argument, TRUE);
}

CH_CMD (do_allow)
{
	char arg[MAX_INPUT_LENGTH];
	BAN_DATA *prev;
	BAN_DATA *curr;

	one_argument (argument, arg);

	if (arg[0] == '\0')
	{
		chprintln (ch, "Remove which site from the ban list?");
		return;
	}

	prev = NULL;
	for (curr = ban_list; curr != NULL; prev = curr, curr = curr->next)
	{
		if (!str_cmp (arg, curr->name))
		{
			if (curr->level > get_trust (ch))
			{
				chprintln
					(ch, "You are not powerful enough to lift that ban.");
				return;
			}
			if (prev == NULL)
				ban_list = ban_list->next;
			else
				prev->next = curr->next;

			free_ban (curr);
			chprintlnf (ch, "Ban on %s lifted.", arg);
			save_bans ();
			return;
		}
	}

	chprintln (ch, "Site is not banned.");
	return;
}