*: move get_sock_lsa and xwrite_str to libbb, use where appropriate
[oweals/busybox.git] / networking / tftp.c
index 25001c22c05654fccd53ed35c3e09ac83f5b4a21..fa0851615b6a7658ec2056c58534f6ca6d563207 100644 (file)
 
 #if ENABLE_FEATURE_TFTP_GET || ENABLE_FEATURE_TFTP_PUT
 
-#define TFTP_BLOCKSIZE_DEFAULT 512      /* according to RFC 1350, don't change */
-#define TFTP_TIMEOUT_MS         50
-#define TFTP_MAXTIMEOUT_MS    2000
-#define TFTP_NUM_RETRIES        12      /* number of backed-off retries */
+#define TFTP_BLKSIZE_DEFAULT       512  /* according to RFC 1350, don't change */
+#define TFTP_BLKSIZE_DEFAULT_STR "512"
+#define TFTP_TIMEOUT_MS             50
+#define TFTP_MAXTIMEOUT_MS        2000
+#define TFTP_NUM_RETRIES            12  /* number of backed-off retries */
 
 /* opcodes we support */
 #define TFTP_RRQ   1
 #define TFTP_ERROR 5
 #define TFTP_OACK  6
 
+/* error codes sent over network (we use only 0, 1, 3 and 8) */
+/* generic (error message is included in the packet) */
+#define ERR_UNSPEC   0
+#define ERR_NOFILE   1
+#define ERR_ACCESS   2
+/* disk full or allocation exceeded */
+#define ERR_WRITE    3
+#define ERR_OP       4
+#define ERR_BAD_ID   5
+#define ERR_EXIST    6
+#define ERR_BAD_USER 7
+#define ERR_BAD_OPT  8
+
+/* masks coming from getopt32 */
+enum {
+       TFTP_OPT_GET = (1 << 0),
+       TFTP_OPT_PUT = (1 << 1),
+       /* pseudo option: if set, it's tftpd */
+       TFTPD_OPT = (1 << 7) * ENABLE_TFTPD,
+       TFTPD_OPT_r = (1 << 8) * ENABLE_TFTPD,
+       TFTPD_OPT_c = (1 << 9) * ENABLE_TFTPD,
+       TFTPD_OPT_u = (1 << 10) * ENABLE_TFTPD,
+};
+
 #if ENABLE_FEATURE_TFTP_GET && !ENABLE_FEATURE_TFTP_PUT
 #define USE_GETPUT(...)
 #define CMD_GET(cmd) 1
 #define CMD_PUT(cmd) 1
 #else
 #define USE_GETPUT(...) __VA_ARGS__
-/* masks coming from getopt32 */
-#define CMD_GET(cmd) ((cmd) & 1)
-#define CMD_PUT(cmd) ((cmd) & 2)
+#define CMD_GET(cmd) ((cmd) & TFTP_OPT_GET)
+#define CMD_PUT(cmd) ((cmd) & TFTP_OPT_PUT)
 #endif
 /* NB: in the code below
  * CMD_GET(cmd) and CMD_PUT(cmd) are mutually exclusive
  */
 
 
+struct globals {
+       /* u16 TFTP_ERROR; u16 reason; both network-endian, then error text: */
+       uint8_t error_pkt[4 + 32];
+       char *user_opt;
+       /* used in tftpd_main(), a bit big for stack: */
+       char block_buf[TFTP_BLKSIZE_DEFAULT];
+};
+#define G (*(struct globals*)&bb_common_bufsiz1)
+#define block_buf        (G.block_buf   )
+#define user_opt         (G.user_opt    )
+#define error_pkt        (G.error_pkt   )
+#define INIT_G() do { } while (0)
+
+#define error_pkt_reason (error_pkt[3])
+#define error_pkt_str    (error_pkt + 4)
+
+
 #if ENABLE_FEATURE_TFTP_BLOCKSIZE
 
