usr.bin/tftp/main.c

   1 /*-
   2  * SPDX-License-Identifier: BSD-3-Clause
   3  *
   4  * Copyright (c) 1983, 1993
   5  *      The Regents of the University of California.  All rights reserved.
   6  *
   7  * Redistribution and use in source and binary forms, with or without
   8  * modification, are permitted provided that the following conditions
   9  * are met:
  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. Neither the name of the University nor the names of its contributors
  16  *    may be used to endorse or promote products derived from this software
  17  *    without specific prior written 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 PURPOSE
  22  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  23  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  24  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  25  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  26  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  27  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  28  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  29  * SUCH DAMAGE.
  30  */
  31
  32 #ifndef lint
  33 static const char copyright[] =
  34 "@(#) Copyright (c) 1983, 1993\n\
  35         The Regents of the University of California.  All rights reserved.\n";
  36 #endif
  37
  38 #if 0
  39 #ifndef lint
  40 static char sccsid[] = "@(#)main.c      8.1 (Berkeley) 6/6/93";
  41 #endif
  42 #endif
  43
  44 #include <sys/cdefs.h>
  45 /* Many bug fixes are from Jim Guyton <guyton@rand-unix> */
  46
  47 /*
  48  * TFTP User Program -- Command Interface.
  49  */
  50 #include <sys/param.h>
  51 #include <sys/file.h>
  52 #include <sys/socket.h>
  53 #include <sys/stat.h>
  54 #include <sys/sysctl.h>
  55
  56 #include <netinet/in.h>
  57 #include <arpa/inet.h>
  58 #include <arpa/tftp.h>
  59
  60 #include <ctype.h>
  61 #include <err.h>
  62 #include <histedit.h>
  63 #include <netdb.h>
  64 #include <setjmp.h>
  65 #include <signal.h>
  66 #include <stdbool.h>
  67 #include <stddef.h>
  68 #include <stdio.h>
  69 #include <stdlib.h>
  70 #include <string.h>
  71 #include <unistd.h>
  72
  73 #include "tftp-utils.h"
  74 #include "tftp-io.h"
  75 #include "tftp-options.h"
  76 #include "tftp.h"
  77
  78 #define MAXLINE         (2 * MAXPATHLEN)
  79 #define TIMEOUT         5               /* secs between rexmt's */
  80
  81 typedef struct  sockaddr_storage peeraddr;
  82 static int      connected;
  83 static char     mode[32];
  84 static jmp_buf  toplevel;
  85 static int      txrx_error;
  86 static int      peer;
  87
  88 #define MAX_MARGV       20
  89 static int      margc;
  90 static char     *margv[MAX_MARGV];
  91
  92 int             verbose;
  93 static char     *port = NULL;
  94
  95 static void     get(int, char **);
  96 static void     help(int, char **);
  97 static void     intr(int);
  98 static void     modecmd(int, char **);
  99 static void     put(int, char **);
 100 static void     quit(int, char **);
 101 static void     setascii(int, char **);
 102 static void     setbinary(int, char **);
 103 static void     setpeer0(char *, const char *);
 104 static void     setpeer(int, char **);
 105 static void     settimeoutpacket(int, char **);
 106 static void     settimeoutnetwork(int, char **);
 107 static void     setdebug(int, char **);
 108 static void     setverbose(int, char **);
 109 static void     showstatus(int, char **);
 110 static void     setblocksize(int, char **);
 111 static void     setblocksize2(int, char **);
 112 static void     setoptions(int, char **);
 113 static void     setrollover(int, char **);
 114 static void     setpacketdrop(int, char **);
 115 static void     setwindowsize(int, char **);
 116
 117 static void command(bool, EditLine *, History *, HistEvent *) __dead2;
 118 static const char *command_prompt(void);
 119
 120 static void urihandling(char *URI);
 121 static void getusage(char *);
 122 static void makeargv(char *line);
 123 static void putusage(char *);
 124 static void settftpmode(const char *);
 125
 126 static char     *tail(char *);
 127 static const struct cmd *getcmd(const char *);
 128
 129 #define HELPINDENT (sizeof("connect"))
 130
 131 struct cmd {
 132         const char      *name;
 133         void    (*handler)(int, char **);
 134         const char      *help;
 135 };
 136
 137 static struct cmd cmdtab[] = {
 138         { "connect",    setpeer,        "connect to remote tftp"        },
 139         { "mode",       modecmd,        "set file transfer mode"        },
 140         { "put",        put,            "send file"                     },
 141         { "get",        get,            "receive file"                  },
 142         { "quit",       quit,           "exit tftp"                     },
 143         { "verbose",    setverbose,     "toggle verbose mode"           },
 144         { "status",     showstatus,     "show current status"           },
 145         { "binary",     setbinary,      "set mode to octet"             },
 146         { "ascii",      setascii,       "set mode to netascii"          },
 147         { "rexmt",      settimeoutpacket,
 148           "set per-packet retransmission timeout[-]" },
 149         { "timeout",    settimeoutnetwork,
 150           "set total retransmission timeout" },
 151         { "trace",      setdebug,       "enable 'debug packet'[-]"      },
 152         { "debug",      setdebug,       "enable verbose output"         },
 153         { "blocksize",  setblocksize,   "set blocksize[*]"              },
 154         { "blocksize2", setblocksize2,  "set blocksize as a power of 2[**]" },
 155         { "rollover",   setrollover,    "rollover after 64K packets[**]" },
 156         { "options",    setoptions,
 157           "enable or disable RFC2347 style options" },
 158         { "help",       help,           "print help information"        },
 159         { "packetdrop", setpacketdrop,  "artificial packetloss feature" },
 160         { "windowsize", setwindowsize,  "set windowsize[*]"             },
 161         { "?",          help,           "print help information"        },
 162         { NULL,         NULL,           NULL                            }
 163 };
 164
 165 static struct   modes {
 166         const char *m_name;
 167         const char *m_mode;
 168 } modes[] = {
 169         { "ascii",      "netascii" },
 170         { "netascii",   "netascii" },
 171         { "binary",     "octet" },
 172         { "image",      "octet" },
 173         { "octet",      "octet" },
 174         { NULL,         NULL }
 175 };
 176
 177 int
 178 main(int argc, char *argv[])
 179 {
 180         HistEvent he;
 181         static EditLine *el;
 182         static History *hist;
 183         bool interactive;
 184
 185         acting_as_client = 1;
 186         peer = -1;
 187         strcpy(mode, "octet");
 188         signal(SIGINT, intr);
 189
 190         interactive = isatty(STDIN_FILENO);
 191         if (interactive) {
 192                 el = el_init("tftp", stdin, stdout, stderr);
 193                 hist = history_init();
 194                 history(hist, &he, H_SETSIZE, 100);
 195                 el_set(el, EL_HIST, history, hist);
 196                 el_set(el, EL_EDITOR, "emacs");
 197                 el_set(el, EL_PROMPT, command_prompt);
 198                 el_set(el, EL_SIGNAL, 1);
 199                 el_source(el, NULL);
 200         }
 201
 202         if (argc > 1) {
 203                 if (setjmp(toplevel) != 0)
 204                         exit(txrx_error);
 205
 206                 if (strncmp(argv[1], "tftp://", 7) == 0) {
 207                         urihandling(argv[1]);
 208                         exit(txrx_error);
 209                 }
 210
 211                 setpeer(argc, argv);
 212         }
 213
 214         if (setjmp(toplevel) != 0) {
 215                 if (interactive)
 216                         el_reset(el);
 217                 (void)putchar('\n');
 218         }
 219
 220         init_options();
 221         command(interactive, el, hist, &he);
 222 }
 223
 224 /*
 225  * RFC3617 handling of TFTP URIs:
 226  *
 227  *    tftpURI         = "tftp://" host "/" file [ mode ]
 228  *    mode            = ";"  "mode=" ( "netascii" / "octet" )
 229  *    file            = *( unreserved / escaped )
 230  *    host            = <as specified by RFC 2732>
 231  *    unreserved      = <as specified in RFC 2396>
 232  *    escaped         = <as specified in RFC 2396>
 233  *
 234  * We are cheating a little bit by allowing any mode as specified in the
 235  * modes table defined earlier on in this file and mapping it on the real
 236  * mode.
 237  */
 238 static void
 239 urihandling(char *URI)
 240 {
 241         char    uri[ARG_MAX];
 242         char    *host = NULL;
 243         char    *path = NULL;
 244         char    *opts = NULL;
 245         const char *tmode = "octet";
 246         char    *s;
 247         char    line[MAXLINE];
 248         int     i;
 249
 250         strlcpy(uri, URI, ARG_MAX);
 251         host = uri + 7;
 252
 253         if ((s = strchr(host, '/')) == NULL) {
 254                 fprintf(stderr,
 255                     "Invalid URI: Couldn't find / after hostname\n");
 256                 exit(1);
 257         }
 258         *s = '\0';
 259         path = s + 1;
 260
 261         if ((s = strchr(path, ';')) != NULL) {
 262                 *s = '\0';
 263                 opts = s + 1;
 264
 265                 if (strncmp(opts, "mode=", 5) == 0) {
 266                         tmode = opts;
 267                         tmode += 5;
 268
 269                         for (i = 0; modes[i].m_name != NULL; i++) {
 270                                 if (strcmp(modes[i].m_name, tmode) == 0)
 271                                         break;
 272                         }
 273                         if (modes[i].m_name == NULL) {
 274                                 fprintf(stderr, "Invalid mode: '%s'\n", mode);
 275                                 exit(1);
 276                         }
 277                         settftpmode(modes[i].m_mode);
 278                 }
 279         } else {
 280                 settftpmode("octet");
 281         }
 282
 283         setpeer0(host, NULL);
 284
 285         sprintf(line, "get %s", path);
 286         makeargv(line);
 287         get(margc, margv);
 288 }
 289
 290 static char    hostname[MAXHOSTNAMELEN];
 291
 292 static void
 293 setpeer0(char *host, const char *lport)
 294 {
 295         struct addrinfo hints, *res0, *res;
 296         int error;
 297         const char *cause = "unknown";
 298
 299         if (connected) {
 300                 close(peer);
 301                 peer = -1;
 302         }
 303         connected = 0;
 304
 305         memset(&hints, 0, sizeof(hints));
 306         hints.ai_family = PF_UNSPEC;
 307         hints.ai_socktype = SOCK_DGRAM;
 308         hints.ai_protocol = IPPROTO_UDP;
 309         hints.ai_flags = AI_CANONNAME;
 310         if (!lport)
 311                 lport = "tftp";
 312         error = getaddrinfo(host, lport, &hints, &res0);
 313         if (error) {
 314                 warnx("%s", gai_strerror(error));
 315                 return;
 316         }
 317
 318         for (res = res0; res; res = res->ai_next) {
 319                 if (res->ai_addrlen > sizeof(peeraddr))
 320                         continue;
 321                 peer = socket(res->ai_family, res->ai_socktype,
 322                         res->ai_protocol);
 323                 if (peer < 0) {
 324                         cause = "socket";
 325                         continue;
 326                 }
 327
 328                 memset(&peer_sock, 0, sizeof(peer_sock));
 329                 peer_sock.ss_family = res->ai_family;
 330                 peer_sock.ss_len = res->ai_addrlen;
 331                 if (bind(peer, (struct sockaddr *)&peer_sock, peer_sock.ss_len) < 0) {
 332                         cause = "bind";
 333                         close(peer);
 334                         peer = -1;
 335                         continue;
 336                 }
 337
 338                 break;
 339         }
 340
 341         if (peer < 0)
 342                 warn("%s", cause);
 343         else {
 344                 /* res->ai_addr <= sizeof(peeraddr) is guaranteed */
 345                 memcpy(&peer_sock, res->ai_addr, res->ai_addrlen);
 346                 if (res->ai_canonname) {
 347                         (void) strlcpy(hostname, res->ai_canonname,
 348                                 sizeof(hostname));
 349                 } else
 350                         (void) strlcpy(hostname, host, sizeof(hostname));
 351                 connected = 1;
 352         }
 353
 354         freeaddrinfo(res0);
 355 }
 356
 357 static void
 358 setpeer(int argc, char *argv[])
 359 {
 360         char    line[MAXLINE];
 361
 362         if (argc < 2) {
 363                 strcpy(line, "Connect ");
 364                 printf("(to) ");
 365                 fgets(&line[strlen(line)], sizeof line - strlen(line), stdin);
 366                 makeargv(line);
 367                 argc = margc;
 368                 argv = margv;
 369         }
 370         if ((argc < 2) || (argc > 3)) {
 371                 printf("usage: %s [host [port]]\n", argv[0]);
 372                 return;
 373         }
 374         if (argc == 3) {
 375                 port = argv[2];
 376                 setpeer0(argv[1], argv[2]);
 377         } else
 378                 setpeer0(argv[1], NULL);
 379 }
 380
 381 static void
 382 modecmd(int argc, char *argv[])
 383 {
 384         struct modes *p;
 385         const char *sep;
 386
 387         if (argc < 2) {
 388                 printf("Using %s mode to transfer files.\n", mode);
 389                 return;
 390         }
 391         if (argc == 2) {
 392                 for (p = modes; p->m_name; p++)
 393                         if (strcmp(argv[1], p->m_name) == 0)
 394                                 break;
 395                 if (p->m_name) {
 396                         settftpmode(p->m_mode);
 397                         return;
 398                 }
 399                 printf("%s: unknown mode\n", argv[1]);
 400                 /* drop through and print usage message */
 401         }
 402
 403         printf("usage: %s [", argv[0]);
 404         sep = " ";
 405         for (p = modes; p->m_name != NULL; p++) {
 406                 printf("%s%s", sep, p->m_name);
 407                 if (*sep == ' ')
 408                         sep = " | ";
 409         }
 410         printf(" ]\n");
 411         return;
 412 }
 413
 414 static void
 415 setbinary(int argc __unused, char *argv[] __unused)
 416 {
 417
 418         settftpmode("octet");
 419 }
 420
 421 static void
 422 setascii(int argc __unused, char *argv[] __unused)
 423 {
 424
 425         settftpmode("netascii");
 426 }
 427
 428 static void
 429 settftpmode(const char *newmode)
 430 {
 431
 432         strlcpy(mode, newmode, sizeof(mode));
 433         if (verbose)
 434                 printf("mode set to %s\n", mode);
 435 }
 436
 437
 438 /*
 439  * Send file(s).
 440  */
 441 static void
 442 put(int argc, char *argv[])
 443 {
 444         int     fd;
 445         int     n;
 446         char    *cp, *targ, *path;
 447         char    line[MAXLINE];
 448         struct stat sb;
 449
 450         if (argc < 2) {
 451                 strcpy(line, "send ");
 452                 printf("(file) ");
 453                 fgets(&line[strlen(line)], sizeof line - strlen(line), stdin);
 454                 makeargv(line);
 455                 argc = margc;
 456                 argv = margv;
 457         }
 458         if (argc < 2) {
 459                 putusage(argv[0]);
 460                 return;
 461         }
 462         targ = argv[argc - 1];
 463         if (strrchr(argv[argc - 1], ':')) {
 464                 char *lcp;
 465
 466                 for (n = 1; n < argc - 1; n++)
 467                         if (strchr(argv[n], ':')) {
 468                                 putusage(argv[0]);
 469                                 return;
 470                         }
 471                 lcp = argv[argc - 1];
 472                 targ = strrchr(lcp, ':');
 473                 *targ++ = 0;
 474                 if (lcp[0] == '[' && lcp[strlen(lcp) - 1] == ']') {
 475                         lcp[strlen(lcp) - 1] = '\0';
 476                         lcp++;
 477                 }
 478                 setpeer0(lcp, NULL);
 479         }
 480         if (!connected) {
 481                 printf("No target machine specified.\n");
 482                 return;
 483         }
 484         if (argc < 4) {
 485                 cp = argc == 2 ? tail(targ) : argv[1];
 486                 fd = open(cp, O_RDONLY);
 487                 if (fd < 0) {
 488                         warn("%s", cp);
 489                         return;
 490                 }
 491
 492                 if (fstat(fd, &sb) < 0) {
 493                         warn("%s", cp);
 494                         close(fd);
 495                         return;
 496                 }
 497                 options_set_request(OPT_TSIZE, "%ju", (uintmax_t)sb.st_size);
 498
 499                 if (verbose)
 500                         printf("putting %s to %s:%s [%s]\n",
 501                             cp, hostname, targ, mode);
 502                 if (xmitfile(peer, port, fd, targ, mode))
 503                         txrx_error = 1;
 504                 close(fd);
 505                 return;
 506         }
 507                                 /* this assumes the target is a directory */
 508                                 /* on a remote unix system.  hmmmm.  */
 509         for (n = 1; n < argc - 1; n++) {
 510                 if (asprintf(&path, "%s/%s", targ, tail(argv[n])) < 0)
 511                         err(1, "malloc");
 512
 513                 fd = open(argv[n], O_RDONLY);
 514                 if (fd < 0) {
 515                         warn("%s", argv[n]);
 516                         free(path);
 517                         continue;
 518                 }
 519
 520                 if (fstat(fd, &sb) < 0) {
 521                         warn("%s", argv[n]);
 522                         close(fd);
 523                         free(path);
 524                         continue;
 525                 }
 526                 options_set_request(OPT_TSIZE, "%ju", (uintmax_t)sb.st_size);
 527
 528                 if (verbose)
 529                         printf("putting %s to %s:%s [%s]\n",
 530                             argv[n], hostname, path, mode);
 531                 if (xmitfile(peer, port, fd, path, mode) != 0)
 532                         txrx_error = 1;
 533                 close(fd);
 534
 535                 free(path);
 536         }
 537 }
 538
 539 static void
 540 putusage(char *s)
 541 {
 542
 543         printf("usage: %s file [remotename]\n", s);
 544         printf("       %s file host:remotename\n", s);
 545         printf("       %s file1 file2 ... fileN [[host:]remote-directory]\n", s);
 546 }
 547
 548 /*
 549  * Receive file(s).
 550  */
 551 static void
 552 get(int argc, char *argv[])
 553 {
 554         int fd;
 555         int n;
 556         char *cp;
 557         char *src;
 558         char    line[MAXLINE];
 559
 560         if (argc < 2) {
 561                 strcpy(line, "get ");
 562                 printf("(files) ");
 563                 fgets(&line[strlen(line)], sizeof line - strlen(line), stdin);
 564                 makeargv(line);
 565                 argc = margc;
 566                 argv = margv;
 567         }
 568         if (argc < 2) {
 569                 getusage(argv[0]);
 570                 return;
 571         }
 572         if (!connected) {
 573                 for (n = 1; n < argc ; n++)
 574                         if (strrchr(argv[n], ':') == 0) {
 575                                 printf("No remote host specified and "
 576                                     "no host given for file '%s'\n", argv[n]);
 577                                 getusage(argv[0]);
 578                                 return;
 579                         }
 580         }
 581         for (n = 1; n < argc ; n++) {
 582                 src = strrchr(argv[n], ':');
 583                 if (src == NULL)
 584                         src = argv[n];
 585                 else {
 586                         char *lcp;
 587
 588                         *src++ = 0;
 589                         lcp = argv[n];
 590                         if (lcp[0] == '[' && lcp[strlen(lcp) - 1] == ']') {
 591                                 lcp[strlen(lcp) - 1] = '\0';
 592                                 lcp++;
 593                         }
 594                         setpeer0(lcp, NULL);
 595                         if (!connected)
 596                                 continue;
 597                 }
 598                 if (argc < 4) {
 599                         cp = argc == 3 ? argv[2] : tail(src);
 600                         fd = creat(cp, 0644);
 601                         if (fd < 0) {
 602                                 warn("%s", cp);
 603                                 return;
 604                         }
 605                         if (verbose)
 606                                 printf("getting from %s:%s to %s [%s]\n",
 607                                     hostname, src, cp, mode);
 608                         if (recvfile(peer, port, fd, src, mode) != 0)
 609                                 txrx_error = 1;
 610                         break;
 611                 }
 612                 cp = tail(src);         /* new .. jdg */
 613                 fd = creat(cp, 0644);
 614                 if (fd < 0) {
 615                         warn("%s", cp);
 616                         continue;
 617                 }
 618                 if (verbose)
 619                         printf("getting from %s:%s to %s [%s]\n",
 620                             hostname, src, cp, mode);
 621                 if (recvfile(peer, port, fd, src, mode) != 0)
 622                         txrx_error = 1;
 623         }
 624 }
 625
 626 static void
 627 getusage(char *s)
 628 {
 629
 630         printf("usage: %s file [localname]\n", s);
 631         printf("       %s [host:]file [localname]\n", s);
 632         printf("       %s [host1:]file1 [host2:]file2 ... [hostN:]fileN\n", s);
 633 }
 634
 635 static void
 636 settimeoutpacket(int argc, char *argv[])
 637 {
 638         int t;
 639         char    line[MAXLINE];
 640
 641         if (argc < 2) {
 642                 strcpy(line, "Packet timeout ");
 643                 printf("(value) ");
 644                 fgets(&line[strlen(line)], sizeof line - strlen(line), stdin);
 645                 makeargv(line);
 646                 argc = margc;
 647                 argv = margv;
 648         }
 649         if (argc != 2) {
 650                 printf("usage: %s value\n", argv[0]);
 651                 return;
 652         }
 653         t = atoi(argv[1]);
 654         if (t < 0) {
 655                 printf("%s: bad value\n", argv[1]);
 656                 return;
 657         }
 658
 659         settimeouts(t, timeoutnetwork, maxtimeouts);
 660 }
 661
 662 static void
 663 settimeoutnetwork(int argc, char *argv[])
 664 {
 665         int t;
 666         char    line[MAXLINE];
 667
 668         if (argc < 2) {
 669                 strcpy(line, "Network timeout ");
 670                 printf("(value) ");
 671                 fgets(&line[strlen(line)], sizeof line - strlen(line), stdin);
 672                 makeargv(line);
 673                 argc = margc;
 674                 argv = margv;
 675         }
 676         if (argc != 2) {
 677                 printf("usage: %s value\n", argv[0]);
 678                 return;
 679         }
 680         t = atoi(argv[1]);
 681         if (t < 0) {
 682                 printf("%s: bad value\n", argv[1]);
 683                 return;
 684         }
 685
 686         settimeouts(timeoutpacket, t, maxtimeouts);
 687 }
 688
 689 static void
 690 showstatus(int argc __unused, char *argv[] __unused)
 691 {
 692
 693         printf("Remote host: %s\n",
 694             connected ? hostname : "none specified yet");
 695         printf("RFC2347 Options support: %s\n",
 696             options_rfc_enabled ? "enabled" : "disabled");
 697         printf("Non-RFC defined options support: %s\n",
 698             options_extra_enabled ? "enabled" : "disabled");
 699         printf("Mode: %s\n", mode);
 700         printf("Verbose: %s\n", verbose ? "on" : "off");
 701         printf("Debug: %s\n", debug_show(debug));
 702         printf("Artificial packetloss: %d in 100 packets\n",
 703             packetdroppercentage);
 704         printf("Segment size: %d bytes\n", segsize);
 705         printf("Network timeout: %d seconds\n", timeoutpacket);
 706         printf("Maximum network timeout: %d seconds\n", timeoutnetwork);
 707         printf("Maximum timeouts: %d \n", maxtimeouts);
 708 }
 709
 710 static void
 711 intr(int dummy __unused)
 712 {
 713
 714         signal(SIGALRM, SIG_IGN);
 715         alarm(0);
 716         longjmp(toplevel, -1);
 717 }
 718
 719 static char *
 720 tail(char *filename)
 721 {
 722         char *s;
 723
 724         while (*filename) {
 725                 s = strrchr(filename, '/');
 726                 if (s == NULL)
 727                         break;
 728                 if (s[1])
 729                         return (s + 1);
 730                 *s = '\0';
 731         }
 732         return (filename);
 733 }
 734
 735 static const char *
 736 command_prompt(void)
 737 {
 738
 739         return ("tftp> ");
 740 }
 741
 742 /*
 743  * Command parser.
 744  */
 745 static void
 746 command(bool interactive, EditLine *el, History *hist, HistEvent *hep)
 747 {
 748         const struct cmd *c;
 749         const char *bp;
 750         char *cp;
 751         int len, num;
 752         char    line[MAXLINE];
 753
 754         for (;;) {
 755                 if (interactive) {
 756                         if ((bp = el_gets(el, &num)) == NULL || num == 0)
 757                                 exit(0);
 758                         len = MIN(MAXLINE, num);
 759                         memcpy(line, bp, len);
 760                         line[len - 1] = '\0';
 761                         history(hist, hep, H_ENTER, bp);
 762                 } else {
 763                         line[0] = 0;
 764                         if (fgets(line, sizeof line , stdin) == NULL) {
 765                                 if (feof(stdin)) {
 766                                         exit(txrx_error);
 767                                 } else {
 768                                         continue;
 769                                 }
 770                         }
 771                 }
 772                 if ((cp = strchr(line, '\n')))
 773                         *cp = '\0';
 774                 if (line[0] == 0)
 775                         continue;
 776                 makeargv(line);
 777                 if (margc == 0)
 778                         continue;
 779                 c = getcmd(margv[0]);
 780                 if (c == (struct cmd *)-1) {
 781                         printf("?Ambiguous command\n");
 782                         continue;
 783                 }
 784                 if (c == NULL) {
 785                         printf("?Invalid command\n");
 786                         continue;
 787                 }
 788                 (*c->handler)(margc, margv);
 789         }
 790 }
 791
 792 static const struct cmd *
 793 getcmd(const char *name)
 794 {
 795         const char *p, *q;
 796         const struct cmd *c, *found;
 797         ptrdiff_t longest;
 798         int nmatches;
 799
 800         longest = 0;
 801         nmatches = 0;
 802         found = 0;
 803         for (c = cmdtab; (p = c->name) != NULL; c++) {
 804                 for (q = name; *q == *p++; q++)
 805                         if (*q == '\0')         /* exact match? */
 806                                 return (c);
 807                 if (*q == '\0') {               /* the name was a prefix */
 808                         if (q - name > longest) {
 809                                 longest = q - name;
 810                                 nmatches = 1;
 811                                 found = c;
 812                         } else if (q - name == longest)
 813                                 nmatches++;
 814                 }
 815         }
 816         if (nmatches > 1)
 817                 return ((struct cmd *)-1);
 818         return (found);
 819 }
 820
 821 /*
 822  * Slice a string up into argc/argv.
 823  */
 824 static void
 825 makeargv(char *line)
 826 {
 827         char *cp;
 828         char **argp = margv;
 829
 830         margc = 0;
 831         if ((cp = strchr(line, '\n')) != NULL)
 832                 *cp = '\0';
 833         for (cp = line; margc < MAX_MARGV - 1 && *cp != '\0';) {
 834                 while (isspace(*cp))
 835                         cp++;
 836                 if (*cp == '\0')
 837                         break;
 838                 *argp++ = cp;
 839                 margc += 1;
 840                 while (*cp != '\0' && !isspace(*cp))
 841                         cp++;
 842                 if (*cp == '\0')
 843                         break;
 844                 *cp++ = '\0';
 845         }
 846         *argp++ = 0;
 847 }
 848
 849 static void
 850 quit(int argc __unused, char *argv[] __unused)
 851 {
 852
 853         exit(txrx_error);
 854 }
 855
 856 /*
 857  * Help command.
 858  */
 859 static void
 860 help(int argc, char *argv[])
 861 {
 862         const struct cmd *c;
 863
 864         if (argc == 1) {
 865                 printf("Commands may be abbreviated.  Commands are:\n\n");
 866                 for (c = cmdtab; c->name; c++)
 867                         printf("%-*s\t%s\n", (int)HELPINDENT, c->name, c->help);
 868
 869                 printf("\n[-] : You shouldn't use these ones anymore.\n");
 870                 printf("[*] : RFC2347 options support required.\n");
 871                 printf("[**] : Non-standard RFC2347 option.\n");
 872                 return;
 873         }
 874         while (--argc > 0) {
 875                 char *arg;
 876                 arg = *++argv;
 877                 c = getcmd(arg);
 878                 if (c == (struct cmd *)-1)
 879                         printf("?Ambiguous help command: %s\n", arg);
 880                 else if (c == (struct cmd *)0)
 881                         printf("?Invalid help command: %s\n", arg);
 882                 else
 883                         printf("%s\n", c->help);
 884         }
 885 }
 886
 887 static void
 888 setverbose(int argc __unused, char *argv[] __unused)
 889 {
 890
 891         verbose = !verbose;
 892         printf("Verbose mode %s.\n", verbose ? "on" : "off");
 893 }
 894
 895 static void
 896 setoptions(int argc, char *argv[])
 897 {
 898
 899         if (argc == 2) {
 900                 if (strcasecmp(argv[1], "enable") == 0 ||
 901                     strcasecmp(argv[1], "on") == 0) {
 902                         options_extra_enabled = 1;
 903                         options_rfc_enabled = 1;
 904                 }
 905                 if (strcasecmp(argv[1], "disable") == 0 ||
 906                     strcasecmp(argv[1], "off") == 0) {
 907                         options_extra_enabled = 0;
 908                         options_rfc_enabled = 0;
 909                 }
 910                 if (strcasecmp(argv[1], "extra") == 0)
 911                         options_extra_enabled = !options_extra_enabled;
 912         }
 913         printf("Support for RFC2347 style options are now %s.\n",
 914             options_rfc_enabled ? "enabled" : "disabled");
 915         printf("Support for non-RFC defined options are now %s.\n",
 916             options_extra_enabled ? "enabled" : "disabled");
 917
 918         printf("\nThe following options are available:\n"
 919             "\toptions on       : enable support for RFC2347 style options\n"
 920             "\toptions off      : disable support for RFC2347 style options\n"
 921             "\toptions extra    : toggle support for non-RFC defined options\n"
 922         );
 923 }
 924
 925 static void
 926 setrollover(int argc, char *argv[])
 927 {
 928
 929         if (argc == 2) {
 930                 if (strcasecmp(argv[1], "never") == 0 ||
 931                     strcasecmp(argv[1], "none") == 0) {
 932                         options_set_request(OPT_ROLLOVER, NULL);
 933                 }
 934                 if (strcasecmp(argv[1], "1") == 0) {
 935                         options_set_request(OPT_ROLLOVER, "1");
 936                 }
 937                 if (strcasecmp(argv[1], "0") == 0) {
 938                         options_set_request(OPT_ROLLOVER, "0");
 939                 }
 940         }
 941         printf("Support for the rollover options is %s.\n",
 942             options[OPT_ROLLOVER].o_request != NULL ? "enabled" : "disabled");
 943         if (options[OPT_ROLLOVER].o_request != NULL)
 944                 printf("Block rollover will be to block %s.\n",
 945                     options[OPT_ROLLOVER].o_request);
 946
 947
 948         printf("\nThe following rollover options are available:\n"
 949             "\trollover 0       : rollover to block zero (default)\n"
 950             "\trollover 1       : rollover to block one\n"
 951             "\trollover never   : do not support the rollover option\n"
 952             "\trollover none    : do not support the rollover option\n"
 953         );
 954 }
 955
 956 static void
 957 setdebug(int argc, char *argv[])
 958 {
 959         int i;
 960
 961         if (argc != 1) {
 962                 i = 1;
 963                 while (i < argc)
 964                         debug ^= debug_find(argv[i++]);
 965         }
 966         printf("The following debugging is enabled: %s\n", debug_show(debug));
 967
 968         printf("\nThe following debugs are available:\n");
 969         i = 0;
 970         while (debugs[i].name != NULL) {
 971                 printf("\t%s\t%s\n", debugs[i].name, debugs[i].desc);
 972                 i++;
 973         }
 974 }
 975
 976 static void
 977 setblocksize(int argc, char *argv[])
 978 {
 979
 980         if (!options_rfc_enabled)
 981                 printf("RFC2347 style options are not enabled "
 982                     "(but proceeding anyway)\n");
 983
 984         if (argc != 1) {
 985                 int size = atoi(argv[1]);
 986                 size_t max;
 987                 u_long maxdgram;
 988
 989                 max = sizeof(maxdgram);
 990                 if (sysctlbyname("net.inet.udp.maxdgram",
 991                         &maxdgram, &max, NULL, 0) < 0) {
 992                         perror("sysctl: net.inet.udp.maxdgram");
 993                         return;
 994                 }
 995
 996                 if (size < BLKSIZE_MIN || size > BLKSIZE_MAX) {
 997                         printf("Blocksize should be between %d and %d bytes.\n",
 998                                 BLKSIZE_MIN, BLKSIZE_MAX);
 999                         return;
1000                 } else if (size > (int)maxdgram - 4) {
1001                         printf("Blocksize can't be bigger than %ld bytes due "
1002                             "to the net.inet.udp.maxdgram sysctl limitation.\n",
1003                             maxdgram - 4);
1004                         options_set_request(OPT_BLKSIZE, "%ld", maxdgram - 4);
1005                 } else {
1006                         options_set_request(OPT_BLKSIZE, "%d", size);
1007                 }
1008         }
1009         printf("Blocksize is now %s bytes.\n", options[OPT_BLKSIZE].o_request);
1010 }
1011
1012 static void
1013 setblocksize2(int argc, char *argv[])
1014 {
1015
1016         if (!options_rfc_enabled || !options_extra_enabled)
1017                 printf(
1018                     "RFC2347 style or non-RFC defined options are not enabled "
1019                     "(but proceeding anyway)\n");
1020
1021         if (argc != 1) {
1022                 int size = atoi(argv[1]);
1023                 int i;
1024                 size_t max;
1025                 u_long maxdgram;
1026
1027                 int sizes[] = {
1028                         8, 16, 32, 64, 128, 256, 512, 1024,
1029                         2048, 4096, 8192, 16384, 32768, 0
1030                 };
1031
1032                 max = sizeof(maxdgram);
1033                 if (sysctlbyname("net.inet.udp.maxdgram",
1034                         &maxdgram, &max, NULL, 0) < 0) {
1035                         perror("sysctl: net.inet.udp.maxdgram");
1036                         return;
1037                 }
1038
1039                 for (i = 0; sizes[i] != 0; i++) {
1040                         if (sizes[i] == size) break;
1041                 }
1042                 if (sizes[i] == 0) {
1043                         printf("Blocksize2 should be a power of two between "
1044                             "8 and 32768.\n");
1045                         return;
1046                 }
1047
1048                 if (size < BLKSIZE_MIN || size > BLKSIZE_MAX) {
1049                         printf("Blocksize2 should be between "
1050                             "%d and %d bytes.\n", BLKSIZE_MIN, BLKSIZE_MAX);
1051                         return;
1052                 } else if (size > (int)maxdgram - 4) {
1053                         printf("Blocksize2 can't be bigger than %ld bytes due "
1054                             "to the net.inet.udp.maxdgram sysctl limitation.\n",
1055                             maxdgram - 4);
1056                         for (i = 0; sizes[i+1] != 0; i++) {
1057                                 if ((int)maxdgram < sizes[i+1]) break;
1058                         }
1059                         options_set_request(OPT_BLKSIZE2, "%d", sizes[i]);
1060                 } else {
1061                         options_set_request(OPT_BLKSIZE2, "%d", size);
1062                 }
1063         }
1064         printf("Blocksize2 is now %s bytes.\n",
1065             options[OPT_BLKSIZE2].o_request);
1066 }
1067
1068 static void
1069 setpacketdrop(int argc, char *argv[])
1070 {
1071
1072         if (argc != 1)
1073                 packetdroppercentage = atoi(argv[1]);
1074
1075         printf("Randomly %d in 100 packets will be dropped\n",
1076             packetdroppercentage);
1077 }
1078
1079 static void
1080 setwindowsize(int argc, char *argv[])
1081 {
1082
1083         if (!options_rfc_enabled)
1084                 printf("RFC2347 style options are not enabled "
1085                     "(but proceeding anyway)\n");
1086
1087         if (argc != 1) {
1088                 int size = atoi(argv[1]);
1089
1090                 if (size < WINDOWSIZE_MIN || size > WINDOWSIZE_MAX) {
1091                         printf("Windowsize should be between %d and %d "
1092                             "blocks.\n", WINDOWSIZE_MIN, WINDOWSIZE_MAX);
1093                         return;
1094                 } else {
1095                         options_set_request(OPT_WINDOWSIZE, "%d", size);
1096                 }
1097         }
1098         printf("Windowsize is now %s blocks.\n",
1099             options[OPT_WINDOWSIZE].o_request);
1100 }