plugins/basebans.sp
author David Anderson <dvander@alliedmods.net>
Fri Jul 11 05:14:32 2008 +0000 (2008-07-11)
branchrefac-jit
changeset 2190 880e81f30b5e
parent 2168 c24a6fa957db
permissions -rw-r--r--
GetContext() now returns 'this' as a hack (shouldn't+can't be accessed anyway)
dvander@2168
     1
/**
dvander@2168
     2
 * vim: set ts=4 :
dvander@2168
     3
 * =============================================================================
dvander@2168
     4
 * SourceMod Basic Commands Plugin
dvander@2168
     5
 * Implements basic admin commands.
dvander@2168
     6
 *
dvander@2168
     7
 * SourceMod (C)2004-2008 AlliedModders LLC.  All rights reserved.
dvander@2168
     8
 * =============================================================================
dvander@2168
     9
 *
dvander@2168
    10
 * This program is free software; you can redistribute it and/or modify it under
dvander@2168
    11
 * the terms of the GNU General Public License, version 3.0, as published by the
dvander@2168
    12
 * Free Software Foundation.
dvander@2168
    13
 * 
dvander@2168
    14
 * This program is distributed in the hope that it will be useful, but WITHOUT
dvander@2168
    15
 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
dvander@2168
    16
 * FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more
dvander@2168
    17
 * details.
dvander@2168
    18
 *
dvander@2168
    19
 * You should have received a copy of the GNU General Public License along with
dvander@2168
    20
 * this program.  If not, see <http://www.gnu.org/licenses/>.
dvander@2168
    21
 *
dvander@2168
    22
 * As a special exception, AlliedModders LLC gives you permission to link the
dvander@2168
    23
 * code of this program (as well as its derivative works) to "Half-Life 2," the
dvander@2168
    24
 * "Source Engine," the "SourcePawn JIT," and any Game MODs that run on software
dvander@2168
    25
 * by the Valve Corporation.  You must obey the GNU General Public License in
dvander@2168
    26
 * all respects for all other code used.  Additionally, AlliedModders LLC grants
dvander@2168
    27
 * this exception to all derivative works.  AlliedModders LLC defines further
dvander@2168
    28
 * exceptions, found in LICENSE.txt (as of this writing, version JULY-31-2007),
dvander@2168
    29
 * or <http://www.sourcemod.net/license.php>.
dvander@2168
    30
 *
dvander@2168
    31
 * Version: $Id$
dvander@2168
    32
 */
dvander@2168
    33
dvander@2168
    34
#pragma semicolon 1
dvander@2168
    35
dvander@2168
    36
#include <sourcemod>
dvander@2168
    37
#undef REQUIRE_PLUGIN
dvander@2168
    38
#include <adminmenu>
dvander@2168
    39
dvander@2168
    40
public Plugin:myinfo =
dvander@2168
    41
{
dvander@2168
    42
	name = "Basic Ban Commands",
dvander@2168
    43
	author = "AlliedModders LLC",
dvander@2168
    44
	description = "Basic Banning Commands",
dvander@2168
    45
	version = SOURCEMOD_VERSION,
dvander@2168
    46
	url = "http://www.sourcemod.net/"
dvander@2168
    47
};
dvander@2168
    48
dvander@2168
    49
new Handle:hTopMenu = INVALID_HANDLE;
dvander@2168
    50
dvander@2168
    51
new g_BanTarget[MAXPLAYERS+1];
dvander@2168
    52
new g_BanTime[MAXPLAYERS+1];
dvander@2168
    53
dvander@2168
    54
#include "basebans/ban.sp"
dvander@2168
    55
dvander@2168
    56
