/**
 * xrdp: A Remote Desktop Protocol server.
 *
 * Copyright (C) Jay Sorg 2004-2014
 *
 * Licensed under the Apache License, Version 2.0 (the "License");
 * you may not use this file except in compliance with the License.
 * You may obtain a copy of the License at
 *
 *     http://www.apache.org/licenses/LICENSE-2.0
 *
 * Unless required by applicable law or agreed to in writing, software
 * distributed under the License is distributed on an "AS IS" BASIS,
 * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
 * See the License for the specific language governing permissions and
 * limitations under the License.
 *
 * main program
 */

#if defined(HAVE_CONFIG_H)
#include <config_ac.h>
#endif

#include <stdarg.h>

#include "xrdp.h"
#include "log.h"
#include "xrdp_configure_options.h"
#include "copying_third_party.h"
#include "string_calls.h"

#if !defined(PACKAGE_VERSION)
#define PACKAGE_VERSION "???"
#endif

static struct xrdp_listen *g_listen = 0;


/*****************************************************************************/
static void
print_license(void)
{
    g_writeln("Third Party Code Additional Copyright Notices and License Terms");
    g_writeln("%s", "");
    g_writeln("Following third-party code are used in xrdp %s:", PACKAGE_VERSION);
    g_writeln("%s", "");
    g_writeln("%s", copying_third_party);
}
/*****************************************************************************/
static void
print_version(void)
{
    g_writeln("xrdp %s", PACKAGE_VERSION);
    g_writeln("  A Remote Desktop Protocol Server.");
    g_writeln("  Copyright (C) 2004-%d Jay Sorg, "
              "Neutrino Labs, and all contributors.",
              VERSION_YEAR);
    g_writeln("  See https://github.com/neutrinolabs/xrdp for more information.");
    g_writeln("%s", "");

#if defined(XRDP_CONFIGURE_OPTIONS)
    g_writeln("  Configure options:");
    g_writeln("%s", XRDP_CONFIGURE_OPTIONS);
#endif

    g_writeln("  Compiled with %s", get_openssl_version());

}

/*****************************************************************************/
static void
print_help(void)
{
    g_writeln("Usage: xrdp [options]");
    g_writeln("   -k, --kill        shut down xrdp");
    g_writeln("   -h, --help        show help");
    g_writeln("   -v, --version     show version");
    g_writeln("   -n, --nodaemon    don't fork into background");
    g_writeln("   -p, --port        tcp listen port");
    g_writeln("   -f, --fork        fork on new connection");
    g_writeln("   -c, --config      specify new path to xrdp.ini");
    g_writeln("       --dump-config display config on stdout on startup");
    g_writeln("       --license     show additional license information");
}

/*****************************************************************************/
/* Signal handler for SIGINT and SIGTERM
 * Note: only signal safe code (eg. setting wait event) should be executed in
 * this function. For more details see `man signal-safety`
 */
static void
xrdp_shutdown(int sig)
{
    g_set_wait_obj(g_get_term());
}

/*****************************************************************************/
/* Signal handler for SIGCHLD
 * Note: only signal safe code (eg. setting wait event) should be executed in
 * this function. For more details see `man signal-safety`
 */
static void
xrdp_child(int sig)
{
    g_set_sigchld(1);
}

/*****************************************************************************/
/**
 * @brief looks for a case-insensitive match of a string in a list
 * @param candidate  String to match
 * @param ... NULL-terminated list of strings to compare the candidate with
 * @return !=0 if the candidate is found in the list
 */
static int nocase_matches(const char *candidate, ...)
{
    va_list vl;
    const char *member;
    int result = 0;

    va_start(vl, candidate);
    while ((member = va_arg(vl, const char *)) != NULL)
    {
        if (g_strcasecmp(candidate, member) == 0)
        {
            result = 1;
            break;
        }
    }

    va_end(vl);
    return result;
}

/*****************************************************************************/
/* No-op signal handler.
 * Note: only signal safe code (eg. setting wait event) should be executed in
 * this function. For more details see `man signal-safety`
 */
static void
xrdp_sig_no_op(int sig)
{
    /* no-op */
}

/*****************************************************************************/
/**
 *
 * @brief  Command line argument parser
 * @param  number of command line arguments
 * @param  pointer array of commandline arguments
 * @param  [out] Returned startup parameters
 * @return 0 on success, n on nth argument is unknown
 *
 */