-static int tftp_blocksize_check(int blocksize, int bufsize)
+static int tftp_blksize_check(const char *blksize_str, int maxsize)
 {
-       /* Check if the blocksize is valid:
+       /* Check if the blksize is valid:
         * RFC2348 says between 8 and 65464,
         * but our implementation makes it impossible
-        * to use blocksizes smaller than 22 octets.
-        */
-       if ((bufsize && (blocksize > bufsize))
-        || (blocksize < 24) || (blocksize > 65564)
+        * to use blksizes smaller than 22 octets. */
+       unsigned blksize = bb_strtou(blksize_str, NULL, 10);
+       if (errno
+        || (blksize < 24) || (blksize > maxsize)
        ) {
-               bb_error_msg("bad blocksize");
-               return 0;
+               bb_error_msg("bad blocksize '%s'", blksize_str);
+               return -1;
        }
-       return blocksize;
+#if ENABLE_TFTP_DEBUG
+       bb_error_msg("using blksize %u", blksize);
+#endif
+       return blksize;
 }
 
-static char *tftp_option_get(char *buf, int len, const char *option)
+static char *tftp_get_option(const char *option, char *buf, int len)
 {
        int opt_val = 0;
        int opt_found = 0;
@@ -113,16 +157,23 @@ static char *tftp_option_get(char *buf, int len, const char *option)
 #endif
 
 static int tftp_protocol(
-               USE_GETPUT(int cmd,)
                len_and_sockaddr *our_lsa,
                len_and_sockaddr *peer_lsa,
-               USE_TFTP(const char *remote_file,)
-               int local_fd,
-               int blocksize)
+               const char *local_file
+               USE_TFTP(, const char *remote_file)
+               USE_FEATURE_TFTP_BLOCKSIZE(USE_TFTPD(, void *tsize))
+               USE_FEATURE_TFTP_BLOCKSIZE(, int blksize))
 {
 #if !ENABLE_TFTP
 #define remote_file NULL
 #endif
+#if !(ENABLE_FEATURE_TFTP_BLOCKSIZE && ENABLE_TFTPD)
+#define tsize NULL
+#endif
+#if !ENABLE_FEATURE_TFTP_BLOCKSIZE
+       enum { blksize = TFTP_BLKSIZE_DEFAULT };
+#endif
+
        struct pollfd pfd[1];
 #define socket_fd (pfd[0].fd)
        int len;
@@ -132,20 +183,23 @@ static int tftp_protocol(
        uint16_t opcode;
        uint16_t block_nr;
        uint16_t recv_blk;
+       int open_mode, local_fd;
        int retries, waittime_ms;
-       int tftp_bufsize = blocksize + 4;
+       int io_bufsize = blksize + 4;
        char *cp;
        /* Can't use RESERVE_CONFIG_BUFFER here since the allocation
         * size varies meaning BUFFERS_GO_ON_STACK would fail */
        /* We must keep the transmit and receive buffers seperate */
        /* In case we rcv a garbage pkt and we need to rexmit the last pkt */
-       char *xbuf = xmalloc(tftp_bufsize);
-       char *rbuf = xmalloc(tftp_bufsize);
+       char *xbuf = xmalloc(io_bufsize);
+       char *rbuf = xmalloc(io_bufsize);
 
        socket_fd = xsocket(peer_lsa->u.sa.sa_family, SOCK_DGRAM, 0);
        setsockopt_reuseaddr(socket_fd);
 
        block_nr = 1;
+       cp = xbuf + 2;
+
        if (!ENABLE_TFTP || our_lsa) {
                /* tftpd */
 
@@ -158,24 +212,63 @@ static int tftp_protocol(
                xbind(socket_fd, &our_lsa->u.sa, our_lsa->len);
                xconnect(socket_fd, &peer_lsa->u.sa, peer_lsa->len);
 
-               if (CMD_GET(cmd)) {
+               /* Is there an error already? Send pkt and bail out */
+               if (error_pkt_reason || error_pkt_str[0])
+                       goto send_err_pkt;
+
+               if (CMD_GET(option_mask32)) {
                        /* it's upload - we must ACK 1st packet (with filename)
                         * as if it's "block 0" */
                        block_nr = 0;
                }
 
+               if (user_opt) {
+                       struct passwd *pw = xgetpwnam(user_opt);
+                       change_identity(pw); /* initgroups, setgid, setuid */
+               }
+       }
+
+       /* Open local file (must be after changing user) */
+       if (CMD_PUT(option_mask32)) {
+               open_mode = O_RDONLY;
+       } else {
+               open_mode = O_WRONLY | O_TRUNC | O_CREAT;
+#if ENABLE_TFTPD
+               if ((option_mask32 & (TFTPD_OPT+TFTPD_OPT_c)) == TFTPD_OPT) {
+                       /* tftpd without -c */
+                       open_mode = O_WRONLY | O_TRUNC;
+               }
+#endif
+       }
+       if (!(option_mask32 & TFTPD_OPT)) {
+               local_fd = CMD_GET(option_mask32) ? STDOUT_FILENO : STDIN_FILENO;
+               if (NOT_LONE_DASH(local_file))
+                       local_fd = xopen(local_file, open_mode);
+       } else {
+               local_fd = open(local_file, open_mode);
+               if (local_fd < 0) {
+                       error_pkt_reason = ERR_NOFILE;
+                       strcpy((char*)error_pkt_str, "can't open file");
+                       goto send_err_pkt;
+               }
+       }
+
+       if (!ENABLE_TFTP || our_lsa) {
+/* gcc 4.3.1 would NOT optimize it out as it should! */
 #if ENABLE_FEATURE_TFTP_BLOCKSIZE
-               if (blocksize != TFTP_BLOCKSIZE_DEFAULT) {
-                       /* Create and send OACK packet */
-                       /* block_nr is still 1, we expect ACK to (block_nr-1),
-                        * that is, to "block 0" */
+               if (blksize != TFTP_BLKSIZE_DEFAULT || tsize) {
+                       /* Create and send OACK packet. */
+                       /* For the download case, block_nr is still 1 -
+                        * we expect 1st ACK from peer to be for (block_nr-1),
+                        * that is, for "block 0" which is our OACK pkt */
                        opcode = TFTP_OACK;
-                       cp = xbuf + 2;
                        goto add_blksize_opt;
                }
-               /* else: just fall into while (1) loop below */
 #endif
        } else {
+/* Removing it, or using if() statement instead of #if may lead to
+ * "warning: null argument where non-null required": */
+#if ENABLE_TFTP
                /* tftp */
 
                /* We can't (and don't really need to) bind the socket:
@@ -191,14 +284,13 @@ static int tftp_protocol(
 
                /* build opcode */
                opcode = TFTP_WRQ;
-               if (CMD_GET(cmd)) {
+               if (CMD_GET(option_mask32)) {
                        opcode = TFTP_RRQ;
                }
-               cp = xbuf + 2;
                /* add filename and mode */
                /* fill in packet if the filename fits into xbuf */
                len = strlen(remote_file) + 1;
-               if (2 + len + sizeof("octet") >= tftp_bufsize) {
+               if (2 + len + sizeof("octet") >= io_bufsize) {
                        bb_error_msg("remote filename is too long");
                        goto ret;
                }
@@ -209,18 +301,35 @@ static int tftp_protocol(
                cp += sizeof("octet");
 
 #if ENABLE_FEATURE_TFTP_BLOCKSIZE
-               if (blocksize != TFTP_BLOCKSIZE_DEFAULT) {
-                       /* rfc2348 says that 65464 is a max allowed value */
-                       if ((&xbuf[tftp_bufsize - 1] - cp) < sizeof("blksize NNNNN")) {
-                               bb_error_msg("remote filename is too long");
-                               goto ret;
-                       }
-                       want_option_ack = 1;
+               if (blksize == TFTP_BLKSIZE_DEFAULT)
+                       goto send_pkt;
+
+               /* Non-standard blocksize: add option to pkt */
+               if ((&xbuf[io_bufsize - 1] - cp) < sizeof("blksize NNNNN")) {
+                       bb_error_msg("remote filename is too long");
+                       goto ret;
+               }
+               want_option_ack = 1;
+#endif
+#endif /* ENABLE_TFTP */
+
+#if ENABLE_FEATURE_TFTP_BLOCKSIZE
  add_blksize_opt:
-                       /* add "blksize", <nul>, blocksize, <nul> */
+#if ENABLE_TFTPD
+               if (tsize) {
+                       struct stat st;
+                       /* add "tsize", <nul>, size, <nul> */
+                       strcpy(cp, "tsize");
+                       cp += sizeof("tsize");
+                       fstat(local_fd, &st);
+                       cp += snprintf(cp, 10, "%u", (int) st.st_size) + 1;
+               }
+#endif
+               if (blksize != TFTP_BLKSIZE_DEFAULT) {
+                       /* add "blksize", <nul>, blksize, <nul> */
                        strcpy(cp, "blksize");
                        cp += sizeof("blksize");
-                       cp += snprintf(cp, 6, "%d", blocksize) + 1;
+                       cp += snprintf(cp, 6, "%d", blksize) + 1;
                }
 #endif
                /* First packet is built, so skip packet generation */
@@ -236,14 +345,13 @@ static int tftp_protocol(
                cp += 2;
                block_nr++;
                opcode = TFTP_ACK;
-               if (CMD_PUT(cmd)) {
+               if (CMD_PUT(option_mask32)) {
                        opcode = TFTP_DATA;
-                       len = full_read(local_fd, cp, tftp_bufsize - 4);
+                       len = full_read(local_fd, cp, blksize);
                        if (len < 0) {
-                               bb_perror_msg(bb_msg_read_error);
-                               goto ret;
+                               goto send_read_err_pkt;
                        }
-                       if (len != (tftp_bufsize - 4)) {
+                       if (len != blksize) {
                                finished = 1;
                        }
                        cp += len;
@@ -259,7 +367,7 @@ static int tftp_protocol(
                waittime_ms = TFTP_TIMEOUT_MS;
 
  send_again:
-#if ENABLE_DEBUG_TFTP
+#if ENABLE_TFTP_DEBUG
                fprintf(stderr, "sending %u bytes\n", send_len);
                for (cp = xbuf; cp < &xbuf[send_len]; cp++)
                        fprintf(stderr, "%02x ", (unsigned char) *cp);
@@ -275,11 +383,28 @@ static int tftp_protocol(
                /*pfd[0].fd = socket_fd;*/
                pfd[0].events = POLLIN;
                switch (safe_poll(pfd, 1, waittime_ms)) {
+               default:
+                       /*bb_perror_msg("poll"); - done in safe_poll */
+                       goto ret;
+               case 0:
+                       retries--;
+                       if (retries == 0) {
+                               bb_error_msg("timeout");
+                               goto ret; /* no err packet sent */
+                       }
+
+                       /* exponential backoff with limit */
+                       waittime_ms += waittime_ms/2;
+                       if (waittime_ms > TFTP_MAXTIMEOUT_MS) {
+                               waittime_ms = TFTP_MAXTIMEOUT_MS;
+                       }
+
+                       goto send_again; /* resend last sent pkt */
                case 1:
                        if (!our_lsa) {
                                /* tftp (not tftpd!) receiving 1st packet */
                                our_lsa = ((void*)(ptrdiff_t)-1); /* not NULL */
-                               len = recvfrom(socket_fd, rbuf, tftp_bufsize, 0,
+                               len = recvfrom(socket_fd, rbuf, io_bufsize, 0,
                                                &peer_lsa->u.sa, &peer_lsa->len);
                                /* Our first dgram went to port 69
                                 * but reply may come from different one.
@@ -289,62 +414,43 @@ static int tftp_protocol(
                        } else {
                                /* tftpd, or not the very first packet:
                                 * socket is connect()ed, can just read from it. */
-                               len = safe_read(socket_fd, rbuf, tftp_bufsize);
+                               /* Don't full_read()!
+                                * This is not TCP, one read == one pkt! */
+                               len = safe_read(socket_fd, rbuf, io_bufsize);
                        }
                        if (len < 0) {
-                               bb_perror_msg("read");
-                               goto ret;
+                               goto send_read_err_pkt;
                        }
-                       if (len < 4) /* too small? */
+                       if (len < 4) /* too small? */
                                goto recv_again;
-                       goto process_pkt;
-               case 0:
-                       retries--;
-                       if (retries == 0) {
-                               bb_error_msg("timeout");
-                               goto ret;
-                       }
-
-                       /* exponential backoff with limit */
-                       waittime_ms += waittime_ms/2;
-                       if (waittime_ms > TFTP_MAXTIMEOUT_MS) {
-                               waittime_ms = TFTP_MAXTIMEOUT_MS;
                        }
-
-                       goto send_again; /* resend last sent pkt */
-               default:
-                       /*bb_perror_msg("poll"); - done in safe_poll */
-                       goto ret;
                }
- process_pkt:
+
                /* Process recv'ed packet */
                opcode = ntohs( ((uint16_t*)rbuf)[0] );
                recv_blk = ntohs( ((uint16_t*)rbuf)[1] );
-
-#if ENABLE_DEBUG_TFTP
+#if ENABLE_TFTP_DEBUG
                fprintf(stderr, "received %d bytes: %04x %04x\n", len, opcode, recv_blk);
 #endif
-
                if (opcode == TFTP_ERROR) {
-                       static const char *const errcode_str[] = {
-                               "",
-                               "file not found",
-                               "access violation",
-                               "disk full",
-                               "illegal TFTP operation",
-                               "unknown transfer id",
-                               "file already exists",
-                               "no such user",
-                               "bad option"
-                       };
+                       static const char errcode_str[] ALIGN1 =
+                               "\0"
+                               "file not found\0"
+                               "access violation\0"
+                               "disk full\0"
+                               "bad operation\0"
+                               "unknown transfer id\0"
+                               "file already exists\0"
+                               "no such user\0"
+                               "bad option";
 
                        const char *msg = "";
 
-                       if (rbuf[4] != '\0') {
+                       if (len > 4 && rbuf[4] != '\0') {
                                msg = &rbuf[4];
-                               rbuf[tftp_bufsize - 1] = '\0';
-                       } else if (recv_blk < ARRAY_SIZE(errcode_str)) {
-                               msg = errcode_str[recv_blk];
+                               rbuf[io_bufsize - 1] = '\0'; /* paranoia */
+                       } else if (recv_blk <= 8) {
+                               msg = nth_string(errcode_str, recv_blk);
                        }
                        bb_error_msg("server error: (%u) %s", recv_blk, msg);
                        goto ret;
@@ -353,29 +459,18 @@ static int tftp_protocol(
 #if ENABLE_FEATURE_TFTP_BLOCKSIZE
                if (want_option_ack) {
                        want_option_ack = 0;
-
                        if (opcode == TFTP_OACK) {
                                /* server seems to support options */
                                char *res;
 
-                               res = tftp_option_get(&rbuf[2], len - 2, "blksize");
+                               res = tftp_get_option("blksize", &rbuf[2], len - 2);
                                if (res) {
-                                       int blksize = xatoi_u(res);
-                                       if (!tftp_blocksize_check(blksize, tftp_bufsize - 4)) {
-                                               /* send ERROR 8 to server... */
-                                               /* htons can be impossible to use in const initializer: */
-                                               /*static const uint16_t error_8[2] = { htons(TFTP_ERROR), htons(8) };*/
-                                               /* thus we open-code big-endian layout */
-                                               static const uint8_t error_8[4] = { 0,TFTP_ERROR, 0,8 };
-                                               xsendto(socket_fd, error_8, 4, &peer_lsa->u.sa, peer_lsa->len);
-                                               bb_error_msg("server proposes bad blksize %d, exiting", blksize);
-                                               goto ret;
+                                       blksize = tftp_blksize_check(res, blksize);
+                                       if (blksize < 0) {
+                                               error_pkt_reason = ERR_BAD_OPT;
+                                               goto send_err_pkt;
                                        }
-#if ENABLE_DEBUG_TFTP
-                                       fprintf(stderr, "using blksize %u\n",
-                                                       blksize);
-#endif
-                                       tftp_bufsize = blksize + 4;
+                                       io_bufsize = blksize + 4;
                                        /* Send ACK for OACK ("block" no: 0) */
                                        block_nr = 0;
                                        continue;
@@ -385,23 +480,23 @@ static int tftp_protocol(
                                 *  must be ignored by the client and server
                                 *  as if it were never requested." */
                        }
-
-                       bb_error_msg("blksize is not supported by server"
-                                               " - reverting to 512");
-                       tftp_bufsize = TFTP_BLOCKSIZE_DEFAULT + 4;
+                       bb_error_msg("server only supports blocksize of 512");
+                       blksize = TFTP_BLKSIZE_DEFAULT;
+                       io_bufsize = TFTP_BLKSIZE_DEFAULT + 4;
                }
 #endif
                /* block_nr is already advanced to next block# we expect
                 * to get / block# we are about to send next time */
 
-               if (CMD_GET(cmd) && (opcode == TFTP_DATA)) {
+               if (CMD_GET(option_mask32) && (opcode == TFTP_DATA)) {
                        if (recv_blk == block_nr) {
-                               len = full_write(local_fd, &rbuf[4], len - 4);
-                               if (len < 0) {
-                                       bb_perror_msg(bb_msg_write_error);
-                                       goto ret;
+                               int sz = full_write(local_fd, &rbuf[4], len - 4);
+                               if (sz != len - 4) {
+                                       strcpy((char*)error_pkt_str, bb_msg_write_error);
+                                       error_pkt_reason = ERR_WRITE;
+                                       goto send_err_pkt;
                                }
-                               if (len != (tftp_bufsize - 4)) {
+                               if (sz != blksize) {
                                        finished = 1;
                                }
                                continue; /* send ACK */
@@ -413,7 +508,7 @@ static int tftp_protocol(
                        }
                }
 
-               if (CMD_PUT(cmd) && (opcode == TFTP_ACK)) {
+               if (CMD_PUT(option_mask32) && (opcode == TFTP_ACK)) {
                        /* did peer ACK our last DATA pkt? */
                        if (recv_blk == (uint16_t) (block_nr - 1)) {
                                if (finished)
@@ -435,47 +530,63 @@ static int tftp_protocol(
        } /* end of "while (1)" */
  ret:
        if (ENABLE_FEATURE_CLEAN_UP) {
+               close(local_fd);
                close(socket_fd);
                free(xbuf);
                free(rbuf);
        }
        return finished == 0; /* returns 1 on failure */
+
+ send_read_err_pkt:
+       strcpy((char*)error_pkt_str, bb_msg_read_error);
+ send_err_pkt:
+       if (error_pkt_str[0])
+               bb_error_msg((char*)error_pkt_str);
+       error_pkt[1] = TFTP_ERROR;
+       xsendto(socket_fd, error_pkt, 4 + 1 + strlen((char*)error_pkt_str),
+                       &peer_lsa->u.sa, peer_lsa->len);
+       return EXIT_FAILURE;
+#undef remote_file
+#undef tsize
 }
 
 #if ENABLE_TFTP
 
 int tftp_main(int argc, char **argv) MAIN_EXTERNALLY_VISIBLE;
-int tftp_main(int argc ATTRIBUTE_UNUSED, char **argv)
+int tftp_main(int argc UNUSED_PARAM, char **argv)
 {
        len_and_sockaddr *peer_lsa;
        const char *local_file = NULL;
        const char *remote_file = NULL;
-       int port;
-       USE_GETPUT(int cmd;)
-       int local_fd;
-       int flags = 0;
+#if ENABLE_FEATURE_TFTP_BLOCKSIZE
+       const char *blksize_str = TFTP_BLKSIZE_DEFAULT_STR;
+       int blksize;
+#endif
        int result;
-       int blocksize = TFTP_BLOCKSIZE_DEFAULT;
+       int port;
+       USE_GETPUT(int opt;)
+
+       INIT_G();
 
        /* -p or -g is mandatory, and they are mutually exclusive */
        opt_complementary = "" USE_FEATURE_TFTP_GET("g:") USE_FEATURE_TFTP_PUT("p:")
-                       USE_GETPUT("g--p:p--g:")
-                       USE_FEATURE_TFTP_BLOCKSIZE("b+");
+                       USE_GETPUT("g--p:p--g:");
 
-       USE_GETPUT(cmd =) getopt32(argv,
+       USE_GETPUT(opt =) getopt32(argv,
                        USE_FEATURE_TFTP_GET("g") USE_FEATURE_TFTP_PUT("p")
                                "l:r:" USE_FEATURE_TFTP_BLOCKSIZE("b:"),
                        &local_file, &remote_file
-                       USE_FEATURE_TFTP_BLOCKSIZE(, &blocksize));
+                       USE_FEATURE_TFTP_BLOCKSIZE(, &blksize_str));
        argv += optind;
 
-       flags = O_RDONLY;
-       if (CMD_GET(cmd))
-               flags = O_WRONLY | O_CREAT | O_TRUNC;
-
 #if ENABLE_FEATURE_TFTP_BLOCKSIZE
-       if (!tftp_blocksize_check(blocksize, 0))
+       /* Check if the blksize is valid:
+        * RFC2348 says between 8 and 65464 */
+       blksize = tftp_blksize_check(blksize_str, 65564);
+       if (blksize < 0) {
+               //bb_error_msg("bad block size");
                return EXIT_FAILURE;
+       }
 #endif
 
        if (!local_file)
@@ -486,29 +597,23 @@ int tftp_main(int argc ATTRIBUTE_UNUSED, char **argv)
        if (!remote_file || !argv[0])
                bb_show_usage();
 
-       local_fd = CMD_GET(cmd) ? STDOUT_FILENO : STDIN_FILENO;
-       if (!LONE_DASH(local_file)) {
-               local_fd = xopen(local_file, flags);
-       }
-
        port = bb_lookup_port(argv[1], "udp", 69);
        peer_lsa = xhost2sockaddr(argv[0], port);
 
-#if ENABLE_DEBUG_TFTP
+#if ENABLE_TFTP_DEBUG
        fprintf(stderr, "using server '%s', remote_file '%s', local_file '%s'\n",
                        xmalloc_sockaddr2dotted(&peer_lsa->u.sa),
                        remote_file, local_file);
 #endif
 
        result = tftp_protocol(
-                       USE_GETPUT(cmd,)
-                       NULL /* our_lsa*/,
-                       peer_lsa,
-                       remote_file, local_fd, blocksize);
+               NULL /*our_lsa*/, peer_lsa,
+               local_file, remote_file
+               USE_FEATURE_TFTP_BLOCKSIZE(USE_TFTPD(, NULL /*tsize*/))
+               USE_FEATURE_TFTP_BLOCKSIZE(, blksize)
+       );
 
-       if (ENABLE_FEATURE_CLEAN_UP)
-               close(local_fd);
-       if (result != EXIT_SUCCESS && !LONE_DASH(local_file) && CMD_GET(cmd)) {
+       if (result != EXIT_SUCCESS && NOT_LONE_DASH(local_file) && CMD_GET(opt)) {
                unlink(local_file);
        }
        return result;
@@ -517,101 +622,112 @@ int tftp_main(int argc ATTRIBUTE_UNUSED, char **argv)
 #endif /* ENABLE_TFTP */
 
 #if ENABLE_TFTPD
-
-/* TODO: libbb candidate? */
-static len_and_sockaddr *get_sock_lsa(int s)
-{
-       len_and_sockaddr *lsa;
-       socklen_t len = 0;
-
-       if (getsockname(s, NULL, &len) != 0)
-               return NULL;
-       lsa = xzalloc(LSA_LEN_SIZE + len);
-       lsa->len = len;
-       getsockname(s, &lsa->u.sa, &lsa->len);
-       return lsa;
-}
-
 int tftpd_main(int argc, char **argv) MAIN_EXTERNALLY_VISIBLE;
-int tftpd_main(int argc ATTRIBUTE_UNUSED, char **argv ATTRIBUTE_UNUSED)
+int tftpd_main(int argc UNUSED_PARAM, char **argv)
 {
-       struct stat statbuf;
-       char block_buf[TFTP_BLOCKSIZE_DEFAULT];
        len_and_sockaddr *our_lsa;
        len_and_sockaddr *peer_lsa;
-       char *filename, *mode, *opt_str;
-       int result, opcode, cmd, req_modebits, open_mode, local_fd, blksize;
+       char *local_file, *mode;
+       const char *error_msg;
+       int opt, result, opcode;
+       USE_FEATURE_TFTP_BLOCKSIZE(int blksize = TFTP_BLKSIZE_DEFAULT;)
+       USE_FEATURE_TFTP_BLOCKSIZE(char *tsize = NULL;)
+
+       INIT_G();
 
        our_lsa = get_sock_lsa(STDIN_FILENO);
-       if (!our_lsa)
-               bb_perror_msg_and_die("stdin is not a socket");
+       if (!our_lsa) {
+               /* This is confusing:
+                *bb_error_msg_and_die("stdin is not a socket");
+                * Better: */
+               bb_show_usage();
+               /* Help text says that tftpd must be used as inetd service,
+                * which is by far the most usual cause of get_sock_lsa
+                * failure */
+       }
        peer_lsa = xzalloc(LSA_LEN_SIZE + our_lsa->len);
        peer_lsa->len = our_lsa->len;
 
-       if (argv[1])
-               xchdir(argv[1]);
+       /* Shifting to not collide with TFTP_OPTs */
+       opt = option_mask32 = TFTPD_OPT | (getopt32(argv, "rcu:", &user_opt) << 8);
+       argv += optind;
+       if (argv[0])
+               xchdir(argv[0]);
 
        result = recv_from_to(STDIN_FILENO, block_buf, sizeof(block_buf),
                        0 /* flags */,
                        &peer_lsa->u.sa, &our_lsa->u.sa, our_lsa->len);
 
+       error_msg = "malformed packet";
        opcode = ntohs(*(uint16_t*)block_buf);
        if (result < 4 || result >= sizeof(block_buf)
         || block_buf[result-1] != '\0'
-        || (opcode != TFTP_RRQ && opcode != TFTP_WRQ)
+        || (USE_FEATURE_TFTP_PUT(opcode != TFTP_RRQ) /* not download */
+            USE_GETPUT(&&)
+            USE_FEATURE_TFTP_GET(opcode != TFTP_WRQ) /* not upload */
+           )
        ) {
-               bb_error_msg_and_die("malformed packet");
+               goto err;
        }
-       filename = block_buf + 2;
-       if (filename[0] == '.' || strstr(filename, "/.")) {
-               bb_error_msg_and_die("dot in filename");
+       local_file = block_buf + 2;
+       if (local_file[0] == '.' || strstr(local_file, "/.")) {
+               error_msg = "dot in file name";
+               goto err;
        }
-       mode = filename + strlen(filename) + 1;
-       if (mode >= block_buf + sizeof(block_buf)
-        || strcmp(mode, "octet") != 0
-       ) {
-               bb_error_msg_and_die("malformed packet");
+       mode = local_file + strlen(local_file) + 1;
+       if (mode >= block_buf + result || strcmp(mode, "octet") != 0) {
+               goto err;
        }
-       blksize = TFTP_BLOCKSIZE_DEFAULT;
 #if ENABLE_FEATURE_TFTP_BLOCKSIZE
-       opt_str = mode + 6;
-       if (opt_str < block_buf + sizeof(block_buf)) {
-               char *res = tftp_option_get(opt_str, block_buf + sizeof(block_buf) - opt_str, "blksize");
-               if (res) {
-                       int sz = xatoi_u(res);
-                       if (tftp_blocksize_check(sz, 0))
-                               blksize = sz;
+       {
+               char *res;
+               char *opt_str = mode + sizeof("octet");
+               int opt_len = block_buf + result - opt_str;
+               if (opt_len > 0) {
+                       res = tftp_get_option("blksize", opt_str, opt_len);
+                       if (res) {
+                               blksize = tftp_blksize_check(res, 65564);
+                               if (blksize < 0) {
+                                       error_pkt_reason = ERR_BAD_OPT;
+                                       /* will just send error pkt */
+                                       goto do_proto;
+                               }
+                       }
+                       /* did client ask us about file size? */
+                       tsize = tftp_get_option("tsize", opt_str, opt_len);
                }
        }
 #endif
-       xstat(filename, &statbuf);
-       /* if opcode == TFTP_WRQ: */
-       cmd = 1; /* CMD_GET: we will receive file's data */
-       req_modebits = 0222; /* writable by anyone */
-       open_mode = O_WRONLY | O_TRUNC;
-       if (opcode == TFTP_RRQ) {
-               cmd = 2; /* CMD_PUT */
-               req_modebits = 0444; /* readable by anyone */
-               open_mode = O_RDONLY;
-       }
-       if (!S_ISREG(statbuf.st_mode)
-        || (statbuf.st_mode & req_modebits) != req_modebits
-       ) {
-               bb_error_msg_and_die("access to '%s' is denied", filename);
+
+       if (!ENABLE_FEATURE_TFTP_PUT || opcode == TFTP_WRQ) {
+               if (opt & TFTPD_OPT_r) {
+                       /* This would mean "disk full" - not true */
+                       /*error_pkt_reason = ERR_WRITE;*/
+                       error_msg = bb_msg_write_error;
+                       goto err;
+               }
+               USE_GETPUT(option_mask32 |= TFTP_OPT_GET;) /* will receive file's data */
+       } else {
+               USE_GETPUT(option_mask32 |= TFTP_OPT_PUT;) /* will send file's data */
        }
-       local_fd = xopen(filename, open_mode);
 
+       /* NB: if error_pkt_str or error_pkt_reason is set up,
+        * tftp_protocol() just sends one error pkt and returns */
+
+ do_proto:
        close(STDIN_FILENO); /* close old, possibly wildcard socket */
        /* tftp_protocol() will create new one, bound to particular local IP */
        result = tftp_protocol(
-               USE_GETPUT(cmd,)
                our_lsa, peer_lsa,
-               USE_TFTP(NULL /*remote_file*/,)
-               local_fd,
-               blksize
+               local_file USE_TFTP(, NULL /*remote_file*/)
+               USE_FEATURE_TFTP_BLOCKSIZE(, tsize)
+               USE_FEATURE_TFTP_BLOCKSIZE(, blksize)
        );
 
        return result;
+ err:
+       strcpy((char*)error_pkt_str, error_msg);
+       goto do_proto;
 }
 
 #endif /* ENABLE_TFTPD */