cmds.c revision 1.11
1 /* $NetBSD: cmds.c,v 1.11 1996/12/06 02:06:46 lukem Exp $ */ 2 3 /* 4 * Copyright (c) 1985, 1989, 1993, 1994 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. All advertising materials mentioning features or use of this software 16 * must display the following acknowledgement: 17 * This product includes software developed by the University of 18 * California, Berkeley and its contributors. 19 * 4. Neither the name of the University nor the names of its contributors 20 * may be used to endorse or promote products derived from this software 21 * without specific prior written permission. 22 * 23 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND 24 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 25 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 26 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE 27 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 28 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 29 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 30 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 31 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 32 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 33 * SUCH DAMAGE. 34 */ 35 36 #ifndef lint 37 #if 0 38 static char sccsid[] = "@(#)cmds.c 8.6 (Berkeley) 10/9/94"; 39 #else 40 static char rcsid[] = "$NetBSD: cmds.c,v 1.11 1996/12/06 02:06:46 lukem Exp $"; 41 #endif 42 #endif /* not lint */ 43 44 /* 45 * FTP User Program -- Command Routines. 46 */ 47 #include <sys/param.h> 48 #include <sys/wait.h> 49 #include <sys/stat.h> 50 #include <sys/socket.h> 51 #include <netinet/in.h> 52 #include <arpa/ftp.h> 53 54 #include <ctype.h> 55 #include <err.h> 56 #include <fcntl.h> 57 #include <glob.h> 58 #include <netdb.h> 59 #include <signal.h> 60 #include <stdio.h> 61 #include <stdlib.h> 62 #include <string.h> 63 #include <time.h> 64 #include <unistd.h> 65 66 #include "ftp_var.h" 67 #include "pathnames.h" 68 69 jmp_buf jabort; 70 char *mname; 71 char *home = "/"; 72 73 /* 74 * `Another' gets another argument, and stores the new argc and argv. 75 * It reverts to the top level (via main.c's intr()) on EOF/error. 76 * 77 * Returns false if no new arguments have been added. 78 */ 79 int 80 another(pargc, pargv, prompt) 81 int *pargc; 82 char ***pargv; 83 const char *prompt; 84 { 85 int len = strlen(line), ret; 86 87 if (len >= sizeof(line) - 3) { 88 printf("sorry, arguments too long\n"); 89 intr(); 90 } 91 printf("(%s) ", prompt); 92 line[len++] = ' '; 93 if (fgets(&line[len], sizeof(line) - len, stdin) == NULL) 94 intr(); 95 len += strlen(&line[len]); 96 if (len > 0 && line[len - 1] == '\n') 97 line[len - 1] = '\0'; 98 makeargv(); 99 ret = margc > *pargc; 100 *pargc = margc; 101 *pargv = margv; 102 return (ret); 103 } 104 105 /* 106 * Connect to peer server and 107 * auto-login, if possible. 108 */ 109 void 110 setpeer(argc, argv) 111 int argc; 112 char *argv[]; 113 { 114 char *host; 115 short port; 116 117 if (connected) { 118 printf("Already connected to %s, use close first.\n", 119 hostname); 120 code = -1; 121 return; 122 } 123 if (argc < 2) 124 (void) another(&argc, &argv, "to"); 125 if (argc < 2 || argc > 3) { 126 printf("usage: %s host-name [port]\n", argv[0]); 127 code = -1; 128 return; 129 } 130 port = sp->s_port; 131 if (argc > 2) { 132 port = atoi(argv[2]); 133 if (port <= 0) { 134 printf("%s: bad port number-- %s\n", argv[1], argv[2]); 135 printf ("usage: %s host-name [port]\n", argv[0]); 136 code = -1; 137 return; 138 } 139 port = htons(port); 140 } 141 host = hookup(argv[1], port); 142 if (host) { 143 int overbose; 144 145 connected = 1; 146 /* 147 * Set up defaults for FTP. 148 */ 149 (void) strcpy(typename, "ascii"), type = TYPE_A; 150 curtype = TYPE_A; 151 (void) strcpy(formname, "non-print"), form = FORM_N; 152 (void) strcpy(modename, "stream"), mode = MODE_S; 153 (void) strcpy(structname, "file"), stru = STRU_F; 154 (void) strcpy(bytename, "8"), bytesize = 8; 155 if (autologin) 156 (void) login(argv[1]); 157 158 #if defined(unix) && NBBY == 8 159 /* 160 * this ifdef is to keep someone form "porting" this to an incompatible 161 * system and not checking this out. This way they have to think about it. 162 */ 163 overbose = verbose; 164 if (debug == 0) 165 verbose = -1; 166 if (command("SYST") == COMPLETE && overbose) { 167 char *cp, c; 168 c = 0; 169 cp = strchr(reply_string+4, ' '); 170 if (cp == NULL) 171 cp = strchr(reply_string+4, '\r'); 172 if (cp) { 173 if (cp[-1] == '.') 174 cp--; 175 c = *cp; 176 *cp = '\0'; 177 } 178 179 printf("Remote system type is %s.\n", 180 reply_string+4); 181 if (cp) 182 *cp = c; 183 } 184 if (!strncmp(reply_string, "215 UNIX Type: L8", 17)) { 185 if (proxy) 186 unix_proxy = 1; 187 else 188 unix_server = 1; 189 /* 190 * Set type to 0 (not specified by user), 191 * meaning binary by default, but don't bother 192 * telling server. We can use binary 193 * for text files unless changed by the user. 194 */ 195 type = 0; 196 (void) strcpy(typename, "binary"); 197 if (overbose) 198 printf("Using %s mode to transfer files.\n", 199 typename); 200 } else { 201 if (proxy) 202 unix_proxy = 0; 203 else 204 unix_server = 0; 205 if (overbose && 206 !strncmp(reply_string, "215 TOPS20", 10)) 207 printf("Remember to set tenex mode when " 208 "transferring binary files from this " 209 "machine.\n"); 210 } 211 verbose = overbose; 212 #endif /* unix */ 213 } 214 } 215 216 struct types { 217 char *t_name; 218 char *t_mode; 219 int t_type; 220 char *t_arg; 221 } types[] = { 222 { "ascii", "A", TYPE_A, 0 }, 223 { "binary", "I", TYPE_I, 0 }, 224 { "image", "I", TYPE_I, 0 }, 225 { "ebcdic", "E", TYPE_E, 0 }, 226 { "tenex", "L", TYPE_L, bytename }, 227 { NULL } 228 }; 229 230 /* 231 * Set transfer type. 232 */ 233 void 234 settype(argc, argv) 235 int argc; 236 char *argv[]; 237 { 238 struct types *p; 239 int comret; 240 241 if (argc > 2) { 242 char *sep; 243 244 printf("usage: %s [", argv[0]); 245 sep = " "; 246 for (p = types; p->t_name; p++) { 247 printf("%s%s", sep, p->t_name); 248 sep = " | "; 249 } 250 printf(" ]\n"); 251 code = -1; 252 return; 253 } 254 if (argc < 2) { 255 printf("Using %s mode to transfer files.\n", typename); 256 code = 0; 257 return; 258 } 259 for (p = types; p->t_name; p++) 260 if (strcmp(argv[1], p->t_name) == 0) 261 break; 262 if (p->t_name == 0) { 263 printf("%s: unknown mode\n", argv[1]); 264 code = -1; 265 return; 266 } 267 if ((p->t_arg != NULL) && (*(p->t_arg) != '\0')) 268 comret = command ("TYPE %s %s", p->t_mode, p->t_arg); 269 else 270 comret = command("TYPE %s", p->t_mode); 271 if (comret == COMPLETE) { 272 (void) strcpy(typename, p->t_name); 273 curtype = type = p->t_type; 274 } 275 } 276 277 /* 278 * Internal form of settype; changes current type in use with server 279 * without changing our notion of the type for data transfers. 280 * Used to change to and from ascii for listings. 281 */ 282 void 283 changetype(newtype, show) 284 int newtype, show; 285 { 286 struct types *p; 287 int comret, oldverbose = verbose; 288 289 if (newtype == 0) 290 newtype = TYPE_I; 291 if (newtype == curtype) 292 return; 293 if (debug == 0 && show == 0) 294 verbose = 0; 295 for (p = types; p->t_name; p++) 296 if (newtype == p->t_type) 297 break; 298 if (p->t_name == 0) { 299 printf("ftp: internal error: unknown type %d\n", newtype); 300 return; 301 } 302 if (newtype == TYPE_L && bytename[0] != '\0') 303 comret = command("TYPE %s %s", p->t_mode, bytename); 304 else 305 comret = command("TYPE %s", p->t_mode); 306 if (comret == COMPLETE) 307 curtype = newtype; 308 verbose = oldverbose; 309 } 310 311 char *stype[] = { 312 "type", 313 "", 314 0 315 }; 316 317 /* 318 * Set binary transfer type. 319 */ 320 /*VARARGS*/ 321 void 322 setbinary(argc, argv) 323 int argc; 324 char *argv[]; 325 { 326 327 stype[1] = "binary"; 328 settype(2, stype); 329 } 330 331 /* 332 * Set ascii transfer type. 333 */ 334 /*VARARGS*/ 335 void 336 setascii(argc, argv) 337 int argc; 338 char *argv[]; 339 { 340 341 stype[1] = "ascii"; 342 settype(2, stype); 343 } 344 345 /* 346 * Set tenex transfer type. 347 */ 348 /*VARARGS*/ 349 void 350 settenex(argc, argv) 351 int argc; 352 char *argv[]; 353 { 354 355 stype[1] = "tenex"; 356 settype(2, stype); 357 } 358 359 /* 360 * Set file transfer mode. 361 */ 362 /*ARGSUSED*/ 363 void 364 setftmode(argc, argv) 365 int argc; 366 char *argv[]; 367 { 368 369 printf("We only support %s mode, sorry.\n", modename); 370 code = -1; 371 } 372 373 /* 374 * Set file transfer format. 375 */ 376 /*ARGSUSED*/ 377 void 378 setform(argc, argv) 379 int argc; 380 char *argv[]; 381 { 382 383 printf("We only support %s format, sorry.\n", formname); 384 code = -1; 385 } 386 387 /* 388 * Set file transfer structure. 389 */ 390 /*ARGSUSED*/ 391 void 392 setstruct(argc, argv) 393 int argc; 394 char *argv[]; 395 { 396 397 printf("We only support %s structure, sorry.\n", structname); 398 code = -1; 399 } 400 401 /* 402 * Send a single file. 403 */ 404 void 405 put(argc, argv) 406 int argc; 407 char *argv[]; 408 { 409 char *cmd; 410 int loc = 0; 411 char *oldargv1, *oldargv2; 412 413 if (argc == 2) { 414 argc++; 415 argv[2] = argv[1]; 416 loc++; 417 } 418 if (argc < 2 && !another(&argc, &argv, "local-file")) 419 goto usage; 420 if ((argc < 3 && !another(&argc, &argv, "remote-file")) || argc > 3) { 421 usage: 422 printf("usage: %s local-file [ remote-file ]\n", argv[0]); 423 code = -1; 424 return; 425 } 426 oldargv1 = argv[1]; 427 oldargv2 = argv[2]; 428 if (!globulize(&argv[1])) { 429 code = -1; 430 return; 431 } 432 /* 433 * If "globulize" modifies argv[1], and argv[2] is a copy of 434 * the old argv[1], make it a copy of the new argv[1]. 435 */ 436 if (argv[1] != oldargv1 && argv[2] == oldargv1) { 437 argv[2] = argv[1]; 438 } 439 cmd = (argv[0][0] == 'a') ? "APPE" : ((sunique) ? "STOU" : "STOR"); 440 if (loc && ntflag) { 441 argv[2] = dotrans(argv[2]); 442 } 443 if (loc && mapflag) { 444 argv[2] = domap(argv[2]); 445 } 446 sendrequest(cmd, argv[1], argv[2], 447 argv[1] != oldargv1 || argv[2] != oldargv2); 448 } 449 450 /* 451 * Send multiple files. 452 */ 453 void 454 mput(argc, argv) 455 int argc; 456 char *argv[]; 457 { 458 int i; 459 sig_t oldintr; 460 int ointer; 461 char *tp; 462 463 if (argc < 2 && !another(&argc, &argv, "local-files")) { 464 printf("usage: %s local-files\n", argv[0]); 465 code = -1; 466 return; 467 } 468 mname = argv[0]; 469 mflag = 1; 470 oldintr = signal(SIGINT, mabort); 471 (void) setjmp(jabort); 472 if (proxy) { 473 char *cp, *tp2, tmpbuf[MAXPATHLEN]; 474 475 while ((cp = remglob(argv, 0)) != NULL) { 476 if (*cp == 0) { 477 mflag = 0; 478 continue; 479 } 480 if (mflag && confirm(argv[0], cp)) { 481 tp = cp; 482 if (mcase) { 483 while (*tp && !islower(*tp)) { 484 tp++; 485 } 486 if (!*tp) { 487 tp = cp; 488 tp2 = tmpbuf; 489 while ((*tp2 = *tp) != NULL) { 490 if (isupper(*tp2)) { 491 *tp2 = 'a' + *tp2 - 'A'; 492 } 493 tp++; 494 tp2++; 495 } 496 } 497 tp = tmpbuf; 498 } 499 if (ntflag) { 500 tp = dotrans(tp); 501 } 502 if (mapflag) { 503 tp = domap(tp); 504 } 505 sendrequest((sunique) ? "STOU" : "STOR", 506 cp, tp, cp != tp || !interactive); 507 if (!mflag && fromatty) { 508 ointer = interactive; 509 interactive = 1; 510 if (confirm("Continue with", "mput")) { 511 mflag++; 512 } 513 interactive = ointer; 514 } 515 } 516 } 517 (void) signal(SIGINT, oldintr); 518 mflag = 0; 519 return; 520 } 521 for (i = 1; i < argc; i++) { 522 char **cpp; 523 glob_t gl; 524 int flags; 525 526 if (!doglob) { 527 if (mflag && confirm(argv[0], argv[i])) { 528 tp = (ntflag) ? dotrans(argv[i]) : argv[i]; 529 tp = (mapflag) ? domap(tp) : tp; 530 sendrequest((sunique) ? "STOU" : "STOR", 531 argv[i], tp, tp != argv[i] || !interactive); 532 if (!mflag && fromatty) { 533 ointer = interactive; 534 interactive = 1; 535 if (confirm("Continue with", "mput")) { 536 mflag++; 537 } 538 interactive = ointer; 539 } 540 } 541 continue; 542 } 543 544 memset(&gl, 0, sizeof(gl)); 545 flags = GLOB_BRACE|GLOB_NOCHECK|GLOB_QUOTE|GLOB_TILDE; 546 if (glob(argv[i], flags, NULL, &gl) || gl.gl_pathc == 0) { 547 warnx("%s: not found", argv[i]); 548 globfree(&gl); 549 continue; 550 } 551 for (cpp = gl.gl_pathv; cpp && *cpp != NULL; cpp++) { 552 if (mflag && confirm(argv[0], *cpp)) { 553 tp = (ntflag) ? dotrans(*cpp) : *cpp; 554 tp = (mapflag) ? domap(tp) : tp; 555 sendrequest((sunique) ? "STOU" : "STOR", 556 *cpp, tp, *cpp != tp || !interactive); 557 if (!mflag && fromatty) { 558 ointer = interactive; 559 interactive = 1; 560 if (confirm("Continue with", "mput")) { 561 mflag++; 562 } 563 interactive = ointer; 564 } 565 } 566 } 567 globfree(&gl); 568 } 569 (void) signal(SIGINT, oldintr); 570 mflag = 0; 571 } 572 573 void 574 reget(argc, argv) 575 int argc; 576 char *argv[]; 577 { 578 579 (void) getit(argc, argv, 1, "r+w"); 580 } 581 582 void 583 get(argc, argv) 584 int argc; 585 char *argv[]; 586 { 587 588 (void) getit(argc, argv, 0, restart_point ? "r+w" : "w" ); 589 } 590 591 /* 592 * Receive one file. 593 */ 594 int 595 getit(argc, argv, restartit, mode) 596 int argc; 597 char *argv[]; 598 int restartit; 599 const char *mode; 600 { 601 int loc = 0; 602 char *oldargv1, *oldargv2; 603 604 if (argc == 2) { 605 argc++; 606 argv[2] = argv[1]; 607 loc++; 608 } 609 if (argc < 2 && !another(&argc, &argv, "remote-file")) 610 goto usage; 611 if ((argc < 3 && !another(&argc, &argv, "local-file")) || argc > 3) { 612 usage: 613 printf("usage: %s remote-file [ local-file ]\n", argv[0]); 614 code = -1; 615 return (0); 616 } 617 oldargv1 = argv[1]; 618 oldargv2 = argv[2]; 619 if (!globulize(&argv[2])) { 620 code = -1; 621 return (0); 622 } 623 if (loc && mcase) { 624 char *tp = argv[1], *tp2, tmpbuf[MAXPATHLEN]; 625 626 while (*tp && !islower(*tp)) { 627 tp++; 628 } 629 if (!*tp) { 630 tp = argv[2]; 631 tp2 = tmpbuf; 632 while ((*tp2 = *tp) != NULL) { 633 if (isupper(*tp2)) { 634 *tp2 = 'a' + *tp2 - 'A'; 635 } 636 tp++; 637 tp2++; 638 } 639 argv[2] = tmpbuf; 640 } 641 } 642 if (loc && ntflag) 643 argv[2] = dotrans(argv[2]); 644 if (loc && mapflag) 645 argv[2] = domap(argv[2]); 646 if (restartit) { 647 struct stat stbuf; 648 int ret; 649 650 ret = stat(argv[2], &stbuf); 651 if (restartit == 1) { 652 if (ret < 0) { 653 warn("local: %s", argv[2]); 654 return (0); 655 } 656 restart_point = stbuf.st_size; 657 } else { 658 if (ret == 0) { 659 time_t mtime; 660 661 mtime = remotemodtime(argv[1]); 662 if (mtime == -1) 663 return(0); 664 if (stbuf.st_mtime >= mtime) 665 return (1); 666 } 667 } 668 } 669 670 recvrequest("RETR", argv[2], argv[1], mode, 671 argv[1] != oldargv1 || argv[2] != oldargv2); 672 restart_point = 0; 673 return (0); 674 } 675 676 /* ARGSUSED */ 677 void 678 mabort(signo) 679 int signo; 680 { 681 int ointer, oconf; 682 683 printf("\n"); 684 (void) fflush(stdout); 685 if (mflag && fromatty) { 686 ointer = interactive; 687 oconf = confirmrest; 688 interactive = 1; 689 confirmrest = 0; 690 if (confirm("Continue with", mname)) { 691 interactive = ointer; 692 confirmrest = oconf; 693 longjmp(jabort, 0); 694 } 695 interactive = ointer; 696 confirmrest = oconf; 697 } 698 mflag = 0; 699 longjmp(jabort, 0); 700 } 701 702 /* 703 * Get multiple files. 704 */ 705 void 706 mget(argc, argv) 707 int argc; 708 char *argv[]; 709 { 710 sig_t oldintr; 711 int ch, ointer; 712 char *cp, *tp, *tp2, tmpbuf[MAXPATHLEN]; 713 714 if (argc < 2 && !another(&argc, &argv, "remote-files")) { 715 printf("usage: %s remote-files\n", argv[0]); 716 code = -1; 717 return; 718 } 719 mname = argv[0]; 720 mflag = 1; 721 oldintr = signal(SIGINT, mabort); 722 (void) setjmp(jabort); 723 while ((cp = remglob(argv, proxy)) != NULL) { 724 if (*cp == '\0') { 725 mflag = 0; 726 continue; 727 } 728 if (mflag && confirm(argv[0], cp)) { 729 tp = cp; 730 if (mcase) { 731 for (tp2 = tmpbuf; (ch = *tp++) != NULL; ) 732 *tp2++ = isupper(ch) ? tolower(ch) : ch; 733 *tp2 = '\0'; 734 tp = tmpbuf; 735 } 736 if (ntflag) { 737 tp = dotrans(tp); 738 } 739 if (mapflag) { 740 tp = domap(tp); 741 } 742 recvrequest("RETR", tp, cp, "w", 743 tp != cp || !interactive); 744 if (!mflag && fromatty) { 745 ointer = interactive; 746 interactive = 1; 747 if (confirm("Continue with", "mget")) { 748 mflag++; 749 } 750 interactive = ointer; 751 } 752 } 753 } 754 (void) signal(SIGINT, oldintr); 755 mflag = 0; 756 } 757 758 char * 759 remglob(argv, doswitch) 760 char *argv[]; 761 int doswitch; 762 { 763 char temp[16]; 764 static char buf[MAXPATHLEN]; 765 static FILE *ftemp = NULL; 766 static char **args; 767 int oldverbose, oldhash, fd; 768 char *cp, *mode; 769 770 if (!mflag) { 771 if (!doglob) { 772 args = NULL; 773 } 774 else { 775 if (ftemp) { 776 (void) fclose(ftemp); 777 ftemp = NULL; 778 } 779 } 780 return (NULL); 781 } 782 if (!doglob) { 783 if (args == NULL) 784 args = argv; 785 if ((cp = *++args) == NULL) 786 args = NULL; 787 return (cp); 788 } 789 if (ftemp == NULL) { 790 (void) strcpy(temp, _PATH_TMP); 791 (void) mktemp(temp); 792 /* create a zero-length version of the file so that 793 * people can't play symlink games. 794 */ 795 fd = open (temp, O_CREAT | O_EXCL | O_WRONLY, 600); 796 if (fd < 0) { 797 printf("Temporary file %s already exists\n", temp); 798 return (NULL); 799 } 800 close(fd); 801 oldverbose = verbose, verbose = 0; 802 oldhash = hash, hash = 0; 803 if (doswitch) { 804 pswitch(!proxy); 805 } 806 for (mode = "w"; *++argv != NULL; mode = "a") 807 recvrequest ("NLST", temp, *argv, mode, 0); 808 if (doswitch) { 809 pswitch(!proxy); 810 } 811 verbose = oldverbose; hash = oldhash; 812 ftemp = fopen(temp, "r"); 813 (void) unlink(temp); 814 if (ftemp == NULL) { 815 printf("can't find list of remote files, oops\n"); 816 return (NULL); 817 } 818 } 819 if (fgets(buf, sizeof (buf), ftemp) == NULL) { 820 (void) fclose(ftemp), ftemp = NULL; 821 return (NULL); 822 } 823 if ((cp = strchr(buf, '\n')) != NULL) 824 *cp = '\0'; 825 return (buf); 826 } 827 828 char * 829 onoff(bool) 830 int bool; 831 { 832 833 return (bool ? "on" : "off"); 834 } 835 836 /* 837 * Show status. 838 */ 839 /*ARGSUSED*/ 840 void 841 status(argc, argv) 842 int argc; 843 char *argv[]; 844 { 845 int i; 846 847 if (connected) 848 printf("Connected to %s.\n", hostname); 849 else 850 printf("Not connected.\n"); 851 if (!proxy) { 852 pswitch(1); 853 if (connected) { 854 printf("Connected for proxy commands to %s.\n", 855 hostname); 856 } 857 else { 858 printf("No proxy connection.\n"); 859 } 860 pswitch(0); 861 } 862 printf("Passive mode: %s.\n", onoff(passivemode)); 863 printf("Mode: %s; Type: %s; Form: %s; Structure: %s\n", 864 modename, typename, formname, structname); 865 printf("Verbose: %s; Bell: %s; Prompting: %s; Globbing: %s\n", 866 onoff(verbose), onoff(bell), onoff(interactive), 867 onoff(doglob)); 868 printf("Store unique: %s; Receive unique: %s\n", onoff(sunique), 869 onoff(runique)); 870 printf("Preserve modification times: %s\n", onoff(preserve)); 871 printf("Case: %s; CR stripping: %s\n", onoff(mcase), onoff(crflag)); 872 if (ntflag) { 873 printf("Ntrans: (in) %s (out) %s\n", ntin, ntout); 874 } 875 else { 876 printf("Ntrans: off\n"); 877 } 878 if (mapflag) { 879 printf("Nmap: (in) %s (out) %s\n", mapin, mapout); 880 } 881 else { 882 printf("Nmap: off\n"); 883 } 884 printf("Hash mark printing: %s; Mark count: %d; Progress bar: %s\n", 885 onoff(hash), mark, onoff(progress)); 886 printf("Use of PORT cmds: %s\n", onoff(sendport)); 887 if (macnum > 0) { 888 printf("Macros:\n"); 889 for (i=0; i<macnum; i++) { 890 printf("\t%s\n", macros[i].mac_name); 891 } 892 } 893 code = 0; 894 } 895 896 /* 897 * Toggle a variable 898 */ 899 int 900 togglevar(argc, argv, var, mesg) 901 int argc; 902 char *argv[]; 903 int *var; 904 const char *mesg; 905 { 906 if (argc < 2) { 907 *var = !*var; 908 } else if (argc == 2 && strcasecmp(argv[1], "on") == 0) { 909 *var = 1; 910 } else if (argc == 2 && strcasecmp(argv[1], "off") == 0) { 911 *var = 0; 912 } else { 913 printf("usage: %s [ on | off ]\n", argv[0]); 914 return -1; 915 } 916 printf("%s %s.\n", mesg, onoff(*var)); 917 return *var; 918 } 919 920 /* 921 * Set beep on cmd completed mode. 922 */ 923 /*VARARGS*/ 924 void 925 setbell(argc, argv) 926 int argc; 927 char *argv[]; 928 { 929 930 code = togglevar(argc, argv, &bell, "Bell mode"); 931 } 932 933 /* 934 * Turn on packet tracing. 935 */ 936 /*VARARGS*/ 937 void 938 settrace(argc, argv) 939 int argc; 940 char *argv[]; 941 { 942 943 code = togglevar(argc, argv, &trace, "Packet tracing"); 944 } 945 946 /* 947 * Toggle hash mark printing during transfers, or set hash mark bytecount. 948 */ 949 /*VARARGS*/ 950 void 951 sethash(argc, argv) 952 int argc; 953 char *argv[]; 954 { 955 if (argc == 1) 956 hash = !hash; 957 else if (argc != 2) { 958 printf("usage: %s [ on | off | bytecount ]\n", argv[0]); 959 code = -1; 960 return; 961 } else if (strcasecmp(argv[1], "on") == 0) 962 hash = 1; 963 else if (strcasecmp(argv[1], "off") == 0) 964 hash = 0; 965 else { 966 int nmark = atol(argv[1]); 967 if (nmark < 1) { 968 printf("%s: bad bytecount value\n", argv[1]); 969 code = -1; 970 return; 971 } 972 mark = nmark; 973 hash = 1; 974 } 975 printf("Hash mark printing %s", onoff(hash)); 976 if (hash) 977 printf(" (%d bytes/hash mark)", mark); 978 printf(".\n"); 979 code = hash; 980 } 981 982 /* 983 * Turn on printing of server echo's. 984 */ 985 /*VARARGS*/ 986 void 987 setverbose(argc, argv) 988 int argc; 989 char *argv[]; 990 { 991 992 code = togglevar(argc, argv, &verbose, "Verbose mode"); 993 } 994 995 /* 996 * Toggle PORT cmd use before each data connection. 997 */ 998 /*VARARGS*/ 999 void 1000 setport(argc, argv) 1001 int argc; 1002 char *argv[]; 1003 { 1004 1005 code = togglevar(argc, argv, &sendport, "Use of PORT cmds"); 1006 } 1007 1008 /* 1009 * Toggle transfer progress bar. 1010 */ 1011 /*VARARGS*/ 1012 void 1013 setprogress(argc, argv) 1014 int argc; 1015 char *argv[]; 1016 { 1017 1018 code = togglevar(argc, argv, &progress, "Progress bar"); 1019 } 1020 1021 /* 1022 * Turn on interactive prompting 1023 * during mget, mput, and mdelete. 1024 */ 1025 /*VARARGS*/ 1026 void 1027 setprompt(argc, argv) 1028 int argc; 1029 char *argv[]; 1030 { 1031 1032 code = togglevar(argc, argv, &interactive, "Interactive mode"); 1033 } 1034 1035 /* 1036 * Toggle metacharacter interpretation 1037 * on local file names. 1038 */ 1039 /*VARARGS*/ 1040 void 1041 setglob(argc, argv) 1042 int argc; 1043 char *argv[]; 1044 { 1045 1046 code = togglevar(argc, argv, &doglob, "Globbing"); 1047 } 1048 1049 /* 1050 * Toggle preserving modification times on retreived files. 1051 */ 1052 /*VARARGS*/ 1053 void 1054 setpreserve(argc, argv) 1055 int argc; 1056 char *argv[]; 1057 { 1058 1059 code = togglevar(argc, argv, &preserve, "Preserve modification times"); 1060 } 1061 1062 /* 1063 * Set debugging mode on/off and/or 1064 * set level of debugging. 1065 */ 1066 /*VARARGS*/ 1067 void 1068 setdebug(argc, argv) 1069 int argc; 1070 char *argv[]; 1071 { 1072 int val; 1073 1074 if (argc > 2) { 1075 printf("usage: %s [ on | off | debuglevel ]\n", argv[0]); 1076 code = -1; 1077 return; 1078 } else if (argc == 2) { 1079 if (strcasecmp(argv[1], "on") == 0) 1080 debug = 1; 1081 else if (strcasecmp(argv[1], "off") == 0) 1082 debug = 0; 1083 else { 1084 val = atoi(argv[1]); 1085 if (val < 0) { 1086 printf("%s: bad debugging value.\n", argv[1]); 1087 code = -1; 1088 return; 1089 } 1090 debug = val; 1091 } 1092 } else 1093 debug = !debug; 1094 if (debug) 1095 options |= SO_DEBUG; 1096 else 1097 options &= ~SO_DEBUG; 1098 printf("Debugging %s (debug=%d).\n", onoff(debug), debug); 1099 code = debug > 0; 1100 } 1101 1102 /* 1103 * Set current working directory 1104 * on remote machine. 1105 */ 1106 void 1107 cd(argc, argv) 1108 int argc; 1109 char *argv[]; 1110 { 1111 1112 if ((argc < 2 && !another(&argc, &argv, "remote-directory")) || 1113 argc > 2) { 1114 printf("usage: %s remote-directory\n", argv[0]); 1115 code = -1; 1116 return; 1117 } 1118 if (command("CWD %s", argv[1]) == ERROR && code == 500) { 1119 if (verbose) 1120 printf("CWD command not recognized, trying XCWD\n"); 1121 (void) command("XCWD %s", argv[1]); 1122 } 1123 } 1124 1125 /* 1126 * Set current working directory 1127 * on local machine. 1128 */ 1129 void 1130 lcd(argc, argv) 1131 int argc; 1132 char *argv[]; 1133 { 1134 char buf[MAXPATHLEN]; 1135 1136 if (argc < 2) 1137 argc++, argv[1] = home; 1138 if (argc != 2) { 1139 printf("usage: %s local-directory\n", argv[0]); 1140 code = -1; 1141 return; 1142 } 1143 if (!globulize(&argv[1])) { 1144 code = -1; 1145 return; 1146 } 1147 if (chdir(argv[1]) < 0) { 1148 warn("local: %s", argv[1]); 1149 code = -1; 1150 return; 1151 } 1152 if (getwd(buf) != NULL) 1153 printf("Local directory now %s\n", buf); 1154 else 1155 warnx("getwd: %s", buf); 1156 code = 0; 1157 } 1158 1159 /* 1160 * Delete a single file. 1161 */ 1162 void 1163 delete(argc, argv) 1164 int argc; 1165 char *argv[]; 1166 { 1167 1168 if ((argc < 2 && !another(&argc, &argv, "remote-file")) || argc > 2) { 1169 printf("usage: %s remote-file\n", argv[0]); 1170 code = -1; 1171 return; 1172 } 1173 (void) command("DELE %s", argv[1]); 1174 } 1175 1176 /* 1177 * Delete multiple files. 1178 */ 1179 void 1180 mdelete(argc, argv) 1181 int argc; 1182 char *argv[]; 1183 { 1184 sig_t oldintr; 1185 int ointer; 1186 char *cp; 1187 1188 if (argc < 2 && !another(&argc, &argv, "remote-files")) { 1189 printf("usage: %s remote-files\n", argv[0]); 1190 code = -1; 1191 return; 1192 } 1193 mname = argv[0]; 1194 mflag = 1; 1195 oldintr = signal(SIGINT, mabort); 1196 (void) setjmp(jabort); 1197 while ((cp = remglob(argv, 0)) != NULL) { 1198 if (*cp == '\0') { 1199 mflag = 0; 1200 continue; 1201 } 1202 if (mflag && confirm(argv[0], cp)) { 1203 (void) command("DELE %s", cp); 1204 if (!mflag && fromatty) { 1205 ointer = interactive; 1206 interactive = 1; 1207 if (confirm("Continue with", "mdelete")) { 1208 mflag++; 1209 } 1210 interactive = ointer; 1211 } 1212 } 1213 } 1214 (void) signal(SIGINT, oldintr); 1215 mflag = 0; 1216 } 1217 1218 /* 1219 * Rename a remote file. 1220 */ 1221 void 1222 renamefile(argc, argv) 1223 int argc; 1224 char *argv[]; 1225 { 1226 1227 if (argc < 2 && !another(&argc, &argv, "from-name")) 1228 goto usage; 1229 if ((argc < 3 && !another(&argc, &argv, "to-name")) || argc > 3) { 1230 usage: 1231 printf("%s from-name to-name\n", argv[0]); 1232 code = -1; 1233 return; 1234 } 1235 if (command("RNFR %s", argv[1]) == CONTINUE) 1236 (void) command("RNTO %s", argv[2]); 1237 } 1238 1239 /* 1240 * Get a directory listing 1241 * of remote files. 1242 */ 1243 void 1244 ls(argc, argv) 1245 int argc; 1246 char *argv[]; 1247 { 1248 const char *cmd; 1249 1250 if (argc < 2) 1251 argc++, argv[1] = NULL; 1252 if (argc < 3) 1253 argc++, argv[2] = "-"; 1254 if (argc > 3) { 1255 printf("usage: %s remote-directory local-file\n", argv[0]); 1256 code = -1; 1257 return; 1258 } 1259 cmd = strcmp(argv[0], "dir") == 0 ? "LIST" : "NLST"; 1260 if (strcmp(argv[2], "-") && !globulize(&argv[2])) { 1261 code = -1; 1262 return; 1263 } 1264 if (strcmp(argv[2], "-") && *argv[2] != '|') 1265 if (!globulize(&argv[2]) || !confirm("output to local-file:", 1266 argv[2])) { 1267 code = -1; 1268 return; 1269 } 1270 recvrequest(cmd, argv[2], argv[1], "w", 0); 1271 1272 /* flush results in case commands are coming from a pipe */ 1273 fflush(stdout); 1274 } 1275 1276 /* 1277 * Get a directory listing 1278 * of multiple remote files. 1279 */ 1280 void 1281 mls(argc, argv) 1282 int argc; 1283 char *argv[]; 1284 { 1285 sig_t oldintr; 1286 int ointer, i; 1287 const char *cmd; 1288 char mode[1], *dest; 1289 1290 if (argc < 2 && !another(&argc, &argv, "remote-files")) 1291 goto usage; 1292 if (argc < 3 && !another(&argc, &argv, "local-file")) { 1293 usage: 1294 printf("usage: %s remote-files local-file\n", argv[0]); 1295 code = -1; 1296 return; 1297 } 1298 dest = argv[argc - 1]; 1299 argv[argc - 1] = NULL; 1300 if (strcmp(dest, "-") && *dest != '|') 1301 if (!globulize(&dest) || 1302 !confirm("output to local-file:", dest)) { 1303 code = -1; 1304 return; 1305 } 1306 cmd = strcmp(argv[0], "mls") == 0 ? "NLST" : "LIST"; 1307 mname = argv[0]; 1308 mflag = 1; 1309 oldintr = signal(SIGINT, mabort); 1310 (void) setjmp(jabort); 1311 for (i = 1; mflag && i < argc-1; ++i) { 1312 *mode = (i == 1) ? 'w' : 'a'; 1313 recvrequest(cmd, dest, argv[i], mode, 0); 1314 if (!mflag && fromatty) { 1315 ointer = interactive; 1316 interactive = 1; 1317 if (confirm("Continue with", argv[0])) { 1318 mflag ++; 1319 } 1320 interactive = ointer; 1321 } 1322 } 1323 (void) signal(SIGINT, oldintr); 1324 mflag = 0; 1325 } 1326 1327 /* 1328 * Do a shell escape 1329 */ 1330 /*ARGSUSED*/ 1331 void 1332 shell(argc, argv) 1333 int argc; 1334 char *argv[]; 1335 { 1336 pid_t pid; 1337 sig_t old1, old2; 1338 char shellnam[40], *shell, *namep; 1339 union wait status; 1340 1341 old1 = signal (SIGINT, SIG_IGN); 1342 old2 = signal (SIGQUIT, SIG_IGN); 1343 if ((pid = fork()) == 0) { 1344 for (pid = 3; pid < 20; pid++) 1345 (void) close(pid); 1346 (void) signal(SIGINT, SIG_DFL); 1347 (void) signal(SIGQUIT, SIG_DFL); 1348 shell = getenv("SHELL"); 1349 if (shell == NULL) 1350 shell = _PATH_BSHELL; 1351 namep = strrchr(shell, '/'); 1352 if (namep == NULL) 1353 namep = shell; 1354 (void) strcpy(shellnam, "-"); 1355 (void) strcat(shellnam, ++namep); 1356 if (strcmp(namep, "sh") != 0) 1357 shellnam[0] = '+'; 1358 if (debug) { 1359 printf ("%s\n", shell); 1360 (void) fflush (stdout); 1361 } 1362 if (argc > 1) { 1363 execl(shell, shellnam, "-c", altarg, (char *)0); 1364 } 1365 else { 1366 execl(shell, shellnam, (char *)0); 1367 } 1368 warn("%s", shell); 1369 code = -1; 1370 exit(1); 1371 } 1372 if (pid > 0) 1373 while (wait((int *)&status) != pid) 1374 ; 1375 (void) signal(SIGINT, old1); 1376 (void) signal(SIGQUIT, old2); 1377 if (pid == -1) { 1378 warn("%s", "Try again later"); 1379 code = -1; 1380 } 1381 else { 1382 code = 0; 1383 } 1384 } 1385 1386 /* 1387 * Send new user information (re-login) 1388 */ 1389 void 1390 user(argc, argv) 1391 int argc; 1392 char *argv[]; 1393 { 1394 char acct[80]; 1395 int n, aflag = 0; 1396 1397 if (argc < 2) 1398 (void) another(&argc, &argv, "username"); 1399 if (argc < 2 || argc > 4) { 1400 printf("usage: %s username [password] [account]\n", argv[0]); 1401 code = -1; 1402 return; 1403 } 1404 n = command("USER %s", argv[1]); 1405 if (n == CONTINUE) { 1406 if (argc < 3 ) 1407 argv[2] = getpass("Password: "), argc++; 1408 n = command("PASS %s", argv[2]); 1409 } 1410 if (n == CONTINUE) { 1411 if (argc < 4) { 1412 printf("Account: "); (void) fflush(stdout); 1413 (void) fgets(acct, sizeof(acct) - 1, stdin); 1414 acct[strlen(acct) - 1] = '\0'; 1415 argv[3] = acct; argc++; 1416 } 1417 n = command("ACCT %s", argv[3]); 1418 aflag++; 1419 } 1420 if (n != COMPLETE) { 1421 fprintf(stdout, "Login failed.\n"); 1422 return; 1423 } 1424 if (!aflag && argc == 4) { 1425 (void) command("ACCT %s", argv[3]); 1426 } 1427 } 1428 1429 /* 1430 * Print working directory on remote machine. 1431 */ 1432 /*VARARGS*/ 1433 void 1434 pwd(argc, argv) 1435 int argc; 1436 char *argv[]; 1437 { 1438 int oldverbose = verbose; 1439 1440 /* 1441 * If we aren't verbose, this doesn't do anything! 1442 */ 1443 verbose = 1; 1444 if (command("PWD") == ERROR && code == 500) { 1445 printf("PWD command not recognized, trying XPWD\n"); 1446 (void) command("XPWD"); 1447 } 1448 verbose = oldverbose; 1449 } 1450 1451 /* 1452 * Print working directory on local machine. 1453 */ 1454 void 1455 lpwd(argc, argv) 1456 int argc; 1457 char *argv[]; 1458 { 1459 char buf[MAXPATHLEN]; 1460 1461 if (getwd(buf) != NULL) 1462 printf("Local directory %s\n", buf); 1463 else 1464 warnx("getwd: %s", buf); 1465 code = 0; 1466 } 1467 1468 /* 1469 * Make a directory. 1470 */ 1471 void 1472 makedir(argc, argv) 1473 int argc; 1474 char *argv[]; 1475 { 1476 1477 if ((argc < 2 && !another(&argc, &argv, "directory-name")) || 1478 argc > 2) { 1479 printf("usage: %s directory-name\n", argv[0]); 1480 code = -1; 1481 return; 1482 } 1483 if (command("MKD %s", argv[1]) == ERROR && code == 500) { 1484 if (verbose) 1485 printf("MKD command not recognized, trying XMKD\n"); 1486 (void) command("XMKD %s", argv[1]); 1487 } 1488 } 1489 1490 /* 1491 * Remove a directory. 1492 */ 1493 void 1494 removedir(argc, argv) 1495 int argc; 1496 char *argv[]; 1497 { 1498 1499 if ((argc < 2 && !another(&argc, &argv, "directory-name")) || 1500 argc > 2) { 1501 printf("usage: %s directory-name\n", argv[0]); 1502 code = -1; 1503 return; 1504 } 1505 if (command("RMD %s", argv[1]) == ERROR && code == 500) { 1506 if (verbose) 1507 printf("RMD command not recognized, trying XRMD\n"); 1508 (void) command("XRMD %s", argv[1]); 1509 } 1510 } 1511 1512 /* 1513 * Send a line, verbatim, to the remote machine. 1514 */ 1515 void 1516 quote(argc, argv) 1517 int argc; 1518 char *argv[]; 1519 { 1520 1521 if (argc < 2 && !another(&argc, &argv, "command line to send")) { 1522 printf("usage: %s line-to-send\n", argv[0]); 1523 code = -1; 1524 return; 1525 } 1526 quote1("", argc, argv); 1527 } 1528 1529 /* 1530 * Send a SITE command to the remote machine. The line 1531 * is sent verbatim to the remote machine, except that the 1532 * word "SITE" is added at the front. 1533 */ 1534 void 1535 site(argc, argv) 1536 int argc; 1537 char *argv[]; 1538 { 1539 1540 if (argc < 2 && !another(&argc, &argv, "arguments to SITE command")) { 1541 printf("usage: %s line-to-send\n", argv[0]); 1542 code = -1; 1543 return; 1544 } 1545 quote1("SITE ", argc, argv); 1546 } 1547 1548 /* 1549 * Turn argv[1..argc) into a space-separated string, then prepend initial text. 1550 * Send the result as a one-line command and get response. 1551 */ 1552 void 1553 quote1(initial, argc, argv) 1554 const char *initial; 1555 int argc; 1556 char *argv[]; 1557 { 1558 int i, len; 1559 char buf[BUFSIZ]; /* must be >= sizeof(line) */ 1560 1561 (void) strcpy(buf, initial); 1562 if (argc > 1) { 1563 len = strlen(buf); 1564 len += strlen(strcpy(&buf[len], argv[1])); 1565 for (i = 2; i < argc; i++) { 1566 buf[len++] = ' '; 1567 len += strlen(strcpy(&buf[len], argv[i])); 1568 } 1569 } 1570 if (command(buf) == PRELIM) { 1571 while (getreply(0) == PRELIM) 1572 continue; 1573 } 1574 } 1575 1576 void 1577 do_chmod(argc, argv) 1578 int argc; 1579 char *argv[]; 1580 { 1581 1582 if (argc < 2 && !another(&argc, &argv, "mode")) 1583 goto usage; 1584 if ((argc < 3 && !another(&argc, &argv, "file-name")) || argc > 3) { 1585 usage: 1586 printf("usage: %s mode file-name\n", argv[0]); 1587 code = -1; 1588 return; 1589 } 1590 (void) command("SITE CHMOD %s %s", argv[1], argv[2]); 1591 } 1592 1593 void 1594 do_umask(argc, argv) 1595 int argc; 1596 char *argv[]; 1597 { 1598 int oldverbose = verbose; 1599 1600 verbose = 1; 1601 (void) command(argc == 1 ? "SITE UMASK" : "SITE UMASK %s", argv[1]); 1602 verbose = oldverbose; 1603 } 1604 1605 void 1606 idle(argc, argv) 1607 int argc; 1608 char *argv[]; 1609 { 1610 int oldverbose = verbose; 1611 1612 verbose = 1; 1613 (void) command(argc == 1 ? "SITE IDLE" : "SITE IDLE %s", argv[1]); 1614 verbose = oldverbose; 1615 } 1616 1617 /* 1618 * Ask the other side for help. 1619 */ 1620 void 1621 rmthelp(argc, argv) 1622 int argc; 1623 char *argv[]; 1624 { 1625 int oldverbose = verbose; 1626 1627 verbose = 1; 1628 (void) command(argc == 1 ? "HELP" : "HELP %s", argv[1]); 1629 verbose = oldverbose; 1630 } 1631 1632 /* 1633 * Terminate session and exit. 1634 */ 1635 /*VARARGS*/ 1636 void 1637 quit(argc, argv) 1638 int argc; 1639 char *argv[]; 1640 { 1641 1642 if (connected) 1643 disconnect(0, 0); 1644 pswitch(1); 1645 if (connected) { 1646 disconnect(0, 0); 1647 } 1648 exit(0); 1649 } 1650 1651 /* 1652 * Terminate session, but don't exit. 1653 */ 1654 void 1655 disconnect(argc, argv) 1656 int argc; 1657 char *argv[]; 1658 { 1659 1660 if (!connected) 1661 return; 1662 (void) command("QUIT"); 1663 if (cout) { 1664 (void) fclose(cout); 1665 } 1666 cout = NULL; 1667 connected = 0; 1668 data = -1; 1669 if (!proxy) { 1670 macnum = 0; 1671 } 1672 } 1673 1674 int 1675 confirm(cmd, file) 1676 const char *cmd, *file; 1677 { 1678 char line[BUFSIZ]; 1679 1680 if (!interactive || confirmrest) 1681 return (1); 1682 printf("%s %s? ", cmd, file); 1683 (void) fflush(stdout); 1684 if (fgets(line, sizeof(line), stdin) == NULL) 1685 return (0); 1686 switch (tolower(*line)) { 1687 case 'n': 1688 return (0); 1689 case 'p': 1690 interactive = 0; 1691 printf("Interactive mode: off\n"); 1692 break; 1693 case 'a': 1694 confirmrest = 1; 1695 printf("Prompting off for duration of %s\n", cmd); 1696 break; 1697 } 1698 return (1); 1699 } 1700 1701 void 1702 fatal(msg) 1703 const char *msg; 1704 { 1705 1706 errx(1, "%s", msg); 1707 } 1708 1709 /* 1710 * Glob a local file name specification with 1711 * the expectation of a single return value. 1712 * Can't control multiple values being expanded 1713 * from the expression, we return only the first. 1714 */ 1715 int 1716 globulize(cpp) 1717 char **cpp; 1718 { 1719 glob_t gl; 1720 int flags; 1721 1722 if (!doglob) 1723 return (1); 1724 1725 flags = GLOB_BRACE|GLOB_NOCHECK|GLOB_QUOTE|GLOB_TILDE; 1726 memset(&gl, 0, sizeof(gl)); 1727 if (glob(*cpp, flags, NULL, &gl) || 1728 gl.gl_pathc == 0) { 1729 warnx("%s: not found", *cpp); 1730 globfree(&gl); 1731 return (0); 1732 } 1733 *cpp = strdup(gl.gl_pathv[0]); /* XXX - wasted memory */ 1734 globfree(&gl); 1735 return (1); 1736 } 1737 1738 void 1739 account(argc, argv) 1740 int argc; 1741 char *argv[]; 1742 { 1743 char acct[50], *ap; 1744 1745 if (argc > 1) { 1746 ++argv; 1747 --argc; 1748 (void) strncpy(acct, *argv, 49); 1749 acct[49] = '\0'; 1750 while (argc > 1) { 1751 --argc; 1752 ++argv; 1753 (void) strncat(acct, *argv, 49-strlen(acct)); 1754 } 1755 ap = acct; 1756 } 1757 else { 1758 ap = getpass("Account:"); 1759 } 1760 (void) command("ACCT %s", ap); 1761 } 1762 1763 jmp_buf abortprox; 1764 1765 void 1766 proxabort() 1767 { 1768 1769 if (!proxy) { 1770 pswitch(1); 1771 } 1772 if (connected) { 1773 proxflag = 1; 1774 } 1775 else { 1776 proxflag = 0; 1777 } 1778 pswitch(0); 1779 longjmp(abortprox, 1); 1780 } 1781 1782 void 1783 doproxy(argc, argv) 1784 int argc; 1785 char *argv[]; 1786 { 1787 struct cmd *c; 1788 sig_t oldintr; 1789 1790 if (argc < 2 && !another(&argc, &argv, "command")) { 1791 printf("usage: %s command\n", argv[0]); 1792 code = -1; 1793 return; 1794 } 1795 c = getcmd(argv[1]); 1796 if (c == (struct cmd *) -1) { 1797 printf("?Ambiguous command\n"); 1798 (void) fflush(stdout); 1799 code = -1; 1800 return; 1801 } 1802 if (c == 0) { 1803 printf("?Invalid command\n"); 1804 (void) fflush(stdout); 1805 code = -1; 1806 return; 1807 } 1808 if (!c->c_proxy) { 1809 printf("?Invalid proxy command\n"); 1810 (void) fflush(stdout); 1811 code = -1; 1812 return; 1813 } 1814 if (setjmp(abortprox)) { 1815 code = -1; 1816 return; 1817 } 1818 oldintr = signal(SIGINT, proxabort); 1819 pswitch(1); 1820 if (c->c_conn && !connected) { 1821 printf("Not connected\n"); 1822 (void) fflush(stdout); 1823 pswitch(0); 1824 (void) signal(SIGINT, oldintr); 1825 code = -1; 1826 return; 1827 } 1828 (*c->c_handler)(argc-1, argv+1); 1829 if (connected) { 1830 proxflag = 1; 1831 } 1832 else { 1833 proxflag = 0; 1834 } 1835 pswitch(0); 1836 (void) signal(SIGINT, oldintr); 1837 } 1838 1839 void 1840 setcase(argc, argv) 1841 int argc; 1842 char *argv[]; 1843 { 1844 1845 code = togglevar(argc, argv, &mcase, "Case mapping"); 1846 } 1847 1848 void 1849 setcr(argc, argv) 1850 int argc; 1851 char *argv[]; 1852 { 1853 1854 code = togglevar(argc, argv, &crflag, "Carriage Return stripping"); 1855 } 1856 1857 void 1858 setntrans(argc, argv) 1859 int argc; 1860 char *argv[]; 1861 { 1862 if (argc == 1) { 1863 ntflag = 0; 1864 printf("Ntrans off.\n"); 1865 code = ntflag; 1866 return; 1867 } 1868 ntflag++; 1869 code = ntflag; 1870 (void) strncpy(ntin, argv[1], 16); 1871 ntin[16] = '\0'; 1872 if (argc == 2) { 1873 ntout[0] = '\0'; 1874 return; 1875 } 1876 (void) strncpy(ntout, argv[2], 16); 1877 ntout[16] = '\0'; 1878 } 1879 1880 char * 1881 dotrans(name) 1882 char *name; 1883 { 1884 static char new[MAXPATHLEN]; 1885 char *cp1, *cp2 = new; 1886 int i, ostop, found; 1887 1888 for (ostop = 0; *(ntout + ostop) && ostop < 16; ostop++) 1889 continue; 1890 for (cp1 = name; *cp1; cp1++) { 1891 found = 0; 1892 for (i = 0; *(ntin + i) && i < 16; i++) { 1893 if (*cp1 == *(ntin + i)) { 1894 found++; 1895 if (i < ostop) { 1896 *cp2++ = *(ntout + i); 1897 } 1898 break; 1899 } 1900 } 1901 if (!found) { 1902 *cp2++ = *cp1; 1903 } 1904 } 1905 *cp2 = '\0'; 1906 return (new); 1907 } 1908 1909 void 1910 setnmap(argc, argv) 1911 int argc; 1912 char *argv[]; 1913 { 1914 char *cp; 1915 1916 if (argc == 1) { 1917 mapflag = 0; 1918 printf("Nmap off.\n"); 1919 code = mapflag; 1920 return; 1921 } 1922 if ((argc < 3 && !another(&argc, &argv, "mapout")) || argc > 3) { 1923 printf("Usage: %s [mapin mapout]\n", argv[0]); 1924 code = -1; 1925 return; 1926 } 1927 mapflag = 1; 1928 code = 1; 1929 cp = strchr(altarg, ' '); 1930 if (proxy) { 1931 while(*++cp == ' ') 1932 continue; 1933 altarg = cp; 1934 cp = strchr(altarg, ' '); 1935 } 1936 *cp = '\0'; 1937 (void) strncpy(mapin, altarg, MAXPATHLEN - 1); 1938 while (*++cp == ' ') 1939 continue; 1940 (void) strncpy(mapout, cp, MAXPATHLEN - 1); 1941 } 1942 1943 char * 1944 domap(name) 1945 char *name; 1946 { 1947 static char new[MAXPATHLEN]; 1948 char *cp1 = name, *cp2 = mapin; 1949 char *tp[9], *te[9]; 1950 int i, toks[9], toknum = 0, match = 1; 1951 1952 for (i=0; i < 9; ++i) { 1953 toks[i] = 0; 1954 } 1955 while (match && *cp1 && *cp2) { 1956 switch (*cp2) { 1957 case '\\': 1958 if (*++cp2 != *cp1) { 1959 match = 0; 1960 } 1961 break; 1962 case '$': 1963 if (*(cp2+1) >= '1' && (*cp2+1) <= '9') { 1964 if (*cp1 != *(++cp2+1)) { 1965 toks[toknum = *cp2 - '1']++; 1966 tp[toknum] = cp1; 1967 while (*++cp1 && *(cp2+1) 1968 != *cp1); 1969 te[toknum] = cp1; 1970 } 1971 cp2++; 1972 break; 1973 } 1974 /* FALLTHROUGH */ 1975 default: 1976 if (*cp2 != *cp1) { 1977 match = 0; 1978 } 1979 break; 1980 } 1981 if (match && *cp1) { 1982 cp1++; 1983 } 1984 if (match && *cp2) { 1985 cp2++; 1986 } 1987 } 1988 if (!match && *cp1) /* last token mismatch */ 1989 { 1990 toks[toknum] = 0; 1991 } 1992 cp1 = new; 1993 *cp1 = '\0'; 1994 cp2 = mapout; 1995 while (*cp2) { 1996 match = 0; 1997 switch (*cp2) { 1998 case '\\': 1999 if (*(cp2 + 1)) { 2000 *cp1++ = *++cp2; 2001 } 2002 break; 2003 case '[': 2004 LOOP: 2005 if (*++cp2 == '$' && isdigit(*(cp2+1))) { 2006 if (*++cp2 == '0') { 2007 char *cp3 = name; 2008 2009 while (*cp3) { 2010 *cp1++ = *cp3++; 2011 } 2012 match = 1; 2013 } 2014 else if (toks[toknum = *cp2 - '1']) { 2015 char *cp3 = tp[toknum]; 2016 2017 while (cp3 != te[toknum]) { 2018 *cp1++ = *cp3++; 2019 } 2020 match = 1; 2021 } 2022 } 2023 else { 2024 while (*cp2 && *cp2 != ',' && 2025 *cp2 != ']') { 2026 if (*cp2 == '\\') { 2027 cp2++; 2028 } 2029 else if (*cp2 == '$' && 2030 isdigit(*(cp2+1))) { 2031 if (*++cp2 == '0') { 2032 char *cp3 = name; 2033 2034 while (*cp3) { 2035 *cp1++ = *cp3++; 2036 } 2037 } 2038 else if (toks[toknum = 2039 *cp2 - '1']) { 2040 char *cp3=tp[toknum]; 2041 2042 while (cp3 != 2043 te[toknum]) { 2044 *cp1++ = *cp3++; 2045 } 2046 } 2047 } 2048 else if (*cp2) { 2049 *cp1++ = *cp2++; 2050 } 2051 } 2052 if (!*cp2) { 2053 printf("nmap: unbalanced " 2054 "brackets\n"); 2055 return (name); 2056 } 2057 match = 1; 2058 cp2--; 2059 } 2060 if (match) { 2061 while (*++cp2 && *cp2 != ']') { 2062 if (*cp2 == '\\' && *(cp2 + 1)) { 2063 cp2++; 2064 } 2065 } 2066 if (!*cp2) { 2067 printf("nmap: unbalanced " 2068 "brackets\n"); 2069 return (name); 2070 } 2071 break; 2072 } 2073 switch (*++cp2) { 2074 case ',': 2075 goto LOOP; 2076 case ']': 2077 break; 2078 default: 2079 cp2--; 2080 goto LOOP; 2081 } 2082 break; 2083 case '$': 2084 if (isdigit(*(cp2 + 1))) { 2085 if (*++cp2 == '0') { 2086 char *cp3 = name; 2087 2088 while (*cp3) { 2089 *cp1++ = *cp3++; 2090 } 2091 } 2092 else if (toks[toknum = *cp2 - '1']) { 2093 char *cp3 = tp[toknum]; 2094 2095 while (cp3 != te[toknum]) { 2096 *cp1++ = *cp3++; 2097 } 2098 } 2099 break; 2100 } 2101 /* intentional drop through */ 2102 default: 2103 *cp1++ = *cp2; 2104 break; 2105 } 2106 cp2++; 2107 } 2108 *cp1 = '\0'; 2109 if (!*new) { 2110 return (name); 2111 } 2112 return (new); 2113 } 2114 2115 void 2116 setpassive(argc, argv) 2117 int argc; 2118 char *argv[]; 2119 { 2120 2121 code = togglevar(argc, argv, &passivemode, "Passive mode"); 2122 } 2123 2124 void 2125 setsunique(argc, argv) 2126 int argc; 2127 char *argv[]; 2128 { 2129 2130 code = togglevar(argc, argv, &sunique, "Store unique"); 2131 } 2132 2133 void 2134 setrunique(argc, argv) 2135 int argc; 2136 char *argv[]; 2137 { 2138 2139 code = togglevar(argc, argv, &runique, "Receive unique"); 2140 } 2141 2142 /* change directory to perent directory */ 2143 void 2144 cdup(argc, argv) 2145 int argc; 2146 char *argv[]; 2147 { 2148 2149 if (command("CDUP") == ERROR && code == 500) { 2150 if (verbose) 2151 printf("CDUP command not recognized, trying XCUP\n"); 2152 (void) command("XCUP"); 2153 } 2154 } 2155 2156 /* restart transfer at specific point */ 2157 void 2158 restart(argc, argv) 2159 int argc; 2160 char *argv[]; 2161 { 2162 2163 if (argc != 2) 2164 printf("restart: offset not specified\n"); 2165 else { 2166 restart_point = atol(argv[1]); 2167 printf("Restarting at %qd. Execute get, put or append to" 2168 "initiate transfer\n", restart_point); 2169 } 2170 } 2171 2172 /* show remote system type */ 2173 void 2174 syst(argc, argv) 2175 int argc; 2176 char *argv[]; 2177 { 2178 2179 (void) command("SYST"); 2180 } 2181 2182 void 2183 macdef(argc, argv) 2184 int argc; 2185 char *argv[]; 2186 { 2187 char *tmp; 2188 int c; 2189 2190 if (macnum == 16) { 2191 printf("Limit of 16 macros have already been defined\n"); 2192 code = -1; 2193 return; 2194 } 2195 if ((argc < 2 && !another(&argc, &argv, "macro name")) || argc > 2) { 2196 printf("Usage: %s macro_name\n", argv[0]); 2197 code = -1; 2198 return; 2199 } 2200 if (interactive) { 2201 printf("Enter macro line by line, terminating it with a " 2202 "null line\n"); 2203 } 2204 (void) strncpy(macros[macnum].mac_name, argv[1], 8); 2205 if (macnum == 0) { 2206 macros[macnum].mac_start = macbuf; 2207 } 2208 else { 2209 macros[macnum].mac_start = macros[macnum - 1].mac_end + 1; 2210 } 2211 tmp = macros[macnum].mac_start; 2212 while (tmp != macbuf+4096) { 2213 if ((c = getchar()) == EOF) { 2214 printf("macdef:end of file encountered\n"); 2215 code = -1; 2216 return; 2217 } 2218 if ((*tmp = c) == '\n') { 2219 if (tmp == macros[macnum].mac_start) { 2220 macros[macnum++].mac_end = tmp; 2221 code = 0; 2222 return; 2223 } 2224 if (*(tmp-1) == '\0') { 2225 macros[macnum++].mac_end = tmp - 1; 2226 code = 0; 2227 return; 2228 } 2229 *tmp = '\0'; 2230 } 2231 tmp++; 2232 } 2233 while (1) { 2234 while ((c = getchar()) != '\n' && c != EOF) 2235 /* LOOP */; 2236 if (c == EOF || getchar() == '\n') { 2237 printf("Macro not defined - 4k buffer exceeded\n"); 2238 code = -1; 2239 return; 2240 } 2241 } 2242 } 2243 2244 /* 2245 * determine size of remote file 2246 */ 2247 off_t 2248 remotesize(file) 2249 const char *file; 2250 { 2251 int overbose; 2252 off_t size; 2253 2254 overbose = verbose; 2255 size = -1; 2256 if (debug == 0) 2257 verbose = -1; 2258 if (command("SIZE %s", file) == COMPLETE) 2259 sscanf(reply_string, "%*s %qd", &size); 2260 else if (debug == 0) 2261 printf("%s\n", reply_string); 2262 verbose = overbose; 2263 return (size); 2264 } 2265 2266 /* 2267 * get size of file on remote machine 2268 */ 2269 void 2270 sizecmd(argc, argv) 2271 int argc; 2272 char *argv[]; 2273 { 2274 off_t size; 2275 2276 if ((argc < 2 && !another(&argc, &argv, "filename")) || argc > 2) { 2277 printf("usage: %s filename\n", argv[0]); 2278 code = -1; 2279 return; 2280 } 2281 size = remotesize(argv[1]); 2282 if (size != -1) 2283 printf("%s\t%qd\n", argv[1], size); 2284 code = size; 2285 } 2286 2287 /* 2288 * determine last modification time (in GMT) of remote file 2289 */ 2290 time_t 2291 remotemodtime(file) 2292 const char *file; 2293 { 2294 int overbose; 2295 time_t rtime; 2296 2297 overbose = verbose; 2298 rtime = -1; 2299 if (debug == 0) 2300 verbose = -1; 2301 if (command("MDTM %s", file) == COMPLETE) { 2302 struct tm timebuf; 2303 int yy, mo, day, hour, min, sec; 2304 sscanf(reply_string, "%*s %04d%02d%02d%02d%02d%02d", &yy, &mo, 2305 &day, &hour, &min, &sec); 2306 memset(&timebuf, 0, sizeof(timebuf)); 2307 timebuf.tm_sec = sec; 2308 timebuf.tm_min = min; 2309 timebuf.tm_hour = hour; 2310 timebuf.tm_mday = day; 2311 timebuf.tm_mon = mo - 1; 2312 timebuf.tm_year = yy - 1900; 2313 timebuf.tm_isdst = -1; 2314 rtime = mktime(&timebuf); 2315 if (rtime == -1) 2316 printf("Can't convert %s to a time\n", reply_string); 2317 else 2318 rtime += timebuf.tm_gmtoff; /* conv. local -> GMT */ 2319 } else if (debug == 0) 2320 printf("%s\n", reply_string); 2321 verbose = overbose; 2322 return(rtime); 2323 } 2324 2325 /* 2326 * get last modification time of file on remote machine 2327 */ 2328 void 2329 modtime(argc, argv) 2330 int argc; 2331 char *argv[]; 2332 { 2333 time_t mtime; 2334 2335 if ((argc < 2 && !another(&argc, &argv, "filename")) || argc > 2) { 2336 printf("usage: %s filename\n", argv[0]); 2337 code = -1; 2338 return; 2339 } 2340 mtime = remotemodtime(argv[1]); 2341 if (mtime != -1) 2342 printf("%s\t%s", argv[1], asctime(localtime(&mtime))); 2343 code = mtime; 2344 } 2345 2346 /* 2347 * show status on reomte machine 2348 */ 2349 void 2350 rmtstatus(argc, argv) 2351 int argc; 2352 char *argv[]; 2353 { 2354 2355 (void) command(argc > 1 ? "STAT %s" : "STAT" , argv[1]); 2356 } 2357 2358 /* 2359 * get file if modtime is more recent than current file 2360 */ 2361 void 2362 newer(argc, argv) 2363 int argc; 2364 char *argv[]; 2365 { 2366 2367 if (getit(argc, argv, -1, "w")) 2368 printf("Local file \"%s\" is newer than remote file \"%s\"\n", 2369 argv[2], argv[1]); 2370 } 2371
Indexes created Tue Sep 23 23:09:58 GMT 2025