/* Copyright (C) 2000-1 drscholl@users.sourceforge.net
   This is free software distributed under the terms of the
   GNU Public License.  See the file COPYING for details.

   $Id: privmsg.c,v 1.56 2001/02/15 08:39:45 drscholl Exp $ */

#include <stdio.h>
#include <stdlib.h>
#ifndef WIN32
#include <unistd.h>
#endif
#include <string.h>
#include "opennap.h"
#include "debug.h"

/* loopback command for allowing mods using the windows client to execute
   opennap comamnds */
static void
operserv (CONNECTION * con, char *pkt)
{
    char   *cmd = next_arg (&pkt);
    unsigned short tag, len;
    char    ch = 0;

    if (!cmd)
	return;
    if (!strcasecmp ("chanlevel", cmd))
	tag = MSG_CLIENT_CHANNEL_LEVEL;
    else if (!strcasecmp ("links", cmd))
	tag = MSG_CLIENT_LINKS;
    else if (!strcasecmp ("stats", cmd))
	tag = MSG_CLIENT_USAGE_STATS;
    else if (!strcasecmp ("connect", cmd))
	tag = MSG_CLIENT_CONNECT;
    else if (!strcasecmp ("disconnect", cmd))
	tag = MSG_CLIENT_DISCONNECT;
    else if (!strcasecmp ("killserver", cmd))
	tag = MSG_CLIENT_KILL_SERVER;
    else if (!strcasecmp ("nuke", cmd))
	tag = MSG_CLIENT_NUKE;
    else if (!strcasecmp ("register", cmd))
	tag = MSG_CLIENT_REGISTER_USER;
    else if (!strcasecmp ("chanlimit", cmd))
	tag = MSG_CLIENT_CHANNEL_LIMIT;
    else if (!strcasecmp ("kick", cmd))
	tag = MSG_CLIENT_KICK_USER;
    else if (!strcasecmp ("usermode", cmd))
	tag = MSG_CLIENT_USER_MODE;
    else if (!strcasecmp ("config", cmd))
	tag = MSG_CLIENT_SERVER_CONFIG;
    else if (!strcasecmp ("reconfig", cmd))
	tag = MSG_CLIENT_SERVER_RECONFIG;
    else if (!strcasecmp ("cban", cmd))
	tag = MSG_CLIENT_CHANNEL_BAN;
    else if (!strcasecmp ("cunban", cmd))
	tag = MSG_CLIENT_CHANNEL_UNBAN;
    else if (!strcasecmp ("cbanlist", cmd))
	tag = MSG_CLIENT_CHANNEL_BAN_LIST;
    else if (!strcasecmp ("cbanclear", cmd))
	tag = MSG_CLIENT_CHANNEL_CLEAR_BANS;
    else if (!strcasecmp ("clearchan", cmd))
	tag = MSG_CLIENT_CLEAR_CHANNEL;
    else if (!strcasecmp ("cloak", cmd))
	tag = MSG_CLIENT_CLOAK;
    else if (!strcasecmp ("op", cmd))
	tag = MSG_CLIENT_OP;
    else if (!strcasecmp ("oplist", cmd))
	tag = MSG_CLIENT_OP;	/* deprecated, but this should work as expected */
    else if (!strcasecmp ("deop", cmd))
	tag = MSG_CLIENT_DEOP;
    else if (!strcasecmp ("rehash", cmd))
	tag = MSG_CLIENT_REHASH;
    else if (!strcasecmp ("server", cmd))
	tag = MSG_CLIENT_WHICH_SERVER;
    else if (!strcasecmp ("redirect", cmd))
	tag = MSG_CLIENT_REDIRECT;
    else if (!strcasecmp ("cycle", cmd))
	tag = MSG_CLIENT_CYCLE;
    else if (!strcasecmp ("whowas", cmd))
	tag = MSG_CLIENT_WHO_WAS;
    else if (!strcasecmp ("help", cmd))
    {
	send_cmd (con, MSG_CLIENT_PRIVMSG, "OperServ Help for OperServ:");
	send_cmd (con, MSG_CLIENT_PRIVMSG,
		  "OperServ cloak - toggle invisibility to normal users");
	send_cmd (con, MSG_CLIENT_PRIVMSG,
		  "OperServ config <variable> [value] - query/set server configuration");
	send_cmd (con, MSG_CLIENT_PRIVMSG,
		  "OperServ connect <server> [remote_server] - link a server");
	send_cmd (con, MSG_CLIENT_PRIVMSG,
		  "OperServ cycle <nick> <host> - request client reconnect to metaserver <host>");
	send_cmd (con, MSG_CLIENT_PRIVMSG,
		  "OperServ disconnect <server> - delink a server");
	send_cmd (con, MSG_CLIENT_PRIVMSG,
		  "OperServ help - display this help message");
	send_cmd (con, MSG_CLIENT_PRIVMSG,
		  "OperServ killserver [server] - cause a server to shut down");
	send_cmd (con, MSG_CLIENT_PRIVMSG, "OperServ links");
	send_cmd (con, MSG_CLIENT_PRIVMSG,
		  "OperServ nuke <nick> - unregister a nickname");
	send_cmd (con, MSG_CLIENT_PRIVMSG,
		  "OperServ reconfig <variable> - reset server configuration variable");
	send_cmd (con, MSG_CLIENT_PRIVMSG,
		  "OperServ redirect <nick> <host> <port> - request client connect to server <host>:<port>");
	send_cmd (con, MSG_CLIENT_PRIVMSG, "OperServ register");
	send_cmd (con, MSG_CLIENT_PRIVMSG,
		  "OperServ rehash [server] - cause server to reload its config files");
	send_cmd (con, MSG_CLIENT_PRIVMSG,
		  "OperServ stats - display server stats");
	send_cmd (con, MSG_CLIENT_PRIVMSG, "OperServ usermode");
	send_cmd (con, MSG_CLIENT_PRIVMSG,
		  "OperServ whowas <nick> - display whois info for a recently logged out client");
	send_cmd (con, MSG_CLIENT_PRIVMSG,
		  "OperServ END of help for OperServ");
	return;
    }
    else
    {
	send_cmd (con, MSG_SERVER_NOSUCH, "Unknown OperServ command: %s",
		  cmd);
	return;
    }
    if (pkt)
	len = strlen (pkt);
    else
    {
	/* most of the handler routines expect `pkt' to be non-NULL so pass
	   a dummy value here */
	pkt = &ch;
	len = 0;
    }
    dispatch_command (con, tag, len, pkt);
}

