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