usr.bin/ftp/main.c

   1 /*      $NetBSD: main.c,v 1.123 2015/04/23 23:31:23 lukem Exp $ */
   2
   3 /*-
   4  * Copyright (c) 1996-2015 The NetBSD Foundation, Inc.
   5  * All rights reserved.
   6  *
   7  * This code is derived from software contributed to The NetBSD Foundation
   8  * by Luke Mewburn.
   9  *
  10  * Redistribution and use in source and binary forms, with or without
  11  * modification, are permitted provided that the following conditions
  12  * are met:
  13  * 1. Redistributions of source code must retain the above copyright
  14  *    notice, this list of conditions and the following disclaimer.
  15  * 2. Redistributions in binary form must reproduce the above copyright
  16  *    notice, this list of conditions and the following disclaimer in the
  17  *    documentation and/or other materials provided with the distribution.
  18  *
  19  * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
  20  * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
  21  * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
  22  * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
  23  * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
  24  * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
  25  * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
  26  * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
  27  * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
  28  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
  29  * POSSIBILITY OF SUCH DAMAGE.
  30  */
  31
  32 /*
  33  * Copyright (c) 1985, 1989, 1993, 1994
  34  *      The Regents of the University of California.  All rights reserved.
  35  *
  36  * Redistribution and use in source and binary forms, with or without
  37  * modification, are permitted provided that the following conditions
  38  * are met:
  39  * 1. Redistributions of source code must retain the above copyright
  40  *    notice, this list of conditions and the following disclaimer.
  41  * 2. Redistributions in binary form must reproduce the above copyright
  42  *    notice, this list of conditions and the following disclaimer in the
  43  *    documentation and/or other materials provided with the distribution.
  44  * 3. Neither the name of the University nor the names of its contributors
  45  *    may be used to endorse or promote products derived from this software
  46  *    without specific prior written permission.
  47  *
  48  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  49  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  50  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  51  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  52  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  53  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  54  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  55  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  56  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  57  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  58  * SUCH DAMAGE.
  59  */
  60
  61 /*
  62  * Copyright (C) 1997 and 1998 WIDE Project.
  63  * All rights reserved.
  64  *
  65  * Redistribution and use in source and binary forms, with or without
  66  * modification, are permitted provided that the following conditions
  67  * are met:
  68  * 1. Redistributions of source code must retain the above copyright
  69  *    notice, this list of conditions and the following disclaimer.
  70  * 2. Redistributions in binary form must reproduce the above copyright
  71  *    notice, this list of conditions and the following disclaimer in the
  72  *    documentation and/or other materials provided with the distribution.
  73  * 3. Neither the name of the project nor the names of its contributors
  74  *    may be used to endorse or promote products derived from this software
  75  *    without specific prior written permission.
  76  *
  77  * THIS SOFTWARE IS PROVIDED BY THE PROJECT AND CONTRIBUTORS ``AS IS'' AND
  78  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  79  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  80  * ARE DISCLAIMED.  IN NO EVENT SHALL THE PROJECT OR CONTRIBUTORS BE LIABLE
  81  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  82  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  83  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  84  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  85  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  86  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  87  * SUCH DAMAGE.
  88  */
  89
  90 #include <sys/cdefs.h>
  91 #ifndef lint
  92 __COPYRIGHT("@(#) Copyright (c) 1985, 1989, 1993, 1994\
  93  The Regents of the University of California.  All rights reserved.\
  94   Copyright 1996-2015 The NetBSD Foundation, Inc.  All rights reserved");
  95 #endif /* not lint */
  96
  97 #ifndef lint
  98 #if 0
  99 static char sccsid[] = "@(#)main.c      8.6 (Berkeley) 10/9/94";
 100 #else
 101 __RCSID("$NetBSD: main.c,v 1.123 2015/04/23 23:31:23 lukem Exp $");
 102 #endif
 103 #endif /* not lint */
 104
 105 /*
 106  * FTP User Program -- Command Interface.
 107  */
 108 #include <sys/types.h>
 109 #include <sys/socket.h>
 110
 111 #include <err.h>
 112 #include <errno.h>
 113 #include <netdb.h>
 114 #include <paths.h>
 115 #include <pwd.h>
 116 #include <signal.h>
 117 #include <stdio.h>
 118 #include <stdlib.h>
 119 #include <string.h>
 120 #include <time.h>
 121 #include <unistd.h>
 122 #include <locale.h>
 123
 124 #define GLOBAL          /* force GLOBAL decls in ftp_var.h to be declared */
 125 #include "ftp_var.h"
 126
 127 #define FTP_PROXY       "ftp_proxy"     /* env var with FTP proxy location */
 128 #define HTTP_PROXY      "http_proxy"    /* env var with HTTP proxy location */
 129 #define HTTPS_PROXY     "https_proxy"   /* env var with HTTPS proxy location */
 130 #define NO_PROXY        "no_proxy"      /* env var with list of non-proxied
 131                                          * hosts, comma or space separated */
 132
 133 __dead static void      usage(void);
 134 static void     setupoption(const char *, const char *, const char *);
 135
 136 int
 137 main(int volatile argc, char **volatile argv)
 138 {
 139         int ch, rval;
 140         struct passwd *pw;
 141         char *cp, *ep, *anonpass, *upload_path, *src_addr;
 142         const char *anonuser;
 143         int dumbterm, isupload;
 144         size_t len;
 145
 146         tzset();
 147         setlocale(LC_ALL, "");
 148         setprogname(argv[0]);
 149
 150         sigint_raised = 0;
 151
 152         ftpport = "ftp";
 153         httpport = "http";
 154 #ifdef WITH_SSL
 155         httpsport = "https";
 156 #endif
 157         gateport = NULL;
 158         cp = getenv("FTPSERVERPORT");
 159         if (cp != NULL)
 160                 gateport = cp;
 161         else
 162                 gateport = "ftpgate";
 163         doglob = 1;
 164         interactive = 1;
 165         autologin = 1;
 166         passivemode = 1;
 167         activefallback = 1;
 168         preserve = 1;
 169         verbose = 0;
 170         progress = 0;
 171         gatemode = 0;
 172         data = -1;
 173         outfile = NULL;
 174         restartautofetch = 0;
 175 #ifndef NO_EDITCOMPLETE
 176         editing = 0;
 177         el = NULL;
 178         hist = NULL;
 179 #endif
 180         bytes = 0;
 181         mark = HASHBYTES;
 182         rate_get = 0;
 183         rate_get_incr = DEFAULTINCR;
 184         rate_put = 0;
 185         rate_put_incr = DEFAULTINCR;
 186 #ifdef INET6
 187         epsv4 = 1;
 188         epsv6 = 1;
 189 #else
 190         epsv4 = 0;
 191         epsv6 = 0;
 192 #endif
 193         epsv4bad = 0;
 194         epsv6bad = 0;
 195         src_addr = NULL;
 196         upload_path = NULL;
 197         isupload = 0;
 198         reply_callback = NULL;
 199 #ifdef INET6
 200         family = AF_UNSPEC;
 201 #else
 202         family = AF_INET;       /* force AF_INET if no INET6 support */
 203 #endif
 204
 205         netrc[0] = '\0';
 206         cp = getenv("NETRC");
 207         if (cp != NULL && strlcpy(netrc, cp, sizeof(netrc)) >= sizeof(netrc))
 208                 errx(1, "$NETRC `%s': %s", cp, strerror(ENAMETOOLONG));
 209
 210         marg_sl = ftp_sl_init();
 211         if ((tmpdir = getenv("TMPDIR")) == NULL)
 212                 tmpdir = _PATH_TMP;
 213
 214         /* Set default operation mode based on FTPMODE environment variable */
 215         if ((cp = getenv("FTPMODE")) != NULL) {
 216                 if (strcasecmp(cp, "passive") == 0) {
 217                         passivemode = 1;
 218                         activefallback = 0;
 219                 } else if (strcasecmp(cp, "active") == 0) {
 220                         passivemode = 0;
 221                         activefallback = 0;
 222                 } else if (strcasecmp(cp, "gate") == 0) {
 223                         gatemode = 1;
 224                 } else if (strcasecmp(cp, "auto") == 0) {
 225                         passivemode = 1;
 226                         activefallback = 1;
 227                 } else
 228                         warnx("Unknown $FTPMODE `%s'; using defaults", cp);
 229         }
 230
 231         if (strcmp(getprogname(), "pftp") == 0) {
 232                 passivemode = 1;
 233                 activefallback = 0;
 234         } else if (strcmp(getprogname(), "gate-ftp") == 0)
 235                 gatemode = 1;
 236
 237         gateserver = getenv("FTPSERVER");
 238         if (gateserver == NULL || *gateserver == '\0')
 239                 gateserver = GATE_SERVER;
 240         if (gatemode) {
 241                 if (*gateserver == '\0') {
 242                         warnx(
 243 "Neither $FTPSERVER nor GATE_SERVER is defined; disabling gate-ftp");
 244                         gatemode = 0;
 245                 }
 246         }
 247
 248         cp = getenv("TERM");
 249         if (cp == NULL || strcmp(cp, "dumb") == 0)
 250                 dumbterm = 1;
 251         else
 252                 dumbterm = 0;
 253         fromatty = isatty(fileno(stdin));
 254         ttyout = stdout;
 255         if (isatty(fileno(ttyout))) {
 256                 verbose = 1;            /* verbose if to a tty */
 257                 if (! dumbterm) {
 258 #ifndef NO_EDITCOMPLETE
 259                         if (fromatty)   /* editing mode on if tty is usable */
 260                                 editing = 1;
 261 #endif
 262 #ifndef NO_PROGRESS
 263                         if (foregroundproc())
 264                                 progress = 1;   /* progress bar on if fg */
 265 #endif
 266                 }
 267         }
 268
 269         while ((ch = getopt(argc, argv, "46AadefginN:o:pP:q:r:Rs:tT:u:vVx:")) != -1) {
 270                 switch (ch) {
 271                 case '4':
 272                         family = AF_INET;
 273                         break;
 274
 275                 case '6':
 276 #ifdef INET6
 277                         family = AF_INET6;
 278 #else
 279                         warnx("INET6 support is not available; ignoring -6");
 280 #endif
 281                         break;
 282
 283                 case 'A':
 284                         activefallback = 0;
 285                         passivemode = 0;
 286                         break;
 287
 288                 case 'a':
 289                         anonftp = 1;
 290                         break;
 291
 292                 case 'd':
 293                         options |= SO_DEBUG;
 294                         ftp_debug++;
 295                         break;
 296
 297                 case 'e':
 298 #ifndef NO_EDITCOMPLETE
 299                         editing = 0;
 300 #endif
 301                         break;
 302
 303                 case 'f':
 304                         flushcache = 1;
 305                         break;
 306
 307                 case 'g':
 308                         doglob = 0;
 309                         break;
 310
 311                 case 'i':
 312                         interactive = 0;
 313                         break;
 314
 315                 case 'n':
 316                         autologin = 0;
 317                         break;
 318
 319                 case 'N':
 320                         if (strlcpy(netrc, optarg, sizeof(netrc))
 321                             >= sizeof(netrc))
 322                                 errx(1, "%s: %s", optarg,
 323                                     strerror(ENAMETOOLONG));
 324                         break;
 325
 326                 case 'o':
 327                         outfile = optarg;
 328                         if (strcmp(outfile, "-") == 0)
 329                                 ttyout = stderr;
 330                         break;
 331
 332                 case 'p':
 333                         passivemode = 1;
 334                         activefallback = 0;
 335                         break;
 336
 337                 case 'P':
 338                         ftpport = optarg;
 339                         break;
 340
 341                 case 'q':
 342                         quit_time = strtol(optarg, &ep, 10);
 343                         if (quit_time < 1 || *ep != '\0')
 344                                 errx(1, "Bad quit value: %s", optarg);
 345                         break;
 346
 347                 case 'r':
 348                         retry_connect = strtol(optarg, &ep, 10);
 349                         if (retry_connect < 1 || *ep != '\0')
 350                                 errx(1, "Bad retry value: %s", optarg);
 351                         break;
 352
 353                 case 'R':
 354                         restartautofetch = 1;
 355                         break;
 356
 357                 case 's':
 358                         src_addr = optarg;
 359                         break;
 360
 361                 case 't':
 362                         trace = 1;
 363                         break;
 364
 365                 case 'T':
 366                 {
 367                         int targc;
 368                         char *targv[6], *oac;
 369                         char cmdbuf[MAX_C_NAME];
 370
 371                                 /* look for `dir,max[,incr]' */
 372                         targc = 0;
 373                         (void)strlcpy(cmdbuf, "-T", sizeof(cmdbuf));
 374                         targv[targc++] = cmdbuf;
 375                         oac = ftp_strdup(optarg);
 376
 377                         while ((cp = strsep(&oac, ",")) != NULL) {
 378                                 if (*cp == '\0') {
 379                                         warnx("Bad throttle value `%s'",
 380                                             optarg);
 381                                         usage();
 382                                         /* NOTREACHED */
 383                                 }
 384                                 targv[targc++] = cp;
 385                                 if (targc >= 5)
 386                                         break;
 387                         }
 388                         if (parserate(targc, targv, 1) == -1)
 389                                 usage();
 390                         free(oac);
 391                         break;
 392                 }
 393
 394                 case 'u':
 395                 {
 396                         isupload = 1;
 397                         interactive = 0;
 398                         upload_path = ftp_strdup(optarg);
 399
 400                         break;
 401                 }
 402
 403                 case 'v':
 404                         progress = verbose = 1;
 405                         break;
 406
 407                 case 'V':
 408                         progress = verbose = 0;
 409                         break;
 410
 411                 case 'x':
 412                         sndbuf_size = strsuftoi(optarg);
 413                         if (sndbuf_size < 1)
 414                                 errx(1, "Bad xferbuf value: %s", optarg);
 415                         rcvbuf_size = sndbuf_size;
 416                         break;
 417
 418                 default:
 419                         usage();
 420                 }
 421         }
 422                         /* set line buffering on ttyout */
 423         setvbuf(ttyout, NULL, _IOLBF, 0);
 424         argc -= optind;
 425         argv += optind;
 426
 427         cpend = 0;      /* no pending replies */
 428         proxy = 0;      /* proxy not active */
 429         crflag = 1;     /* strip c.r. on ascii gets */
 430         sendport = -1;  /* not using ports */
 431
 432         if (src_addr != NULL) {
 433                 struct addrinfo hints;
 434                 int error;
 435
 436                 memset(&hints, 0, sizeof(hints));
 437                 hints.ai_family = family;
 438                 hints.ai_socktype = SOCK_STREAM;
 439                 hints.ai_flags = AI_PASSIVE;
 440                 error = getaddrinfo(src_addr, NULL, &hints, &bindai);
 441                 if (error) {
 442                         errx(1, "Can't lookup `%s': %s", src_addr,
 443                             (error == EAI_SYSTEM) ? strerror(errno)
 444                                                   : gai_strerror(error));
 445                 }
 446         }
 447
 448         /*
 449          * Cache the user name and home directory.
 450          */
 451         localhome = NULL;
 452         localname = NULL;
 453         anonuser = "anonymous";
 454         cp = getenv("HOME");
 455         if (! EMPTYSTRING(cp))
 456                 localhome = ftp_strdup(cp);
 457         pw = NULL;
 458         cp = getlogin();
 459         if (cp != NULL)
 460                 pw = getpwnam(cp);
 461         if (pw == NULL)
 462                 pw = getpwuid(getuid());
 463         if (pw != NULL) {
 464                 if (localhome == NULL && !EMPTYSTRING(pw->pw_dir))
 465                         localhome = ftp_strdup(pw->pw_dir);
 466                 localname = ftp_strdup(pw->pw_name);
 467                 anonuser = localname;
 468         }
 469         if (netrc[0] == '\0' && localhome != NULL) {
 470                 if (strlcpy(netrc, localhome, sizeof(netrc)) >= sizeof(netrc) ||
 471                     strlcat(netrc, "/.netrc", sizeof(netrc)) >= sizeof(netrc)) {
 472                         warnx("%s/.netrc: %s", localhome,
 473                             strerror(ENAMETOOLONG));
 474                         netrc[0] = '\0';
 475                 }
 476         }
 477         if (localhome == NULL)
 478                 localhome = ftp_strdup("/");
 479
 480         /*
 481          * Every anonymous FTP server I've encountered will accept the
 482          * string "username@", and will append the hostname itself. We
 483          * do this by default since many servers are picky about not
 484          * having a FQDN in the anonymous password.
 485          * - thorpej@NetBSD.org
 486          */
 487         len = strlen(anonuser) + 2;
 488         anonpass = ftp_malloc(len);
 489         (void)strlcpy(anonpass, anonuser, len);
 490         (void)strlcat(anonpass, "@",      len);
 491
 492                         /*
 493                          * set all the defaults for options defined in
 494                          * struct option optiontab[]  declared in cmdtab.c
 495                          */
 496         setupoption("anonpass",         getenv("FTPANONPASS"),  anonpass);
 497         setupoption("ftp_proxy",        getenv(FTP_PROXY),      "");
 498         setupoption("http_proxy",       getenv(HTTP_PROXY),     "");
 499         setupoption("https_proxy",      getenv(HTTPS_PROXY),    "");
 500         setupoption("no_proxy",         getenv(NO_PROXY),       "");
 501         setupoption("pager",            getenv("PAGER"),        DEFAULTPAGER);
 502         setupoption("prompt",           getenv("FTPPROMPT"),    DEFAULTPROMPT);
 503         setupoption("rprompt",          getenv("FTPRPROMPT"),   DEFAULTRPROMPT);
 504
 505         free(anonpass);
 506
 507         setttywidth(0);
 508 #ifdef SIGINFO
 509         (void)xsignal(SIGINFO, psummary);
 510 #endif
 511         (void)xsignal(SIGQUIT, psummary);
 512         (void)xsignal(SIGUSR1, crankrate);
 513         (void)xsignal(SIGUSR2, crankrate);
 514         (void)xsignal(SIGWINCH, setttywidth);
 515
 516         if (argc > 0) {
 517                 if (isupload) {
 518                         rval = auto_put(argc, argv, upload_path);
 519  sigint_or_rval_exit:
 520                         if (sigint_raised) {
 521                                 (void)xsignal(SIGINT, SIG_DFL);
 522                                 raise(SIGINT);
 523                         }
 524                         exit(rval);
 525                 } else if (strchr(argv[0], ':') != NULL
 526                             && ! isipv6addr(argv[0])) {
 527                         rval = auto_fetch(argc, argv);
 528                         if (rval >= 0)          /* -1 == connected and cd-ed */
 529                                 goto sigint_or_rval_exit;
 530                 } else {
 531                         char *xargv[4], *uuser, *host;
 532                         char cmdbuf[MAXPATHLEN];
 533
 534                         if ((rval = sigsetjmp(toplevel, 1)))
 535                                 goto sigint_or_rval_exit;
 536                         (void)xsignal(SIGINT, intr);
 537                         (void)xsignal(SIGPIPE, lostpeer);
 538                         uuser = NULL;
 539                         host = argv[0];
 540                         cp = strchr(host, '@');
 541                         if (cp) {
 542                                 *cp = '\0';
 543                                 uuser = host;
 544                                 host = cp + 1;
 545                         }
 546                         (void)strlcpy(cmdbuf, getprogname(), sizeof(cmdbuf));
 547                         xargv[0] = cmdbuf;
 548                         xargv[1] = host;
 549                         xargv[2] = argv[1];
 550                         xargv[3] = NULL;
 551                         do {
 552                                 int oautologin;
 553
 554                                 oautologin = autologin;
 555                                 if (uuser != NULL) {
 556                                         anonftp = 0;
 557                                         autologin = 0;
 558                                 }
 559                                 setpeer(argc+1, xargv);
 560                                 autologin = oautologin;
 561                                 if (connected == 1 && uuser != NULL)
 562                                         (void)ftp_login(host, uuser, NULL);
 563                                 if (!retry_connect)
 564                                         break;
 565                                 if (!connected) {
 566                                         macnum = 0;
 567                                         fprintf(ttyout,
 568                                             "Retrying in %d seconds...\n",
 569                                             retry_connect);
 570                                         sleep(retry_connect);
 571                                 }
 572                         } while (!connected);
 573                         retry_connect = 0; /* connected, stop hiding msgs */
 574                 }
 575         }
 576         if (isupload)
 577                 usage();
 578
 579 #ifndef NO_EDITCOMPLETE
 580         controlediting();
 581 #endif /* !NO_EDITCOMPLETE */
 582
 583         (void)sigsetjmp(toplevel, 1);
 584         (void)xsignal(SIGINT, intr);
 585         (void)xsignal(SIGPIPE, lostpeer);
 586         for (;;)
 587                 cmdscanner();
 588 }
 589
 590 /*
 591  * Generate a prompt
 592  */
 593 char *
 594 prompt(void)
 595 {
 596         static char     **promptopt;
 597         static char       buf[MAXPATHLEN];
 598
 599         if (promptopt == NULL) {
 600                 struct option *o;
 601
 602                 o = getoption("prompt");
 603                 if (o == NULL)
 604                         errx(1, "prompt: no such option `prompt'");
 605                 promptopt = &(o->value);
 606         }
 607         formatbuf(buf, sizeof(buf), *promptopt ? *promptopt : DEFAULTPROMPT);
 608         return (buf);
 609 }
 610
 611 /*
 612  * Generate an rprompt
 613  */
 614 char *
 615 rprompt(void)
 616 {
 617         static char     **rpromptopt;
 618         static char       buf[MAXPATHLEN];
 619
 620         if (rpromptopt == NULL) {
 621                 struct option *o;
 622
 623                 o = getoption("rprompt");
 624                 if (o == NULL)
 625                         errx(1, "rprompt: no such option `rprompt'");
 626                 rpromptopt = &(o->value);
 627         }
 628         formatbuf(buf, sizeof(buf), *rpromptopt ? *rpromptopt : DEFAULTRPROMPT);
 629         return (buf);
 630 }
 631
 632 /*
 633  * Command parser.
 634  */
 635 void
 636 cmdscanner(void)
 637 {
 638         struct cmd      *c;
 639         char            *p;
 640 #ifndef NO_EDITCOMPLETE
 641         int              ch;
 642         size_t           num;
 643 #endif
 644         int              len;
 645         char             cmdbuf[MAX_C_NAME];
 646
 647         for (;;) {
 648 #ifndef NO_EDITCOMPLETE
 649                 if (!editing) {
 650 #endif /* !NO_EDITCOMPLETE */
 651                         if (fromatty) {
 652                                 fputs(prompt(), ttyout);
 653                                 p = rprompt();
 654                                 if (*p)
 655                                         fprintf(ttyout, "%s ", p);
 656                         }
 657                         (void)fflush(ttyout);
 658                         len = get_line(stdin, line, sizeof(line), NULL);
 659                         switch (len) {
 660                         case -1:        /* EOF */
 661                         case -2:        /* error */
 662                                 if (fromatty)
 663                                         putc('\n', ttyout);
 664                                 quit(0, NULL);
 665                                 /* NOTREACHED */
 666                         case -3:        /* too long; try again */
 667                                 fputs("Sorry, input line is too long.\n",
 668                                     ttyout);
 669                                 continue;
 670                         case 0:         /* empty; try again */
 671                                 continue;
 672                         default:        /* all ok */
 673                                 break;
 674                         }
 675 #ifndef NO_EDITCOMPLETE
 676                 } else {
 677                         const char *buf;
 678                         HistEvent ev;
 679                         cursor_pos = NULL;
 680
 681                         buf = el_gets(el, &ch);
 682                         num = ch;
 683                         if (buf == NULL || num == 0) {
 684                                 if (fromatty)
 685                                         putc('\n', ttyout);
 686                                 quit(0, NULL);
 687                         }
 688                         if (num >= sizeof(line)) {
 689                                 fputs("Sorry, input line is too long.\n",
 690                                     ttyout);
 691                                 break;
 692                         }
 693                         memcpy(line, buf, num);
 694                         if (line[--num] == '\n') {
 695                                 line[num] = '\0';
 696                                 if (num == 0)
 697                                         break;
 698                         }
 699                         history(hist, &ev, H_ENTER, buf);
 700                 }
 701 #endif /* !NO_EDITCOMPLETE */
 702
 703                 makeargv();
 704                 if (margc == 0)
 705                         continue;
 706                 c = getcmd(margv[0]);
 707                 if (c == (struct cmd *)-1) {
 708                         fputs("?Ambiguous command.\n", ttyout);
 709                         continue;
 710                 }
 711                 if (c == NULL) {
 712 #if !defined(NO_EDITCOMPLETE)
 713                         /*
 714                          * attempt to el_parse() unknown commands.
 715                          * any command containing a ':' would be parsed
 716                          * as "[prog:]cmd ...", and will result in a
 717                          * false positive if prog != "ftp", so treat
 718                          * such commands as invalid.
 719                          */
 720                         if (strchr(margv[0], ':') != NULL ||
 721                             !editing ||
 722                             el_parse(el, margc, (void *)margv) != 0)
 723 #endif /* !NO_EDITCOMPLETE */
 724                                 fputs("?Invalid command.\n", ttyout);
 725                         continue;
 726                 }
 727                 if (c->c_conn && !connected) {
 728                         fputs("Not connected.\n", ttyout);
 729                         continue;
 730                 }
 731                 confirmrest = 0;
 732                 (void)strlcpy(cmdbuf, c->c_name, sizeof(cmdbuf));
 733                 margv[0] = cmdbuf;
 734                 (*c->c_handler)(margc, margv);
 735                 if (bell && c->c_bell)
 736                         (void)putc('\007', ttyout);
 737                 if (c->c_handler != help)
 738                         break;
 739         }
 740         (void)xsignal(SIGINT, intr);
 741         (void)xsignal(SIGPIPE, lostpeer);
 742 }
 743
 744 struct cmd *
 745 getcmd(const char *name)
 746 {
 747         const char *p, *q;
 748         struct cmd *c, *found;
 749         int nmatches, longest;
 750
 751         if (name == NULL)
 752                 return (0);
 753
 754         longest = 0;
 755         nmatches = 0;
 756         found = 0;
 757         for (c = cmdtab; (p = c->c_name) != NULL; c++) {
 758                 for (q = name; *q == *p++; q++)
 759                         if (*q == 0)            /* exact match? */
 760                                 return (c);
 761                 if (!*q) {                      /* the name was a prefix */
 762                         if (q - name > longest) {
 763                                 longest = q - name;
 764                                 nmatches = 1;
 765                                 found = c;
 766                         } else if (q - name == longest)
 767                                 nmatches++;
 768                 }
 769         }
 770         if (nmatches > 1)
 771                 return ((struct cmd *)-1);
 772         return (found);
 773 }
 774
 775 /*
 776  * Slice a string up into argc/argv.
 777  */
 778
 779 int slrflag;
 780
 781 void
 782 makeargv(void)
 783 {
 784         char *argp;
 785
 786         stringbase = line;              /* scan from first of buffer */
 787         argbase = argbuf;               /* store from first of buffer */
 788         slrflag = 0;
 789         marg_sl->sl_cur = 0;            /* reset to start of marg_sl */
 790         for (margc = 0; ; margc++) {
 791                 argp = slurpstring();
 792                 ftp_sl_add(marg_sl, argp);
 793                 if (argp == NULL)
 794                         break;
 795         }
 796 #ifndef NO_EDITCOMPLETE
 797         if (cursor_pos == line) {
 798                 cursor_argc = 0;
 799                 cursor_argo = 0;
 800         } else if (cursor_pos != NULL) {
 801                 cursor_argc = margc;
 802                 cursor_argo = strlen(margv[margc-1]);
 803         }
 804 #endif /* !NO_EDITCOMPLETE */
 805 }
 806
 807 #ifdef NO_EDITCOMPLETE
 808 #define INC_CHKCURSOR(x)        (x)++
 809 #else  /* !NO_EDITCOMPLETE */
 810 #define INC_CHKCURSOR(x)        { (x)++ ; \
 811                                 if (x == cursor_pos) { \
 812                                         cursor_argc = margc; \
 813                                         cursor_argo = ap-argbase; \
 814                                         cursor_pos = NULL; \
 815                                 } }
 816
 817 #endif /* !NO_EDITCOMPLETE */
 818
 819 /*
 820  * Parse string into argbuf;
 821  * implemented with FSM to
 822  * handle quoting and strings
 823  */
 824 char *
 825 slurpstring(void)
 826 {
 827         static char bangstr[2] = { '!', '\0' };
 828         static char dollarstr[2] = { '$', '\0' };
 829         int got_one = 0;
 830         char *sb = stringbase;
 831         char *ap = argbase;
 832         char *tmp = argbase;            /* will return this if token found */
 833
 834         if (*sb == '!' || *sb == '$') { /* recognize ! as a token for shell */
 835                 switch (slrflag) {      /* and $ as token for macro invoke */
 836                         case 0:
 837                                 slrflag++;
 838                                 INC_CHKCURSOR(stringbase);
 839                                 return ((*sb == '!') ? bangstr : dollarstr);
 840                                 /* NOTREACHED */
 841                         case 1:
 842                                 slrflag++;
 843                                 altarg = stringbase;
 844                                 break;
 845                         default:
 846                                 break;
 847                 }
 848         }
 849
 850 S0:
 851         switch (*sb) {
 852
 853         case '\0':
 854                 goto OUT;
 855
 856         case ' ':
 857         case '\t':
 858                 INC_CHKCURSOR(sb);
 859                 goto S0;
 860
 861         default:
 862                 switch (slrflag) {
 863                         case 0:
 864                                 slrflag++;
 865                                 break;
 866                         case 1:
 867                                 slrflag++;
 868                                 altarg = sb;
 869                                 break;
 870                         default:
 871                                 break;
 872                 }
 873                 goto S1;
 874         }
 875
 876 S1:
 877         switch (*sb) {
 878
 879         case ' ':
 880         case '\t':
 881         case '\0':
 882                 goto OUT;       /* end of token */
 883
 884         case '\\':
 885                 INC_CHKCURSOR(sb);
 886                 goto S2;        /* slurp next character */
 887
 888         case '"':
 889                 INC_CHKCURSOR(sb);
 890                 goto S3;        /* slurp quoted string */
 891
 892         default:
 893                 *ap = *sb;      /* add character to token */
 894                 ap++;
 895                 INC_CHKCURSOR(sb);
 896                 got_one = 1;
 897                 goto S1;
 898         }
 899
 900 S2:
 901         switch (*sb) {
 902
 903         case '\0':
 904                 goto OUT;
 905
 906         default:
 907                 *ap = *sb;
 908                 ap++;
 909                 INC_CHKCURSOR(sb);
 910                 got_one = 1;
 911                 goto S1;
 912         }
 913
 914 S3:
 915         switch (*sb) {
 916
 917         case '\0':
 918                 goto OUT;
 919
 920         case '"':
 921                 INC_CHKCURSOR(sb);
 922                 goto S1;
 923
 924         default:
 925                 *ap = *sb;
 926                 ap++;
 927                 INC_CHKCURSOR(sb);
 928                 got_one = 1;
 929                 goto S3;
 930         }
 931
 932 OUT:
 933         if (got_one)
 934                 *ap++ = '\0';
 935         argbase = ap;                   /* update storage pointer */
 936         stringbase = sb;                /* update scan pointer */
 937         if (got_one) {
 938                 return (tmp);
 939         }
 940         switch (slrflag) {
 941                 case 0:
 942                         slrflag++;
 943                         break;
 944                 case 1:
 945                         slrflag++;
 946                         altarg = NULL;
 947                         break;
 948                 default:
 949                         break;
 950         }
 951         return (NULL);
 952 }
 953
 954 /*
 955  * Help/usage command.
 956  * Call each command handler with argc == 0 and argv[0] == name.
 957  */
 958 void
 959 help(int argc, char *argv[])
 960 {
 961         struct cmd *c;
 962         char *nargv[1], *cmd;
 963         const char *p;
 964         int isusage;
 965
 966         cmd = argv[0];
 967         isusage = (strcmp(cmd, "usage") == 0);
 968         if (argc == 0 || (isusage && argc == 1)) {
 969                 UPRINTF("usage: %s [command [...]]\n", cmd);
 970                 return;
 971         }
 972         if (argc == 1) {
 973                 StringList *buf;
 974
 975                 buf = ftp_sl_init();
 976                 fprintf(ttyout,
 977                     "%sommands may be abbreviated.  Commands are:\n\n",
 978                     proxy ? "Proxy c" : "C");
 979                 for (c = cmdtab; (p = c->c_name) != NULL; c++)
 980                         if (!proxy || c->c_proxy)
 981                                 ftp_sl_add(buf, ftp_strdup(p));
 982                 list_vertical(buf);
 983                 sl_free(buf, 1);
 984                 return;
 985         }
 986
 987 #define HELPINDENT ((int) sizeof("disconnect"))
 988
 989         while (--argc > 0) {
 990                 char *arg;
 991                 char cmdbuf[MAX_C_NAME];
 992
 993                 arg = *++argv;
 994                 c = getcmd(arg);
 995                 if (c == (struct cmd *)-1)
 996                         fprintf(ttyout, "?Ambiguous %s command `%s'\n",
 997                             cmd, arg);
 998                 else if (c == NULL)
 999                         fprintf(ttyout, "?Invalid %s command `%s'\n",
1000                             cmd, arg);
1001                 else {
1002                         if (isusage) {
1003                                 (void)strlcpy(cmdbuf, c->c_name, sizeof(cmdbuf));
1004                                 nargv[0] = cmdbuf;
1005                                 (*c->c_handler)(0, nargv);
1006                         } else
1007                                 fprintf(ttyout, "%-*s\t%s\n", HELPINDENT,
1008                                     c->c_name, c->c_help);
1009                 }
1010         }
1011 }
1012
1013 struct option *
1014 getoption(const char *name)
1015 {
1016         const char *p;
1017         struct option *c;
1018
1019         if (name == NULL)
1020                 return (NULL);
1021         for (c = optiontab; (p = c->name) != NULL; c++) {
1022                 if (strcasecmp(p, name) == 0)
1023                         return (c);
1024         }
1025         return (NULL);
1026 }
1027
1028 char *
1029 getoptionvalue(const char *name)
1030 {
1031         struct option *c;
1032
1033         if (name == NULL)
1034                 errx(1, "getoptionvalue: invoked with NULL name");
1035         c = getoption(name);
1036         if (c != NULL)
1037                 return (c->value);
1038         errx(1, "getoptionvalue: invoked with unknown option `%s'", name);
1039         /* NOTREACHED */
1040 }
1041
1042 static void
1043 setupoption(const char *name, const char *value, const char *defaultvalue)
1044 {
1045         set_option(name, value ? value : defaultvalue, 0);
1046 }
1047
1048 void
1049 usage(void)
1050 {
1051         const char *progname = getprogname();
1052
1053         (void)fprintf(stderr,
1054 "usage: %s [-46AadefginpRtVv] [-N netrc] [-o outfile] [-P port] [-q quittime]\n"
1055 "           [-r retry] [-s srcaddr] [-T dir,max[,inc]] [-x xferbufsize]\n"
1056 "           [[user@]host [port]] [host:path[/]] [file:///file]\n"
1057 "           [ftp://[user[:pass]@]host[:port]/path[/]]\n"
1058 "           [http://[user[:pass]@]host[:port]/path] [...]\n"
1059 #ifdef WITH_SSL
1060 "           [https://[user[:pass]@]host[:port]/path] [...]\n"
1061 #endif
1062 "       %s -u URL file [...]\n", progname, progname);
1063         exit(1);
1064 }