lbbs/src/net_server.c

/***************************************************************************
                                                  net_server.c  -  description
                                                         -------------------
        Copyright            : (C) 2004-2025 by Leaflet
        Email                : leaflet@leafok.com
 ***************************************************************************/

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

#include "bbs.h"
#include "bbs_main.h"
#include "common.h"
#include "database.h"
#include "file_loader.h"
#include "io.h"
#include "init.h"
#include "log.h"
#include "login.h"
#include "menu.h"
#include "net_server.h"
#include "section_list.h"
#include "section_list_loader.h"
#include <errno.h>
#include <fcntl.h>
#include <signal.h>
#include <stdlib.h>
#include <string.h>
#include <unistd.h>
#include <arpa/inet.h>
#include <libssh/callbacks.h>
#include <libssh/libssh.h>
#include <libssh/server.h>
#include <netinet/in.h>
#include <sys/epoll.h>
#include <sys/socket.h>
#include <sys/syscall.h>
#include <sys/types.h>
#include <sys/wait.h>
#include <systemd/sd-daemon.h>

#define WAIT_CHILD_PROCESS_EXIT_TIMEOUT 5 // second
#define WAIT_CHILD_PROCESS_KILL_TIMEOUT 1 // second

struct process_sockaddr_t
{
        pid_t pid;
        in_addr_t s_addr;
};
typedef struct process_sockaddr_t PROCESS_SOCKADDR;

static PROCESS_SOCKADDR process_sockaddr_pool[MAX_CLIENT_LIMIT];

#define SSH_AUTH_MAX_DURATION (60 * 1000) // milliseconds

struct ssl_server_cb_data_t
{
        int tries;
        int error;
};

static int auth_password(ssh_session session, const char *user,
                                                 const char *password, void *userdata)
{
        struct ssl_server_cb_data_t *p_data = userdata;
        int ret;

        if (strcmp(user, "guest") == 0)
        {
                ret = load_guest_info();
        }
        else
        {
                ret = check_user(user, password);
        }

        if (ret == 0)
        {
                return SSH_AUTH_SUCCESS;
        }

        if ((++(p_data->tries)) >= BBS_login_retry_times)
        {
                p_data->error = 1;
        }

        return SSH_AUTH_DENIED;
}

static int pty_request(ssh_session session, ssh_channel channel, const char *term,
                                           int x, int y, int px, int py, void *userdata)
{
        return 0;
}

static int shell_request(ssh_session session, ssh_channel channel, void *userdata)
{
        return 0;
}

static struct ssh_channel_callbacks_struct channel_cb = {
        .channel_pty_request_function = pty_request,
        .channel_shell_request_function = shell_request};

static ssh_channel new_session_channel(ssh_session session, void *userdata)
{
        if (SSH_channel != NULL)
        {
                return NULL;
        }

        SSH_channel = ssh_channel_new(session);
        ssh_callbacks_init(&channel_cb);
        ssh_set_channel_callbacks(SSH_channel, &channel_cb);

        return SSH_channel;
}

static int fork_server(void)
{
        ssh_event event;
        long int ssh_timeout = 0;
        int pid;
        int i;
        int ret;

        struct ssl_server_cb_data_t cb_data = {
                .tries = 0,
                .error = 0,
        };

        struct ssh_server_callbacks_struct cb = {
                .userdata = &cb_data,
                .auth_password_function = auth_password,
                .channel_open_request_session_function = new_session_channel,
        };

        pid = fork();

        if (pid > 0) // Parent process
        {
                SYS_child_process_count++;
                log_common("Child process (%d) start\n", pid);
                return pid;
        }
        else if (pid < 0) // Error
        {
                log_error("fork() error (%d)\n", errno);
                return -1;
        }

        // Child process

        if (close(socket_server[0]) == -1 || close(socket_server[1]) == -1)
        {
                log_error("Close server socket failed\n");
        }

        SSH_session = ssh_new();

        if (SSH_v2)
        {
                if (ssh_bind_accept_fd(sshbind, SSH_session, socket_client) != SSH_OK)
                {
                        log_error("ssh_bind_accept_fd() error: %s\n", ssh_get_error(SSH_session));
                        goto cleanup;
                }

                ssh_bind_free(sshbind);

                ssh_callbacks_init(&cb);
                ssh_set_server_callbacks(SSH_session, &cb);

                ssh_timeout = 60; // second
                if (ssh_options_set(SSH_session, SSH_OPTIONS_TIMEOUT, &ssh_timeout) < 0)
                {
                        log_error("Error setting SSH options: %s\n", ssh_get_error(SSH_session));
                        goto cleanup;
                }

                if (ssh_handle_key_exchange(SSH_session))
                {
                        log_error("ssh_handle_key_exchange() error: %s\n", ssh_get_error(SSH_session));
                        goto cleanup;
                }
                ssh_set_auth_methods(SSH_session, SSH_AUTH_METHOD_PASSWORD);

                event = ssh_event_new();
                ssh_event_add_session(event, SSH_session);

                for (i = 0; i < SSH_AUTH_MAX_DURATION && !SYS_server_exit && !cb_data.error && SSH_channel == NULL; i += 100)
                {
                        ret = ssh_event_dopoll(event, 100); // 0.1 second
                        if (ret == SSH_ERROR)
                        {
#ifdef _DEBUG
                                log_error("ssh_event_dopoll() error: %s\n", ssh_get_error(SSH_session));
#endif
                                goto cleanup;
                        }
                }

                if (cb_data.error)
                {
                        log_error("SSH auth error, tried %d times\n", cb_data.tries);
                        goto cleanup;
                }

                ssh_timeout = 0;
                if (ssh_options_set(SSH_session, SSH_OPTIONS_TIMEOUT, &ssh_timeout) < 0)
                {
                        log_error("Error setting SSH options: %s\n", ssh_get_error(SSH_session));
                        goto cleanup;
                }
        }

        // Redirect Input
        close(STDIN_FILENO);
        if (dup2(socket_client, STDIN_FILENO) == -1)
        {
                log_error("Redirect stdin to client socket failed\n");
                goto cleanup;
        }

        // Redirect Output
        close(STDOUT_FILENO);
        if (dup2(socket_client, STDOUT_FILENO) == -1)
        {
                log_error("Redirect stdout to client socket failed\n");
                goto cleanup;
        }

        SYS_child_process_count = 0;

        bbs_main();

cleanup:
        // Child process exit
        SYS_server_exit = 1;

        if (SSH_v2)
        {
                ssh_channel_free(SSH_channel);
                ssh_disconnect(SSH_session);
        }
        else if (close(socket_client) == -1)
        {
                log_error("Close client socket failed\n");
        }

        ssh_free(SSH_session);
        ssh_finalize();

        // Close Input and Output for client
        close(STDIN_FILENO);
        close(STDOUT_FILENO);

        log_common("Process exit normally\n");
        log_end();

        _exit(0);

        return 0;
}

