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