tftp.c

   1 #define _BSD_SOURCE
   2 #include <arpa/inet.h>
   3 #include <sys/socket.h>
   4 #include <net/if.h>
   5 #include <string.h>
   6 #include <unistd.h>
   7 #include <stdio.h>
   8 #include <errno.h>
   9 #include <fcntl.h>
  10 #include "nmrpd.h"
  11
  12 #define TFTP_PKT_SIZE 516
  13
  14 static const char *opcode_names[] = {
  15         "RRQ", "WRQ", "DATA", "ACK", "ERR"
  16 };
  17
  18 enum tftp_opcode {
  19         RRQ  = 1,
  20         WRQ  = 2,
  21         DATA = 3,
  22         ACK  = 4,
  23         ERR  = 5
  24 };
  25
  26 static inline void pkt_mknum(char *pkt, uint16_t n)
  27 {
  28         *(uint16_t*)pkt = htons(n);
  29 }
  30
  31 static inline uint16_t pkt_num(char *pkt)
  32 {
  33         return ntohs(*(uint16_t*)pkt);
  34 }
  35
  36 static void pkt_mkwrq(char *pkt, const char *filename, const char *mode)
  37 {
  38         size_t len = 2;
  39
  40         pkt_mknum(pkt, WRQ);
  41
  42         strcpy(pkt + len, filename);
  43         len += strlen(filename) + 1;
  44         strcpy(pkt + len, mode);
  45         len += strlen(mode) + 1;
  46 }
  47
  48 static inline void pkt_print(char *pkt, FILE *fp)
  49 {
  50         uint16_t opcode = pkt_num(pkt);
  51         if (!opcode || opcode > ERR) {
  52                 fprintf(fp, "(%d)", opcode);
  53         } else {
  54                 fprintf(fp, "%s", opcode_names[opcode - 1]);
  55                 if (opcode == ACK || opcode == DATA) {
  56                         fprintf(fp, "(%d)", pkt_num(pkt + 2));
  57                 } else if (opcode == WRQ) {
  58                         fprintf(fp, "(%s, %s)", pkt + 2, pkt + 2 + strlen(pkt + 2) + 1);
  59                 }
  60         }
  61 }
  62
  63 static ssize_t tftp_recvfrom(int sock, char *pkt, struct sockaddr_in *src)
  64 {
  65         socklen_t socklen;
  66         ssize_t len;
  67
  68         (void)src, (void)socklen;
  69
  70         len = recvfrom(sock, pkt, TFTP_PKT_SIZE, 0, NULL, NULL);
  71         if (len < 0) {
  72                 if (errno != EAGAIN) {
  73                         perror("recvfrom");
  74                         return -1;
  75                 }
  76
  77                 return -2;
  78         }
  79
  80         uint16_t opcode = pkt_num(pkt);
  81
  82         if (opcode == ERR) {
  83                 fprintf(stderr, "Error (%d): %.511s\n", pkt_num(pkt + 2), pkt + 4);
  84                 return -1;
  85         } else if (!opcode || opcode > ERR) {
  86                 /* The EX2700 I've tested this on sends a raw TFTP packet with no
  87                  * opcode, and an error message starting at offset 0.
  88                  */
  89                 fprintf(stderr, "Error: %.32s\n", pkt);
  90                 return -3;
  91         }
  92
  93         return len;
  94 }
  95
  96 static ssize_t tftp_sendto(int sock, char *pkt, size_t len,
  97                 struct sockaddr_in *dst)
  98 {
  99         ssize_t sent;
 100
 101         switch (pkt_num(pkt)) {
 102                 case RRQ:
 103                 case WRQ:
 104                         len = 2 + strlen(pkt + 2) + 1;
 105                         len += strlen(pkt + len) + 1;
 106                         break;
 107                 case DATA:
 108                         len += 4;
 109                         break;
 110                 case ACK:
 111                         len = 4;
 112                         break;
 113                 case ERR:
 114                         len = 4 + strlen(pkt + 4);
 115                         break;
 116                 default:
 117                         fprintf(stderr, "Error: Invalid packet ");
 118                         pkt_print(pkt, stderr);
 119                         return -1;
 120         }
 121
 122         sent = sendto(sock, pkt, len, 0, (struct sockaddr*)dst, sizeof(*dst));
 123         if (sent < 0) {
 124                 perror("sendto");
 125         }
 126
 127         return sent;
 128 }
 129
 130 int sock_set_rx_timeout(int fd, unsigned msec)
 131 {
 132         struct timeval tv;
 133
 134         if (msec) {
 135                 tv.tv_usec = (msec % 1000) * 1000;
 136                 tv.tv_sec = msec / 1000;
 137                 if (setsockopt(fd, SOL_SOCKET, SO_RCVTIMEO, &tv, sizeof(tv)) < 0) {
 138                         perror("setsockopt(SO_RCVTIMEO)");
 139                         return 1;
 140                 }
 141         }
 142
 143         return 0;
 144 }
 145
 146 int tftp_put(struct nmrpd_args *args)
 147 {
 148         struct sockaddr_in addr;
 149         uint16_t block;
 150         ssize_t len;
 151         int fd, sock, err, timeout, last_len;
 152         char rx[TFTP_PKT_SIZE], tx[TFTP_PKT_SIZE];
 153
 154         fd = open(args->filename, O_RDONLY);
 155         if (fd < 0) {
 156                 perror("open");
 157                 err = fd;
 158                 goto cleanup;
 159         }
 160
 161         sock = socket(AF_INET, SOCK_DGRAM, IPPROTO_UDP);
 162         if (sock < 0) {
 163                 perror("socket");
 164                 err = sock;
 165                 goto cleanup;
 166         }
 167
 168         err = sock_set_rx_timeout(sock, args->rx_timeout);
 169         if (err) {
 170                 goto cleanup;
 171         }
 172
 173         err = !inet_aton(args->ipaddr, &addr.sin_addr);
 174         if (err) {
 175                 perror("inet_aton");
 176                 goto cleanup;
 177         }
 178
 179         addr.sin_family = AF_INET;
 180         addr.sin_port = htons(args->port);
 181
 182         pkt_mkwrq(tx, args->filename, "octet");
 183
 184         len = tftp_sendto(sock, tx, 0, &addr);
 185         if (len < 0) {
 186                 err = len;
 187                 goto cleanup;
 188         }
 189
 190         len = tftp_recvfrom(sock, rx, &addr);
 191         if (len < 0) {
 192                 err = len;
 193                 goto cleanup;
 194         }
 195
 196         timeout = 0;
 197         block = 0;
 198         last_len = -1;
 199
 200         do {
 201                 if (timeout || (pkt_num(rx) == ACK && pkt_num(rx + 2) == block)) {
 202                         if (!timeout) {
 203                                 ++block;
 204                                 pkt_mknum(tx, DATA);
 205                                 pkt_mknum(tx + 2, block);
 206                                 len = read(fd, tx + 4, 512);
 207                                 if (len < 0) {
 208                                         perror("read");
 209                                         err = len;
 210                                         goto cleanup;
 211                                 } else if (!len) {
 212                                         if (last_len != 512) {
 213                                                 break;
 214                                         }
 215                                 }
 216
 217                                 last_len = len;
 218                         }
 219
 220                         err = tftp_sendto(sock, tx, len, &addr);
 221                         if (err < 0) {
 222                                 goto cleanup;
 223                         }
 224                 } else if (pkt_num(rx) != ACK) {
 225                         fprintf(stderr, "Expected ACK(%d), got ", block);
 226                         pkt_print(rx, stderr);
 227                         fprintf(stderr, "!\n");
 228                 }
 229
 230                 err = tftp_recvfrom(sock, rx, &addr);
 231                 if (err < 0) {
 232                         if (err == -2) {
 233                                 if (++timeout < 5) {
 234                                         continue;
 235                                 }
 236                                 fprintf(stderr, "Timeout while waiting for ACK(%d)\n.", block);
 237                         }
 238                         goto cleanup;
 239                 } else {
 240                         timeout = 0;
 241                         err = 0;
 242                 }
 243         } while(1);
 244
 245         err = 0;
 246
 247 cleanup:
 248         if (fd >= 0) {
 249                 close(fd);
 250         }
 251
 252         if (sock >= 0) {
 253                 close(sock);
 254         }
 255
 256         return err;
 257 }