int net_server(const char *hostaddr, in_port_t port[])
{
        unsigned int addrlen;
        int ret;
        int flags[2];
        struct sockaddr_in sin;
        struct epoll_event ev, events[MAX_EVENTS];
        int nfds, epollfd;
        siginfo_t siginfo;
        int notify_child_exit = 0;
        time_t tm_notify_child_exit = time(NULL);
        int sd_notify_stopping = 0;
        MENU_SET bbs_menu_new;
        MENU_SET top10_menu_new;
        int i, j;
        pid_t pid;
        int ssh_log_level = SSH_LOG_NOLOG;

        ssh_init();

        sshbind = ssh_bind_new();

        if (ssh_bind_options_set(sshbind, SSH_BIND_OPTIONS_BINDADDR, hostaddr) < 0 ||
                ssh_bind_options_set(sshbind, SSH_BIND_OPTIONS_BINDPORT, &port) < 0 ||
                ssh_bind_options_set(sshbind, SSH_BIND_OPTIONS_HOSTKEY, SSH_HOST_KEYFILE) < 0 ||
                ssh_bind_options_set(sshbind, SSH_BIND_OPTIONS_HOSTKEY_ALGORITHMS, "ssh-rsa,rsa-sha2-512,rsa-sha2-256") < 0 ||
                ssh_bind_options_set(sshbind, SSH_BIND_OPTIONS_LOG_VERBOSITY, &ssh_log_level) < 0)
        {
                log_error("Error setting SSH bind options: %s\n", ssh_get_error(sshbind));
                ssh_bind_free(sshbind);
                return -1;
        }

        epollfd = epoll_create1(0);
        if (epollfd < 0)
        {
                log_error("epoll_create1() error (%d)\n", errno);
                return -1;
        }

        // Server socket
        for (i = 0; i < 2; i++)
        {
                socket_server[i] = socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);

                if (socket_server[i] < 0)
                {
                        log_error("Create socket_server error (%d)\n", errno);
                        return -1;
                }

                sin.sin_family = AF_INET;
                sin.sin_addr.s_addr = (hostaddr[0] != '\0' ? inet_addr(hostaddr) : INADDR_ANY);
                sin.sin_port = htons(port[i]);

                // Reuse address and port
                flags[i] = 1;
                if (setsockopt(socket_server[i], SOL_SOCKET, SO_REUSEADDR, &flags[i], sizeof(flags[i])) < 0)
                {
                        log_error("setsockopt SO_REUSEADDR error (%d)\n", errno);
                }
                if (setsockopt(socket_server[i], SOL_SOCKET, SO_REUSEPORT, &flags[i], sizeof(flags[i])) < 0)
                {
                        log_error("setsockopt SO_REUSEPORT error (%d)\n", errno);
                }

                if (bind(socket_server[i], (struct sockaddr *)&sin, sizeof(sin)) < 0)
                {
                        log_error("Bind address %s:%u error (%d)\n",
                                          inet_ntoa(sin.sin_addr), ntohs(sin.sin_port), errno);
                        return -1;
                }

                if (listen(socket_server[i], 10) < 0)
                {
                        log_error("Telnet socket listen error (%d)\n", errno);
                        return -1;
                }

                log_common("Listening at %s:%u\n", inet_ntoa(sin.sin_addr), ntohs(sin.sin_port));

                ev.events = EPOLLIN;
                ev.data.fd = socket_server[i];
                if (epoll_ctl(epollfd, EPOLL_CTL_ADD, socket_server[i], &ev) == -1)
                {
                        log_error("epoll_ctl(socket_server[%d]) error (%d)\n", i, errno);
                        if (close(epollfd) < 0)
                        {
                                log_error("close(epoll) error (%d)\n");
                        }
                        return -1;
                }

                flags[i] = fcntl(socket_server[i], F_GETFL, 0);
                fcntl(socket_server[i], F_SETFL, flags[i] | O_NONBLOCK);
        }

        // Startup complete
        sd_notifyf(0, "READY=1\n"
                                  "STATUS=Listening at %s:%d (Telnet) and %s:%d (SSH2)\n"
                                  "MAINPID=%d",
                           hostaddr, port[0], hostaddr, port[1], getpid());

        while (!SYS_server_exit || SYS_child_process_count > 0)
        {
                if (SYS_server_exit && !sd_notify_stopping)
                {
                        sd_notify(0, "STOPPING=1");
                        sd_notify_stopping = 1;
                }

                while ((SYS_child_exit || SYS_server_exit) && SYS_child_process_count > 0)
                {
                        SYS_child_exit = 0;

                        siginfo.si_pid = 0;
                        ret = waitid(P_ALL, 0, &siginfo, WEXITED | WNOHANG);
                        if (ret == 0 && siginfo.si_pid > 0)
                        {
                                SYS_child_exit = 1; // Retry waitid

                                SYS_child_process_count--;
                                log_common("Child process (%d) exited\n", siginfo.si_pid);

                                if (siginfo.si_pid != section_list_loader_pid)
                                {
                                        i = 0;
                                        for (; i < BBS_max_client; i++)
                                        {
                                                if (process_sockaddr_pool[i].pid == siginfo.si_pid)
                                                {
                                                        process_sockaddr_pool[i].pid = 0;
                                                        break;
                                                }
                                        }
                                        if (i >= BBS_max_client)
                                        {
                                                log_error("Child process (%d) not found in process sockaddr pool\n", siginfo.si_pid);
                                        }
                                }
                        }
                        else if (ret == 0)
                        {
                                break;
                        }
                        else if (ret < 0)
                        {
                                log_error("Error in waitid: %d\n", errno);
                                break;
                        }
                }

                if (SYS_server_exit && !SYS_child_exit && SYS_child_process_count > 0)
                {
                        if (notify_child_exit == 0)
                        {
                                sd_notifyf(0, "STATUS=Notify %d child process to exit", SYS_child_process_count);
                                log_common("Notify %d child process to exit\n", SYS_child_process_count);

                                if (kill(0, SIGTERM) < 0)
                                {
                                        log_error("Send SIGTERM signal failed (%d)\n", errno);
                                }

                                notify_child_exit = 1;
                                tm_notify_child_exit = time(NULL);
                        }
                        else if (notify_child_exit == 1 && time(NULL) - tm_notify_child_exit >= WAIT_CHILD_PROCESS_EXIT_TIMEOUT)
                        {
                                sd_notifyf(0, "STATUS=Kill %d child process", SYS_child_process_count);

                                for (i = 0; i < BBS_max_client; i++)
                                {
                                        if (process_sockaddr_pool[i].pid != 0)
                                        {
                                                log_error("Kill child process (pid=%d)\n", process_sockaddr_pool[i].pid);
                                                if (kill(process_sockaddr_pool[i].pid, SIGKILL) < 0)
                                                {
                                                        log_error("Send SIGKILL signal failed (%d)\n", errno);
                                                }
                                        }
                                }

                                notify_child_exit = 2;
                                tm_notify_child_exit = time(NULL);
                        }
                        else if (notify_child_exit == 2 && time(NULL) - tm_notify_child_exit >= WAIT_CHILD_PROCESS_KILL_TIMEOUT)
                        {
                                log_error("Main process prepare to exit without waiting for %d child process any longer\n", SYS_child_process_count);
                                SYS_child_process_count = 0;
                        }
                }

                if (SYS_conf_reload && !SYS_server_exit)
                {
                        SYS_conf_reload = 0;
                        sd_notify(0, "RELOADING=1");

                        // Reload configuration
                        if (load_conf(CONF_BBSD) < 0)
                        {
                                log_error("Reload conf failed\n");
                        }

                        if (load_menu(&bbs_menu_new, CONF_MENU) < 0)
                        {
                                unload_menu(&bbs_menu_new);
                                log_error("Reload bbs menu failed\n");
                        }
                        else
                        {
                                unload_menu(&bbs_menu);
                                memcpy(&bbs_menu, &bbs_menu_new, sizeof(bbs_menu_new));
                                log_common("Reload bbs menu successfully\n");
                        }

                        if (load_menu(&top10_menu_new, CONF_TOP10_MENU) < 0)
                        {
                                unload_menu(&top10_menu_new);
                                log_error("Reload top10 menu failed\n");
                        }
                        else
                        {
                                unload_menu(&top10_menu);
                                top10_menu_new.allow_exit = 1;
                                memcpy(&top10_menu, &top10_menu_new, sizeof(top10_menu_new));
                                log_common("Reload top10 menu successfully\n");
                        }

                        for (int i = 0; i < data_files_load_startup_count; i++)
                        {
                                if (load_file(data_files_load_startup[i]) < 0)
                                {
                                        log_error("load_file_mmap(%s) error\n", data_files_load_startup[i]);
                                }
                        }
                        log_common("Reload data files successfully\n");

                        // Load section config and gen_ex
                        if (load_section_config_from_db(1) < 0)
                        {
                                log_error("load_section_config_from_db(1) error\n");
                        }
                        else
                        {
                                log_common("Reload section config and gen_ex successfully\n");
                        }

                        sd_notify(0, "READY=1");
                }

                nfds = epoll_wait(epollfd, events, MAX_EVENTS, 100); // 0.1 second

                if (nfds < 0)
                {
                        if (errno != EINTR)
                        {
                                log_error("epoll_wait() error (%d)\n", errno);
                                break;
                        }
                        continue;
                }

                // Stop accept new connection on exit
                if (SYS_server_exit)
                {
                        continue;
                }

                for (int i = 0; i < nfds; i++)
                {
                        if (events[i].data.fd == socket_server[0] || events[i].data.fd == socket_server[1])
                        {
                                SSH_v2 = (events[i].data.fd == socket_server[1] ? 1 : 0);

                                while (!SYS_server_exit) // Accept all incoming connections until error
                                {
                                        addrlen = sizeof(sin);
                                        socket_client = accept(socket_server[SSH_v2], (struct sockaddr *)&sin, &addrlen);
                                        if (socket_client < 0)
                                        {
                                                if (errno == EAGAIN || errno == EWOULDBLOCK)
                                                {
                                                        break;
                                                }
                                                else if (errno == EINTR)
                                                {
                                                        continue;
                                                }
                                                else
                                                {
                                                        log_error("accept(socket_server) error (%d)\n", errno);
                                                        break;
                                                }
                                        }

                                        strncpy(hostaddr_client, inet_ntoa(sin.sin_addr), sizeof(hostaddr_client) - 1);
                                        hostaddr_client[sizeof(hostaddr_client) - 1] = '\0';

                                        port_client = ntohs(sin.sin_port);

                                        log_common("Accept %s connection from %s:%d\n", (SSH_v2 ? "SSH" : "telnet"), hostaddr_client, port_client);

                                        if (SYS_child_process_count - 1 < BBS_max_client)
                                        {
                                                j = 0;
                                                for (i = 0; i < BBS_max_client; i++)
                                                {
                                                        if (process_sockaddr_pool[i].pid != 0 && process_sockaddr_pool[i].s_addr == sin.sin_addr.s_addr)
                                                        {
                                                                j++;
                                                                if (j >= BBS_max_client_per_ip)
                                                                {
                                                                        log_common("Too many client connections (%d) from %s\n", j, hostaddr_client);
                                                                        break;
                                                                }
                                                        }
                                                }

                                                if (j < BBS_max_client_per_ip)
                                                {
                                                        if ((pid = fork_server()) < 0)
                                                        {
                                                                log_error("fork_server() error\n");
                                                        }
                                                        else if (pid > 0)
                                                        {
                                                                i = 0;
                                                                for (; i < BBS_max_client; i++)
                                                                {
                                                                        if (process_sockaddr_pool[i].pid == 0)
                                                                        {
                                                                                break;
                                                                        }
                                                                }

                                                                if (i >= BBS_max_client)
                                                                {
                                                                        log_error("Process sockaddr pool depleted\n");
                                                                }
                                                                else
                                                                {
                                                                        process_sockaddr_pool[i].pid = pid;
                                                                        process_sockaddr_pool[i].s_addr = sin.sin_addr.s_addr;
                                                                }
                                                        }
                                                }
                                        }
                                        else
                                        {
                                                log_error("Rejected client connection over limit (%d)\n", SYS_child_process_count - 1);
                                        }

                                        if (close(socket_client) == -1)
                                        {
                                                log_error("close(socket_lient) error (%d)\n", errno);
                                        }
                                }
                        }
                }
        }

        if (close(epollfd) < 0)
        {
                log_error("close(epoll) error (%d)\n");
        }

        for (i = 0; i < 2; i++)
        {
                fcntl(socket_server[i], F_SETFL, flags[i]);

                if (close(socket_server[i]) == -1)
                {
                        log_error("Close server socket failed\n");
                }
        }

        ssh_bind_free(sshbind);
        ssh_finalize();

        return 0;
}
1	sysadm	1.1	/***************************************************************************
2	sysadm	1.13	net_server.c - description
3			-------------------
4	sysadm	1.18	Copyright : (C) 2004-2025 by Leaflet
5			Email : leaflet@leafok.com
6	sysadm	1.1	***************************************************************************/
7
8			/***************************************************************************
9			* *
10			* This program is free software; you can redistribute it and/or modify *
11			* it under the terms of the GNU General Public License as published by *
12	sysadm	1.18	* the Free Software Foundation; either version 3 of the License, or *
13	sysadm	1.1	* (at your option) any later version. *
14			* *
15			***************************************************************************/
16
17	sysadm	1.62	#include "bbs.h"
18			#include "bbs_main.h"
19	sysadm	1.1	#include "common.h"
20	sysadm	1.62	#include "database.h"
21			#include "file_loader.h"
22	sysadm	1.7	#include "io.h"
23	sysadm	1.44	#include "init.h"
24	sysadm	1.62	#include "log.h"
25			#include "login.h"
26	sysadm	1.19	#include "menu.h"
27	sysadm	1.62	#include "net_server.h"
28	sysadm	1.67	#include "section_list.h"
29	sysadm	1.42	#include "section_list_loader.h"
30	sysadm	1.20	#include <errno.h>
31			#include <fcntl.h>
32	sysadm	1.19	#include <signal.h>
33	sysadm	1.20	#include <stdlib.h>
34	sysadm	1.62	#include <string.h>
35	sysadm	1.19	#include <unistd.h>
36	sysadm	1.9	#include <arpa/inet.h>
37	sysadm	1.62	#include <libssh/callbacks.h>
38	sysadm	1.55	#include <libssh/libssh.h>
39			#include <libssh/server.h>
40	sysadm	1.62	#include <netinet/in.h>
41	sysadm	1.61	#include <sys/epoll.h>
42	sysadm	1.62	#include <sys/socket.h>
43	sysadm	1.61	#include <sys/syscall.h>
44			#include <sys/types.h>
45			#include <sys/wait.h>
46			#include <systemd/sd-daemon.h>
47	sysadm	1.3
48	sysadm	1.70	#define WAIT_CHILD_PROCESS_EXIT_TIMEOUT 5 // second
49			#define WAIT_CHILD_PROCESS_KILL_TIMEOUT 1 // second
50
51	sysadm	1.44	struct process_sockaddr_t
52			{
53			pid_t pid;
54			in_addr_t s_addr;
55			};
56			typedef struct process_sockaddr_t PROCESS_SOCKADDR;
57
58	sysadm	1.48	static PROCESS_SOCKADDR process_sockaddr_pool[MAX_CLIENT_LIMIT];
59	sysadm	1.44
60	sysadm	1.58	#define SSH_AUTH_MAX_DURATION (60 * 1000) // milliseconds
61	sysadm	1.55
62			struct ssl_server_cb_data_t
63			{
64			int tries;
65			int error;
66			};
67
68			static int auth_password(ssh_session session, const char *user,
69			const char password, void userdata)
70			{
71			struct ssl_server_cb_data_t *p_data = userdata;
72			int ret;
73
74			if (strcmp(user, "guest") == 0)
75			{
76	sysadm	1.57	ret = load_guest_info();
77	sysadm	1.55	}
78			else
79			{
80	sysadm	1.57	ret = check_user(user, password);
81	sysadm	1.55	}
82
83			if (ret == 0)
84			{
85			return SSH_AUTH_SUCCESS;
86			}
87
88			if ((++(p_data->tries)) >= BBS_login_retry_times)
89			{
90			p_data->error = 1;
91			}
92
93			return SSH_AUTH_DENIED;
94			}
95
96			static int pty_request(ssh_session session, ssh_channel channel, const char *term,
97			int x, int y, int px, int py, void *userdata)
98			{
99			return 0;
100			}
101
102			static int shell_request(ssh_session session, ssh_channel channel, void *userdata)
103			{
104			return 0;
105			}
106
107			static struct ssh_channel_callbacks_struct channel_cb = {
108			.channel_pty_request_function = pty_request,
109			.channel_shell_request_function = shell_request};
110
111			static ssh_channel new_session_channel(ssh_session session, void *userdata)
112			{
113			if (SSH_channel != NULL)
114			{
115			return NULL;
116			}
117
118			SSH_channel = ssh_channel_new(session);
119			ssh_callbacks_init(&channel_cb);
120			ssh_set_channel_callbacks(SSH_channel, &channel_cb);
121
122			return SSH_channel;
123			}
124
125	sysadm	1.56	static int fork_server(void)
126	sysadm	1.55	{
127			ssh_event event;
128	sysadm	1.71	long int ssh_timeout = 0;
129	sysadm	1.55	int pid;
130			int i;
131			int ret;
132
133			struct ssl_server_cb_data_t cb_data = {
134			.tries = 0,
135			.error = 0,
136			};
137
138			struct ssh_server_callbacks_struct cb = {
139			.userdata = &cb_data,
140			.auth_password_function = auth_password,
141			.channel_open_request_session_function = new_session_channel,
142			};
143
144			pid = fork();
145
146			if (pid > 0) // Parent process
147			{
148			SYS_child_process_count++;
149			log_common("Child process (%d) start\n", pid);
150			return pid;
151			}
152			else if (pid < 0) // Error
153			{
154			log_error("fork() error (%d)\n", errno);
155			return -1;
156			}
157
158			// Child process
159
160			if (close(socket_server[0]) == -1 \|\| close(socket_server[1]) == -1)
161			{
162			log_error("Close server socket failed\n");
163			}
164
165			SSH_session = ssh_new();
166
167			if (SSH_v2)
168			{
169			if (ssh_bind_accept_fd(sshbind, SSH_session, socket_client) != SSH_OK)
170			{
171			log_error("ssh_bind_accept_fd() error: %s\n", ssh_get_error(SSH_session));
172			goto cleanup;
173			}
174
175			ssh_bind_free(sshbind);
176
177			ssh_callbacks_init(&cb);
178			ssh_set_server_callbacks(SSH_session, &cb);
179
180	sysadm	1.71	ssh_timeout = 60; // second
181			if (ssh_options_set(SSH_session, SSH_OPTIONS_TIMEOUT, &ssh_timeout) < 0)
182			{
183			log_error("Error setting SSH options: %s\n", ssh_get_error(SSH_session));
184			goto cleanup;
185			}
186
187	sysadm	1.55	if (ssh_handle_key_exchange(SSH_session))
188			{
189			log_error("ssh_handle_key_exchange() error: %s\n", ssh_get_error(SSH_session));
190			goto cleanup;
191			}
192			ssh_set_auth_methods(SSH_session, SSH_AUTH_METHOD_PASSWORD);
193
194			event = ssh_event_new();
195			ssh_event_add_session(event, SSH_session);
196
197	sysadm	1.58	for (i = 0; i < SSH_AUTH_MAX_DURATION && !SYS_server_exit && !cb_data.error && SSH_channel == NULL; i += 100)
198	sysadm	1.55	{
199	sysadm	1.58	ret = ssh_event_dopoll(event, 100); // 0.1 second
200	sysadm	1.55	if (ret == SSH_ERROR)
201			{
202	sysadm	1.73	#ifdef _DEBUG
203	sysadm	1.55	log_error("ssh_event_dopoll() error: %s\n", ssh_get_error(SSH_session));
204	sysadm	1.73	#endif
205	sysadm	1.55	goto cleanup;
206			}
207			}
208
209			if (cb_data.error)
210			{
211			log_error("SSH auth error, tried %d times\n", cb_data.tries);
212			goto cleanup;
213			}
214	sysadm	1.71
215			ssh_timeout = 0;
216			if (ssh_options_set(SSH_session, SSH_OPTIONS_TIMEOUT, &ssh_timeout) < 0)
217			{
218			log_error("Error setting SSH options: %s\n", ssh_get_error(SSH_session));
219			goto cleanup;
220			}
221	sysadm	1.55	}
222
223			// Redirect Input
224			close(STDIN_FILENO);
225			if (dup2(socket_client, STDIN_FILENO) == -1)
226			{
227			log_error("Redirect stdin to client socket failed\n");
228			goto cleanup;
229			}
230
231			// Redirect Output
232			close(STDOUT_FILENO);
233			if (dup2(socket_client, STDOUT_FILENO) == -1)
234			{
235			log_error("Redirect stdout to client socket failed\n");
236			goto cleanup;
237			}
238
239			SYS_child_process_count = 0;
240
241			bbs_main();
242
243			cleanup:
244			// Child process exit
245			SYS_server_exit = 1;
246
247			if (SSH_v2)
248			{
249			ssh_channel_free(SSH_channel);
250			ssh_disconnect(SSH_session);
251			}
252			else if (close(socket_client) == -1)
253			{
254			log_error("Close client socket failed\n");
255			}
256
257			ssh_free(SSH_session);
258			ssh_finalize();
259
260			// Close Input and Output for client
261			close(STDIN_FILENO);
262			close(STDOUT_FILENO);
263
264			log_common("Process exit normally\n");
265			log_end();
266
267			_exit(0);
268
269			return 0;
270			}
271
272	sysadm	1.52	int net_server(const char *hostaddr, in_port_t port[])
273	sysadm	1.1	{
274	sysadm	1.52	unsigned int addrlen;
275	sysadm	1.19	int ret;
276	sysadm	1.52	int flags[2];
277	sysadm	1.13	struct sockaddr_in sin;
278	sysadm	1.25	struct epoll_event ev, events[MAX_EVENTS];
279			int nfds, epollfd;
280	sysadm	1.19	siginfo_t siginfo;
281	sysadm	1.70	int notify_child_exit = 0;
282			time_t tm_notify_child_exit = time(NULL);
283	sysadm	1.31	int sd_notify_stopping = 0;
284	sysadm	1.66	MENU_SET bbs_menu_new;
285	sysadm	1.72	MENU_SET top10_menu_new;
286	sysadm	1.44	int i, j;
287			pid_t pid;
288	sysadm	1.51	int ssh_log_level = SSH_LOG_NOLOG;
289	sysadm	1.10
290	sysadm	1.51	ssh_init();
291
292			sshbind = ssh_bind_new();
293
294			if (ssh_bind_options_set(sshbind, SSH_BIND_OPTIONS_BINDADDR, hostaddr) < 0 \|\|
295			ssh_bind_options_set(sshbind, SSH_BIND_OPTIONS_BINDPORT, &port) < 0 \|\|
296			ssh_bind_options_set(sshbind, SSH_BIND_OPTIONS_HOSTKEY, SSH_HOST_KEYFILE) < 0 \|\|
297	sysadm	1.63	ssh_bind_options_set(sshbind, SSH_BIND_OPTIONS_HOSTKEY_ALGORITHMS, "ssh-rsa,rsa-sha2-512,rsa-sha2-256") < 0 \|\|
298	sysadm	1.51	ssh_bind_options_set(sshbind, SSH_BIND_OPTIONS_LOG_VERBOSITY, &ssh_log_level) < 0)
299			{
300			log_error("Error setting SSH bind options: %s\n", ssh_get_error(sshbind));
301			ssh_bind_free(sshbind);
302			return -1;
303			}
304	sysadm	1.10
305	sysadm	1.52	epollfd = epoll_create1(0);
306			if (epollfd < 0)
307	sysadm	1.13	{
308	sysadm	1.52	log_error("epoll_create1() error (%d)\n", errno);
309	sysadm	1.27	return -1;
310	sysadm	1.13	}
311	sysadm	1.10
312	sysadm	1.52	// Server socket
313			for (i = 0; i < 2; i++)
314	sysadm	1.23	{
315	sysadm	1.52	socket_server[i] = socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);
316	sysadm	1.23
317	sysadm	1.52	if (socket_server[i] < 0)
318			{
319			log_error("Create socket_server error (%d)\n", errno);
320			return -1;
321			}
322	sysadm	1.10
323	sysadm	1.52	sin.sin_family = AF_INET;
324			sin.sin_addr.s_addr = (hostaddr[0] != '\0' ? inet_addr(hostaddr) : INADDR_ANY);
325			sin.sin_port = htons(port[i]);
326
327			// Reuse address and port
328			flags[i] = 1;
329			if (setsockopt(socket_server[i], SOL_SOCKET, SO_REUSEADDR, &flags[i], sizeof(flags[i])) < 0)
330			{
331			log_error("setsockopt SO_REUSEADDR error (%d)\n", errno);
332			}
333			if (setsockopt(socket_server[i], SOL_SOCKET, SO_REUSEPORT, &flags[i], sizeof(flags[i])) < 0)
334			{
335			log_error("setsockopt SO_REUSEPORT error (%d)\n", errno);
336			}
337	sysadm	1.1
338	sysadm	1.52	if (bind(socket_server[i], (struct sockaddr *)&sin, sizeof(sin)) < 0)
339			{
340			log_error("Bind address %s:%u error (%d)\n",
341			inet_ntoa(sin.sin_addr), ntohs(sin.sin_port), errno);
342			return -1;
343			}
344	sysadm	1.16
345	sysadm	1.52	if (listen(socket_server[i], 10) < 0)
346			{
347			log_error("Telnet socket listen error (%d)\n", errno);
348			return -1;
349			}
350	sysadm	1.13
351	sysadm	1.52	log_common("Listening at %s:%u\n", inet_ntoa(sin.sin_addr), ntohs(sin.sin_port));
352	sysadm	1.25
353	sysadm	1.52	ev.events = EPOLLIN;
354			ev.data.fd = socket_server[i];
355			if (epoll_ctl(epollfd, EPOLL_CTL_ADD, socket_server[i], &ev) == -1)
356	sysadm	1.30	{
357	sysadm	1.52	log_error("epoll_ctl(socket_server[%d]) error (%d)\n", i, errno);
358			if (close(epollfd) < 0)
359			{
360			log_error("close(epoll) error (%d)\n");
361			}
362			return -1;
363	sysadm	1.30	}
364	sysadm	1.52
365			flags[i] = fcntl(socket_server[i], F_GETFL, 0);
366			fcntl(socket_server[i], F_SETFL, flags[i] \| O_NONBLOCK);
367	sysadm	1.25	}
368
369	sysadm	1.31	// Startup complete
370			sd_notifyf(0, "READY=1\n"
371	sysadm	1.52	"STATUS=Listening at %s:%d (Telnet) and %s:%d (SSH2)\n"
372	sysadm	1.31	"MAINPID=%d",
373	sysadm	1.52	hostaddr, port[0], hostaddr, port[1], getpid());
374	sysadm	1.31
375	sysadm	1.19	while (!SYS_server_exit \|\| SYS_child_process_count > 0)
376	sysadm	1.13	{
377	sysadm	1.31	if (SYS_server_exit && !sd_notify_stopping)
378			{
379			sd_notify(0, "STOPPING=1");
380			sd_notify_stopping = 1;
381			}
382	sysadm	1.37
383	sysadm	1.22	while ((SYS_child_exit \|\| SYS_server_exit) && SYS_child_process_count > 0)
384	sysadm	1.19	{
385	sysadm	1.30	SYS_child_exit = 0;
386
387	sysadm	1.19	siginfo.si_pid = 0;
388			ret = waitid(P_ALL, 0, &siginfo, WEXITED \| WNOHANG);
389			if (ret == 0 && siginfo.si_pid > 0)
390			{
391	sysadm	1.30	SYS_child_exit = 1; // Retry waitid
392
393	sysadm	1.19	SYS_child_process_count--;
394	sysadm	1.49	log_common("Child process (%d) exited\n", siginfo.si_pid);
395	sysadm	1.44
396	sysadm	1.45	if (siginfo.si_pid != section_list_loader_pid)
397	sysadm	1.44	{
398	sysadm	1.45	i = 0;
399			for (; i < BBS_max_client; i++)
400	sysadm	1.44	{
401	sysadm	1.45	if (process_sockaddr_pool[i].pid == siginfo.si_pid)
402			{
403			process_sockaddr_pool[i].pid = 0;
404			break;
405			}
406			}
407			if (i >= BBS_max_client)
408			{
409			log_error("Child process (%d) not found in process sockaddr pool\n", siginfo.si_pid);
410	sysadm	1.44	}
411			}
412	sysadm	1.19	}
413			else if (ret == 0)
414			{
415			break;
416			}
417			else if (ret < 0)
418			{
419			log_error("Error in waitid: %d\n", errno);
420			break;
421			}
422			}
423
424	sysadm	1.22	if (SYS_server_exit && !SYS_child_exit && SYS_child_process_count > 0)
425	sysadm	1.21	{
426	sysadm	1.70	if (notify_child_exit == 0)
427	sysadm	1.21	{
428	sysadm	1.70	sd_notifyf(0, "STATUS=Notify %d child process to exit", SYS_child_process_count);
429			log_common("Notify %d child process to exit\n", SYS_child_process_count);
430
431			if (kill(0, SIGTERM) < 0)
432			{
433			log_error("Send SIGTERM signal failed (%d)\n", errno);
434			}
435
436			notify_child_exit = 1;
437			tm_notify_child_exit = time(NULL);
438	sysadm	1.21	}
439	sysadm	1.70	else if (notify_child_exit == 1 && time(NULL) - tm_notify_child_exit >= WAIT_CHILD_PROCESS_EXIT_TIMEOUT)
440			{
441			sd_notifyf(0, "STATUS=Kill %d child process", SYS_child_process_count);
442	sysadm	1.31
443	sysadm	1.70	for (i = 0; i < BBS_max_client; i++)
444			{
445			if (process_sockaddr_pool[i].pid != 0)
446			{
447			log_error("Kill child process (pid=%d)\n", process_sockaddr_pool[i].pid);
448			if (kill(process_sockaddr_pool[i].pid, SIGKILL) < 0)
449			{
450			log_error("Send SIGKILL signal failed (%d)\n", errno);
451			}
452			}
453			}
454	sysadm	1.69
455	sysadm	1.70	notify_child_exit = 2;
456			tm_notify_child_exit = time(NULL);
457			}
458			else if (notify_child_exit == 2 && time(NULL) - tm_notify_child_exit >= WAIT_CHILD_PROCESS_KILL_TIMEOUT)
459			{
460			log_error("Main process prepare to exit without waiting for %d child process any longer\n", SYS_child_process_count);
461			SYS_child_process_count = 0;
462			}
463	sysadm	1.21	}
464
465	sysadm	1.44	if (SYS_conf_reload && !SYS_server_exit)
466	sysadm	1.19	{
467	sysadm	1.44	SYS_conf_reload = 0;
468	sysadm	1.37	sd_notify(0, "RELOADING=1");
469	sysadm	1.30
470	sysadm	1.44	// Reload configuration
471			if (load_conf(CONF_BBSD) < 0)
472			{
473			log_error("Reload conf failed\n");
474			}
475
476	sysadm	1.68	if (load_menu(&bbs_menu_new, CONF_MENU) < 0)
477	sysadm	1.34	{
478	sysadm	1.68	unload_menu(&bbs_menu_new);
479	sysadm	1.72	log_error("Reload bbs menu failed\n");
480	sysadm	1.19	}
481			else
482			{
483	sysadm	1.68	unload_menu(&bbs_menu);
484			memcpy(&bbs_menu, &bbs_menu_new, sizeof(bbs_menu_new));
485	sysadm	1.72	log_common("Reload bbs menu successfully\n");
486			}
487
488			if (load_menu(&top10_menu_new, CONF_TOP10_MENU) < 0)
489			{
490			unload_menu(&top10_menu_new);
491			log_error("Reload top10 menu failed\n");
492			}
493			else
494			{
495			unload_menu(&top10_menu);
496			top10_menu_new.allow_exit = 1;
497			memcpy(&top10_menu, &top10_menu_new, sizeof(top10_menu_new));
498			log_common("Reload top10 menu successfully\n");
499	sysadm	1.19	}
500	sysadm	1.37
501	sysadm	1.35	for (int i = 0; i < data_files_load_startup_count; i++)
502			{
503	sysadm	1.39	if (load_file(data_files_load_startup[i]) < 0)
504	sysadm	1.35	{
505			log_error("load_file_mmap(%s) error\n", data_files_load_startup[i]);
506			}
507			}
508	sysadm	1.49	log_common("Reload data files successfully\n");
509	sysadm	1.35
510	sysadm	1.68	// Load section config and gen_ex
511			if (load_section_config_from_db(1) < 0)
512			{
513			log_error("load_section_config_from_db(1) error\n");
514			}
515			else
516	sysadm	1.42	{
517	sysadm	1.68	log_common("Reload section config and gen_ex successfully\n");
518	sysadm	1.42	}
519	sysadm	1.68
520			sd_notify(0, "READY=1");
521	sysadm	1.42	}
522
523	sysadm	1.25	nfds = epoll_wait(epollfd, events, MAX_EVENTS, 100); // 0.1 second
524	sysadm	1.22
525	sysadm	1.25	if (nfds < 0)
526	sysadm	1.19	{
527			if (errno != EINTR)
528			{
529	sysadm	1.25	log_error("epoll_wait() error (%d)\n", errno);
530			break;
531	sysadm	1.19	}
532			continue;
533			}
534	sysadm	1.13
535	sysadm	1.19	// Stop accept new connection on exit
536			if (SYS_server_exit)
537	sysadm	1.13	{
538			continue;
539			}
540
541	sysadm	1.25	for (int i = 0; i < nfds; i++)
542	sysadm	1.13	{
543	sysadm	1.52	if (events[i].data.fd == socket_server[0] \|\| events[i].data.fd == socket_server[1])
544	sysadm	1.13	{
545	sysadm	1.53	SSH_v2 = (events[i].data.fd == socket_server[1] ? 1 : 0);
546	sysadm	1.52
547	sysadm	1.29	while (!SYS_server_exit) // Accept all incoming connections until error
548	sysadm	1.13	{
549	sysadm	1.52	addrlen = sizeof(sin);
550	sysadm	1.53	socket_client = accept(socket_server[SSH_v2], (struct sockaddr *)&sin, &addrlen);
551	sysadm	1.25	if (socket_client < 0)
552			{
553	sysadm	1.28	if (errno == EAGAIN \|\| errno == EWOULDBLOCK)
554			{
555			break;
556			}
557			else if (errno == EINTR)
558			{
559			continue;
560			}
561			else
562	sysadm	1.25	{
563			log_error("accept(socket_server) error (%d)\n", errno);
564	sysadm	1.28	break;
565	sysadm	1.25	}
566			}
567
568			strncpy(hostaddr_client, inet_ntoa(sin.sin_addr), sizeof(hostaddr_client) - 1);
569			hostaddr_client[sizeof(hostaddr_client) - 1] = '\0';
570
571			port_client = ntohs(sin.sin_port);
572
573	sysadm	1.64	log_common("Accept %s connection from %s:%d\n", (SSH_v2 ? "SSH" : "telnet"), hostaddr_client, port_client);
574	sysadm	1.25
575	sysadm	1.43	if (SYS_child_process_count - 1 < BBS_max_client)
576	sysadm	1.25	{
577	sysadm	1.44	j = 0;
578			for (i = 0; i < BBS_max_client; i++)
579			{
580			if (process_sockaddr_pool[i].pid != 0 && process_sockaddr_pool[i].s_addr == sin.sin_addr.s_addr)
581			{
582			j++;
583			if (j >= BBS_max_client_per_ip)
584			{
585	sysadm	1.50	log_common("Too many client connections (%d) from %s\n", j, hostaddr_client);
586	sysadm	1.44	break;
587			}
588			}
589			}
590
591			if (j < BBS_max_client_per_ip)
592	sysadm	1.43	{
593	sysadm	1.52	if ((pid = fork_server()) < 0)
594	sysadm	1.44	{
595			log_error("fork_server() error\n");
596			}
597			else if (pid > 0)
598			{
599			i = 0;
600			for (; i < BBS_max_client; i++)
601			{
602			if (process_sockaddr_pool[i].pid == 0)
603			{
604			break;
605			}
606			}
607
608			if (i >= BBS_max_client)
609			{
610			log_error("Process sockaddr pool depleted\n");
611			}
612			else
613			{
614			process_sockaddr_pool[i].pid = pid;
615			process_sockaddr_pool[i].s_addr = sin.sin_addr.s_addr;
616			}
617			}
618	sysadm	1.43	}
619			}
620			else
621			{
622			log_error("Rejected client connection over limit (%d)\n", SYS_child_process_count - 1);
623	sysadm	1.25	}
624
625			if (close(socket_client) == -1)
626			{
627			log_error("close(socket_lient) error (%d)\n", errno);
628			}
629	sysadm	1.13	}
630			}
631			}
632	sysadm	1.25	}
633	sysadm	1.13
634	sysadm	1.30	if (close(epollfd) < 0)
635			{
636			log_error("close(epoll) error (%d)\n");
637			}
638
639	sysadm	1.52	for (i = 0; i < 2; i++)
640			{
641			fcntl(socket_server[i], F_SETFL, flags[i]);
642	sysadm	1.13
643	sysadm	1.52	if (close(socket_server[i]) == -1)
644			{
645			log_error("Close server socket failed\n");
646			}
647	sysadm	1.13	}
648	sysadm	1.7
649	sysadm	1.51	ssh_bind_free(sshbind);
650			ssh_finalize();
651
652	sysadm	1.13	return 0;
653	sysadm	1.1	}
webmaster@leafok.com	ViewVC Help
Powered by ViewVC 1.3.0-beta1