aboutsummaryrefslogtreecommitdiff
path: root/src/script/cpp_api/s_security.h
blob: f0eef00bbdab9a77feb6aa6c7b0eaeb675ec7518 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
/*
Minetest
Copyright (C) 2013 celeron55, Perttu Ahola <celeron55@gmail.com>

This program is free software; you can redistribute it and/or modify
it under the terms of the GNU Lesser General Public License as published by
the Free Software Foundation; either version 2.1 of the License, or
(at your option) any later version.

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 Lesser General Public License for more details.

You should have received a copy of the GNU Lesser General Public License along
with this program; if not, write to the Free Software Foundation, Inc.,
51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
*/

#ifndef S_SECURITY_H
#define S_SECURITY_H

#include "cpp_api/s_base.h"


#define CHECK_SECURE_PATH_INTERNAL(L, path, write_required, ptr) \
	if (!ScriptApiSecurity::checkPath(L, path, write_required, ptr)) { \
		throw LuaError(std::string("Mod security: Blocked attempted ") + \
				(write_required ? "write to " : "read from ") + path); \
	}
#define CHECK_SECURE_PATH(L, path, write_required) \
	if (ScriptApiSecurity::isSecure(L)) { \
		CHECK_SECURE_PATH_INTERNAL(L, path, write_required, NULL); \
	}
#define CHECK_SECURE_PATH_POSSIBLE_WRITE(L, path, ptr) \
	if (ScriptApiSecurity::isSecure(L)) { \
		CHECK_SECURE_PATH_INTERNAL(L, path, false, ptr); \
	}


class ScriptApiSecurity : virtual public ScriptApiBase
{
public:
	int backupGlobals(lua_State *L);
	// Sets up security on the ScriptApi's Lua state
	void initializeSecurity();
	void initializeSecurityClient();
	// Checks if the Lua state has been secured
	static bool isSecure(lua_State *L);
	// Loads a file as Lua code safely (doesn't allow bytecode).
	static bool safeLoadFile(lua_State *L, const char *path);
	// Checks if mods are allowed to read (and optionally write) to the path
	static bool checkPath(lua_State *L, const char *path, bool write_required,
			bool *write_allowed=NULL);

private:
	// Syntax: "sl_" <Library name or 'g' (global)> '_' <Function name>
	// (sl stands for Secure Lua)

	static int sl_g_dofile(lua_State *L);
	static int sl_g_load(lua_State *L);
	static int sl_g_loadfile(lua_State *L);
	static int sl_g_loadstring(lua_State *L);
	static int sl_g_require(lua_State *L);

	static int sl_io_open(lua_State *L);
	static int sl_io_input(lua_State *L);
	static int sl_io_output(lua_State *L);
	static int sl_io_lines(lua_State *L);

	static int sl_os_rename(lua_State *L);
	static int sl_os_remove(lua_State *L);
};

#endif