static void
chanserv (CONNECTION * con, char *pkt)
{
    char   *cmd = next_arg (&pkt);
    unsigned short tag, len;
    char    ch = 0;

    if (!cmd)
	return;
    if (!strcasecmp ("ban", cmd))
	tag = MSG_CLIENT_CHANNEL_BAN;
    else if (!strcasecmp ("unban", cmd))
	tag = MSG_CLIENT_CHANNEL_UNBAN;
    else if (!strcasecmp ("banclear", cmd))
	tag = MSG_CLIENT_CHANNEL_CLEAR_BANS;
    else if (!strcasecmp ("banlist", cmd))
	tag = MSG_CLIENT_CHANNEL_BAN_LIST;
    else if (!strcasecmp ("clear", cmd))
	tag = MSG_CLIENT_CLEAR_CHANNEL;
    else if (!strcasecmp ("kick", cmd))
	tag = MSG_CLIENT_KICK;
    else if (!strcasecmp ("oplist", cmd))	/* deprecated, but should work */
	tag = MSG_CLIENT_OP;
    else if (!strcasecmp ("topic", cmd))
	tag = MSG_SERVER_TOPIC;
    else if (!strcasecmp ("limit", cmd))
	tag = MSG_CLIENT_CHANNEL_LIMIT;
    else if (!strcasecmp ("drop", cmd))
	tag = MSG_CLIENT_DROP_CHANNEL;
    else if (!strcasecmp ("op", cmd))
	tag = MSG_CLIENT_OP;
    else if (!strcasecmp ("deop", cmd))
	tag = MSG_CLIENT_DEOP;
    else if (!strcasecmp ("wallop", cmd))
	tag = MSG_CLIENT_CHANNEL_WALLOP;
    else if (!strcasecmp ("invite", cmd))
	tag = MSG_CLIENT_CHANNEL_INVITE;
    else if (!strcasecmp ("mode", cmd))
	tag = MSG_CLIENT_CHANNEL_MODE;
    else if (!strcasecmp ("muzzle", cmd))
	tag = MSG_CLIENT_CHANNEL_MUZZLE;
    else if (!strcasecmp ("unmuzzle", cmd))
	tag = MSG_CLIENT_CHANNEL_UNMUZZLE;
    else if (!strcasecmp ("unvoice", cmd))
	tag = MSG_CLIENT_CHANNEL_UNVOICE;
    else if (!strcasecmp ("voice", cmd))
	tag = MSG_CLIENT_CHANNEL_VOICE;
    else if (!strcasecmp ("level", cmd))
	tag = MSG_CLIENT_SET_CHAN_LEVEL;
    else if (!strcasecmp ("help", cmd))
    {
	send_cmd (con, MSG_CLIENT_PRIVMSG,
		  "ChanServ HELP for ChanServ commands:");
	send_cmd (con, MSG_CLIENT_PRIVMSG,
		  "ChanServ ban <channel> <user> [\"reason\"]");
	send_cmd (con, MSG_CLIENT_PRIVMSG,
		  "ChanServ banclear <channel> - clear all bans");
	send_cmd (con, MSG_CLIENT_PRIVMSG, "ChanServ banlist <channel>");
	send_cmd (con, MSG_CLIENT_PRIVMSG,
		  "ChanServ clear <channel> - kick all users out of channel");
	send_cmd (con, MSG_CLIENT_PRIVMSG,
		  "ChanServ deop <channel> [user [user ...]]");
	send_cmd (con, MSG_CLIENT_PRIVMSG, "ChanServ help");
	send_cmd (con, MSG_CLIENT_PRIVMSG,
		  "ChanServ invite <channel> <user>");
	send_cmd (con, MSG_CLIENT_PRIVMSG,
		  "ChanServ kick <channel> <user> [\"reason\"]");
	send_cmd (con, MSG_CLIENT_PRIVMSG,
		  "ChanServ level <channel> [level] - display/set min user level required to join");
	send_cmd (con, MSG_CLIENT_PRIVMSG,
		  "ChanServ limit <channel> [number] - set max number of users");
	send_cmd (con, MSG_CLIENT_PRIVMSG,
		  "ChanServ mode <channel> [mode [mode ...]]");
	send_cmd (con, MSG_CLIENT_PRIVMSG,
		  "ChanServ muzzle <channel> <user>");
	send_cmd (con, MSG_CLIENT_PRIVMSG,
		  "ChanServ op <channel> [user [user ...] - display/set channel operators");
	send_cmd (con, MSG_CLIENT_PRIVMSG,
		  "ChanServ topic <channel> [topic] - display/set channel topic");
	send_cmd (con, MSG_CLIENT_PRIVMSG, "ChanServ unban <channel>");
	send_cmd (con, MSG_CLIENT_PRIVMSG,
		  "ChanServ unmuzzle <channel> <user>");
	send_cmd (con, MSG_CLIENT_PRIVMSG,
		  "ChanServ unvoice <channel> [user [user ...]]");
	send_cmd (con, MSG_CLIENT_PRIVMSG,
		  "ChanServ voice <channel> [user [user ...]]");
	send_cmd (con, MSG_CLIENT_PRIVMSG,
		  "ChanServ wallop <channel> <text> - send message to all channel operators");
	return;
    }
    else
    {
	send_cmd (con, MSG_CLIENT_PRIVMSG, "ChanServ Unknown command");
	return;
    }
    if (pkt)
	len = strlen (pkt);
    else
    {
	/* most of the handler routines expect `pkt' to be non-NULL so pass
	   a dummy value here */
	pkt = &ch;
	len = 0;
    }
    dispatch_command (con, tag, len, pkt);
}

