libatalk/dsi/dsi_stream.c

   1 /*
   2  * Copyright (c) 1998 Adrian Sun (asun@zoology.washington.edu)
   3  * All rights reserved. See COPYRIGHT.
   4  *
   5  * this file provides the following functions:
   6  * dsi_stream_write:    just write a bunch of bytes.
   7  * dsi_stream_read:     just read a bunch of bytes.
   8  * dsi_stream_send:     send a DSI header + data.
   9  * dsi_stream_receive:  read a DSI header + data.
  10  */
  11
  12 #ifdef HAVE_CONFIG_H
  13 #include "config.h"
  14 #endif /* HAVE_CONFIG_H */
  15
  16 #include <stdio.h>
  17 #include <stdlib.h>
  18
  19 #ifdef HAVE_UNISTD_H
  20 #include <unistd.h>
  21 #endif
  22
  23 #include <string.h>
  24 #include <errno.h>
  25 #include <sys/types.h>
  26 #include <sys/socket.h>
  27 #include <sys/uio.h>
  28
  29 #include <atalk/logger.h>
  30 #include <atalk/dsi.h>
  31 #include <atalk/util.h>
  32
  33 #define min(a,b)  ((a) < (b) ? (a) : (b))
  34
  35 #ifndef MSG_MORE
  36 #define MSG_MORE 0x8000
  37 #endif
  38
  39 #ifndef MSG_DONTWAIT
  40 #define MSG_DONTWAIT 0x40
  41 #endif
  42
  43 /*
  44  * afpd is sleeping too much while trying to send something.
  45  * May be there's no reader or the reader is also sleeping in write,
  46  * look if there's some data for us to read, hopefully it will wake up
  47  * the reader so we can write again.
  48  *
  49  * @returns 0 when is possible to send again, -1 on error
  50  */
  51 static int dsi_peek(DSI *dsi)
  52 {
  53     static int warned = 0;
  54     fd_set readfds, writefds;
  55     int    len;
  56     int    maxfd;
  57     int    ret;
  58
  59     LOG(log_debug, logtype_dsi, "dsi_peek");
  60
  61     maxfd = dsi->socket + 1;
  62
  63     while (1) {
  64         FD_ZERO(&readfds);
  65         FD_ZERO(&writefds);
  66
  67         if (dsi->eof < dsi->end) {
  68             /* space in read buffer */
  69             FD_SET( dsi->socket, &readfds);
  70         } else {
  71             if (!warned) {
  72                 warned = 1;
  73                 LOG(log_note, logtype_dsi, "dsi_peek: readahead buffer is full, possibly increase -dsireadbuf option");
  74                 LOG(log_note, logtype_dsi, "dsi_peek: dsireadbuf: %d, DSI quantum: %d, effective buffer size: %d",
  75                     dsi->dsireadbuf,
  76                     dsi->server_quantum ? dsi->server_quantum : DSI_SERVQUANT_DEF,
  77                     dsi->end - dsi->buffer);
  78             }
  79         }
  80
  81         FD_SET( dsi->socket, &writefds);
  82
  83         /* No timeout: if there's nothing to read nor nothing to write,
  84          * we've got nothing to do at all */
  85         if ((ret = select( maxfd, &readfds, &writefds, NULL, NULL)) <= 0) {
  86             if (ret == -1 && errno == EINTR)
  87                 /* we might have been interrupted by out timer, so restart select */
  88                 continue;
  89             /* give up */
  90             LOG(log_error, logtype_dsi, "dsi_peek: unexpected select return: %d %s",
  91                 ret, ret < 0 ? strerror(errno) : "");
  92             return -1;
  93         }
  94
  95         if (FD_ISSET(dsi->socket, &writefds)) {
  96             /* we can write again */
  97             LOG(log_debug, logtype_dsi, "dsi_peek: can write again");
  98             break;
  99         }
 100
 101         /* Check if there's sth to read, hopefully reading that will unblock the client */
 102         if (FD_ISSET(dsi->socket, &readfds)) {
 103             len = dsi->end - dsi->eof; /* it's ensured above that there's space */
 104
 105             if ((len = read(dsi->socket, dsi->eof, len)) <= 0) {
 106                 if (len == 0) {
 107                     LOG(log_error, logtype_dsi, "dsi_peek: EOF");
 108                     return -1;
 109                 }
 110                 LOG(log_error, logtype_dsi, "dsi_peek: read: %s", strerror(errno));
 111                 if (errno == EAGAIN)
 112                     continue;
 113                 return -1;
 114             }
 115             LOG(log_debug, logtype_dsi, "dsi_peek: read %d bytes", len);
 116
 117             dsi->eof += len;
 118         }
 119     }
 120
 121     return 0;
 122 }
 123
 124 /*
 125  * Return all bytes up to count from dsi->buffer if there are any buffered there
 126  */
 127 static size_t from_buf(DSI *dsi, uint8_t *buf, size_t count)
 128 {
 129     size_t nbe = 0;
 130
 131     if (dsi->buffer == NULL)
 132         /* afpd master has no DSI buffering */
 133         return 0;
 134
 135     LOG(log_maxdebug, logtype_dsi, "from_buf: %u bytes", count);
 136
 137     nbe = dsi->eof - dsi->start;
 138
 139     if (nbe > 0) {
 140         nbe = min((size_t)nbe, count);
 141         memcpy(buf, dsi->start, nbe);
 142         dsi->start += nbe;
 143
 144         if (dsi->eof == dsi->start)
 145             dsi->start = dsi->eof = dsi->buffer;
 146     }
 147
 148     LOG(log_debug, logtype_dsi, "from_buf(read: %u, unread:%u , space left: %u): returning %u",
 149         dsi->start - dsi->buffer, dsi->eof - dsi->start, dsi->end - dsi->eof, nbe);
 150
 151     return nbe;
 152 }
 153
 154 /*
 155  * Get bytes from buffer dsi->buffer or read from socket
 156  *
 157  * 1. Check if there are bytes in the the dsi->buffer buffer.
 158  * 2. Return bytes from (1) if yes.
 159  *    Note: this may return fewer bytes then requested in count !!
 160  * 3. If the buffer was empty, read from the socket.
 161  */
 162 static ssize_t buf_read(DSI *dsi, uint8_t *buf, size_t count)
 163 {
 164     ssize_t len;
 165
 166     LOG(log_maxdebug, logtype_dsi, "buf_read(%u bytes)", count);
 167
 168     if (!count)
 169         return 0;
 170
 171     len = from_buf(dsi, buf, count); /* 1. */
 172     if (len)
 173         return len;             /* 2. */
 174
 175     len = readt(dsi->socket, buf, count, 0, 1); /* 3. */
 176
 177     LOG(log_maxdebug, logtype_dsi, "buf_read(%u bytes): got: %d", count, len);
 178
 179     return len;
 180 }
 181
 182 /*
 183  * Get "length" bytes from buffer and/or socket. In order to avoid frequent small reads
 184  * this tries to read larger chunks (8192 bytes) into a buffer.
 185  */
 186 static size_t dsi_buffered_stream_read(DSI *dsi, uint8_t *data, const size_t length)
 187 {
 188   size_t len;
 189   size_t buflen;
 190
 191   LOG(log_maxdebug, logtype_dsi, "dsi_buffered_stream_read: %u bytes", length);
 192
 193   len = from_buf(dsi, data, length); /* read from buffer dsi->buffer */
 194   dsi->read_count += len;
 195   if (len == length) {          /* got enough bytes from there ? */
 196       return len;               /* yes */
 197   }
 198
 199   /* fill the buffer with 8192 bytes or until buffer is full */
 200   buflen = min(8192, dsi->end - dsi->eof);
 201   if (buflen > 0) {
 202       ssize_t ret;
 203       ret = read(dsi->socket, dsi->eof, buflen);
 204       if (ret > 0)
 205           dsi->eof += ret;
 206   }
 207
 208   /* now get the remaining data */
 209   if ((buflen = dsi_stream_read(dsi, data + len, length - len)) != length - len)
 210       return 0;
 211   len += buflen;
 212
 213   return len;
 214 }
 215
 216 /* ---------------------------------------
 217 */
 218 static void block_sig(DSI *dsi)
 219 {
 220   dsi->in_write++;
 221 }
 222
 223 /* ---------------------------------------
 224 */
 225 static void unblock_sig(DSI *dsi)
 226 {
 227   dsi->in_write--;
 228 }
 229
 230 /*********************************************************************************
 231  * Public functions
 232  *********************************************************************************/
 233
 234 /*!
 235  * Communication error with the client, enter disconnected state
 236  *
 237  * 1. close the socket
 238  * 2. set the DSI_DISCONNECTED flag
 239  *
 240  * @returns  0 if successfully entered disconnected state
 241  *          -1 if ppid is 1 which means afpd master died
 242  *             or euid == 0 ie where still running as root (unauthenticated session)
 243  */
 244 int dsi_disconnect(DSI *dsi)
 245 {
 246     dsi->proto_close(dsi);          /* 1 */
 247     dsi->flags |= DSI_DISCONNECTED; /* 2 */
 248     if (geteuid() == 0)
 249         return -1;
 250     return 0;
 251 }
 252
 253 /* ------------------------------
 254  * write raw data. return actual bytes read. checks against EINTR
 255  * aren't necessary if all of the signals have SA_RESTART
 256  * specified. */
 257 ssize_t dsi_stream_write(DSI *dsi, void *data, const size_t length, int mode)
 258 {
 259   size_t written;
 260   ssize_t len;
 261   unsigned int flags = 0;
 262
 263   dsi->in_write++;
 264   written = 0;
 265
 266   LOG(log_maxdebug, logtype_dsi, "dsi_stream_write: sending %u bytes", length);
 267
 268   if (dsi->flags & DSI_DISCONNECTED)
 269       return -1;
 270
 271   while (written < length) {
 272       len = send(dsi->socket, (uint8_t *) data + written, length - written, flags);
 273       if (len >= 0) {
 274           written += len;
 275           continue;
 276       }
 277
 278       if (errno == EINTR)
 279           continue;
 280
 281       if (errno == EAGAIN || errno == EWOULDBLOCK) {
 282           LOG(log_debug, logtype_dsi, "dsi_stream_write: send: %s", strerror(errno));
 283
 284           if (mode == DSI_NOWAIT && written == 0) {
 285               /* DSI_NOWAIT is used by attention give up in this case. */
 286               written = -1;
 287               goto exit;
 288           }
 289
 290           /* Try to read sth. in order to break up possible deadlock */
 291           if (dsi_peek(dsi) != 0) {
 292               written = -1;
 293               goto exit;
 294           }
 295           /* Now try writing again */
 296           continue;
 297       }
 298
 299       LOG(log_error, logtype_dsi, "dsi_stream_write: %s", strerror(errno));
 300       written = -1;
 301       goto exit;
 302   }
 303
 304   dsi->write_count += written;
 305
 306 exit:
 307   dsi->in_write--;
 308   return written;
 309 }
 310
 311
 312 /* ---------------------------------
 313 */
 314 #ifdef WITH_SENDFILE
 315 ssize_t dsi_stream_read_file(DSI *dsi, int fromfd, off_t offset, const size_t length)
 316 {
 317   size_t written;
 318   ssize_t len;
 319
 320   LOG(log_maxdebug, logtype_dsi, "dsi_stream_read_file: sending %u bytes", length);
 321
 322   if (dsi->flags & DSI_DISCONNECTED)
 323       return -1;
 324
 325   dsi->in_write++;
 326   written = 0;
 327
 328   while (written < length) {
 329     len = sys_sendfile(dsi->socket, fromfd, &offset, length - written);
 330
 331     if (len < 0) {
 332       if (errno == EINTR)
 333           continue;
 334       if (errno == EINVAL || errno == ENOSYS)
 335           return -1;
 336
 337       if (errno == EAGAIN || errno == EWOULDBLOCK) {
 338           if (dsi_peek(dsi)) {
 339               /* can't go back to blocking mode, exit, the next read
 340                  will return with an error and afpd will die.
 341               */
 342               break;
 343           }
 344           continue;
 345       }
 346       LOG(log_error, logtype_dsi, "dsi_stream_read_file: %s", strerror(errno));
 347       break;
 348     }
 349     else if (!len) {
 350         /* afpd is going to exit */
 351         errno = EIO;
 352         return -1; /* I think we're at EOF here... */
 353     }
 354     else
 355         written += len;
 356   }
 357
 358   dsi->write_count += written;
 359   dsi->in_write--;
 360   return written;
 361 }
 362 #endif
 363
 364
 365 /*
 366  * Essentially a loop around buf_read() to ensure "length" bytes are read
 367  * from dsi->buffer and/or the socket.
 368  *
 369  * @returns length on success, some value smaller then length indicates an error
 370  */
 371 size_t dsi_stream_read(DSI *dsi, void *data, const size_t length)
 372 {
 373   size_t stored;
 374   ssize_t len;
 375
 376   if (dsi->flags & DSI_DISCONNECTED)
 377       return 0;
 378
 379   LOG(log_maxdebug, logtype_dsi, "dsi_stream_read(%u bytes)", length);
 380
 381   stored = 0;
 382   while (stored < length) {
 383       len = buf_read(dsi, (uint8_t *) data + stored, length - stored);
 384       if (len == -1 && (errno == EINTR || errno == EAGAIN)) {
 385           LOG(log_maxdebug, logtype_dsi, "dsi_stream_read: select read loop");
 386           continue;
 387       } else if (len > 0) {
 388           stored += len;
 389       } else { /* eof or error */
 390           /* don't log EOF error if it's just after connect (OSX 10.3 probe) */
 391           if (errno == ECONNRESET)
 392               dsi->flags |= DSI_GOT_ECONNRESET;
 393           if (len || stored || dsi->read_count) {
 394               if (! (dsi->flags & DSI_DISCONNECTED)) {
 395                   LOG(log_error, logtype_dsi, "dsi_stream_read: len:%d, %s",
 396                       len, (len < 0) ? strerror(errno) : "unexpected EOF");
 397               }
 398               return 0;
 399           }
 400           break;
 401       }
 402   }
 403
 404   dsi->read_count += stored;
 405
 406   LOG(log_maxdebug, logtype_dsi, "dsi_stream_read(%u bytes): got: %u", length, stored);
 407   return stored;
 408 }
 409
 410 /* ---------------------------------------
 411  * write data. 0 on failure. this assumes that dsi_len will never
 412  * cause an overflow in the data buffer.
 413  */
 414 int dsi_stream_send(DSI *dsi, void *buf, size_t length)
 415 {
 416   char block[DSI_BLOCKSIZ];
 417   struct iovec iov[2];
 418   size_t towrite;
 419   ssize_t len;
 420
 421   LOG(log_maxdebug, logtype_dsi, "dsi_stream_send: %u bytes",
 422       length ? length : sizeof(block));
 423
 424   if (dsi->flags & DSI_DISCONNECTED)
 425       return 0;
 426
 427   block[0] = dsi->header.dsi_flags;
 428   block[1] = dsi->header.dsi_command;
 429   memcpy(block + 2, &dsi->header.dsi_requestID,
 430          sizeof(dsi->header.dsi_requestID));
 431   memcpy(block + 4, &dsi->header.dsi_code, sizeof(dsi->header.dsi_code));
 432   memcpy(block + 8, &dsi->header.dsi_len, sizeof(dsi->header.dsi_len));
 433   memcpy(block + 12, &dsi->header.dsi_reserved,
 434          sizeof(dsi->header.dsi_reserved));
 435
 436   if (!length) { /* just write the header */
 437     length = (dsi_stream_write(dsi, block, sizeof(block), 0) == sizeof(block));
 438     return length; /* really 0 on failure, 1 on success */
 439   }
 440
 441   /* block signals */
 442   block_sig(dsi);
 443   iov[0].iov_base = block;
 444   iov[0].iov_len = sizeof(block);
 445   iov[1].iov_base = buf;
 446   iov[1].iov_len = length;
 447
 448   towrite = sizeof(block) + length;
 449   dsi->write_count += towrite;
 450   while (towrite > 0) {
 451       if (((len = writev(dsi->socket, iov, 2)) == -1 && errno == EINTR) || (len == 0))
 452           continue;
 453
 454       if ((size_t)len == towrite) /* wrote everything out */
 455           break;
 456       else if (len < 0) { /* error */
 457           if (errno == EAGAIN || errno == EWOULDBLOCK) {
 458               if (!dsi_peek(dsi)) {
 459                   continue;
 460               }
 461           }
 462           LOG(log_error, logtype_dsi, "dsi_stream_send: %s", strerror(errno));
 463           unblock_sig(dsi);
 464           return 0;
 465       }
 466
 467       towrite -= len;
 468       if (towrite > length) { /* skip part of header */
 469           iov[0].iov_base = (char *) iov[0].iov_base + len;
 470           iov[0].iov_len -= len;
 471       } else { /* skip to data */
 472           if (iov[0].iov_len) {
 473               len -= iov[0].iov_len;
 474               iov[0].iov_len = 0;
 475           }
 476           iov[1].iov_base = (char *) iov[1].iov_base + len;
 477           iov[1].iov_len -= len;
 478       }
 479   }
 480
 481   unblock_sig(dsi);
 482   return 1;
 483 }
 484
 485
 486 /* ---------------------------------------
 487  * read data. function on success. 0 on failure. data length gets
 488  * stored in length variable. this should really use size_t's, but
 489  * that would require changes elsewhere. */
 490 int dsi_stream_receive(DSI *dsi, void *buf, const size_t ilength,
 491                        size_t *rlength)
 492 {
 493   char block[DSI_BLOCKSIZ];
 494
 495   LOG(log_maxdebug, logtype_dsi, "dsi_stream_receive: %u bytes", ilength);
 496
 497   if (dsi->flags & DSI_DISCONNECTED)
 498       return 0;
 499
 500   /* read in the header */
 501   if (dsi_buffered_stream_read(dsi, (uint8_t *)block, sizeof(block)) != sizeof(block))
 502     return 0;
 503
 504   dsi->header.dsi_flags = block[0];
 505   dsi->header.dsi_command = block[1];
 506   /* FIXME, not the right place,
 507      but we get a server disconnect without reason in the log
 508   */
 509   if (!block[1]) {
 510       LOG(log_error, logtype_dsi, "dsi_stream_receive: invalid packet, fatal");
 511       return 0;
 512   }
 513
 514   memcpy(&dsi->header.dsi_requestID, block + 2,
 515          sizeof(dsi->header.dsi_requestID));
 516   memcpy(&dsi->header.dsi_code, block + 4, sizeof(dsi->header.dsi_code));
 517   memcpy(&dsi->header.dsi_len, block + 8, sizeof(dsi->header.dsi_len));
 518   memcpy(&dsi->header.dsi_reserved, block + 12,
 519          sizeof(dsi->header.dsi_reserved));
 520   dsi->clientID = ntohs(dsi->header.dsi_requestID);
 521
 522   /* make sure we don't over-write our buffers. */
 523   *rlength = min(ntohl(dsi->header.dsi_len), ilength);
 524   if (dsi_stream_read(dsi, buf, *rlength) != *rlength)
 525     return 0;
 526
 527   return block[1];
 528 }