static int
xrdp_process_params(int argc, char **argv,
                    struct xrdp_startup_params *startup_params)
{
    int index;
    const char *option;
    const char *value;

    index = 1;

    while (index < argc)
    {
        option = argv[index];

        if (index + 1 < argc)
        {
            value = argv[index + 1];
        }
        else
        {
            value = "";
        }

        if (nocase_matches(option, "-help", "--help", "-h", NULL))
        {
            startup_params->help = 1;
        }
        else if (nocase_matches(option, "-kill", "--kill", "-k", NULL))
        {
            startup_params->kill = 1;
        }
        else if (nocase_matches(option, "-nodaemon", "--nodaemon", "-n",
                                "-nd", "--nd", "-ns", "--ns", NULL))
        {
            startup_params->no_daemon = 1;
        }
        else if (nocase_matches(option, "-v", "--version", NULL))
        {
            startup_params->version = 1;
        }
        else if (nocase_matches(option, "-p", "--port", NULL))
        {
            index++;
            g_strncpy(startup_params->port, value,
                      sizeof(startup_params->port) - 1);

            if (g_strlen(startup_params->port) < 1)
            {
                g_writeln("error processing params, port [%s]", startup_params->port);
                return 1;
            }
            else
            {
                g_writeln("--port parameter found, ini override [%s]",
                          startup_params->port);
            }
        }
        else if (nocase_matches(option, "-f", "--fork", NULL))
        {
            startup_params->fork = 1;
            g_writeln("--fork parameter found, ini override");
        }
        else if (nocase_matches(option, "--dump-config", NULL))
        {
            startup_params->dump_config = 1;
        }
        else if (nocase_matches(option, "--license", NULL))
        {
            startup_params->license = 1;
        }
        else if (nocase_matches(option, "-c", "--config", NULL))
        {
            index++;
            startup_params->xrdp_ini = value;
        }
        else /* unknown option */
        {
            return index;
        }

        index++;
    }

    return 0;
}

/*****************************************************************************/
/**
 *
 * @brief  Read additional startup parameters from xrdp.ini
 *
 * @param  [in,out] startup parameters from the command line
 * @return 0 on success
 *
 */
static int
read_xrdp_ini_startup_params(struct xrdp_startup_params *startup_params)
{
    int rv = 0;
    int fd;
    int index;
    int port_override;
    int fork_override;
    const char *name;
    const char *val;
    struct list *names;
    struct list *values;

    port_override = startup_params->port[0] != 0;
    fork_override = startup_params->fork;
    names = list_create();
    names->auto_free = 1;
    values = list_create();
    values->auto_free = 1;

    fd = g_file_open_ro(startup_params->xrdp_ini);
    if (fd < 0)
    {
        LOG(LOG_LEVEL_ERROR, "Can't open %s [%s]", startup_params->xrdp_ini,
            g_get_strerror());
        rv = 1;
    }
    else if (file_read_section(fd, "globals", names, values) != 0)
    {
        LOG(LOG_LEVEL_ERROR, "Can't read [Globals] from %s",
            startup_params->xrdp_ini);
        rv = 1;
    }
    else
    {
        for (index = 0; index < names->count; index++)
        {
            name = (const char *)list_get_item(names, index);
            val = (const char *)list_get_item(values, index);
            if (name == 0 || val == 0)
            {
                continue;
            }

            if (g_strcasecmp(name, "port") == 0)
            {
                if (port_override == 0)
                {
                    g_strncpy(startup_params->port, val,
                              sizeof(startup_params->port) - 1);
                }
            }

            else if (g_strcasecmp(name, "fork") == 0)
            {
                if (fork_override == 0)
                {
                    startup_params->fork = g_text2bool(val);
                }
            }

            else if (g_strcasecmp(name, "tcp_nodelay") == 0)
            {
                startup_params->tcp_nodelay = g_text2bool(val);
            }

            else if (g_strcasecmp(name, "tcp_keepalive") == 0)
            {
                startup_params->tcp_keepalive = g_text2bool(val);
            }

            else if (g_strcasecmp(name, "tcp_send_buffer_bytes") == 0)
            {
                startup_params->tcp_send_buffer_bytes = g_atoi(val);
            }

            else if (g_strcasecmp(name, "tcp_recv_buffer_bytes") == 0)
            {
                startup_params->tcp_recv_buffer_bytes = g_atoi(val);
            }

            else if (g_strcasecmp(name, "use_vsock") == 0)
            {
                LOG(LOG_LEVEL_WARNING,
                    "Config parameter 'use_vsock' is obsolete. "
                    "Use 'port=vsock://...' instead");
                startup_params->use_vsock = g_text2bool(val);
            }

            else if (g_strcasecmp(name, "runtime_user") == 0)
            {
                g_snprintf(startup_params->runtime_user,
                           sizeof(startup_params->runtime_user),
                           "%s", val);
            }

            else if (g_strcasecmp(name, "runtime_group") == 0)
            {
                g_snprintf(startup_params->runtime_group,
                           sizeof(startup_params->runtime_group),
                           "%s", val);
            }
        }
    }

    list_delete(names);
    list_delete(values);
    if (fd >= 0)
    {
        g_file_close(fd);
    }
    return rv;
}