static void
nickserv (CONNECTION * con, char *pkt)
{
    char   *cmd = next_arg (&pkt);
    char   *nick;
    char   *pass;
    USER   *user;
    USERDB *db;

    if (!cmd)
	return;
    if (!strcasecmp ("ghost", cmd))
    {
	nick = next_arg (&pkt);
	pass = next_arg (&pkt);
	if (!nick || !pass)
	{
	    send_cmd (con, MSG_CLIENT_PRIVMSG,
		      "NickServ Missing argument(s)");
	    return;
	}
	user = hash_lookup (Users, nick);
	if (!user)
	{
	    send_cmd (con, MSG_CLIENT_PRIVMSG, "NickServ No such user");
	    return;
	}
	db = hash_lookup (User_Db, user->nick);
	if (!db)
	{
	    send_cmd (con, MSG_CLIENT_PRIVMSG,
		      "NickServ Nick is not registered");
	    return;
	}
	if (check_pass (db->password, pass))
	{
	    send_cmd (con, MSG_CLIENT_PRIVMSG, "NickServ Invalid password");
	    return;
	}
	kill_user_internal (0, user, Server_Name, 0, "ghosted by %s",
			    con->user->nick);
    }
    else if (!strcasecmp ("register", cmd))
    {
	db = hash_lookup (User_Db, con->user->nick);
	if (db)
	{
	    send_cmd (con, MSG_CLIENT_PRIVMSG,
		      "NickServ your nick is already registered");
	    return;
	}
	db = create_db (con->user);
	if (!db)
	    return;
	hash_add (User_Db, db->nick, db);
	send_cmd (con, MSG_CLIENT_PRIVMSG,
		  "NickServ your nick has successfully been registered");

	/* pass this on to our peer servers so it gets registered everywhere */
	pass_message_args (con, MSG_CLIENT_REGISTER_USER,
			   ":%s %s %s unknown User", Server_Name, db->nick,
			   con->user->pass);
    }
    else if (!strcasecmp ("usermode", cmd))
	user_mode_cmd (con, MSG_CLIENT_USER_MODE, 0, pkt);
    else if (!strcasecmp ("nuke", cmd))
    {
    }
    else if (!strcasecmp ("help", cmd))
    {
	send_cmd (con, MSG_CLIENT_PRIVMSG, "NickServ NickServ commands:");
	send_cmd (con, MSG_CLIENT_PRIVMSG,
		  "NickServ ghost <nick> <pass> - kill your ghost");
	send_cmd (con, MSG_CLIENT_PRIVMSG,
		  "NickServ register <pass> - register your nickname");
	send_cmd (con, MSG_CLIENT_PRIVMSG,
		"NickServ server <nick> - display which server a user is on");
	send_cmd (con, MSG_CLIENT_PRIVMSG,
		  "NickServ usermode [flags] - display/set your user mode");
    }
    else if (!strcasecmp ("server", cmd))
	which_server (con, MSG_CLIENT_WHICH_SERVER, 0, pkt);
    else
	send_cmd (con, MSG_CLIENT_PRIVMSG, "NickServ Unknown command");
}

