/***************************************************************************
 * ncat_lua.c -- ncat lua facilities                                       *
 ***********************IMPORTANT NMAP LICENSE TERMS************************
 *
 * The Nmap Security Scanner is (C) 1996-2024 Nmap Software LLC ("The Nmap
 * Project"). Nmap is also a registered trademark of the Nmap Project.
 *
 * This program is distributed under the terms of the Nmap Public Source
 * License (NPSL). The exact license text applying to a particular Nmap
 * release or source code control revision is contained in the LICENSE
 * file distributed with that version of Nmap or source code control
 * revision. More Nmap copyright/legal information is available from
 * https://nmap.org/book/man-legal.html, and further information on the
 * NPSL license itself can be found at https://nmap.org/npsl/ . This
 * header summarizes some key points from the Nmap license, but is no
 * substitute for the actual license text.
 *
 * Nmap is generally free for end users to download and use themselves,
 * including commercial use. It is available from https://nmap.org.
 *
 * The Nmap license generally prohibits companies from using and
 * redistributing Nmap in commercial products, but we sell a special Nmap
 * OEM Edition with a more permissive license and special features for
 * this purpose. See https://nmap.org/oem/
 *
 * If you have received a written Nmap license agreement or contract
 * stating terms other than these (such as an Nmap OEM license), you may
 * choose to use and redistribute Nmap under those terms instead.
 *
 * The official Nmap Windows builds include the Npcap software
 * (https://npcap.com) for packet capture and transmission. It is under
 * separate license terms which forbid redistribution without special
 * permission. So the official Nmap Windows builds may not be redistributed
 * without special permission (such as an Nmap OEM license).
 *
 * Source is provided to this software because we believe users have a
 * right to know exactly what a program is going to do before they run it.
 * This also allows you to audit the software for security holes.
 *
 * Source code also allows you to port Nmap to new platforms, fix bugs, and
 * add new features. You are highly encouraged to submit your changes as a
 * Github PR or by email to the dev@nmap.org mailing list for possible
 * incorporation into the main distribution. Unless you specify otherwise, it
 * is understood that you are offering us very broad rights to use your
 * submissions as described in the Nmap Public Source License Contributor
 * Agreement. This is important because we fund the project by selling licenses
 * with various terms, and also because the inability to relicense code has
 * caused devastating problems for other Free Software projects (such as KDE
 * and NASM).
 *
 * The free version of Nmap 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. Warranties,
 * indemnification and commercial support are all available through the
 * Npcap OEM program--see https://nmap.org/oem/
 *
 ***************************************************************************/

/* $Id$ */

#include "ncat.h"
#include "ncat_lua.h"

static lua_State *L;
static int last_function_number;

static void report(char *prefix)
{
    const char *errormsg;
    errormsg = lua_tostring(L, -1);
    if (errormsg == NULL)
        errormsg = "(error object is not a string)";
    bye("%s: %s.", prefix, errormsg);
}

static int traceback (lua_State *LL)
{
    const char *msg;
    msg = lua_tostring(LL, 1);
    if (msg) {
        luaL_traceback(LL, LL, msg, 1);
    } else {
        if (!lua_isnoneornil(LL, 1)) {  /* is there an error object? */
            if (!luaL_callmeta(LL, 1, "__tostring"))  /* try its 'tostring' metamethod */
                lua_pushliteral(LL, "(no error message)");
        }
    }
    return 1;
}

void lua_setup(void)
{
    ncat_assert(o.cmdexec != NULL);

    L = luaL_newstate();
    luaL_openlibs(L);

    if (luaL_loadfile(L, o.cmdexec) != 0)
        report("Error loading the Lua script");

    /* install the traceback function */
    last_function_number = lua_gettop(L);
    lua_pushcfunction(L, traceback);
    lua_insert(L, last_function_number);
}

void lua_run(void)
{
    if (lua_pcall(L, 0, 0, last_function_number) != LUA_OK && !lua_isnil(L, -1)) {
        /* handle the error; the code below is taken from lua.c, Lua source code */
        lua_remove(L, last_function_number);
        report("Error running the Lua script");
    } else {
        if (o.debug)
            logdebug("%s returned successfully.\n", o.cmdexec);
        lua_close(L);
        exit(EXIT_SUCCESS);
    }
}