/*****************************************************************************/
/* Basic sanity checks before any forking */
static int
xrdp_sanity_check(void)
{
    int intval = 1;
    int host_be;
    const char *key_file = XRDP_CFG_PATH "/rsakeys.ini";

    /* check compiled endian with actual endian */
    host_be = !((int)(*(unsigned char *)(&intval)));

#if defined(B_ENDIAN)
    if (!host_be)
    {
        g_writeln("Not a big endian machine, edit arch.h");
        return 1;
    }
#endif
#if defined(L_ENDIAN)
    if (host_be)
    {
        g_writeln("Not a little endian machine, edit arch.h");
        return 1;
    }
#endif

    /* check long, int and void* sizes */
#if SIZEOF_INT != 4
#   error unusable int size, must be 4
#endif

#if SIZEOF_LONG != SIZEOF_VOID_P
#   error sizeof(long) must match sizeof(void*)
#endif

#if SIZEOF_LONG != 4 && SIZEOF_LONG != 8
#   error sizeof(long), must be 4 or 8
#endif

    if (sizeof(tui64) != 8)
    {
        g_writeln("unusable tui64 size, must be 8");
        return 1;
    }

    if (!g_file_exist(key_file))
    {
        g_writeln("File %s is missing, create it using xrdp-keygen", key_file);
        return 1;
    }

    return 0;
}

/*****************************************************************************/
static int
check_drop_privileges(struct xrdp_startup_params *startup_params)
{
    int rv = 1;
    const char *user = startup_params->runtime_user;
    const char *group = startup_params->runtime_group;
    int entry_uid = g_getuid();
    int entry_gid = g_getgid();

    // Regard a user as privileged if either the UID or GID is zero
    int privileged_user = (entry_uid == 0 || entry_gid == 0);
    if (!privileged_user)
    {
        // xrdp daemon UID:GID is already set by whatever started it. We'll
        // log this as it may be unexpected and continue. We don't have
        // any privilege to override this.
        LOG(LOG_LEVEL_INFO,
            "xrdp is already running as an unprivileged user uid=%d gid=%d",
            entry_uid, entry_gid);
        rv = 0;
    }
    else if (user[0] == '\0' && group[0] == '\0')
    {
        // We're running as a privileged user, and this isn't
        // overridden in our own config
        LOG(LOG_LEVEL_ALWAYS,
            "You are running xrdp as uid=%d gid=%d. This is not recommended.",
            entry_uid, entry_gid);
        rv = 0; // Allowed for now for old configs
    }
    else if (user[0] == '\0' || group[0] == '\0')
    {
        LOG(LOG_LEVEL_ERROR,
            "Both a runtime_user and a runtime_group MUST be specified");
    }
    else
    {
        rv = g_drop_privileges(user, group);
        if (rv == 0)
        {
            LOG(LOG_LEVEL_INFO, "Switched user:group to %s:%s", user, group);
        }
    }

    return rv;
}

/*****************************************************************************/
static int
read_pid_file(const char *pid_file)
{
    int pid = -1;
    int fd = g_file_open_ro(pid_file); /* xrdp.pid */
    if (fd >= 0)
    {
        char text[32];
        g_memset(text, 0, sizeof(text));
        g_file_read(fd, text, sizeof(text) - 1);
        pid = g_atoi(text);
        g_file_close(fd);
    }

    return pid;
}

/*****************************************************************************/
/**
 * Kills an active xrdp daemon
 *
 * It is assumed that logging is not active
 *
 * @param pid_file PID file
 * @return 0 for success
 */