public OnPluginStart()
dvander@2168
    57
{
dvander@2168
    58
	LoadTranslations("common.phrases");
dvander@2168
    59
	LoadTranslations("basebans.phrases");
dvander@2168
    60
dvander@2168
    61
	RegAdminCmd("sm_ban", Command_Ban, ADMFLAG_BAN, "sm_ban <#userid|name> <minutes|0> [reason]");
dvander@2168
    62
	RegAdminCmd("sm_unban", Command_Unban, ADMFLAG_UNBAN, "sm_unban <steamid>");
dvander@2168
    63
	RegAdminCmd("sm_addban", Command_AddBan, ADMFLAG_RCON, "sm_addban <time> <steamid> [reason]");
dvander@2168
    64
	RegAdminCmd("sm_banip", Command_BanIp, ADMFLAG_BAN, "sm_banip <ip|#userid|name> <time> [reason]");
dvander@2168
    65
	
dvander@2168
    66
	/* Account for late loading */
dvander@2168
    67
	new Handle:topmenu;
dvander@2168
    68
	if (LibraryExists("adminmenu") && ((topmenu = GetAdminTopMenu()) != INVALID_HANDLE))
dvander@2168
    69
	{
dvander@2168
    70
		OnAdminMenuReady(topmenu);
dvander@2168
    71
	}
dvander@2168
    72
}
dvander@2168
    73
dvander@2168
    74
public OnAdminMenuReady(Handle:topmenu)
dvander@2168
    75
{
dvander@2168
    76
	/* Block us from being called twice */
dvander@2168
    77
	if (topmenu == hTopMenu)
dvander@2168
    78
	{
dvander@2168
    79
		return;
dvander@2168
    80
	}
dvander@2168
    81
	
dvander@2168
    82
	/* Save the Handle */
dvander@2168
    83
	hTopMenu = topmenu;
dvander@2168
    84
	
dvander@2168
    85
	/* Find the "Player Commands" category */
dvander@2168
    86
	new TopMenuObject:player_commands = FindTopMenuCategory(hTopMenu, ADMINMENU_PLAYERCOMMANDS);
dvander@2168
    87
dvander@2168
    88
	if (player_commands != INVALID_TOPMENUOBJECT)
dvander@2168
    89
	{
dvander@2168
    90
		AddToTopMenu(hTopMenu,
dvander@2168
    91
			"sm_ban",
dvander@2168
    92
			TopMenuObject_Item,
dvander@2168
    93
			AdminMenu_Ban,
dvander@2168
    94
			player_commands,
dvander@2168
    95
			"sm_ban",
dvander@2168
    96
			ADMFLAG_BAN);
dvander@2168
    97
			
dvander@2168
    98
	}
dvander@2168
    99
}
dvander@2168
   100
dvander@2168
   101