/* handles private message commands */
/* [ :<nick> ] <user> <text> */
HANDLER (privmsg)
{
    char   *ptr;
    USER   *sender, *user /* recip */ ;

    (void) tag;
    (void) len;
    ASSERT (validate_connection (con));

    ptr = pkt;			/* save the start offset of pkt for length check */
    if (pop_user (con, &pkt, &sender) != 0)
	return;
    ASSERT (validate_user (sender));

    /* prevent DoS attack againt windows napster client */
    if (len - (pkt - ptr) > 180)
    {
	log ("privmsg(): truncated %d byte message from %s", len,
	     sender->nick);
	pkt[180] = 0;
    }

    /* check to see if the recipient of the message is local */
    ptr = next_arg_noskip (&pkt);
    if (!pkt)
    {
	unparsable (con);
	return;
    }

    if (ISUSER (con))
    {
	if (sender->level > LEVEL_USER && !strcasecmp (ptr, "operserv"))
	{
	    operserv (con, pkt);
	    return;
	}
	if (!strcasecmp ("chanserv", ptr))
	{
	    chanserv (con, pkt);
	    return;
	}
	if (!strcasecmp ("nickserv", ptr))
	{
	    nickserv (con, pkt);
	    return;
	}
    }

    /* find the recipient */
    user = hash_lookup (Users, ptr);
    if (!user)
    {
	nosuchuser (con);
	return;
    }

    /*  locally connected user */
    if (ISUSER (user->con))
    {
	/* check if the user wishes to receive msgs */
	if ((user->con->uopt->usermode & MSGLOG_MODE) == 0)
	{
	    send_user (sender, MSG_SERVER_NOSUCH, "%s is unavailable",
		       user->nick);
	}
	/* check to make sure this user is not ignored */
	else if (!is_ignoring (user->con->uopt->ignore, sender->nick))
	{
	    /* reconstitute the message */
	    send_cmd (user->con, MSG_CLIENT_PRIVMSG, "%s %s", sender->nick,
		      pkt);
	}
	else
	{
	    /* notify the sender they are being ignored */
	    send_user (sender, MSG_SERVER_NOSUCH, "%s is ignoring you",
		       user->nick);
	}
    }
    else
    {
	/* pass the message on to our peers since the recipient isn't
	   local.  we know which server the client is behind, so we just
	   need to send one copy */
	ASSERT (user->con->class == CLASS_SERVER);
	send_cmd (user->con, MSG_CLIENT_PRIVMSG, ":%s %s %s",
		  sender->nick, user->nick, pkt);
    }
}