static int
kill_daemon(const char *pid_file)
{
    int status = 1;
    int pid;
    if (g_getuid() != 0)
    {
        g_writeln("Must be root");
    }
    else if ((pid = read_pid_file(pid_file)) > 0)
    {
        if (!g_pid_is_active(pid))
        {
            g_writeln("Daemon not active");
            status = 0;
        }
        else
        {
            g_writeln("stopping process id %d", pid);
            int i;
            g_sigterm(pid);
            g_sleep(100);
            i = 5 * 1000 / 500;
            while (i > 0 && g_pid_is_active(pid))
            {
                g_sleep(500);
                --i;
            }

            if (g_pid_is_active(pid))
            {
                g_writeln("Can't stop process");
            }
            else
            {
                status = 0;
            }
        }

        if (status == 0)
        {
            /* delete the xrdp.pid file, as xrdp can't do this
             * if it's running without privilege */
            g_file_delete(pid_file);
        }
    }

    return status;
}

/*****************************************************************************/
int
main(int argc, char **argv)
{
    int exit_status = 1;
    enum logReturns error;
    struct xrdp_startup_params startup_params = {0};
    int pid;
    int daemon_pid = 0;
    int daemon;
    char text[256];
    const char *pid_file = XRDP_PID_PATH "/xrdp.pid";
    int errored_argc;

#ifdef USE_DEVEL_LOGGING
    int test;
    for (test = 0; test < argc; test++)
    {
        g_writeln("Argument %i - %s", test, argv[test]);
    }
#endif

    g_init("xrdp");
    ssl_init();

    startup_params.xrdp_ini = XRDP_CFG_PATH "/xrdp.ini";

    errored_argc = xrdp_process_params(argc, argv, &startup_params);
    if (errored_argc > 0)
    {
        print_version();
        g_writeln("%s", "");
        print_help();
        g_writeln("%s", "");

        g_writeln("Unknown option: %s", argv[errored_argc]);
        g_deinit();
        g_exit(1);
    }

    if (startup_params.help)
    {
        print_version();
        g_writeln("%s", "");
        print_help();

        g_deinit();
        g_exit(0);
    }

    if (startup_params.version)
    {
        print_version();
        g_deinit();
        g_exit(0);
    }

    if (startup_params.license)
    {
        print_license();
        g_deinit();
        g_exit(0);
    }

    if (xrdp_sanity_check() != 0)
    {
        g_writeln("Fatal error occurred, exiting");
        g_deinit();
        g_exit(1);
    }

    if (startup_params.kill)
    {
        int status = kill_daemon(pid_file);
        g_deinit();
        g_exit(status);
    }

    /* starting logging subsystem */
    error = log_start(startup_params.xrdp_ini, "xrdp",
                      (startup_params.dump_config) ? LOG_START_DUMP_CONFIG : 0);

    if (error != LOG_STARTUP_OK)
    {
        switch (error)
        {
            case LOG_ERROR_MALLOC:
                g_writeln("error on malloc. cannot start logging. quitting.");
                break;
            case LOG_ERROR_FILE_OPEN:
                g_writeln("error opening log file [%s]. quitting.",
                          getLogFile(text, 255));
                break;
            case LOG_ERROR_NO_CFG:
                g_writeln("config file %s unreadable or missing",
                          startup_params.xrdp_ini);
                break;
            default:
                g_writeln("log_start error");
                break;
        }

        g_deinit();
        g_exit(1);
    }

    if (read_xrdp_ini_startup_params(&startup_params) != 0)
    {
        log_end();
        g_deinit();
        g_exit(1);
    }

    if ((pid = read_pid_file(pid_file)) > 0 && g_pid_is_active(pid))
    {
        LOG(LOG_LEVEL_ALWAYS,
            "It looks like xrdp (pid=%d) is already running.", pid);
        LOG(LOG_LEVEL_ALWAYS, "If not, delete %s and try again.", pid_file);
        log_end();
        g_deinit();
        g_exit(1);
    }

    daemon = !startup_params.no_daemon;


    if (daemon)
    {
        /* make sure containing directory exists */
        g_create_path(pid_file);

        /* make sure we can write to pid file */
        int pid_fd = g_file_open_rw(pid_file); /* xrdp.pid */

        if (pid_fd == -1)
        {
            LOG(LOG_LEVEL_ALWAYS,
                "running in daemon mode with no access to pid files, quitting");
            log_end();
            g_deinit();
            g_exit(1);
        }

        /* Before daemonising, check we can listen.
         * If we can't listen, exit with failure status */
        struct xrdp_listen *xrdp_listen;
        xrdp_listen = xrdp_listen_create(&startup_params);
        int status = xrdp_listen_init(xrdp_listen);
        xrdp_listen_delete(xrdp_listen);

        if (status != 0)
        {
            LOG(LOG_LEVEL_ALWAYS, "Failed to start xrdp daemon, "
                "possibly address already in use.");
            log_end();
            g_deinit();
            /* must exit with failure status,
               or systemd cannot detect xrdp daemon couldn't start properly */
            g_exit(1);
        }

        /* start of daemonizing code */
        pid = g_fork();

        if (pid == -1)
        {
            LOG(LOG_LEVEL_ALWAYS, "problem forking [%s]", g_get_strerror());
            log_end();
            g_deinit();
            g_exit(1);
        }

        if (0 != pid)
        {
            /* exit, this is the main process */
            log_end();
            g_deinit();
            g_exit(0);
        }

        daemon_pid = g_getpid();
        g_sleep(1000);
        /* write our pid to file */
        g_sprintf(text, "%d", g_getpid());
        g_file_write(pid_fd, text, g_strlen(text));
        g_file_close(pid_fd);

        g_sleep(1000);
        g_file_close(0);
        g_file_close(1);
        g_file_close(2);

        if (g_file_open_rw("/dev/null") < 0)
        {
        }

        if (g_file_open_rw("/dev/null") < 0)
        {
        }

        if (g_file_open_rw("/dev/null") < 0)
        {
        }

        /* end of daemonizing code */
    }

    g_listen = xrdp_listen_create(&startup_params);
    if (xrdp_listen_init(g_listen) != 0)
    {
        LOG(LOG_LEVEL_ALWAYS, "Failed to start xrdp daemon, "
            "possibly address already in use.");
    }
    else if (check_drop_privileges(&startup_params) == 0)
    {
        g_set_threadid(tc_get_threadid());
        g_signal_user_interrupt(xrdp_shutdown); /* SIGINT */
        g_signal_pipe(xrdp_sig_no_op);          /* SIGPIPE */
        g_signal_terminate(xrdp_shutdown);      /* SIGTERM */
        g_signal_child_stop(xrdp_child);        /* SIGCHLD */
        g_signal_hang_up(xrdp_sig_no_op);       /* SIGHUP */
        g_set_sync_mutex(tc_mutex_create());
        g_set_sync1_mutex(tc_mutex_create());
        pid = g_getpid();
        LOG(LOG_LEVEL_INFO, "starting xrdp with pid %d", pid);
        g_snprintf(text, 255, "xrdp_%8.8x_main_term", pid);
        g_set_term_event(g_create_wait_obj(text));

        if (g_get_term() == 0)
        {
            LOG(LOG_LEVEL_WARNING, "error creating g_term_event");
        }

        g_snprintf(text, 255, "xrdp_%8.8x_main_sigchld", pid);
        g_set_sigchld_event(g_create_wait_obj(text));

        if (g_get_sigchld() == 0)
        {
            LOG(LOG_LEVEL_WARNING, "error creating g_sigchld_event");
        }

        g_snprintf(text, 255, "xrdp_%8.8x_main_sync", pid);
        g_set_sync_event(g_create_wait_obj(text));

        if (g_get_sync_event() == 0)
        {
            LOG(LOG_LEVEL_WARNING, "error creating g_sync_event");
        }

        exit_status = xrdp_listen_main_loop(g_listen);
    }

    xrdp_listen_delete(g_listen);

    tc_mutex_delete(g_get_sync_mutex());
    g_set_sync_mutex(0);

    tc_mutex_delete(g_get_sync1_mutex());
    g_set_sync1_mutex(0);

    g_delete_wait_obj(g_get_term());
    g_set_term_event(0);

    g_delete_wait_obj(g_get_sigchld());
    g_set_sigchld_event(0);

    g_delete_wait_obj(g_get_sync_event());
    g_set_sync_event(0);

    if (daemon && (daemon_pid == g_getpid()))
    {
        /* Try to delete the PID file, although if we've dropped
         * privileges this won't be successful */
        g_file_delete(pid_file);
    }

    log_end();
    g_deinit();

    if (exit_status == 0)
    {
        g_exit(0);
    }
    else
    {
        g_exit(1);
    }

    return 0;
}