/**

  * vim: set ts=4 :

  * =============================================================================

  * SourceMod Basic Commands Plugin

  * Implements basic admin commands.

  *

  * SourceMod (C)2004-2007 AlliedModders LLC.  All rights reserved.

  * =============================================================================

  *

  * This program is free software; you can redistribute it and/or modify it under

  * the terms of the GNU General Public License, version 3.0, as published by the

  * Free Software Foundation.

  * 

  * This program is distributed in the hope that it will be useful, but WITHOUT

  * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS

  * FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more

  * details.

  *

  * You should have received a copy of the GNU General Public License along with

  * this program.  If not, see <http://www.gnu.org/licenses/>.

  *

  * As a special exception, AlliedModders LLC gives you permission to link the

  * code of this program (as well as its derivative works) to "Half-Life 2," the

  * "Source Engine," the "SourcePawn JIT," and any Game MODs that run on software

  * by the Valve Corporation.  You must obey the GNU General Public License in

  * all respects for all other code used.  Additionally, AlliedModders LLC grants

  * this exception to all derivative works.  AlliedModders LLC defines further

  * exceptions, found in LICENSE.txt (as of this writing, version JULY-31-2007),

  * or <http://www.sourcemod.net/license.php>.

  *

  * Version: $Id$

  */

 #pragma semicolon 1

 #include <sourcemod>

 public Plugin:myinfo =

 {

 	name = "Basic Commands",

 	author = "AlliedModders LLC",

 	description = "Basic Admin Commands",

 	version = SOURCEMOD_VERSION,

 	url = "http://www.sourcemod.net/"

 };

 new Handle:hBanForward = INVALID_HANDLE;

 new Handle:hAddBanForward = INVALID_HANDLE;

 new Handle:hBanRemoved = INVALID_HANDLE;

 public OnPluginStart()

 {

 	LoadTranslations("common.phrases");

 	RegAdminCmd("sm_kick", Command_Kick, ADMFLAG_KICK, "sm_kick <#userid|name> [reason]");

 	RegAdminCmd("sm_map", Command_Map, ADMFLAG_CHANGEMAP, "sm_map <map>");

 	RegAdminCmd("sm_rcon", Command_Rcon, ADMFLAG_RCON, "sm_rcon <args>");

 	RegAdminCmd("sm_cvar", Command_Cvar, ADMFLAG_CONVARS, "sm_cvar <cvar> [value]");

 	RegAdminCmd("sm_execcfg", Command_ExecCfg, ADMFLAG_CONFIG, "sm_execcfg <filename>");

 	RegAdminCmd("sm_who", Command_Who, ADMFLAG_GENERIC, "sm_who [#userid|name]");

 	RegAdminCmd("sm_ban", Command_Ban, ADMFLAG_BAN, "sm_ban <#userid|name> <minutes|0> [reason]");

 	RegAdminCmd("sm_unban", Command_Unban, ADMFLAG_UNBAN, "sm_unban <steamid>");

 	RegAdminCmd("sm_addban", Command_AddBan, ADMFLAG_RCON, "sm_addban <time> <steamid> [reason]");

 	RegAdminCmd("sm_banip", Command_BanIp, ADMFLAG_BAN, "sm_banip <time> <ip|#userid|name> [reason]");

 	RegAdminCmd("sm_reloadadmins", Command_ReloadAdmins, ADMFLAG_BAN, "sm_reloadadmins");

 	RegAdminCmd("sm_cancelvote", Command_CancelVote, ADMFLAG_VOTE, "sm_cancelvote");

 	hBanForward = CreateGlobalForward("OnClientBanned", ET_Hook, Param_Cell, Param_Cell, Param_Cell, Param_String);

 	hAddBanForward = CreateGlobalForward("OnBanAdded", ET_Hook, Param_Cell, Param_String, Param_Cell, Param_String);

 	hBanRemoved = CreateGlobalForward("OnBanRemoved", ET_Hook, Param_Cell, Param_String);

 }

 public Action:Command_ReloadAdmins(client, args)

 {

 	/* Dump it all! */

 	DumpAdminCache(AdminCache_Groups, true);

 	DumpAdminCache(AdminCache_Overrides, true);

 	LogMessage("\"%L\" refreshed the admin cache.", client);

 	ReplyToCommand(client, "[SM] %t", "Admin cache refreshed");

 	return Plugin_Handled;

 }

 public Action:Command_BanIp(client, args)

 {

 	if (args < 2)

 	{

 		ReplyToCommand(client, "[SM] Usage: sm_banip <time> <ip|#userid|name> [reason]");

 		return Plugin_Handled;

 	}

 	decl String:arg[50], String:time[20];

 	GetCmdArg(1, time, sizeof(time));

 	GetCmdArg(2, arg, sizeof(arg));

 	if (StrEqual(arg, "0"))

 	{

 		ReplyToCommand(client, "[SM] %t", "Cannot ban that IP");

 		return Plugin_Handled;

 	}

 	new clients[1];

 	new numClients = SearchForClients(arg, clients, 1);

 	new bool:has_rcon;

 	if (client == 0 || (client == 1 && !IsDedicatedServer()))

 	{

 		has_rcon = true;

 	} else {

 		new AdminId:id = GetUserAdmin(client);

 		has_rcon = (id == INVALID_ADMIN_ID) ? false : GetAdminFlag(id, Admin_RCON);

 	}

 	new bool:hit_client = false;

 	if (numClients == 1 

 		&& !IsFakeClient(clients[0])

 		&& (has_rcon || CanUserTarget(client, clients[0])))

 	{

 		GetClientIP(clients[0], arg, sizeof(arg));

 		hit_client = true;

 	}

 	if (!hit_client && !has_rcon)

 	{

 		ReplyToCommand(client, "[SM] %t", "No Access");

 		return Plugin_Handled;

 	}

 	new minutes = StringToInt(time);

 	decl String:reason[128];

 	if (args >= 3)

 	{

 		GetCmdArg(3, reason, sizeof(reason));

 	}

 	new Action:act = Plugin_Continue;

 	Call_StartForward(hAddBanForward);

 	Call_PushCell(client);

 	Call_PushString(arg);

 	Call_PushCell(minutes);

 	Call_PushString(reason);

 	Call_Finish(act);

 	if (act < Plugin_Handled)

 	{

 		LogMessage("\"%L\" added ban (minutes \"%d\") (ip \"%s\") (reason \"%s\")", client, minutes, arg, reason);

 		ReplyToCommand(client, "[SM] %t", "Ban added");

 	}

 	if (act < Plugin_Stop)

 	{

 		ServerCommand("addip %d %s", minutes, arg);

 		ServerCommand("writeip");

 	}

 	return Plugin_Handled;

 }

 public Action:Command_AddBan(client, args)

 {

 	if (args < 2)

 	{

 		ReplyToCommand(client, "[SM] Usage: sm_addban <time> <steamid> [reason]");

 		return Plugin_Handled;

 	}

 	decl String:arg[50], String:time[20];

 	GetCmdArg(1, time, sizeof(time));

 	GetCmdArg(2, arg, sizeof(arg));

 	new minutes = StringToInt(time);

 	new String:reason[128];

 	if (args >= 3)

 	{

 		GetCmdArg(3, reason, sizeof(reason));

 	}

 	new Action:act = Plugin_Continue;

 	Call_StartForward(hAddBanForward);

 	Call_PushCell(client);

 	Call_PushString(arg);

 	Call_PushCell(minutes);

 	Call_PushString(reason);

 	Call_Finish(act);

 	if (act < Plugin_Handled)

 	{

 		LogMessage("\"%L\" added ban (minutes \"%d\") (id \"%s\") (reason \"%s\")", client, minutes, arg, reason);

 		ReplyToCommand(client, "[SM] %t", "Ban added");

 	}

 	if (act < Plugin_Stop)

 	{

 		ServerCommand("banid %d %s", minutes, arg);

 		ServerCommand("writeid");

 	}

 	return Plugin_Handled;

 }

 public Action:Command_Unban(client, args)

 {

 	if (args < 1)

 	{

 		ReplyToCommand(client, "[SM] Usage: sm_unban <steamid>");

 		return Plugin_Handled;

 	}

 	decl String:arg[50], String:new_arg[50];

 	new start=0;

 	GetCmdArgString(arg, sizeof(arg));

 	if(arg[start] == '"')

 	{

 		start++;

 	}

 	if (strncmp(arg[start], "STEAM_0:", 8, false) == 0)

 	{

 		start += 8;

 	} else if (strncmp(arg[start], "0:1:", 4) == 0 || strncmp(arg[start], "0:0:", 4) == 0) {

 		start += 2;

 	}

 	Format(new_arg, sizeof(new_arg), "STEAM_0:%s", arg[start]);

 	/* Remove white spaces */

 	new len = TrimString(new_arg);

 	if(new_arg[len - 1] == '"')

 	{

 		new_arg[len - 1] = '\0';

 	}

 	new Action:act = Plugin_Continue;

 	Call_StartForward(hBanRemoved);

 	Call_PushCell(client);

 	Call_PushString(new_arg);

 	Call_Finish(act);

 	if (act < Plugin_Handled)

 	{

 		LogMessage("\"%L\" removed ban (filter \"%s\")", client, new_arg);

 		ReplyToCommand(client, "[SM] %t", "Removed bans matching", new_arg);

 	}

 	if (act < Plugin_Stop)

 	{

 		ServerCommand("removeid %s", new_arg);

 		ServerCommand("writeid");

 	}

 	return Plugin_Handled;

 }

 public Action:Command_Ban(client, args)

 {

 	if (args < 2)

 	{

 		ReplyToCommand(client, "[SM] Usage: sm_ban <#userid|name> <minutes|0> [reason]");

 		return Plugin_Handled;

 	}

 	decl String:arg[65];

 	GetCmdArg(1, arg, sizeof(arg));

 	new target = FindTarget(client, arg, true);

 	if (target == -1)

 	{

 		return Plugin_Handled;

 	}

 	decl String:s_time[12];

 	GetCmdArg(2, s_time, sizeof(s_time));

 	new time = StringToInt(s_time);

 	decl String:reason[128];

 	if (args >= 3)

 	{

 		GetCmdArg(3, reason, sizeof(reason));

 	} else {

 		reason[0] = '\0';

 	}

 	decl String:authid[64];

 	GetClientAuthString(target, authid, sizeof(authid));

 	GetClientName(target, arg, sizeof(arg));

 	/* Fire the ban forward */

 	new Action:act = Plugin_Continue;

 	Call_StartForward(hBanForward);

 	Call_PushCell(client);

 	Call_PushCell(target);

 	Call_PushCell(time);

 	Call_PushString(reason);

 	Call_Finish(act);

 	if (act < Plugin_Handled)

 	{

 		if (!time)

 		{

 			if (reason[0] == '\0')

 			{

 				ShowActivity(client, "%t", "Permabanned player", arg);

 			} else {

 				ShowActivity(client, "%t", "Permabanned player reason", arg, reason);

 			}

 		} else {

 			if (reason[0] == '\0')

 			{

 				ShowActivity(client, "%t", "Banned player", arg, time);

 			} else {

 				ShowActivity(client, "%t", "Banned player reason", arg, time, reason);

 			}

 		}

 		LogMessage("\"%L\" banned \"%L\" (minutes \"%d\") (reason \"%s\")", client, target, time, reason);

 	}

 	if (act < Plugin_Stop)

 	{

 		if (reason[0] == '\0')

 		{

 			strcopy(reason, sizeof(reason), "Banned");

 		}

 		ServerCommand("banid %d %s", time, authid);

 		KickClient(target, "%s", reason);

 		if (time == 0)

 		{

 			ServerCommand("writeid");

 		}

 	}

 	return Plugin_Handled;

 }

 #define FLAG_STRINGS		14

 new String:g_FlagNames[FLAG_STRINGS][20] =

 {

 	"reservation",

 	"admin",

 	"kick",

 	"ban",

 	"unban",

 	"slay",

 	"map",

 	"cvars",

 	"cfg",

 	"chat",

 	"vote",

 	"pass",

 	"rcon",

 	"cheat"

 };

 FlagsToString(String:buffer[], maxlength, flags)

 {

 	decl String:joins[FLAG_STRINGS][20];

 	new total;

 	for (new i=0; i<FLAG_STRINGS; i++)

 	{

 		if (flags & (1<<i))

 		{

 			strcopy(joins[total++], 20, g_FlagNames[i]);

 		}

 	}

 	ImplodeStrings(joins, total, ", ", buffer, maxlength);

 }

 public Action:Command_Who(client, args)

 {

 	if (args < 1)

 	{

 		/* Display header */

 		decl String:t_access[16], String:t_name[16];

 		Format(t_access, sizeof(t_access), "%t", "Access", client);

 		Format(t_name, sizeof(t_name), "%t", "Name", client);

 		PrintToConsole(client, "%-24.23s %s", t_name, t_access);

 		/* List all players */

 		new maxClients = GetMaxClients();

 		decl String:flagstring[255];

 		for (new i=1; i<=maxClients; i++)

 		{

 			if (!IsClientInGame(i))

 			{

 				continue;

 			}

 			new flags = GetUserFlagBits(i);

 			if (flags == 0)

 			{

 				strcopy(flagstring, sizeof(flagstring), "none");

 			} else if (flags & ADMFLAG_ROOT) {

 				strcopy(flagstring, sizeof(flagstring), "root");

 			} else {

 				FlagsToString(flagstring, sizeof(flagstring), flags);

 			}

 			decl String:name[65];

 			GetClientName(i, name, sizeof(name));

 			PrintToConsole(client, "%d. %-24.23s %s", i, name, flagstring);

 		}

 		if (GetCmdReplySource() == SM_REPLY_TO_CHAT)

 		{

 			ReplyToCommand(client, "[SM] %t", "See console for output");

 		}

 		return Plugin_Handled;

 	}

 	decl String:arg[65];

 	GetCmdArg(1, arg, sizeof(arg));

 	new clients[2];

 	new numClients = SearchForClients(arg, clients, 2);

 	if (numClients == 0)

 	{

 		ReplyToCommand(client, "[SM] %t", "No matching client");

 		return Plugin_Handled;

 	} else if (numClients > 1) {

 		ReplyToCommand(client, "[SM] %t", "More than one client matches", arg);

 		return Plugin_Handled;

 	}

 	new flags = GetUserFlagBits(clients[0]);

 	decl String:flagstring[255];

 	if (flags == 0)

 	{

 		strcopy(flagstring, sizeof(flagstring), "none");

 	} else if (flags & ADMFLAG_ROOT) {

 		strcopy(flagstring, sizeof(flagstring), "root");

 	} else {

 		FlagsToString(flagstring, sizeof(flagstring), flags);

 	}

 	ReplyToCommand(client, "[SM] %t: %s", "Access", flagstring);

 	return Plugin_Handled;

 }

 public Action:Command_ExecCfg(client, args)

 {

 	if (args < 1)

 	{

 		ReplyToCommand(client, "[SM] Usage: sm_execcfg <filename>");

 		return Plugin_Handled;

 	}

 	new String:path[64] = "cfg/";

 	GetCmdArg(1, path[4], sizeof(path)-4);

 	if (!FileExists(path))

 	{

 		ReplyToCommand(client, "[SM] %t", "Config not found", path[4]);

 		return Plugin_Handled;

 	}

 	ShowActivity(client, "%t", "Executed config", path[4]);

 	LogMessage("\"%L\" executed config (file \"%s\")", client, path[4]);

 	ServerCommand("exec \"%s\"", path[4]);

 	return Plugin_Handled;

 }

 public Action:Command_Cvar(client, args)

 {

 	if (args < 1)

 	{

 		ReplyToCommand(client, "[SM] Usage: sm_cvar <cvar> [value]");

 		return Plugin_Handled;

 	}

 	decl String:cvarname[33];

 	GetCmdArg(1, cvarname, sizeof(cvarname));

 	new Handle:hndl = FindConVar(cvarname);

 	if (hndl == INVALID_HANDLE)

 	{

 		ReplyToCommand(client, "[SM] %t", "Unable to find cvar", cvarname);

 		return Plugin_Handled;

 	}

 	new bool:allowed = false;

 	if (GetConVarFlags(hndl) & FCVAR_PROTECTED)

 	{

 		/* If they're root, allow anything */

 		if ((GetUserFlagBits(client) & ADMFLAG_ROOT) == ADMFLAG_ROOT)

 		{

 			allowed = true;

 		}

 		/* If they're not root, and getting sv_password, see if they have ADMFLAG_PASSWORD */

 		else if (StrEqual(cvarname, "sv_password") && (GetUserFlagBits(client) & ADMFLAG_PASSWORD))

 		{

 			allowed = true;

 		}

 	}

 	/* Do a check for the cheat cvar */

 	else if (StrEqual(cvarname, "sv_cheats"))

 	{

 		if (GetUserFlagBits(client) & ADMFLAG_CHEATS

 			|| GetUserFlagBits(client) & ADMFLAG_ROOT)

 		{

 			allowed = true;

 		}

 	}

 	/* If we drop down to here, it was a normal cvar. */

 	else

 	{

 		allowed = true;

 	}

 	if (!allowed)

 	{

 		ReplyToCommand(client, "[SM] %t", "No access to cvar");

 		return Plugin_Handled;

 	}

 	decl String:value[255];

 	if (args < 2)

 	{

 		GetConVarString(hndl, value, sizeof(value));

 		ReplyToCommand(client, "[SM] %t", "Value of cvar", cvarname, value);

 		return Plugin_Handled;

 	}

 	GetCmdArg(2, value, sizeof(value));

 	if ((GetConVarFlags(hndl) & FCVAR_PROTECTED) != FCVAR_PROTECTED)

 	{

 		ShowActivity(client, "%t", "Cvar changed", cvarname, value);

 	} else {

 		ReplyToCommand(client, "[SM] %t", "Cvar changed", cvarname, value);

 	}

 	LogMessage("\"%L\" changed cvar (cvar \"%s\") (value \"%s\")", client, cvarname, value);

 	SetConVarString(hndl, value, true);

 	return Plugin_Handled;

 }

 public Action:Command_Rcon(client, args)

 {

 	if (args < 1)

 	{

 		ReplyToCommand(client, "[SM] Usage: sm_rcon <args>");

 		return Plugin_Handled;

 	}

 	decl String:argstring[255];

 	GetCmdArgString(argstring, sizeof(argstring));

 	LogMessage("\"%L\" console command (cmdline \"%s\")", client, argstring);

 	ServerCommand("%s", argstring);

 	return Plugin_Handled;

 }

 public Action:Command_Map(client, args)

 {

 	if (args < 1)

 	{

 		ReplyToCommand(client, "[SM] Usage: sm_map <map>");

 		return Plugin_Handled;

 	}

 	decl String:map[64];

 	GetCmdArg(1, map, sizeof(map));

 	if (!IsMapValid(map))

 	{

 		ReplyToCommand(client, "[SM] %t", "Map was not found", map);

 		return Plugin_Handled;

 	}

 	ShowActivity(client, "%t", "Changing map", map);

 	LogMessage("\"%L\" changed map to \"%s\"", client, map);

 	new Handle:dp;

 	CreateDataTimer(3.0, Timer_ChangeMap, dp);

 	WritePackString(dp, map);

 	return Plugin_Handled;

 }

 public Action:Timer_ChangeMap(Handle:timer, Handle:dp)

 {

 	decl String:map[65];

 	ResetPack(dp);

 	ReadPackString(dp, map, sizeof(map));

 	ServerCommand("changelevel \"%s\"", map);

 	return Plugin_Stop;

 }

 public Action:Command_Kick(client, args)

 {

 	if (args < 1)

 	{

 		ReplyToCommand(client, "[SM] Usage: sm_kick <#userid|name> [reason]");

 		return Plugin_Handled;

 	}

 	decl String:Arguments[256];

 	GetCmdArgString(Arguments, sizeof(Arguments));

 	decl String:arg[65];

 	new len = BreakString(Arguments, arg, sizeof(arg));

 	new target = FindTarget(client, arg);

 	if (target == -1)

 	{

 		return Plugin_Handled;

 	}

 	GetClientName(target, arg, sizeof(arg));

 	if (len == -1)

 	{

 		/* Safely null terminate */

 		len = 0;

 		Arguments[0] = '\0';

 	}

 	ShowActivity(client, "%t", "Kicked player", arg);

 	LogMessage("\"%L\" kicked \"%L\" (reason \"%s\")", client, target, Arguments[len]);

 	KickClient(target, "%s", Arguments[len]);

 	return Plugin_Handled;

 }

 public Action:Command_CancelVote(client, args)

 {

 	if (!IsVoteInProgress())

 	{

 		ReplyToCommand(client, "[SM] %t", "Vote Not In Progress");

 		return Plugin_Handled;

 	}

 	ShowActivity(client, "%t", "Cancelled Vote");

 	CancelVote();

 	return Plugin_Handled;

 }