th Floor, Boston, MA 02110-1301 USA. */ #include "cpp_api/s_env.h" #include "cpp_api/s_internal.h" #include "common/c_converter.h" #include "log.h" #include "environment.h" #include "mapgen.h" #include "lua_api/l_env.h" #include "server.h" void ScriptApiEnv::environment_OnGenerated(v3s16 minp, v3s16 maxp, u32 blockseed) { SCRIPTAPI_PRECHECKHEADER // Get core.registered_on_generateds lua_getglobal(L, "core"); lua_getfield(L, -1, "registered_on_generateds"); // Call callbacks push_v3s16(L, minp); push_v3s16(L, maxp); lua_pushnumber(L, blockseed); runCallbacks(3, RUN_CALLBACKS_MODE_FIRST); } void ScriptApiEnv::environment_Step(float dtime) { SCRIPTAPI_PRECHECKHEADER //infostream << "scriptapi_environment_step" << std::endl; // Get core.registered_globalsteps lua_getglobal(L, "core"); lua_getfield(L, -1, "registered_globalsteps"); // Call callbacks lua_pushnumber(L, dtime); try { runCallbacks(1, RUN_CALLBACKS_MODE_FIRST); } catch (LuaError &e) { getServer()->setAsyncFatalError( std::string("environment_Step: ") + e.what() + "\n" + script_get_backtrace(L)); } } void ScriptApiEnv::player_event(ServerActiveObject *player, const std::string &type) { SCRIPTAPI_PRECHECKHEADER if (player == NULL) return; // Get minetest.registered_playerevents lua_getglobal(L, "minetest"); lua_getfield(L, -1, "registered_playerevents"); // Call callbacks objectrefGetOrCreate(L, player); // player lua_pushstring(L,type.c_str()); // event type try { runCallbacks(2, RUN_CALLBACKS_MODE_FIRST); } catch (LuaError &e) { getServer()->setAsyncFatalError( std::string("player_event: ") + e.what() + "\n" + script_get_backtrace(L) ); } } void ScriptApiEnv::initializeEnvironment(ServerEnvironment *env) { SCRIPTAPI_PRECHECKHEADER verbosestream << "scriptapi_add_environment" << std::endl; setEnv(env); /* Add {Loading,Active}BlockModifiers to environment */ // Get core.registered_abms lua_getglobal(L, "core"); lua_getfield(L, -1, "registered_abms"); int registered_abms = lua_gettop(L); if (!lua_istable(L, registered_abms)) { lua_pop(L, 1); throw LuaError("core.registered_abms was not a lua table, as expected."); } lua_pushnil(L); while (lua_next(L, registered_abms)) { // key at index -2 and value at index -1 int id = lua_tonumber(L, -2); int current_abm = lua_gettop(L); std::set<std::string> trigger_contents; lua_getfield(L, current_abm, "nodenames"); if (lua_istable(L, -1)) { int table = lua_gettop(L); lua_pushnil(L); while (lua_next(L, table)) { // key at index -2 and value at index -1 luaL_checktype(L, -1, LUA_TSTRING); trigger_contents.insert(lua_tostring(L, -1)); // removes value, keeps key for next iteration lua_pop(L, 1); } } else if (lua_isstring(L, -1)) { trigger_contents.insert(lua_tostring(L, -1)); } lua_pop(L, 1); std::set<std::string> required_neighbors; lua_getfield(L, current_abm, "neighbors"); if (lua_istable(L, -1)) { int table = lua_gettop(L); lua_pushnil(L); while (lua_next(L, table)) { // key at index -2 and value at index -1 luaL_checktype(L, -1, LUA_TSTRING); required_neighbors.insert(lua_tostring(L, -1)); // removes value, keeps key for next iteration lua_pop(L, 1); } } else if (lua_isstring(L, -1)) { required_neighbors.insert(lua_tostring(L, -1)); } lua_pop(L, 1); float trigger_interval = 10.0; getfloatfield(L, current_abm, "interval", trigger_interval); int trigger_chance = 50; getintfield(L, current_abm, "chance", trigger_chance); bool simple_catch_up = true; getboolfield(L, current_abm, "catch_up", simple_catch_up); LuaABM *abm = new LuaABM(L, id, trigger_contents, required_neighbors, trigger_interval, trigger_chance, simple_catch_up); env->addActiveBlockModifier(abm); // removes value, keeps key for next iteration lua_pop(L, 1); } lua_pop(L, 1); // Get core.registered_lbms lua_getglobal(L, "core"); lua_getfield(L, -1, "registered_lbms"); int registered_lbms = lua_gettop(L); if (!lua_istable(L, registered_lbms)) { lua_pop(L, 1); throw LuaError("core.registered_lbms was not a lua table, as expected."); } lua_pushnil(L); while (lua_next(L, registered_lbms)) { // key at index -2 and value at index -1 int id = lua_tonumber(L, -2); int current_lbm = lua_gettop(L); std::set<std::string> trigger_contents; lua_getfield(L, current_lbm, "nodenames"); if (lua_istable(L, -1)) { int table = lua_gettop(L); lua_pushnil(L); while (lua_next(L, table)) { // key at index -2 and value at index -1 luaL_checktype(L, -1, LUA_TSTRING); trigger_contents.insert(lua_tostring(L, -1)); // removes value, keeps key for next iteration lua_pop(L, 1); } } else if (lua_isstring(L, -1)) { trigger_contents.insert(lua_tostring(L, -1)); } lua_pop(L, 1); std::string name; getstringfield(L, current_lbm, "name", name); bool run_at_every_load = getboolfield_default(L, current_lbm, "run_at_every_load", false); LuaLBM *lbm = new LuaLBM(L, id, trigger_contents, name, run_at_every_load); env->addLoadingBlockModifierDef(lbm); // removes value, keeps key for next iteration lua_pop(L, 1); } lua_pop(L, 1); } void ScriptApiEnv::on_emerge_area_completion( v3s16 blockpos, int action, ScriptCallbackState *state) { Server *server = getServer(); // This function should be executed with envlock held. // The caller (LuaEmergeAreaCallback in src/script/lua_api/l_env.cpp) // should have obtained the lock. // Note that the order of these locks is important! Envlock must *ALWAYS* // be acquired before attempting to acquire scriptlock, or else ServerThread // will try to acquire scriptlock after it already owns envlock, thus // deadlocking EmergeThread and ServerThread SCRIPTAPI_PRECHECKHEADER int error_handler = PUSH_ERROR_HANDLER(L); lua_rawgeti(L, LUA_REGISTRYINDEX, state->callback_ref); luaL_checktype(L, -1, LUA_TFUNCTION); push_v3s16(L, blockpos); lua_pushinteger(L, action); lua_pushinteger(L, state->refcount); lua_rawgeti(L, LUA_REGISTRYINDEX, state->args_ref); setOriginDirect(state->origin.c_str()); try { PCALL_RES(lua_pcall(L, 4, 0, error_handler)); } catch (LuaError &e) { server->setAsyncFatalError( std::string("on_emerge_area_completion: ") + e.what() + "\n" + script_get_backtrace(L)); } lua_pop(L, 1); // Pop error handler if (state->refcount == 0) { luaL_unref(L, LUA_REGISTRYINDEX, state->callback_ref); luaL_unref(L, LUA_REGISTRYINDEX, state->args_ref); } }