common/server.c

   1 /******************************************************************************/
   2 /*          pfixtools: a collection of postfix related tools                  */
   3 /*          ~~~~~~~~~                                                         */
   4 /*  ________________________________________________________________________  */
   5 /*                                                                            */
   6 /*  Redistribution and use in source and binary forms, with or without        */
   7 /*  modification, are permitted provided that the following conditions        */
   8 /*  are met:                                                                  */
   9 /*                                                                            */
  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     */
  17 /*     permission.                                                            */
  18 /*                                                                            */
  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 /******************************************************************************/
  31
  32 /*
  33  * Copyright © 2008 Florent Bruneau
  34  */
  35
  36 #include "server.h"
  37 #include "epoll.h"
  38
  39 static server_t *listeners[1024];
  40 static int listener_count = 0;
  41
  42
  43 static server_t* server_new(void)
  44 {
  45     server_t* server = p_new(server_t, 1);
  46     server->fd = -1;
  47     return server;
  48 }
  49
  50 static void server_delete(server_t **server)
  51 {
  52     if (*server) {
  53         if ((*server)->fd >= 0) {
  54             close((*server)->fd);
  55         }
  56         if ((*server)->data && (*server)->clear_data) {
  57             (*server)->clear_data(&(*server)->data);
  58         }
  59         buffer_wipe(&(*server)->ibuf);
  60         buffer_wipe(&(*server)->obuf);
  61         p_delete(server);
  62     }
  63 }
  64
  65 static void server_shutdown(void)
  66 {
  67     for (int i = 0 ; i < listener_count ; ++i) {
  68         server_delete(&listeners[i]);
  69     }
  70 }
  71
  72 module_exit(server_shutdown);
  73
  74 int start_server(int port, start_listener_t starter, delete_client_t deleter)
  75 {
  76     struct sockaddr_in addr = {
  77         .sin_family = AF_INET,
  78         .sin_addr   = { htonl(INADDR_LOOPBACK) },
  79     };
  80     server_t *tmp;
  81     void* data = NULL;
  82     int sock;
  83
  84     addr.sin_port = htons(port);
  85     sock = tcp_listen_nonblock((const struct sockaddr *)&addr, sizeof(addr));
  86     if (sock < 0) {
  87         return -1;
  88     }
  89
  90     if (starter) {
  91       data = starter();
  92       if (data == NULL) {
  93         close(sock);
  94         return -1;
  95       }
  96     }
  97
  98     tmp             = server_new();
  99     tmp->fd         = sock;
 100     tmp->listener   = true;
 101     tmp->data       = data;
 102     tmp->clear_data = deleter;
 103     epoll_register(sock, EPOLLIN, tmp);
 104     listeners[listener_count++] = tmp;
 105     return 0;
 106 }
 107
 108 static int start_client(server_t *server, start_client_t starter,
 109                         delete_client_t deleter)
 110 {
 111     server_t *tmp;
 112     void* data = NULL;
 113     int sock;
 114
 115     sock = accept_nonblock(server->fd);
 116     if (sock < 0) {
 117         UNIXERR("accept");
 118         return -1;
 119     }
 120
 121     if (starter) {
 122         data = starter(server);
 123         if (data == NULL) {
 124             close(sock);
 125             return -1;
 126         }
 127     }
 128
 129     tmp             = server_new();
 130     tmp->fd         = sock;
 131     tmp->data       = data;
 132     tmp->clear_data = deleter;
 133     epoll_register(sock, EPOLLIN, tmp);
 134     return 0;
 135 }
 136
 137 int server_loop(start_client_t starter, delete_client_t deleter,
 138                 run_client_t runner, refresh_t refresh, void* config) {
 139     while (!sigint) {
 140         struct epoll_event evts[1024];
 141         int n;
 142
 143         if (sighup && refresh) {
 144             sighup = false;
 145             if (!refresh(config)) {
 146                 crit("error while refreshing configuration");
 147                 return EXIT_FAILURE;
 148             }
 149         }
 150
 151         n = epoll_select(evts, countof(evts), -1);
 152         if (n < 0) {
 153             if (errno != EAGAIN && errno != EINTR) {
 154                 UNIXERR("epoll_wait");
 155                 return EXIT_FAILURE;
 156             }
 157             continue;
 158         }
 159
 160         while (--n >= 0) {
 161             server_t *d = evts[n].data.ptr;
 162
 163             if (d->listener) {
 164                 (void)start_client(d, starter, deleter);
 165                 continue;
 166             }
 167
 168             if (evts[n].events & EPOLLIN) {
 169                 if (runner(d, config) < 0) {
 170                     server_delete(&d);
 171                     continue;
 172                 }
 173             }
 174
 175             if ((evts[n].events & EPOLLOUT) && d->obuf.len) {
 176                 if (buffer_write(&d->obuf, d->fd) < 0) {
 177                     server_delete(&d);
 178                     continue;
 179                 }
 180                 if (!d->obuf.len) {
 181                     epoll_modify(d->fd, EPOLLIN, d);
 182                 }
 183             }
 184         }
 185     }
 186     return EXIT_SUCCESS;
 187 }