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

        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;

                        if (reload_menu(&bbs_menu) < 0)
                        {
                                log_error("Reload menu failed\n");
                        }
                        else
                        {
                                log_std("Reload menu successfully\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	/***************************************************************************
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 "fork.h"
26	#include "menu.h"
27	#include <errno.h>
28	#include <fcntl.h>
29	#include <string.h>
30	#include <signal.h>
31	#include <stdlib.h>
32	#include <unistd.h>
33	#include <sys/syscall.h>
34	#include <sys/socket.h>
35	#include <sys/wait.h>
36	#include <sys/epoll.h>
37	#include <arpa/inet.h>
38	#include <systemd/sd-daemon.h>
39
40	int net_server(const char *hostaddr, in_port_t port)
41	{
42	unsigned int namelen;
43	int ret;
44	int flags;
45	struct sockaddr_in sin;
46	struct epoll_event ev, events[MAX_EVENTS];
47	int nfds, epollfd;
48	siginfo_t siginfo;
49	int sd_notify_stopping = 0;
50
51	socket_server = socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);
52
53	if (socket_server < 0)
54	{
55	log_error("Create socket failed\n");
56	return -1;
57	}
58
59	sin.sin_family = AF_INET;
60	sin.sin_addr.s_addr = (hostaddr[0] != '\0' ? inet_addr(hostaddr) : INADDR_ANY);
61	sin.sin_port = htons(port);
62
63	// Reuse address and port
64	flags = 1;
65	if (setsockopt(socket_server, SOL_SOCKET, SO_REUSEADDR, &flags, sizeof(flags)) < 0)
66	{
67	log_error("setsockopt SO_REUSEADDR error (%d)\n", errno);
68	}
69	if (setsockopt(socket_server, SOL_SOCKET, SO_REUSEPORT, &flags, sizeof(flags)) < 0)
70	{
71	log_error("setsockopt SO_REUSEPORT error (%d)\n", errno);
72	}
73
74	if (bind(socket_server, (struct sockaddr *)&sin, sizeof(sin)) < 0)
75	{
76	log_error("Bind address %s:%u failed (%d)\n",
77	inet_ntoa(sin.sin_addr), ntohs(sin.sin_port), errno);
78	return -1;
79	}
80
81	if (listen(socket_server, 10) < 0)
82	{
83	log_error("Socket listen failed (%d)\n", errno);
84	return -1;
85	}
86
87	strncpy(hostaddr_server, inet_ntoa(sin.sin_addr), sizeof(hostaddr_server) - 1);
88	hostaddr_server[sizeof(hostaddr_server) - 1] = '\0';
89
90	port_server = ntohs(sin.sin_port);
91	namelen = sizeof(sin);
92
93	log_std("Listening at %s:%d\n", hostaddr_server, port_server);
94
95	epollfd = epoll_create1(0);
96	if (epollfd < 0)
97	{
98	log_error("epoll_create1() error (%d)\n", errno);
99	return -1;
100	}
101
102	ev.events = EPOLLIN;
103	ev.data.fd = socket_server;
104	if (epoll_ctl(epollfd, EPOLL_CTL_ADD, socket_server, &ev) == -1)
105	{
106	log_error("epoll_ctl(socket_server) error (%d)\n", errno);
107	if (close(epollfd) < 0)
108	{
109	log_error("close(epoll) error (%d)\n");
110	}
111	return -1;
112	}
113
114	flags = fcntl(socket_server, F_GETFL, 0);
115	fcntl(socket_server, F_SETFL, flags \| O_NONBLOCK);
116
117	// Startup complete
118	sd_notifyf(0, "READY=1\n"
119	"STATUS=Listening at %s:%d\n"
120	"MAINPID=%d",
121	hostaddr_server, port_server, getpid());
122
123	while (!SYS_server_exit \|\| SYS_child_process_count > 0)
124	{
125	if (SYS_server_exit && !sd_notify_stopping)
126	{
127	sd_notify(0, "STOPPING=1");
128	sd_notify_stopping = 1;
129	}
130	while ((SYS_child_exit \|\| SYS_server_exit) && SYS_child_process_count > 0)
131	{
132	SYS_child_exit = 0;
133
134	siginfo.si_pid = 0;
135	ret = waitid(P_ALL, 0, &siginfo, WEXITED \| WNOHANG);
136	if (ret == 0 && siginfo.si_pid > 0)
137	{
138	SYS_child_exit = 1; // Retry waitid
139
140	SYS_child_process_count--;
141	log_std("Child process (%d) exited\n", siginfo.si_pid);
142	}
143	else if (ret == 0)
144	{
145	break;
146	}
147	else if (ret < 0)
148	{
149	log_error("Error in waitid: %d\n", errno);
150	break;
151	}
152	}
153
154	if (SYS_server_exit && !SYS_child_exit && SYS_child_process_count > 0)
155	{
156	log_std("Notify %d child process to exit\n", SYS_child_process_count);
157	if (kill(0, SIGTERM) < 0)
158	{
159	log_error("Send SIGTERM signal failed (%d)\n", errno);
160	}
161
162	sd_notifyf(0, "STATUS=Waiting for %d child process to exit", SYS_child_process_count);
163	}
164
165	if (SYS_menu_reload && !SYS_server_exit)
166	{
167	SYS_menu_reload = 0;
168
169	if (reload_menu(&bbs_menu) < 0)
170	{
171	log_error("Reload menu failed\n");
172	}
173	else
174	{
175	log_std("Reload menu successfully\n");
176	}
177	}
178
179	nfds = epoll_wait(epollfd, events, MAX_EVENTS, 100); // 0.1 second
180
181	if (nfds < 0)
182	{
183	if (errno != EINTR)
184	{
185	log_error("epoll_wait() error (%d)\n", errno);
186	break;
187	}
188	continue;
189	}
190
191	// Stop accept new connection on exit
192	if (SYS_server_exit)
193	{
194	continue;
195	}
196
197	for (int i = 0; i < nfds; i++)
198	{
199	if (events[i].data.fd == socket_server)
200	{
201	while (!SYS_server_exit) // Accept all incoming connections until error
202	{
203	socket_client = accept(socket_server, (struct sockaddr *)&sin, &namelen);
204	if (socket_client < 0)
205	{
206	if (errno == EAGAIN \|\| errno == EWOULDBLOCK)
207	{
208	break;
209	}
210	else if (errno == EINTR)
211	{
212	continue;
213	}
214	else
215	{
216	log_error("accept(socket_server) error (%d)\n", errno);
217	break;
218	}
219	}
220
221	strncpy(hostaddr_client, inet_ntoa(sin.sin_addr), sizeof(hostaddr_client) - 1);
222	hostaddr_client[sizeof(hostaddr_client) - 1] = '\0';
223
224	port_client = ntohs(sin.sin_port);
225
226	log_std("Accept connection from %s:%d\n", hostaddr_client, port_client);
227
228	if (fork_server() < 0)
229	{
230	log_error("fork_server() error\n");
231	}
232
233	if (close(socket_client) == -1)
234	{
235	log_error("close(socket_lient) error (%d)\n", errno);
236	}
237	}
238	}
239	}
240	}
241
242	if (close(epollfd) < 0)
243	{
244	log_error("close(epoll) error (%d)\n");
245	}
246
247	fcntl(socket_server, F_SETFL, flags);
248
249	if (close(socket_server) == -1)
250	{
251	log_error("Close server socket failed\n");
252	}
253
254	return 0;
255	}
webmaster@leafok.com	ViewVC Help
Powered by ViewVC 1.3.0-beta1