/* 320
   list ignored users */
HANDLER (ignore_list)
{
    int     n = 0;
    LIST   *list;

    (void) len;
    (void) pkt;
    ASSERT (validate_connection (con));
    CHECK_USER_CLASS ("ignore_list");
    for (list = con->uopt->ignore; list; list = list->next, n++)
	send_cmd (con, MSG_SERVER_IGNORE_ENTRY /* 321 */ , "%s", list->data);
    send_cmd (con, tag, "%d", n);
}

/*  322 <user>
    add user to ignore list */
HANDLER (ignore)
{
    LIST   *list;

    (void) len;
    ASSERT (validate_connection (con));
    CHECK_USER_CLASS ("ignore_add");
    if (invalid_nick (pkt))
    {
	invalid_nick_msg (con);
	return;
    }
    /*ensure that this user is not already on the ignore list */
    for (list = con->uopt->ignore; list; list = list->next)
	if (!strcasecmp (pkt, list->data))
	{
	    send_cmd (con, MSG_SERVER_ALREADY_IGNORED, "%s", pkt);
	    return;		/*already added */
	}
    if (Max_Ignore > 0 && list_count (con->uopt->ignore) > Max_Ignore)
    {
	send_cmd (con, MSG_SERVER_NOSUCH,
		  "ignore list is limited to %d users", Max_Ignore);
	return;
    }
    list = MALLOC (sizeof (LIST));
    list->data = STRDUP (pkt);
    list->next = con->uopt->ignore;
    con->uopt->ignore = list;
    send_cmd (con, tag, "%s", pkt);
}

/* 323 <user>
   unignore user */
HANDLER (unignore)
{
    LIST  **list, *tmpList;

    (void) len;
    ASSERT (validate_connection (con));
    CHECK_USER_CLASS ("ignore_add");
    if (invalid_nick (pkt))
    {
	invalid_nick_msg (con);
	return;
    }
    for (list = &con->uopt->ignore; *list; list = &(*list)->next)
    {
	if (!strcasecmp (pkt, (*list)->data))
	{
	    send_cmd (con, tag, "%s", pkt);
	    tmpList = *list;
	    *list = (*list)->next;
	    FREE (tmpList->data);
	    FREE (tmpList);
	    return;
	}
    }
    send_cmd (con, MSG_SERVER_NOT_IGNORED /* 324 */ , "%s", pkt);
}

/* 326
   clear user's ignore list */
HANDLER (clear_ignore)
{
    int     n;

    (void) len;
    (void) pkt;
    ASSERT (validate_connection (con));
    CHECK_USER_CLASS ("clear_ignore");
    n = list_count (con->uopt->ignore);
    list_free (con->uopt->ignore, free_pointer);
    con->uopt->ignore = 0;
    send_cmd (con, tag, "%d", n);
}