1 /******************************************************************************/
2 /* pfixtools: a collection of postfix related tools */
4 /* ________________________________________________________________________ */
6 /* Redistribution and use in source and binary forms, with or without */
7 /* modification, are permitted provided that the following conditions */
10 /* 1. Redistributions of source code must retain the above copyright */
11 /* notice, this list of conditions and the following disclaimer. */
12 /* 2. Redistributions in binary form must reproduce the above copyright */
13 /* notice, this list of conditions and the following disclaimer in the */
14 /* documentation and/or other materials provided with the distribution. */
15 /* 3. The names of its contributors may not be used to endorse or promote */
16 /* products derived from this software without specific prior written */
19 /* THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND */
20 /* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE */
21 /* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR */
22 /* PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS */
23 /* BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR */
24 /* CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF */
25 /* SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS */
26 /* INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN */
27 /* CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) */
28 /* ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF */
29 /* THE POSSIBILITY OF SUCH DAMAGE. */
30 /******************************************************************************/
33 * Copyright © 2008 Florent Bruneau
40 static PA(server_t) listeners = ARRAY_INIT;
41 static PA(server_t) server_pool = ARRAY_INIT;
43 struct ev_loop *global_loop = NULL;
44 static start_client_t client_start = NULL;
45 static delete_client_t client_delete = NULL;
46 static run_client_t client_run = NULL;
47 static refresh_t config_refresh = NULL;
48 static void *config_ptr = NULL;
50 static server_t* server_new(void)
52 server_t* server = p_new(server_t, 1);
57 static void server_wipe(server_t *server)
59 if (server->fd >= 0) {
60 ev_io_stop(global_loop, &server->io);
64 if (server->data && server->clear_data) {
65 server->clear_data(&server->data);
69 static void server_delete(server_t **server)
72 buffer_wipe(&(*server)->ibuf);
73 buffer_wipe(&(*server)->obuf);
79 static server_t* server_acquire(void)
81 if (server_pool.len != 0) {
82 return array_elt(server_pool, --server_pool.len);
88 void server_release(server_t *server)
91 array_add(server_pool, server);
94 static int server_init(void)
96 global_loop = ev_default_loop(0);
100 static void server_shutdown(void)
102 array_deep_wipe(listeners, server_delete);
103 array_deep_wipe(server_pool, server_delete);
105 module_init(server_init);
106 module_exit(server_shutdown);
108 static void client_cb(EV_P_ struct ev_io *w, int events)
110 server_t *server = (server_t*)w;
112 debug("Entering client_cb for %p, %d (%d | %d)", w, events, EV_WRITE, EV_READ);
114 if (events & EV_WRITE && server->obuf.len) {
115 if (buffer_write(&server->obuf, server->fd) < 0) {
116 server_release(server);
119 if (!server->obuf.len) {
120 ev_io_set(&server->io, server->fd, EV_READ);
124 if (events & EV_READ) {
125 if (server->run(server, config_ptr) < 0) {
126 server_release(server);
132 static int start_client(server_t *server, start_client_t starter,
133 run_client_t runner, delete_client_t deleter)
139 sock = accept_nonblock(server->fd);
146 data = starter(server);
153 tmp = server_acquire();
157 tmp->clear_data = deleter;
158 ev_io_init(&tmp->io, client_cb, tmp->fd, EV_READ);
159 ev_io_start(global_loop, &tmp->io);
163 static void server_cb(EV_P_ struct ev_io *w, int events)
165 server_t *server = (server_t*)w;
166 if (start_client(server, client_start, client_run, client_delete) != 0) {
167 ev_unloop(EV_A_ EVUNLOOP_ALL);
171 int start_server(int port, start_listener_t starter, delete_client_t deleter)
173 struct sockaddr_in addr = {
174 .sin_family = AF_INET,
175 .sin_addr = { htonl(INADDR_LOOPBACK) },
181 addr.sin_port = htons(port);
182 sock = tcp_listen_nonblock((const struct sockaddr *)&addr, sizeof(addr));
195 tmp = server_acquire();
199 tmp->clear_data = deleter;
200 ev_io_init(&tmp->io, server_cb, tmp->fd, EV_READ);
201 ev_io_start(global_loop, &tmp->io);
202 array_add(listeners, tmp);
206 server_t *server_register(int fd, run_client_t runner, void *data)
212 server_t *tmp = server_acquire();
216 tmp->clear_data = NULL;
217 ev_io_init(&tmp->io, client_cb, tmp->fd, EV_READ);
218 ev_io_start(global_loop, &tmp->io);
222 static void refresh_cb(EV_P_ struct ev_signal *w, int event)
224 if (!config_refresh(config_ptr)) {
225 ev_unloop(EV_A_ EVUNLOOP_ALL);
229 static void exit_cb(EV_P_ struct ev_signal *w, int event)
231 ev_unloop(EV_A_ EVUNLOOP_ALL);
234 int server_loop(start_client_t starter, delete_client_t deleter,
235 run_client_t runner, refresh_t refresh, void* config)
237 struct ev_signal ev_sighup;
238 struct ev_signal ev_sigint;
239 struct ev_signal ev_sigterm;
241 client_start = starter;
242 client_delete = deleter;
244 config_refresh = refresh;
247 if (refresh != NULL) {
248 ev_signal_init(&ev_sighup, refresh_cb, SIGHUP);
249 ev_signal_start(global_loop, &ev_sighup);
251 ev_signal_init(&ev_sigint, exit_cb, SIGINT);
252 ev_signal_start(global_loop, &ev_sigint);
253 ev_signal_init(&ev_sigterm, exit_cb, SIGTERM);
254 ev_signal_start(global_loop, &ev_sigterm);
256 info("entering processing loop");
257 ev_loop(global_loop, 0);
258 info("exit requested");