lib/lws-plat-unix.c

   1 #include "private-libwebsockets.h"
   2
   3 #include <pwd.h>
   4 #include <grp.h>
   5
   6 /*
   7  * included from libwebsockets.c for unix builds
   8  */
   9
  10 unsigned long long time_in_microseconds(void)
  11 {
  12         struct timeval tv;
  13         gettimeofday(&tv, NULL);
  14         return ((unsigned long long)tv.tv_sec * 1000000LL) + tv.tv_usec;
  15 }
  16
  17 LWS_VISIBLE int lws_get_random(struct lws_context *context,
  18                                                              void *buf, int len)
  19 {
  20         return read(context->fd_random, (char *)buf, len);
  21 }
  22
  23 LWS_VISIBLE int lws_send_pipe_choked(struct lws *wsi)
  24 {
  25         struct lws_pollfd fds;
  26
  27         /* treat the fact we got a truncated send pending as if we're choked */
  28         if (wsi->truncated_send_len)
  29                 return 1;
  30
  31         fds.fd = wsi->sock;
  32         fds.events = POLLOUT;
  33         fds.revents = 0;
  34
  35         if (poll(&fds, 1, 0) != 1)
  36                 return 1;
  37
  38         if ((fds.revents & POLLOUT) == 0)
  39                 return 1;
  40
  41         /* okay to send another packet without blocking */
  42
  43         return 0;
  44 }
  45
  46 LWS_VISIBLE int
  47 lws_poll_listen_fd(struct lws_pollfd *fd)
  48 {
  49         return poll(fd, 1, 0);
  50 }
  51
  52 /*
  53  * This is just used to interrupt poll waiting
  54  * we don't have to do anything with it.
  55  */
  56 static void lws_sigusr2(int sig)
  57 {
  58 }
  59
  60 /**
  61  * lws_cancel_service() - Cancel servicing of pending websocket activity
  62  * @context:    Websocket context
  63  *
  64  *      This function let a call to lws_service() waiting for a timeout
  65  *      immediately return.
  66  */
  67 LWS_VISIBLE void
  68 lws_cancel_service(struct lws_context *context)
  69 {
  70         char buf = 0;
  71
  72         if (write(context->dummy_pipe_fds[1], &buf, sizeof(buf)) != 1)
  73                 lwsl_err("Cannot write to dummy pipe");
  74 }
  75
  76 LWS_VISIBLE void lwsl_emit_syslog(int level, const char *line)
  77 {
  78         int syslog_level = LOG_DEBUG;
  79
  80         switch (level) {
  81         case LLL_ERR:
  82                 syslog_level = LOG_ERR;
  83                 break;
  84         case LLL_WARN:
  85                 syslog_level = LOG_WARNING;
  86                 break;
  87         case LLL_NOTICE:
  88                 syslog_level = LOG_NOTICE;
  89                 break;
  90         case LLL_INFO:
  91                 syslog_level = LOG_INFO;
  92                 break;
  93         }
  94         syslog(syslog_level, "%s", line);
  95 }
  96
  97 LWS_VISIBLE int
  98 lws_plat_service(struct lws_context *context, int timeout_ms)
  99 {
 100         int n;
 101         int m;
 102         char buf;
 103 #ifdef LWS_OPENSSL_SUPPORT
 104         struct lws *wsi, *wsi_next;
 105 #endif
 106
 107         /* stay dead once we are dead */
 108
 109         if (!context)
 110                 return 1;
 111
 112         lws_libev_run(context);
 113
 114         context->service_tid = context->protocols[0].callback(context, NULL,
 115                                      LWS_CALLBACK_GET_THREAD_ID, NULL, NULL, 0);
 116
 117 #ifdef LWS_OPENSSL_SUPPORT
 118         /* if we know we have non-network pending data, do not wait in poll */
 119         if (lws_ssl_anybody_has_buffered_read(context))
 120                 timeout_ms = 0;
 121 #endif
 122         n = poll(context->fds, context->fds_count, timeout_ms);
 123         context->service_tid = 0;
 124
 125 #ifdef LWS_OPENSSL_SUPPORT
 126         if (!lws_ssl_anybody_has_buffered_read(context) && n == 0) {
 127 #else
 128         if (n == 0) /* poll timeout */ {
 129 #endif
 130                 lws_service_fd(context, NULL);
 131                 return 0;
 132         }
 133
 134         if (n < 0) {
 135                 if (LWS_ERRNO != LWS_EINTR)
 136                         return -1;
 137                 return 0;
 138         }
 139
 140 #ifdef LWS_OPENSSL_SUPPORT
 141         /*
 142          * For all guys with buffered SSL read data already saved up, if they
 143          * are not flowcontrolled, fake their POLLIN status so they'll get
 144          * service to use up the buffered incoming data, even though their
 145          * network socket may have nothing
 146          */
 147
 148         wsi = context->pending_read_list;
 149         while (wsi) {
 150                 wsi_next = wsi->pending_read_list_next;
 151        context->fds[wsi->position_in_fds_table].revents |=
 152                context->fds[wsi->position_in_fds_table].events & POLLIN;
 153        if (context->fds[wsi->position_in_fds_table].revents & POLLIN) {
 154                         /*
 155                          * he's going to get serviced now, take him off the
 156                          * list of guys with buffered SSL.  If he still has some
 157                          * at the end of the service, he'll get put back on the
 158                          * list then.
 159                          */
 160                         lws_ssl_remove_wsi_from_buffered_list(wsi);
 161                 }
 162                 wsi = wsi_next;
 163         }
 164 #endif
 165
 166         /* any socket with events to service? */
 167
 168         for (n = 0; n < context->fds_count; n++) {
 169
 170                 if (!context->fds[n].revents)
 171                         continue;
 172
 173                 if (context->fds[n].fd == context->dummy_pipe_fds[0]) {
 174                         if (read(context->fds[n].fd, &buf, 1) != 1)
 175                                 lwsl_err("Cannot read from dummy pipe.");
 176                         continue;
 177                 }
 178
 179                 m = lws_service_fd(context, &context->fds[n]);
 180                 if (m < 0)
 181                         return -1;
 182                 /* if something closed, retry this slot */
 183                 if (m)
 184                         n--;
 185         }
 186
 187         return 0;
 188 }
 189
 190 LWS_VISIBLE int
 191 lws_plat_set_socket_options(struct lws_context *context, int fd)
 192 {
 193         int optval = 1;
 194         socklen_t optlen = sizeof(optval);
 195
 196 #if defined(__APPLE__) || defined(__FreeBSD__) || defined(__NetBSD__) || \
 197     defined(__OpenBSD__)
 198         struct protoent *tcp_proto;
 199 #endif
 200
 201         if (context->ka_time) {
 202                 /* enable keepalive on this socket */
 203                 optval = 1;
 204                 if (setsockopt(fd, SOL_SOCKET, SO_KEEPALIVE,
 205                                              (const void *)&optval, optlen) < 0)
 206                         return 1;
 207
 208 #if defined(__APPLE__) || defined(__FreeBSD__) || defined(__NetBSD__) || \
 209         defined(__CYGWIN__) || defined(__OpenBSD__)
 210
 211                 /*
 212                  * didn't find a way to set these per-socket, need to
 213                  * tune kernel systemwide values
 214                  */
 215 #else
 216                 /* set the keepalive conditions we want on it too */
 217                 optval = context->ka_time;
 218                 if (setsockopt(fd, IPPROTO_TCP, TCP_KEEPIDLE,
 219                                              (const void *)&optval, optlen) < 0)
 220                         return 1;
 221
 222                 optval = context->ka_interval;
 223                 if (setsockopt(fd, IPPROTO_TCP, TCP_KEEPINTVL,
 224                                              (const void *)&optval, optlen) < 0)
 225                         return 1;
 226
 227                 optval = context->ka_probes;
 228                 if (setsockopt(fd, IPPROTO_TCP, TCP_KEEPCNT,
 229                                              (const void *)&optval, optlen) < 0)
 230                         return 1;
 231 #endif
 232         }
 233
 234         /* Disable Nagle */
 235         optval = 1;
 236 #if !defined(__APPLE__) && !defined(__FreeBSD__) && !defined(__NetBSD__) && \
 237     !defined(__OpenBSD__)
 238         if (setsockopt(fd, SOL_TCP, TCP_NODELAY, (const void *)&optval, optlen) < 0)
 239                 return 1;
 240 #else
 241         tcp_proto = getprotobyname("TCP");
 242         if (setsockopt(fd, tcp_proto->p_proto, TCP_NODELAY, &optval, optlen) < 0)
 243                 return 1;
 244 #endif
 245
 246         /* We are nonblocking... */
 247         if (fcntl(fd, F_SETFL, O_NONBLOCK) < 0)
 248                 return 1;
 249
 250         return 0;
 251 }
 252
 253 LWS_VISIBLE void
 254 lws_plat_drop_app_privileges(struct lws_context_creation_info *info)
 255 {
 256         if (info->uid != -1) {
 257                 struct passwd *p = getpwuid(info->uid);
 258
 259                 if (p) {
 260                         initgroups(p->pw_name, info->gid);
 261                         if (setuid(info->uid))
 262                                 lwsl_warn("setuid: %s\n", strerror(LWS_ERRNO));
 263                         else
 264                                 lwsl_notice(" Set privs to user '%s'\n", p->pw_name);
 265                 } else
 266                         lwsl_warn("getpwuid: unable to find uid %d", info->uid);
 267         }
 268         if (info->gid != -1)
 269                 if (setgid(info->gid))
 270                         lwsl_warn("setgid: %s\n", strerror(LWS_ERRNO));
 271
 272 }
 273
 274 static void sigpipe_handler(int x)
 275 {
 276 }
 277
 278
 279 LWS_VISIBLE int
 280 lws_plat_context_early_init(void)
 281 {
 282         sigset_t mask;
 283
 284         signal(SIGUSR2, lws_sigusr2);
 285         sigemptyset(&mask);
 286         sigaddset(&mask, SIGUSR2);
 287
 288         sigprocmask(SIG_BLOCK, &mask, NULL);
 289
 290         signal(SIGPIPE, sigpipe_handler);
 291
 292         return 0;
 293 }
 294
 295 LWS_VISIBLE void
 296 lws_plat_context_early_destroy(struct lws_context *context)
 297 {
 298 }
 299
 300 LWS_VISIBLE void
 301 lws_plat_context_late_destroy(struct lws_context *context)
 302 {
 303         if (context->lws_lookup)
 304                 lws_free(context->lws_lookup);
 305
 306         close(context->dummy_pipe_fds[0]);
 307         close(context->dummy_pipe_fds[1]);
 308         close(context->fd_random);
 309 }
 310
 311 /* cast a struct sockaddr_in6 * into addr for ipv6 */
 312
 313 LWS_VISIBLE int
 314 interface_to_sa(struct lws_context *context,
 315                 const char *ifname, struct sockaddr_in *addr, size_t addrlen)
 316 {
 317         int rc = -1;
 318
 319         struct ifaddrs *ifr;
 320         struct ifaddrs *ifc;
 321 #ifdef LWS_USE_IPV6
 322         struct sockaddr_in6 *addr6 = (struct sockaddr_in6 *)addr;
 323 #endif
 324
 325         getifaddrs(&ifr);
 326         for (ifc = ifr; ifc != NULL && rc; ifc = ifc->ifa_next) {
 327                 if (!ifc->ifa_addr)
 328                         continue;
 329
 330                 lwsl_info(" interface %s vs %s\n", ifc->ifa_name, ifname);
 331
 332                 if (strcmp(ifc->ifa_name, ifname))
 333                         continue;
 334
 335                 switch (ifc->ifa_addr->sa_family) {
 336                 case AF_INET:
 337 #ifdef LWS_USE_IPV6
 338                         if (LWS_IPV6_ENABLED(context)) {
 339                                 /* map IPv4 to IPv6 */
 340                                 bzero((char *)&addr6->sin6_addr,
 341                                                 sizeof(struct in6_addr));
 342                                 addr6->sin6_addr.s6_addr[10] = 0xff;
 343                                 addr6->sin6_addr.s6_addr[11] = 0xff;
 344                                 memcpy(&addr6->sin6_addr.s6_addr[12],
 345                                         &((struct sockaddr_in *)ifc->ifa_addr)->sin_addr,
 346                                                         sizeof(struct in_addr));
 347                         } else
 348 #endif
 349                                 memcpy(addr,
 350                                         (struct sockaddr_in *)ifc->ifa_addr,
 351                                                     sizeof(struct sockaddr_in));
 352                         break;
 353 #ifdef LWS_USE_IPV6
 354                 case AF_INET6:
 355                         memcpy(&addr6->sin6_addr,
 356                           &((struct sockaddr_in6 *)ifc->ifa_addr)->sin6_addr,
 357                                                        sizeof(struct in6_addr));
 358                         break;
 359 #endif
 360                 default:
 361                         continue;
 362                 }
 363                 rc = 0;
 364         }
 365
 366         freeifaddrs(ifr);
 367
 368         if (rc == -1) {
 369                 /* check if bind to IP adddress */
 370 #ifdef LWS_USE_IPV6
 371                 if (inet_pton(AF_INET6, ifname, &addr6->sin6_addr) == 1)
 372                         rc = 0;
 373                 else
 374 #endif
 375                 if (inet_pton(AF_INET, ifname, &addr->sin_addr) == 1)
 376                         rc = 0;
 377         }
 378
 379         return rc;
 380 }
 381
 382 LWS_VISIBLE void
 383 lws_plat_insert_socket_into_fds(struct lws_context *context,
 384                                                        struct lws *wsi)
 385 {
 386         lws_libev_io(context, wsi, LWS_EV_START | LWS_EV_READ);
 387         context->fds[context->fds_count++].revents = 0;
 388 }
 389
 390 LWS_VISIBLE void
 391 lws_plat_delete_socket_from_fds(struct lws_context *context,
 392                                                 struct lws *wsi, int m)
 393 {
 394 }
 395
 396 LWS_VISIBLE void
 397 lws_plat_service_periodic(struct lws_context *context)
 398 {
 399         /* if our parent went down, don't linger around */
 400         if (context->started_with_parent &&
 401                               kill(context->started_with_parent, 0) < 0)
 402                 kill(getpid(), SIGTERM);
 403 }
 404
 405 LWS_VISIBLE int
 406 lws_plat_change_pollfd(struct lws_context *context,
 407                       struct lws *wsi, struct lws_pollfd *pfd)
 408 {
 409         return 0;
 410 }
 411
 412 LWS_VISIBLE const char *
 413 lws_plat_inet_ntop(int af, const void *src, char *dst, int cnt)
 414 {
 415         return inet_ntop(af, src, dst, cnt);
 416 }
 417
 418 static lws_filefd_type
 419 _lws_plat_file_open(struct lws *wsi, const char *filename,
 420                     unsigned long *filelen, int flags)
 421 {
 422         struct stat stat_buf;
 423         int ret = open(filename, flags, 0664);
 424
 425         if (ret < 0)
 426                 return LWS_INVALID_FILE;
 427
 428         if (fstat(ret, &stat_buf) < 0) {
 429                 close(ret);
 430                 return LWS_INVALID_FILE;
 431         }
 432         *filelen = stat_buf.st_size;
 433         return ret;
 434 }
 435
 436 static int
 437 _lws_plat_file_close(struct lws *wsi, lws_filefd_type fd)
 438 {
 439         return close(fd);
 440 }
 441
 442 unsigned long
 443 _lws_plat_file_seek_cur(struct lws *wsi, lws_filefd_type fd, long offset)
 444 {
 445         return lseek(fd, offset, SEEK_CUR);
 446 }
 447
 448 static int
 449 _lws_plat_file_read(struct lws *wsi, lws_filefd_type fd, unsigned long *amount,
 450                     unsigned char *buf, unsigned long len)
 451 {
 452         long n;
 453
 454         n = read((int)fd, buf, len);
 455         if (n == -1) {
 456                 *amount = 0;
 457                 return -1;
 458         }
 459
 460         *amount = n;
 461
 462         return 0;
 463 }
 464
 465 static int
 466 _lws_plat_file_write(struct lws *wsi, lws_filefd_type fd, unsigned long *amount,
 467                      unsigned char *buf, unsigned long len)
 468 {
 469         long n;
 470
 471         n = write((int)fd, buf, len);
 472         if (n == -1) {
 473                 *amount = 0;
 474                 return -1;
 475         }
 476
 477         *amount = n;
 478
 479         return 0;
 480 }
 481
 482 LWS_VISIBLE int
 483 lws_plat_init(struct lws_context *context,
 484               struct lws_context_creation_info *info)
 485 {
 486         context->lws_lookup = lws_zalloc(sizeof(struct lws *) * context->max_fds);
 487         if (context->lws_lookup == NULL) {
 488                 lwsl_err(
 489                   "Unable to allocate lws_lookup array for %d connections\n",
 490                                                               context->max_fds);
 491                 return 1;
 492         }
 493
 494         context->fd_random = open(SYSTEM_RANDOM_FILEPATH, O_RDONLY);
 495         if (context->fd_random < 0) {
 496                 lwsl_err("Unable to open random device %s %d\n",
 497                                     SYSTEM_RANDOM_FILEPATH, context->fd_random);
 498                 return 1;
 499         }
 500
 501         if (lws_libev_init_fd_table(context))
 502                 /* libev handled it instead */
 503                 return 0;
 504
 505         if (pipe(context->dummy_pipe_fds)) {
 506                 lwsl_err("Unable to create pipe\n");
 507                 return 1;
 508         }
 509
 510         /* use the read end of pipe as first item */
 511         context->fds[0].fd = context->dummy_pipe_fds[0];
 512         context->fds[0].events = LWS_POLLIN;
 513         context->fds[0].revents = 0;
 514         context->fds_count = 1;
 515
 516         context->fops.open      = _lws_plat_file_open;
 517         context->fops.close     = _lws_plat_file_close;
 518         context->fops.seek_cur  = _lws_plat_file_seek_cur;
 519         context->fops.read      = _lws_plat_file_read;
 520         context->fops.write     = _lws_plat_file_write;
 521
 522         return 0;
 523 }