public Action:Command_BanIp(client, args)
dvander@2168
   102
{
dvander@2168
   103
	if (args < 2)
dvander@2168
   104
	{
dvander@2168
   105
		ReplyToCommand(client, "[SM] Usage: sm_banip <ip|#userid|name> <time> [reason]");
dvander@2168
   106
		return Plugin_Handled;
dvander@2168
   107
	}
dvander@2168
   108
dvander@2168
   109
	decl len, next_len;
dvander@2168
   110
	decl String:Arguments[256];
dvander@2168
   111
	decl String:arg[50], String:time[20];
dvander@2168
   112
	
dvander@2168
   113
	GetCmdArgString(Arguments, sizeof(Arguments));
dvander@2168
   114
	len = BreakString(Arguments, arg, sizeof(arg));
dvander@2168
   115
	
dvander@2168
   116
	if ((next_len = BreakString(Arguments[len], time, sizeof(time))) != -1)
dvander@2168
   117
	{
dvander@2168
   118
		len += next_len;
dvander@2168
   119
	}
dvander@2168
   120
	else
dvander@2168
   121
	{
dvander@2168
   122
		len = 0;
dvander@2168
   123
		Arguments[0] = '\0';
dvander@2168
   124
	}
dvander@2168
   125
dvander@2168
   126
	if (StrEqual(arg, "0"))
dvander@2168
   127
	{
dvander@2168
   128
		ReplyToCommand(client, "[SM] %t", "Cannot ban that IP");
dvander@2168
   129
		return Plugin_Handled;
dvander@2168
   130
	}
dvander@2168
   131
	
dvander@2168
   132
	decl String:target_name[MAX_TARGET_LENGTH];
dvander@2168
   133
	decl target_list[1], bool:tn_is_ml;
dvander@2168
   134
	new found_client = -1;
dvander@2168
   135
	
dvander@2168
   136
	if (ProcessTargetString(
dvander@2168
   137
			arg,
dvander@2168
   138
			client, 
dvander@2168
   139
			target_list, 
dvander@2168
   140
			1, 
dvander@2168
   141
			COMMAND_FILTER_CONNECTED|COMMAND_FILTER_NO_MULTI,
dvander@2168
   142
			target_name,
dvander@2168
   143
			sizeof(target_name),
dvander@2168
   144
			tn_is_ml) > 0)
dvander@2168
   145
	{
dvander@2168
   146
		found_client = target_list[0];
dvander@2168
   147
	}
dvander@2168
   148
	
dvander@2168
   149
	new bool:has_rcon;
dvander@2168
   150
	
dvander@2168
   151
	if (client == 0 || (client == 1 && !IsDedicatedServer()))
dvander@2168
   152
	{
dvander@2168
   153
		has_rcon = true;
dvander@2168
   154
	}
dvander@2168
   155
	else
dvander@2168
   156
	{
dvander@2168
   157
		new AdminId:id = GetUserAdmin(client);
dvander@2168
   158
		has_rcon = (id == INVALID_ADMIN_ID) ? false : GetAdminFlag(id, Admin_RCON);
dvander@2168
   159
	}
dvander@2168
   160
	
dvander@2168
   161
	new hit_client = -1;
dvander@2168
   162
	if (found_client != -1
dvander@2168
   163
		&& !IsFakeClient(found_client)
dvander@2168
   164
		&& (has_rcon || CanUserTarget(client, found_client)))
dvander@2168
   165
	{
dvander@2168
   166
		GetClientIP(found_client, arg, sizeof(arg));
dvander@2168
   167
		hit_client = found_client;
dvander@2168
   168
	}
dvander@2168
   169
	
dvander@2168
   170
	if (hit_client == -1 && !has_rcon)
dvander@2168
   171
	{
dvander@2168
   172
		ReplyToCommand(client, "[SM] %t", "No Access");
dvander@2168
   173
		return Plugin_Handled;
dvander@2168
   174
	}
dvander@2168
   175
dvander@2168
   176
	new minutes = StringToInt(time);
dvander@2168
   177
dvander@2168
   178
	LogAction(client, 
dvander@2168
   179
			  hit_client, 
dvander@2168
   180
			  "\"%L\" added ban (minutes \"%d\") (ip \"%s\") (reason \"%s\")", 
dvander@2168
   181
			  client, 
dvander@2168
   182
			  minutes, 
dvander@2168
   183
			  arg, 
dvander@2168
   184
			  Arguments[len]);
dvander@2168
   185
				
dvander@2168
   186
	ReplyToCommand(client, "[SM] %t", "Ban added");
dvander@2168
   187
	
dvander@2168
   188
	BanIdentity(arg, 
dvander@2168
   189
				minutes, 
dvander@2168
   190
				BANFLAG_IP, 
dvander@2168
   191
				Arguments[len], 
dvander@2168
   192
				"sm_banip", 
dvander@2168
   193
				client);
dvander@2168
   194
				
dvander@2168
   195
	if (hit_client != -1)
dvander@2168
   196
	{
dvander@2168
   197
		KickClient(hit_client, "Banned: %s", Arguments[len]);
dvander@2168
   198
	}
dvander@2168
   199
dvander@2168
   200
	return Plugin_Handled;
dvander@2168
   201
}
dvander@2168
   202
dvander@2168
   203
