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.                                   *
 *                                                                         *
 ***************************************************************************/

#define _XOPEN_SOURCE 500
#define _POSIX_C_SOURCE 200809L
#define _GNU_SOURCE

#include "net_server.h"
#include "common.h"
#include "log.h"
#include "io.h"
#include "init.h"
#include "fork.h"
#include "menu.h"
#include "file_loader.h"
#include "section_list_loader.h"
#include <errno.h>
#include <fcntl.h>
#include <string.h>
#include <signal.h>
#include <stdlib.h>
#include <unistd.h>
#include <sys/syscall.h>
#include <sys/socket.h>
#include <sys/wait.h>
#include <sys/epoll.h>
#include <arpa/inet.h>
#include <systemd/sd-daemon.h>

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_CLIENTS_LIMIT];

int net_server(const char *hostaddr, in_port_t port)
{
        unsigned int namelen;
        int ret;
        int flags;
        struct sockaddr_in sin;
        struct epoll_event ev, events[MAX_EVENTS];
        int nfds, epollfd;
        siginfo_t siginfo;
        int sd_notify_stopping = 0;
        MENU_SET *p_bbs_menu_new;
        int i, j;
        pid_t pid;

        socket_server = socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);

        if (socket_server < 0)
        {
                log_error("Create socket failed\n");
                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);

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

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

        if (listen(socket_server, 10) < 0)
        {
                log_error("Socket listen failed (%d)\n", errno);
                return -1;
        }

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

        port_server = ntohs(sin.sin_port);
        namelen = sizeof(sin);

        log_std("Listening at %s:%d\n", hostaddr_server, port_server);

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

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

        flags = fcntl(socket_server, F_GETFL, 0);
        fcntl(socket_server, F_SETFL, flags | O_NONBLOCK);

        // Startup complete
        sd_notifyf(0, "READY=1\n"
                                  "STATUS=Listening at %s:%d\n"
                                  "MAINPID=%d",
                           hostaddr_server, port_server, 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_std("Child process (%d) exited\n", siginfo.si_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)
                {
                        log_std("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);
                        }

                        sd_notifyf(0, "STATUS=Waiting for %d child process to exit", SYS_child_process_count);
                }

                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");
                        }

                        p_bbs_menu_new = calloc(1, sizeof(MENU_SET));
                        if (p_bbs_menu_new == NULL)
                        {
                                log_error("OOM: calloc(MENU_SET)\n");
                        }
                        else if (load_menu(p_bbs_menu_new, CONF_MENU) < 0)
                        {
                                unload_menu(p_bbs_menu_new);
                                free(p_bbs_menu_new);
                                p_bbs_menu_new = NULL;

                                log_error("Reload menu failed\n");
                        }
                        else
                        {
                                unload_menu(p_bbs_menu);
                                free(p_bbs_menu);

                                p_bbs_menu = p_bbs_menu_new;
                                p_bbs_menu_new = NULL;

                                log_std("Reload menu successfully\n");
                        }

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

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

                        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_std("Reload data files successfully\n");
                        sd_notify(0, "READY=1");
                }

                if (SYS_section_list_reload && !SYS_server_exit)
                {
                        SYS_section_list_reload = 0;

                        if (section_list_loader_reload() < 0)
                        {
                                log_error("ksection_list_loader_reload() failed\n");
                        }
                }

                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)
                        {
                                while (!SYS_server_exit) // Accept all incoming connections until error
                                {
                                        socket_client = accept(socket_server, (struct sockaddr *)&sin, &namelen);
                                        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_std("Accept connection from %s:%d\n", 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_error("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");
        }

        fcntl(socket_server, F_SETFL, flags);

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

        return 0;
}
1	/***************************************************************************
2	net_server.c - description
3	-------------------
4	Copyright : (C) 2004-2025 by Leaflet
5	Email : leaflet@leafok.com
6	***************************************************************************/
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	* the Free Software Foundation; either version 3 of the License, or *
13	* (at your option) any later version. *
14	* *
15	***************************************************************************/
16
17	#define _XOPEN_SOURCE 500
18	#define _POSIX_C_SOURCE 200809L
19	#define _GNU_SOURCE
20
21	#include "net_server.h"
22	#include "common.h"
23	#include "log.h"
24	#include "io.h"
25	#include "init.h"
26	#include "fork.h"
27	#include "menu.h"
28	#include "file_loader.h"
29	#include "section_list_loader.h"
30	#include <errno.h>
31	#include <fcntl.h>
32	#include <string.h>
33	#include <signal.h>
34	#include <stdlib.h>
35	#include <unistd.h>
36	#include <sys/syscall.h>
37	#include <sys/socket.h>
38	#include <sys/wait.h>
39	#include <sys/epoll.h>
40	#include <arpa/inet.h>
41	#include <systemd/sd-daemon.h>
42
43	struct process_sockaddr_t
44	{
45	pid_t pid;
46	in_addr_t s_addr;
47	};
48	typedef struct process_sockaddr_t PROCESS_SOCKADDR;
49
50	static PROCESS_SOCKADDR process_sockaddr_pool[MAX_CLIENTS_LIMIT];
51
52	int net_server(const char *hostaddr, in_port_t port)
53	{
54	unsigned int namelen;
55	int ret;
56	int flags;
57	struct sockaddr_in sin;
58	struct epoll_event ev, events[MAX_EVENTS];
59	int nfds, epollfd;
60	siginfo_t siginfo;
61	int sd_notify_stopping = 0;
62	MENU_SET *p_bbs_menu_new;
63	int i, j;
64	pid_t pid;
65
66	socket_server = socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);
67
68	if (socket_server < 0)
69	{
70	log_error("Create socket failed\n");
71	return -1;
72	}
73
74	sin.sin_family = AF_INET;
75	sin.sin_addr.s_addr = (hostaddr[0] != '\0' ? inet_addr(hostaddr) : INADDR_ANY);
76	sin.sin_port = htons(port);
77
78	// Reuse address and port
79	flags = 1;
80	if (setsockopt(socket_server, SOL_SOCKET, SO_REUSEADDR, &flags, sizeof(flags)) < 0)
81	{
82	log_error("setsockopt SO_REUSEADDR error (%d)\n", errno);
83	}
84	if (setsockopt(socket_server, SOL_SOCKET, SO_REUSEPORT, &flags, sizeof(flags)) < 0)
85	{
86	log_error("setsockopt SO_REUSEPORT error (%d)\n", errno);
87	}
88
89	if (bind(socket_server, (struct sockaddr *)&sin, sizeof(sin)) < 0)
90	{
91	log_error("Bind address %s:%u failed (%d)\n",
92	inet_ntoa(sin.sin_addr), ntohs(sin.sin_port), errno);
93	return -1;
94	}
95
96	if (listen(socket_server, 10) < 0)
97	{
98	log_error("Socket listen failed (%d)\n", errno);
99	return -1;
100	}
101
102	strncpy(hostaddr_server, inet_ntoa(sin.sin_addr), sizeof(hostaddr_server) - 1);
103	hostaddr_server[sizeof(hostaddr_server) - 1] = '\0';
104
105	port_server = ntohs(sin.sin_port);
106	namelen = sizeof(sin);
107
108	log_std("Listening at %s:%d\n", hostaddr_server, port_server);
109
110	epollfd = epoll_create1(0);
111	if (epollfd < 0)
112	{
113	log_error("epoll_create1() error (%d)\n", errno);
114	return -1;
115	}
116
117	ev.events = EPOLLIN;
118	ev.data.fd = socket_server;
119	if (epoll_ctl(epollfd, EPOLL_CTL_ADD, socket_server, &ev) == -1)
120	{
121	log_error("epoll_ctl(socket_server) error (%d)\n", errno);
122	if (close(epollfd) < 0)
123	{
124	log_error("close(epoll) error (%d)\n");
125	}
126	return -1;
127	}
128
129	flags = fcntl(socket_server, F_GETFL, 0);
130	fcntl(socket_server, F_SETFL, flags \| O_NONBLOCK);
131
132	// Startup complete
133	sd_notifyf(0, "READY=1\n"
134	"STATUS=Listening at %s:%d\n"
135	"MAINPID=%d",
136	hostaddr_server, port_server, getpid());
137
138	while (!SYS_server_exit \|\| SYS_child_process_count > 0)
139	{
140	if (SYS_server_exit && !sd_notify_stopping)
141	{
142	sd_notify(0, "STOPPING=1");
143	sd_notify_stopping = 1;
144	}
145
146	while ((SYS_child_exit \|\| SYS_server_exit) && SYS_child_process_count > 0)
147	{
148	SYS_child_exit = 0;
149
150	siginfo.si_pid = 0;
151	ret = waitid(P_ALL, 0, &siginfo, WEXITED \| WNOHANG);
152	if (ret == 0 && siginfo.si_pid > 0)
153	{
154	SYS_child_exit = 1; // Retry waitid
155
156	SYS_child_process_count--;
157	log_std("Child process (%d) exited\n", siginfo.si_pid);
158
159	i = 0;
160	for (; i < BBS_max_client; i++)
161	{
162	if (process_sockaddr_pool[i].pid == siginfo.si_pid)
163	{
164	process_sockaddr_pool[i].pid = 0;
165	break;
166	}
167	}
168	if (i >= BBS_max_client)
169	{
170	log_error("Child process (%d) not found in process sockaddr pool\n", siginfo.si_pid);
171	}
172	}
173	else if (ret == 0)
174	{
175	break;
176	}
177	else if (ret < 0)
178	{
179	log_error("Error in waitid: %d\n", errno);
180	break;
181	}
182	}
183
184	if (SYS_server_exit && !SYS_child_exit && SYS_child_process_count > 0)
185	{
186	log_std("Notify %d child process to exit\n", SYS_child_process_count);
187	if (kill(0, SIGTERM) < 0)
188	{
189	log_error("Send SIGTERM signal failed (%d)\n", errno);
190	}
191
192	sd_notifyf(0, "STATUS=Waiting for %d child process to exit", SYS_child_process_count);
193	}
194
195	if (SYS_conf_reload && !SYS_server_exit)
196	{
197	SYS_conf_reload = 0;
198	sd_notify(0, "RELOADING=1");
199
200	// Reload configuration
201	if (load_conf(CONF_BBSD) < 0)
202	{
203	log_error("Reload conf failed\n");
204	}
205
206	p_bbs_menu_new = calloc(1, sizeof(MENU_SET));
207	if (p_bbs_menu_new == NULL)
208	{
209	log_error("OOM: calloc(MENU_SET)\n");
210	}
211	else if (load_menu(p_bbs_menu_new, CONF_MENU) < 0)
212	{
213	unload_menu(p_bbs_menu_new);
214	free(p_bbs_menu_new);
215	p_bbs_menu_new = NULL;
216
217	log_error("Reload menu failed\n");
218	}
219	else
220	{
221	unload_menu(p_bbs_menu);
222	free(p_bbs_menu);
223
224	p_bbs_menu = p_bbs_menu_new;
225	p_bbs_menu_new = NULL;
226
227	log_std("Reload menu successfully\n");
228	}
229
230	sd_notify(0, "READY=1");
231	}
232
233	if (SYS_data_file_reload && !SYS_server_exit)
234	{
235	SYS_data_file_reload = 0;
236	sd_notify(0, "RELOADING=1");
237
238	for (int i = 0; i < data_files_load_startup_count; i++)
239	{
240	if (load_file(data_files_load_startup[i]) < 0)
241	{
242	log_error("load_file_mmap(%s) error\n", data_files_load_startup[i]);
243	}
244	}
245
246	log_std("Reload data files successfully\n");
247	sd_notify(0, "READY=1");
248	}
249
250	if (SYS_section_list_reload && !SYS_server_exit)
251	{
252	SYS_section_list_reload = 0;
253
254	if (section_list_loader_reload() < 0)
255	{
256	log_error("ksection_list_loader_reload() failed\n");
257	}
258	}
259
260	nfds = epoll_wait(epollfd, events, MAX_EVENTS, 100); // 0.1 second
261
262	if (nfds < 0)
263	{
264	if (errno != EINTR)
265	{
266	log_error("epoll_wait() error (%d)\n", errno);
267	break;
268	}
269	continue;
270	}
271
272	// Stop accept new connection on exit
273	if (SYS_server_exit)
274	{
275	continue;
276	}
277
278	for (int i = 0; i < nfds; i++)
279	{
280	if (events[i].data.fd == socket_server)
281	{
282	while (!SYS_server_exit) // Accept all incoming connections until error
283	{
284	socket_client = accept(socket_server, (struct sockaddr *)&sin, &namelen);
285	if (socket_client < 0)
286	{
287	if (errno == EAGAIN \|\| errno == EWOULDBLOCK)
288	{
289	break;
290	}
291	else if (errno == EINTR)
292	{
293	continue;
294	}
295	else
296	{
297	log_error("accept(socket_server) error (%d)\n", errno);
298	break;
299	}
300	}
301
302	strncpy(hostaddr_client, inet_ntoa(sin.sin_addr), sizeof(hostaddr_client) - 1);
303	hostaddr_client[sizeof(hostaddr_client) - 1] = '\0';
304
305	port_client = ntohs(sin.sin_port);
306
307	log_std("Accept connection from %s:%d\n", hostaddr_client, port_client);
308
309	if (SYS_child_process_count - 1 < BBS_max_client)
310	{
311	j = 0;
312	for (i = 0; i < BBS_max_client; i++)
313	{
314	if (process_sockaddr_pool[i].pid != 0 && process_sockaddr_pool[i].s_addr == sin.sin_addr.s_addr)
315	{
316	j++;
317	if (j >= BBS_max_client_per_ip)
318	{
319	log_error("Too many client connections (%d) from %s\n", j, hostaddr_client);
320	break;
321	}
322	}
323	}
324
325	if (j < BBS_max_client_per_ip)
326	{
327	if ((pid = fork_server()) < 0)
328	{
329	log_error("fork_server() error\n");
330	}
331	else if (pid > 0)
332	{
333	i = 0;
334	for (; i < BBS_max_client; i++)
335	{
336	if (process_sockaddr_pool[i].pid == 0)
337	{
338	break;
339	}
340	}
341
342	if (i >= BBS_max_client)
343	{
344	log_error("Process sockaddr pool depleted\n");
345	}
346	else
347	{
348	process_sockaddr_pool[i].pid = pid;
349	process_sockaddr_pool[i].s_addr = sin.sin_addr.s_addr;
350	}
351	}
352	}
353	}
354	else
355	{
356	log_error("Rejected client connection over limit (%d)\n", SYS_child_process_count - 1);
357	}
358
359	if (close(socket_client) == -1)
360	{
361	log_error("close(socket_lient) error (%d)\n", errno);
362	}
363	}
364	}
365	}
366	}
367
368	if (close(epollfd) < 0)
369	{
370	log_error("close(epoll) error (%d)\n");
371	}
372
373	fcntl(socket_server, F_SETFL, flags);
374
375	if (close(socket_server) == -1)
376	{
377	log_error("Close server socket failed\n");
378	}
379
380	return 0;
381	}
webmaster@leafok.com	ViewVC Help
Powered by ViewVC 1.3.0-beta1