dvander@1423: /**
dvander@1423:  * vim: set ts=4 :
dvander@1423:  * =============================================================================
dvander@1423:  * SourceMod Basic Commands Plugin
dvander@1423:  * Implements basic admin commands.
dvander@1423:  *
ds@1947:  * SourceMod (C)2004-2008 AlliedModders LLC.  All rights reserved.
dvander@1423:  * =============================================================================
dvander@1423:  *
dvander@1423:  * This program is free software; you can redistribute it and/or modify it under
dvander@1423:  * the terms of the GNU General Public License, version 3.0, as published by the
dvander@1423:  * Free Software Foundation.
dvander@1423:  * 
dvander@1423:  * This program is distributed in the hope that it will be useful, but WITHOUT
dvander@1423:  * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
dvander@1423:  * FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more
dvander@1423:  * details.
dvander@1423:  *
dvander@1423:  * You should have received a copy of the GNU General Public License along with
dvander@1423:  * this program.  If not, see <http://www.gnu.org/licenses/>.
dvander@1423:  *
dvander@1423:  * As a special exception, AlliedModders LLC gives you permission to link the
dvander@1423:  * code of this program (as well as its derivative works) to "Half-Life 2," the
dvander@1423:  * "Source Engine," the "SourcePawn JIT," and any Game MODs that run on software
dvander@1423:  * by the Valve Corporation.  You must obey the GNU General Public License in
dvander@1423:  * all respects for all other code used.  Additionally, AlliedModders LLC grants
dvander@1423:  * this exception to all derivative works.  AlliedModders LLC defines further
dvander@1423:  * exceptions, found in LICENSE.txt (as of this writing, version JULY-31-2007),
dvander@1423:  * or <http://www.sourcemod.net/license.php>.
dvander@1423:  *
dvander@1423:  * Version: $Id$
dvander@1423:  */
dvander@1423: 
dvander@1423: #pragma semicolon 1
dvander@1423: 
dvander@1423: #include <sourcemod>
pred@1536: #undef REQUIRE_PLUGIN
pred@1536: #include <adminmenu>
dvander@1423: 
dvander@1423: public Plugin:myinfo =
dvander@1423: {
dvander@1423: 	name = "Basic Ban Commands",
dvander@1423: 	author = "AlliedModders LLC",
dvander@1423: 	description = "Basic Banning Commands",
dvander@1423: 	version = SOURCEMOD_VERSION,
dvander@1423: 	url = "http://www.sourcemod.net/"
dvander@1423: };
dvander@1423: 
pred@1536: new Handle:hTopMenu = INVALID_HANDLE;
pred@1536: 
pred@1536: new g_BanTarget[MAXPLAYERS+1];
pred@2221: new g_BanTargetUserId[MAXPLAYERS+1];
pred@1536: new g_BanTime[MAXPLAYERS+1];
pred@1536: 
CPUCalc@4089: new g_IsWaitingForChatReason[MAXPLAYERS+1];
CPUCalc@4089: new Handle:g_hKvBanReasons;
CPUCalc@4089: new String:g_BanReasonsPath[PLATFORM_MAX_PATH];
CPUCalc@4089: 
pred@1536: #include "basebans/ban.sp"
pred@1536: 
CPUCalc@4089: public APLRes:AskPluginLoad2(Handle:myself, bool:late, String:error[], err_max)
CPUCalc@4089: {
CPUCalc@4089: 	BuildPath(Path_SM, g_BanReasonsPath, sizeof(g_BanReasonsPath), "configs/banreasons.txt");
CPUCalc@4089: 	if(LoadBanReasons())
CPUCalc@4089: 	{
CPUCalc@4089: 		return APLRes_Success;
CPUCalc@4089: 	}
CPUCalc@4089: 	else
CPUCalc@4089: 	{
CPUCalc@4089: 		Format(error, err_max, "Couldn't load file %s: See log for details.", g_BanReasonsPath);
CPUCalc@4089: 		return APLRes_Failure;
CPUCalc@4089: 	}
CPUCalc@4089: }
CPUCalc@4089: 
dvander@1423: public OnPluginStart()
dvander@1423: {
dvander@1423: 	LoadTranslations("common.phrases");
dvander@1625: 	LoadTranslations("basebans.phrases");
CPUCalc@4089: 	LoadTranslations("core.phrases");
dvander@1423: 
dvander@1423: 	RegAdminCmd("sm_ban", Command_Ban, ADMFLAG_BAN, "sm_ban <#userid|name> <minutes|0> [reason]");
skamonkey@2932: 	RegAdminCmd("sm_unban", Command_Unban, ADMFLAG_UNBAN, "sm_unban <steamid|ip>");
dvander@1423: 	RegAdminCmd("sm_addban", Command_AddBan, ADMFLAG_RCON, "sm_addban <time> <steamid> [reason]");
dvander@2030: 	RegAdminCmd("sm_banip", Command_BanIp, ADMFLAG_BAN, "sm_banip <ip|#userid|name> <time> [reason]");
pred@1536: 	
CPUCalc@4089: 	//This to manage custom ban reason messages
CPUCalc@4089: 	RegConsoleCmd("sm_abortban", Command_AbortBan, "sm_abortban");
CPUCalc@4089: 	
pred@1536: 	/* Account for late loading */
pred@1536: 	new Handle:topmenu;
pred@1536: 	if (LibraryExists("adminmenu") && ((topmenu = GetAdminTopMenu()) != INVALID_HANDLE))
pred@1536: 	{
pred@1536: 		OnAdminMenuReady(topmenu);
pred@1536: 	}
pred@1536: }
pred@1536: 
CPUCalc@4089: public OnPluginEnd()
CPUCalc@4089: {
CPUCalc@4089: 	//Close kv-handle
CPUCalc@4089: 	if(g_hKvBanReasons != INVALID_HANDLE)
CPUCalc@4089: 	{
CPUCalc@4089: 		CloseHandle(g_hKvBanReasons);
CPUCalc@4089: 	}
CPUCalc@4089: }
CPUCalc@4089: 
CPUCalc@4089: public OnMapStart()
CPUCalc@4089: {
CPUCalc@4089: 	//(Re-)Load BanReasons
CPUCalc@4089: 	if(g_hKvBanReasons != INVALID_HANDLE)
CPUCalc@4089: 	{
CPUCalc@4089: 		CloseHandle(g_hKvBanReasons);
CPUCalc@4089: 	}
CPUCalc@4089: 	if(!LoadBanReasons())
CPUCalc@4089: 	{
CPUCalc@4089: 		SetFailState("Error trying to load or parse %s: See logfile for details", g_BanReasonsPath);
CPUCalc@4089: 	}
CPUCalc@4089: }
CPUCalc@4089: 
CPUCalc@4089: public OnClientDisconnect(client)
CPUCalc@4089: {
CPUCalc@4089: 	g_IsWaitingForChatReason[client] = false;
CPUCalc@4089: }
CPUCalc@4089: 
CPUCalc@4089: public bool:LoadBanReasons()
CPUCalc@4089: {
CPUCalc@4089: 	g_hKvBanReasons = CreateKeyValues("banreasons");
CPUCalc@4089: 	if(FileToKeyValues(g_hKvBanReasons, g_BanReasonsPath))
CPUCalc@4089: 	{
CPUCalc@4089: 		decl String:sectionName[255];
CPUCalc@4089: 		if(!KvGetSectionName(g_hKvBanReasons, sectionName, sizeof(sectionName)))
CPUCalc@4089: 		{
CPUCalc@4089: 			LogMessage("Error in %s: File corrupt or in the wrong format", g_BanReasonsPath);
CPUCalc@4089: 			return false;
CPUCalc@4089: 		}
CPUCalc@4089: 		if(strcmp(sectionName, "banreasons") != 0)
CPUCalc@4089: 		{
CPUCalc@4089: 			LogMessage("Error in %s: Couldn't find 'banreasons'", g_BanReasonsPath);
CPUCalc@4089: 			return false;
CPUCalc@4089: 		}
CPUCalc@4089: 		
CPUCalc@4089: 		//Reset kvHandle
CPUCalc@4089: 		KvRewind(g_hKvBanReasons);
CPUCalc@4089: 		
CPUCalc@4089: 		return true;
CPUCalc@4089: 	}
CPUCalc@4089: 	else
CPUCalc@4089: 	{
CPUCalc@4089: 		LogMessage("Error in %s: File not found, corrupt or in the wrong format", g_BanReasonsPath);
CPUCalc@4089: 		return false;
CPUCalc@4089: 	}
CPUCalc@4089: }
CPUCalc@4089: 
pred@1536: public OnAdminMenuReady(Handle:topmenu)
pred@1536: {
pred@1536: 	/* Block us from being called twice */
pred@1536: 	if (topmenu == hTopMenu)
pred@1536: 	{
pred@1536: 		return;
pred@1536: 	}
pred@1536: 	
pred@1536: 	/* Save the Handle */
pred@1536: 	hTopMenu = topmenu;
pred@1536: 	
pred@1536: 	/* Find the "Player Commands" category */
pred@1536: 	new TopMenuObject:player_commands = FindTopMenuCategory(hTopMenu, ADMINMENU_PLAYERCOMMANDS);
pred@1536: 
pred@1536: 	if (player_commands != INVALID_TOPMENUOBJECT)
pred@1536: 	{
pred@1536: 		AddToTopMenu(hTopMenu,
dvander@1600: 			"sm_ban",
pred@1536: 			TopMenuObject_Item,
pred@1536: 			AdminMenu_Ban,
pred@1536: 			player_commands,
pred@1536: 			"sm_ban",
pred@1536: 			ADMFLAG_BAN);
pred@1536: 			
pred@1536: 	}
dvander@1423: }
dvander@1423: 
dvander@1423: public Action:Command_BanIp(client, args)
dvander@1423: {
dvander@1423: 	if (args < 2)
dvander@1423: 	{
dvander@2030: 		ReplyToCommand(client, "[SM] Usage: sm_banip <ip|#userid|name> <time> [reason]");
dvander@1423: 		return Plugin_Handled;
dvander@1423: 	}
dvander@1423: 
dvander@1672: 	decl len, next_len;
dvander@1672: 	decl String:Arguments[256];
dvander@1423: 	decl String:arg[50], String:time[20];
dvander@1672: 	
dvander@1672: 	GetCmdArgString(Arguments, sizeof(Arguments));
dvander@1672: 	len = BreakString(Arguments, arg, sizeof(arg));
dvander@1423: 	
dvander@1672: 	if ((next_len = BreakString(Arguments[len], time, sizeof(time))) != -1)
dvander@1672: 	{
dvander@1672: 		len += next_len;
dvander@1672: 	}
dvander@1672: 	else
dvander@1672: 	{
dvander@1672: 		len = 0;
dvander@1672: 		Arguments[0] = '\0';
dvander@1672: 	}
dvander@1672: 
dvander@1423: 	if (StrEqual(arg, "0"))
dvander@1423: 	{
dvander@1423: 		ReplyToCommand(client, "[SM] %t", "Cannot ban that IP");
dvander@1423: 		return Plugin_Handled;
dvander@1423: 	}
dvander@1423: 	
dvander@1627: 	decl String:target_name[MAX_TARGET_LENGTH];
dvander@1627: 	decl target_list[1], bool:tn_is_ml;
dvander@1627: 	new found_client = -1;
dvander@1627: 	
dvander@1627: 	if (ProcessTargetString(
dvander@1627: 			arg,
dvander@1627: 			client, 
dvander@1627: 			target_list, 
dvander@1627: 			1, 
dvander@1627: 			COMMAND_FILTER_CONNECTED|COMMAND_FILTER_NO_MULTI,
dvander@1627: 			target_name,
dvander@1627: 			sizeof(target_name),
dvander@1627: 			tn_is_ml) > 0)
dvander@1627: 	{
dvander@1627: 		found_client = target_list[0];
dvander@1627: 	}
dvander@1627: 	
dvander@1423: 	new bool:has_rcon;
dvander@1423: 	
dvander@1423: 	if (client == 0 || (client == 1 && !IsDedicatedServer()))
dvander@1423: 	{
dvander@1423: 		has_rcon = true;
dvander@1627: 	}
dvander@1627: 	else
dvander@1627: 	{
dvander@1423: 		new AdminId:id = GetUserAdmin(client);
dvander@1423: 		has_rcon = (id == INVALID_ADMIN_ID) ? false : GetAdminFlag(id, Admin_RCON);
dvander@1423: 	}
dvander@1423: 	
dvander@1423: 	new hit_client = -1;
dvander@1627: 	if (found_client != -1
dvander@1627: 		&& !IsFakeClient(found_client)
dvander@1627: 		&& (has_rcon || CanUserTarget(client, found_client)))
dvander@1423: 	{
dvander@1627: 		GetClientIP(found_client, arg, sizeof(arg));
dvander@1627: 		hit_client = found_client;
dvander@1423: 	}
dvander@1423: 	
dvander@1423: 	if (hit_client == -1 && !has_rcon)
dvander@1423: 	{
dvander@1423: 		ReplyToCommand(client, "[SM] %t", "No Access");
dvander@1423: 		return Plugin_Handled;
dvander@1423: 	}
dvander@1423: 
dvander@1423: 	new minutes = StringToInt(time);
dvander@1423: 
dvander@1423: 	LogAction(client, 
dvander@1423: 			  hit_client, 
dvander@1423: 			  "\"%L\" added ban (minutes \"%d\") (ip \"%s\") (reason \"%s\")", 
dvander@1423: 			  client, 
dvander@1423: 			  minutes, 
dvander@1423: 			  arg, 
dvander@1672: 			  Arguments[len]);
dvander@1627: 				
dvander@1627: 	ReplyToCommand(client, "[SM] %t", "Ban added");
dvander@1627: 	
dvander@1423: 	BanIdentity(arg, 
dvander@1423: 				minutes, 
dvander@1423: 				BANFLAG_IP, 
dvander@1672: 				Arguments[len], 
dvander@1423: 				"sm_banip", 
dvander@1423: 				client);
dvander@1627: 				
dvander@1627: 	if (hit_client != -1)
dvander@1627: 	{
dvander@1672: 		KickClient(hit_client, "Banned: %s", Arguments[len]);
dvander@1627: 	}
dvander@1423: 
dvander@1423: 	return Plugin_Handled;
dvander@1423: }
dvander@1423: 
dvander@1423: public Action:Command_AddBan(client, args)
dvander@1423: {
dvander@1423: 	if (args < 2)
dvander@1423: 	{
dvander@1423: 		ReplyToCommand(client, "[SM] Usage: sm_addban <time> <steamid> [reason]");
dvander@1423: 		return Plugin_Handled;
dvander@1423: 	}
dvander@1423: 
dvander@1423: 	decl String:arg_string[256];
dvander@1423: 	new String:time[50];
dvander@1423: 	new String:authid[50];
dvander@1423: 
dvander@1423: 	GetCmdArgString(arg_string, sizeof(arg_string));
dvander@1423: 
dvander@1423: 	new len, total_len;
dvander@1423: 
dvander@1423: 	/* Get time */
dvander@1423: 	if ((len = BreakString(arg_string, time, sizeof(time))) == -1)
dvander@1423: 	{
erik@3108: 		ReplyToCommand(client, "[SM] Usage: sm_addban <time> <steamid> [reason]");
dvander@1423: 		return Plugin_Handled;
dvander@1423: 	}	
dvander@1423: 	total_len += len;
dvander@1423: 
dvander@1423: 	/* Get steamid */
dvander@1423: 	if ((len = BreakString(arg_string[total_len], authid, sizeof(authid))) != -1)
dvander@1423: 	{
dvander@1423: 		total_len += len;
pred@1736: 	}
pred@1736: 	else
pred@1736: 	{
pred@1736: 		total_len = 0;
pred@1736: 		arg_string[0] = '\0';
dvander@1423: 	}
dvander@1423: 
dvander@1423: 	/* Verify steamid */
rbutler14@2532: 	if (strncmp(authid, "STEAM_", 6) != 0 || authid[7] != ':')
dvander@1423: 	{
dvander@1423: 		ReplyToCommand(client, "[SM] %t", "Invalid SteamID specified");
dvander@1423: 		return Plugin_Handled;
dvander@1423: 	}
dvander@1423: 
dvander@1423: 	new minutes = StringToInt(time);
dvander@1423: 
dvander@1423: 	LogAction(client, 
dvander@1423: 			  -1, 
dvander@1423: 			  "\"%L\" added ban (minutes \"%d\") (id \"%s\") (reason \"%s\")", 
dvander@1423: 			  client, 
dvander@1423: 			  minutes, 
dvander@1423: 			  authid, 
pred@1736: 			  arg_string[total_len]);
dvander@1423: 	BanIdentity(authid, 
dvander@1423: 				minutes, 
dvander@1423: 				BANFLAG_AUTHID, 
pred@1736: 				arg_string[total_len], 
dvander@1423: 				"sm_addban", 
dvander@1423: 				client);
dvander@1423: 
dvander@1423: 	ReplyToCommand(client, "[SM] %t", "Ban added");
dvander@1423: 
dvander@1423: 	return Plugin_Handled;
dvander@1423: }
dvander@1423: 
dvander@1423: public Action:Command_Unban(client, args)
dvander@1423: {
dvander@1423: 	if (args < 1)
dvander@1423: 	{
dvander@1423: 		ReplyToCommand(client, "[SM] Usage: sm_unban <steamid|ip>");
dvander@1423: 		return Plugin_Handled;
dvander@1423: 	}
dvander@1423: 
dvander@1423: 	decl String:arg[50];
dvander@1423: 	GetCmdArgString(arg, sizeof(arg));
dvander@1423: 
dvander@1423: 	ReplaceString(arg, sizeof(arg), "\"", "");	
dvander@1423: 
dvander@1423: 	new ban_flags;
rbutler14@2532: 	if (strncmp(arg, "STEAM_", 6) == 0 && arg[7] == ':')
dvander@1423: 	{
dvander@1423: 		ban_flags |= BANFLAG_AUTHID;
dvander@1423: 	}
dvander@1423: 	else
dvander@1423: 	{
dvander@1423: 		ban_flags |= BANFLAG_IP;
dvander@1423: 	}
dvander@1423: 
dvander@1423: 	LogAction(client, -1, "\"%L\" removed ban (filter \"%s\")", client, arg);
dvander@1423: 	RemoveBan(arg, ban_flags, "sm_unban", client);
dvander@1423: 
dvander@1423: 	ReplyToCommand(client, "[SM] %t", "Removed bans matching", arg);
dvander@1423: 
dvander@1423: 	return Plugin_Handled;
dvander@1423: }
dvander@1423: 
CPUCalc@4089: public Action:Command_AbortBan(client, args)
CPUCalc@4089: {
CPUCalc@4089: 	if(!CheckCommandAccess(client, "sm_ban", ADMFLAG_BAN))
CPUCalc@4089: 	{
CPUCalc@4089: 		ReplyToCommand(client, "[SM] %t", "No Access");
CPUCalc@4089: 		return Plugin_Handled;
CPUCalc@4089: 	}
CPUCalc@4089: 	if(g_IsWaitingForChatReason[client])
CPUCalc@4089: 	{
CPUCalc@4089: 		g_IsWaitingForChatReason[client] = false;
CPUCalc@4089: 		ReplyToCommand(client, "[SM] %t", "AbortBan applied successfully");
CPUCalc@4089: 	}
CPUCalc@4089: 	else
CPUCalc@4089: 	{
CPUCalc@4089: 		ReplyToCommand(client, "[SM] %t", "AbortBan not waiting for custom reason");
CPUCalc@4089: 	}
CPUCalc@4089: 	
CPUCalc@4089: 	return Plugin_Handled;
CPUCalc@4089: }
CPUCalc@4089: 
CPUCalc@4089: public Action:OnClientSayCommand(client, const String:command[], const String:sArgs[])
CPUCalc@4089: {
CPUCalc@4089: 	if(g_IsWaitingForChatReason[client])
CPUCalc@4089: 	{
CPUCalc@4089: 		g_IsWaitingForChatReason[client] = false;
CPUCalc@4089: 		
CPUCalc@4089: 		decl String:message[192];		
CPUCalc@4089: 		GetCmdArgString(message, sizeof(message));
CPUCalc@4089: 		StripQuotes(message);
CPUCalc@4089: 		
CPUCalc@4089: 		PrepareBan(client, g_BanTarget[client], g_BanTime[client], message);
CPUCalc@4089: 		
CPUCalc@4089: 		return Plugin_Handled;
CPUCalc@4089: 	}
CPUCalc@4089: 	return Plugin_Continue;
CPUCalc@4089: }