public Action:Command_AddBan(client, args)
dvander@2168
   204
{
dvander@2168
   205
	if (args < 2)
dvander@2168
   206
	{
dvander@2168
   207
		ReplyToCommand(client, "[SM] Usage: sm_addban <time> <steamid> [reason]");
dvander@2168
   208
		return Plugin_Handled;
dvander@2168
   209
	}
dvander@2168
   210
dvander@2168
   211
	decl String:arg_string[256];
dvander@2168
   212
	new String:time[50];
dvander@2168
   213
	new String:authid[50];
dvander@2168
   214
dvander@2168
   215
	GetCmdArgString(arg_string, sizeof(arg_string));
dvander@2168
   216
dvander@2168
   217
	new len, total_len;
dvander@2168
   218
dvander@2168
   219
	/* Get time */
dvander@2168
   220
	if ((len = BreakString(arg_string, time, sizeof(time))) == -1)
dvander@2168
   221
	{
dvander@2168
   222
		ReplyToCommand(client, "t[SM] Usage: sm_addban <time> <steamid> [reason]");
dvander@2168
   223
		return Plugin_Handled;
dvander@2168
   224
	}	
dvander@2168
   225
	total_len += len;
dvander@2168
   226
dvander@2168
   227
	/* Get steamid */
dvander@2168
   228
	if ((len = BreakString(arg_string[total_len], authid, sizeof(authid))) != -1)
dvander@2168
   229
	{
dvander@2168
   230
		total_len += len;
dvander@2168
   231
	}
dvander@2168
   232
	else
dvander@2168
   233
	{
dvander@2168
   234
		total_len = 0;
dvander@2168
   235
		arg_string[0] = '\0';
dvander@2168
   236
	}
dvander@2168
   237
dvander@2168
   238
	/* Verify steamid */
dvander@2168
   239
	if (strncmp(authid, "STEAM_0:", 8) != 0)
dvander@2168
   240
	{
dvander@2168
   241
		ReplyToCommand(client, "[SM] %t", "Invalid SteamID specified");
dvander@2168
   242
		return Plugin_Handled;
dvander@2168
   243
	}
dvander@2168
   244
dvander@2168
   245
	new minutes = StringToInt(time);
dvander@2168
   246
dvander@2168
   247
	LogAction(client, 
dvander@2168
   248
			  -1, 
dvander@2168
   249
			  "\"%L\" added ban (minutes \"%d\") (id \"%s\") (reason \"%s\")", 
dvander@2168
   250
			  client, 
dvander@2168
   251
			  minutes, 
dvander@2168
   252
			  authid, 
dvander@2168
   253
			  arg_string[total_len]);
dvander@2168
   254
	BanIdentity(authid, 
dvander@2168
   255
				minutes, 
dvander@2168
   256
				BANFLAG_AUTHID, 
dvander@2168
   257
				arg_string[total_len], 
dvander@2168
   258
				"sm_addban", 
dvander@2168
   259
				client);
dvander@2168
   260
dvander@2168
   261
	ReplyToCommand(client, "[SM] %t", "Ban added");
dvander@2168
   262
dvander@2168
   263
	return Plugin_Handled;
dvander@2168
   264
}
dvander@2168
   265
dvander@2168
   266
public Action:Command_Unban(client, args)
dvander@2168
   267
{
dvander@2168
   268
	if (args < 1)
dvander@2168
   269
	{
dvander@2168
   270
		ReplyToCommand(client, "[SM] Usage: sm_unban <steamid|ip>");
dvander@2168
   271
		return Plugin_Handled;
dvander@2168
   272
	}
dvander@2168
   273
dvander@2168
   274
	decl String:arg[50];
dvander@2168
   275
	GetCmdArgString(arg, sizeof(arg));
dvander@2168
   276
dvander@2168
   277
	ReplaceString(arg, sizeof(arg), "\"", "");	
dvander@2168
   278
dvander@2168
   279
	new ban_flags;
dvander@2168
   280
	if (strncmp(arg, "STEAM_0:", 8) == 0)
dvander@2168
   281
	{
dvander@2168
   282
		ban_flags |= BANFLAG_AUTHID;
dvander@2168
   283
	}
dvander@2168
   284
	else
dvander@2168
   285
	{
dvander@2168
   286
		ban_flags |= BANFLAG_IP;
dvander@2168
   287
	}
dvander@2168
   288
dvander@2168
   289
	LogAction(client, -1, "\"%L\" removed ban (filter \"%s\")", client, arg);
dvander@2168
   290
	RemoveBan(arg, ban_flags, "sm_unban", client);
dvander@2168
   291
dvander@2168
   292
	ReplyToCommand(client, "[SM] %t", "Removed bans matching", arg);
dvander@2168
   293
dvander@2168
   294
	return Plugin_Handled;
dvander@2168
   295
}
dvander@2168
   296