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 "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>

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;

        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);
                        }
                        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_menu_reload && !SYS_server_exit)
                {
                        SYS_menu_reload = 0;
                        sd_notify(0, "RELOADING=1");

                        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 (fork_server() < 0)
                                        {
                                                log_error("fork_server() error\n");
                                        }

                                        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	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.19	#define _XOPEN_SOURCE 500
18			#define _POSIX_C_SOURCE 200809L
19			#define _GNU_SOURCE
20
21	sysadm	1.14	#include "net_server.h"
22	sysadm	1.1	#include "common.h"
23	sysadm	1.14	#include "log.h"
24	sysadm	1.7	#include "io.h"
25	sysadm	1.14	#include "fork.h"
26	sysadm	1.19	#include "menu.h"
27	sysadm	1.35	#include "file_loader.h"
28	sysadm	1.42	#include "section_list_loader.h"
29	sysadm	1.20	#include <errno.h>
30			#include <fcntl.h>
31			#include <string.h>
32	sysadm	1.19	#include <signal.h>
33	sysadm	1.20	#include <stdlib.h>
34	sysadm	1.19	#include <unistd.h>
35			#include <sys/syscall.h>
36	sysadm	1.7	#include <sys/socket.h>
37	sysadm	1.19	#include <sys/wait.h>
38	sysadm	1.25	#include <sys/epoll.h>
39	sysadm	1.9	#include <arpa/inet.h>
40	sysadm	1.31	#include <systemd/sd-daemon.h>
41	sysadm	1.3
42	sysadm	1.17	int net_server(const char *hostaddr, in_port_t port)
43	sysadm	1.1	{
44	sysadm	1.15	unsigned int namelen;
45	sysadm	1.19	int ret;
46	sysadm	1.15	int flags;
47	sysadm	1.13	struct sockaddr_in sin;
48	sysadm	1.25	struct epoll_event ev, events[MAX_EVENTS];
49			int nfds, epollfd;
50	sysadm	1.19	siginfo_t siginfo;
51	sysadm	1.31	int sd_notify_stopping = 0;
52	sysadm	1.34	MENU_SET *p_bbs_menu_new;
53	sysadm	1.10
54	sysadm	1.13	socket_server = socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);
55	sysadm	1.10
56	sysadm	1.13	if (socket_server < 0)
57			{
58			log_error("Create socket failed\n");
59	sysadm	1.27	return -1;
60	sysadm	1.13	}
61	sysadm	1.10
62	sysadm	1.13	sin.sin_family = AF_INET;
63	sysadm	1.23	sin.sin_addr.s_addr = (hostaddr[0] != '\0' ? inet_addr(hostaddr) : INADDR_ANY);
64	sysadm	1.13	sin.sin_port = htons(port);
65
66	sysadm	1.23	// Reuse address and port
67			flags = 1;
68			if (setsockopt(socket_server, SOL_SOCKET, SO_REUSEADDR, &flags, sizeof(flags)) < 0)
69			{
70			log_error("setsockopt SO_REUSEADDR error (%d)\n", errno);
71			}
72			if (setsockopt(socket_server, SOL_SOCKET, SO_REUSEPORT, &flags, sizeof(flags)) < 0)
73			{
74			log_error("setsockopt SO_REUSEPORT error (%d)\n", errno);
75			}
76
77	sysadm	1.13	if (bind(socket_server, (struct sockaddr *)&sin, sizeof(sin)) < 0)
78	sysadm	1.10	{
79	sysadm	1.23	log_error("Bind address %s:%u failed (%d)\n",
80			inet_ntoa(sin.sin_addr), ntohs(sin.sin_port), errno);
81	sysadm	1.27	return -1;
82	sysadm	1.10	}
83
84	sysadm	1.13	if (listen(socket_server, 10) < 0)
85	sysadm	1.10	{
86	sysadm	1.23	log_error("Socket listen failed (%d)\n", errno);
87	sysadm	1.27	return -1;
88	sysadm	1.10	}
89	sysadm	1.1
90	sysadm	1.16	strncpy(hostaddr_server, inet_ntoa(sin.sin_addr), sizeof(hostaddr_server) - 1);
91			hostaddr_server[sizeof(hostaddr_server) - 1] = '\0';
92
93	sysadm	1.13	port_server = ntohs(sin.sin_port);
94	sysadm	1.19	namelen = sizeof(sin);
95	sysadm	1.13
96			log_std("Listening at %s:%d\n", hostaddr_server, port_server);
97
98	sysadm	1.25	epollfd = epoll_create1(0);
99			if (epollfd < 0)
100			{
101			log_error("epoll_create1() error (%d)\n", errno);
102			return -1;
103			}
104
105	sysadm	1.28	ev.events = EPOLLIN;
106	sysadm	1.25	ev.data.fd = socket_server;
107			if (epoll_ctl(epollfd, EPOLL_CTL_ADD, socket_server, &ev) == -1)
108			{
109			log_error("epoll_ctl(socket_server) error (%d)\n", errno);
110	sysadm	1.30	if (close(epollfd) < 0)
111			{
112			log_error("close(epoll) error (%d)\n");
113			}
114	sysadm	1.25	return -1;
115			}
116
117			flags = fcntl(socket_server, F_GETFL, 0);
118			fcntl(socket_server, F_SETFL, flags \| O_NONBLOCK);
119
120	sysadm	1.31	// Startup complete
121			sd_notifyf(0, "READY=1\n"
122	sysadm	1.32	"STATUS=Listening at %s:%d\n"
123	sysadm	1.31	"MAINPID=%d",
124	sysadm	1.32	hostaddr_server, port_server, getpid());
125	sysadm	1.31
126	sysadm	1.19	while (!SYS_server_exit \|\| SYS_child_process_count > 0)
127	sysadm	1.13	{
128	sysadm	1.31	if (SYS_server_exit && !sd_notify_stopping)
129			{
130			sd_notify(0, "STOPPING=1");
131			sd_notify_stopping = 1;
132			}
133	sysadm	1.37
134	sysadm	1.22	while ((SYS_child_exit \|\| SYS_server_exit) && SYS_child_process_count > 0)
135	sysadm	1.19	{
136	sysadm	1.30	SYS_child_exit = 0;
137
138	sysadm	1.19	siginfo.si_pid = 0;
139			ret = waitid(P_ALL, 0, &siginfo, WEXITED \| WNOHANG);
140			if (ret == 0 && siginfo.si_pid > 0)
141			{
142	sysadm	1.30	SYS_child_exit = 1; // Retry waitid
143
144	sysadm	1.19	SYS_child_process_count--;
145			log_std("Child process (%d) exited\n", siginfo.si_pid);
146			}
147			else if (ret == 0)
148			{
149			break;
150			}
151			else if (ret < 0)
152			{
153			log_error("Error in waitid: %d\n", errno);
154			break;
155			}
156			}
157
158	sysadm	1.22	if (SYS_server_exit && !SYS_child_exit && SYS_child_process_count > 0)
159	sysadm	1.21	{
160	sysadm	1.22	log_std("Notify %d child process to exit\n", SYS_child_process_count);
161	sysadm	1.21	if (kill(0, SIGTERM) < 0)
162			{
163			log_error("Send SIGTERM signal failed (%d)\n", errno);
164			}
165	sysadm	1.31
166			sd_notifyf(0, "STATUS=Waiting for %d child process to exit", SYS_child_process_count);
167	sysadm	1.21	}
168
169	sysadm	1.20	if (SYS_menu_reload && !SYS_server_exit)
170	sysadm	1.19	{
171	sysadm	1.30	SYS_menu_reload = 0;
172	sysadm	1.37	sd_notify(0, "RELOADING=1");
173	sysadm	1.30
174	sysadm	1.34	p_bbs_menu_new = calloc(1, sizeof(MENU_SET));
175			if (p_bbs_menu_new == NULL)
176			{
177			log_error("OOM: calloc(MENU_SET)\n");
178			}
179			else if (load_menu(p_bbs_menu_new, CONF_MENU) < 0)
180			{
181			unload_menu(p_bbs_menu_new);
182			free(p_bbs_menu_new);
183	sysadm	1.38	p_bbs_menu_new = NULL;
184	sysadm	1.33
185	sysadm	1.19	log_error("Reload menu failed\n");
186			}
187			else
188			{
189	sysadm	1.34	unload_menu(p_bbs_menu);
190			free(p_bbs_menu);
191
192			p_bbs_menu = p_bbs_menu_new;
193			p_bbs_menu_new = NULL;
194
195	sysadm	1.19	log_std("Reload menu successfully\n");
196			}
197	sysadm	1.37
198			sd_notify(0, "READY=1");
199	sysadm	1.19	}
200
201	sysadm	1.35	if (SYS_data_file_reload && !SYS_server_exit)
202			{
203			SYS_data_file_reload = 0;
204	sysadm	1.37	sd_notify(0, "RELOADING=1");
205	sysadm	1.35
206			for (int i = 0; i < data_files_load_startup_count; i++)
207			{
208	sysadm	1.39	if (load_file(data_files_load_startup[i]) < 0)
209	sysadm	1.35	{
210			log_error("load_file_mmap(%s) error\n", data_files_load_startup[i]);
211			}
212			}
213
214			log_std("Reload data files successfully\n");
215	sysadm	1.37	sd_notify(0, "READY=1");
216	sysadm	1.35	}
217
218	sysadm	1.42	if (SYS_section_list_reload && !SYS_server_exit)
219			{
220			SYS_section_list_reload = 0;
221
222			if (section_list_loader_reload() < 0)
223			{
224			log_error("ksection_list_loader_reload() failed\n");
225			}
226			}
227
228	sysadm	1.25	nfds = epoll_wait(epollfd, events, MAX_EVENTS, 100); // 0.1 second
229	sysadm	1.22
230	sysadm	1.25	if (nfds < 0)
231	sysadm	1.19	{
232			if (errno != EINTR)
233			{
234	sysadm	1.25	log_error("epoll_wait() error (%d)\n", errno);
235			break;
236	sysadm	1.19	}
237			continue;
238			}
239	sysadm	1.13
240	sysadm	1.19	// Stop accept new connection on exit
241			if (SYS_server_exit)
242	sysadm	1.13	{
243			continue;
244			}
245
246	sysadm	1.25	for (int i = 0; i < nfds; i++)
247	sysadm	1.13	{
248	sysadm	1.25	if (events[i].data.fd == socket_server)
249	sysadm	1.13	{
250	sysadm	1.29	while (!SYS_server_exit) // Accept all incoming connections until error
251	sysadm	1.13	{
252	sysadm	1.25	socket_client = accept(socket_server, (struct sockaddr *)&sin, &namelen);
253			if (socket_client < 0)
254			{
255	sysadm	1.28	if (errno == EAGAIN \|\| errno == EWOULDBLOCK)
256			{
257			break;
258			}
259			else if (errno == EINTR)
260			{
261			continue;
262			}
263			else
264	sysadm	1.25	{
265			log_error("accept(socket_server) error (%d)\n", errno);
266	sysadm	1.28	break;
267	sysadm	1.25	}
268			}
269
270			strncpy(hostaddr_client, inet_ntoa(sin.sin_addr), sizeof(hostaddr_client) - 1);
271			hostaddr_client[sizeof(hostaddr_client) - 1] = '\0';
272
273			port_client = ntohs(sin.sin_port);
274
275			log_std("Accept connection from %s:%d\n", hostaddr_client, port_client);
276
277			if (fork_server() < 0)
278			{
279			log_error("fork_server() error\n");
280			}
281
282			if (close(socket_client) == -1)
283			{
284			log_error("close(socket_lient) error (%d)\n", errno);
285			}
286	sysadm	1.13	}
287			}
288			}
289	sysadm	1.25	}
290	sysadm	1.13
291	sysadm	1.30	if (close(epollfd) < 0)
292			{
293			log_error("close(epoll) error (%d)\n");
294			}
295
296	sysadm	1.25	fcntl(socket_server, F_SETFL, flags);
297	sysadm	1.13
298			if (close(socket_server) == -1)
299			{
300			log_error("Close server socket failed\n");
301			}
302	sysadm	1.7
303	sysadm	1.13	return 0;
304	sysadm	1.1	}
webmaster@leafok.com	ViewVC Help
Powered by ViewVC 1.3.0-beta1