1 /* 2 * scp - secure remote copy. This is basically patched BSD rcp which 3 * uses ssh to do the data transfer (instead of using rcmd). 4 * 5 * NOTE: This version should NOT be suid root. (This uses ssh to 6 * do the transfer and ssh has the necessary privileges.) 7 * 8 * 1995 Timo Rinne <tri@iki.fi>, Tatu Ylonen <ylo@cs.hut.fi> 9 * 10 * As far as I am concerned, the code I have written for this software 11 * can be used freely for any purpose. Any derived versions of this 12 * software must be clearly marked as such, and if the derived work is 13 * incompatible with the protocol description in the RFC file, it must be 14 * called by a name other than "ssh" or "Secure Shell". 15 */ 16 /* 17 * Copyright (c) 1999 Theo de Raadt. All rights reserved. 18 * Copyright (c) 1999 Aaron Campbell. All rights reserved. 19 * 20 * Redistribution and use in source and binary forms, with or without 21 * modification, are permitted provided that the following conditions 22 * are met: 23 * 1. Redistributions of source code must retain the above copyright 24 * notice, this list of conditions and the following disclaimer. 25 * 2. Redistributions in binary form must reproduce the above copyright 26 * notice, this list of conditions and the following disclaimer in the 27 * documentation and/or other materials provided with the distribution. 28 * 29 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR 30 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES 31 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. 32 * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, 33 * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT 34 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, 35 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY 36 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT 37 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF 38 * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 39 */ 40 41 /* 42 * Parts from: 43 * 44 * Copyright (c) 1983, 1990, 1992, 1993, 1995 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 77 #include "includes.h" 78 RCSID("$OpenBSD: scp.c,v 1.102 2003/03/05 22:33:43 markus Exp $"); 79 80 #include "xmalloc.h" 81 #include "atomicio.h" 82 #include "pathnames.h" 83 #include "log.h" 84 #include "misc.h" 85 #include "progressmeter.h" 86 87 #ifdef HAVE___PROGNAME 88 extern char *__progname; 89 #else 90 char *__progname; 91 #endif 92 93 void bwlimit(int); 94 95 /* Struct for addargs */ 96 arglist args; 97 98 /* Bandwidth limit */ 99 off_t limitbw = 0; 100 101 /* Name of current file being transferred. */ 102 char *curfile; 103 104 /* This is set to non-zero to enable verbose mode. */ 105 int verbose_mode = 0; 106 107 /* This is set to zero if the progressmeter is not desired. */ 108 int showprogress = 1; 109 110 /* This is the program to execute for the secured connection. ("ssh" or -S) */ 111 char *ssh_program = _PATH_SSH_PROGRAM; 112 113 /* This is used to store the pid of ssh_program */ 114 pid_t do_cmd_pid; 115 116 /* 117 * This function executes the given command as the specified user on the 118 * given host. This returns < 0 if execution fails, and >= 0 otherwise. This 119 * assigns the input and output file descriptors on success. 120 */ 121 122 int 123 do_cmd(char *host, char *remuser, char *cmd, int *fdin, int *fdout, int argc) 124 { 125 int pin[2], pout[2], reserved[2]; 126 127 if (verbose_mode) 128 fprintf(stderr, 129 "Executing: program %s host %s, user %s, command %s\n", 130 ssh_program, host, 131 remuser ? remuser : "(unspecified)", cmd); 132 133 /* 134 * Reserve two descriptors so that the real pipes won't get 135 * descriptors 0 and 1 because that will screw up dup2 below. 136 */ 137 pipe(reserved); 138 139 /* Create a socket pair for communicating with ssh. */ 140 if (pipe(pin) < 0) 141 fatal("pipe: %s", strerror(errno)); 142 if (pipe(pout) < 0) 143 fatal("pipe: %s", strerror(errno)); 144 145 /* Free the reserved descriptors. */ 146 close(reserved[0]); 147 close(reserved[1]); 148 149 /* For a child to execute the command on the remote host using ssh. */ 150 do_cmd_pid = fork(); 151 if (do_cmd_pid == 0) { 152 /* Child. */ 153 close(pin[1]); 154 close(pout[0]); 155 dup2(pin[0], 0); 156 dup2(pout[1], 1); 157 close(pin[0]); 158 close(pout[1]); 159 160 args.list[0] = ssh_program; 161 if (remuser != NULL) 162 addargs(&args, "-l%s", remuser); 163 addargs(&args, "%s", host); 164 addargs(&args, "%s", cmd); 165 166 execvp(ssh_program, args.list); 167 perror(ssh_program); 168 exit(1); 169 } else if (do_cmd_pid == -1) { 170 fatal("fork: %s", strerror(errno)); 171 } 172 /* Parent. Close the other side, and return the local side. */ 173 close(pin[0]); 174 *fdout = pin[1]; 175 close(pout[1]); 176 *fdin = pout[0]; 177 return 0; 178 } 179 180 typedef struct { 181 int cnt; 182 char *buf; 183 } BUF; 184 185 BUF *allocbuf(BUF *, int, int); 186 void lostconn(int); 187 void nospace(void); 188 int okname(char *); 189 void run_err(const char *,...); 190 void verifydir(char *); 191 192 struct passwd *pwd; 193 uid_t userid; 194 int errs, remin, remout; 195 int pflag, iamremote, iamrecursive, targetshouldbedirectory; 196 197 #define CMDNEEDS 64 198 char cmd[CMDNEEDS]; /* must hold "rcp -r -p -d\0" */ 199 200 int response(void); 201 void rsource(char *, struct stat *); 202 void sink(int, char *[]); 203 void source(int, char *[]); 204 void tolocal(int, char *[]); 205 void toremote(char *, int, char *[]); 206 void usage(void); 207 208 int 209 main(argc, argv) 210 int argc; 211 char *argv[]; 212 { 213 int ch, fflag, tflag, status; 214 double speed; 215 char *targ, *endp; 216 extern char *optarg; 217 extern int optind; 218 219 __progname = get_progname(argv[0]); 220 221 args.list = NULL; 222 addargs(&args, "ssh"); /* overwritten with ssh_program */ 223 addargs(&args, "-x"); 224 addargs(&args, "-oForwardAgent no"); 225 addargs(&args, "-oClearAllForwardings yes"); 226 227 fflag = tflag = 0; 228 while ((ch = getopt(argc, argv, "dfl:prtvBCc:i:P:q1246S:o:F:")) != -1) 229 switch (ch) { 230 /* User-visible flags. */ 231 case '1': 232 case '2': 233 case '4': 234 case '6': 235 case 'C': 236 addargs(&args, "-%c", ch); 237 break; 238 case 'o': 239 case 'c': 240 case 'i': 241 case 'F': 242 addargs(&args, "-%c%s", ch, optarg); 243 break; 244 case 'P': 245 addargs(&args, "-p%s", optarg); 246 break; 247 case 'B': 248 addargs(&args, "-oBatchmode yes"); 249 break; 250 case 'l': 251 speed = strtod(optarg, &endp); 252 if (speed <= 0 || *endp != '\0') 253 usage(); 254 limitbw = speed * 1024; 255 break; 256 case 'p': 257 pflag = 1; 258 break; 259 case 'r': 260 iamrecursive = 1; 261 break; 262 case 'S': 263 ssh_program = xstrdup(optarg); 264 break; 265 case 'v': 266 addargs(&args, "-v"); 267 verbose_mode = 1; 268 break; 269 case 'q': 270 showprogress = 0; 271 break; 272 273 /* Server options. */ 274 case 'd': 275 targetshouldbedirectory = 1; 276 break; 277 case 'f': /* "from" */ 278 iamremote = 1; 279 fflag = 1; 280 break; 281 case 't': /* "to" */ 282 iamremote = 1; 283 tflag = 1; 284 #ifdef HAVE_CYGWIN 285 setmode(0, O_BINARY); 286 #endif 287 break; 288 default: 289 usage(); 290 } 291 argc -= optind; 292 argv += optind; 293 294 if ((pwd = getpwuid(userid = getuid())) == NULL) 295 fatal("unknown user %d", (int) userid); 296 297 if (!isatty(STDERR_FILENO)) 298 showprogress = 0; 299 300 remin = STDIN_FILENO; 301 remout = STDOUT_FILENO; 302 303 if (fflag) { 304 /* Follow "protocol", send data. */ 305 (void) response(); 306 source(argc, argv); 307 exit(errs != 0); 308 } 309 if (tflag) { 310 /* Receive data. */ 311 sink(argc, argv); 312 exit(errs != 0); 313 } 314 if (argc < 2) 315 usage(); 316 if (argc > 2) 317 targetshouldbedirectory = 1; 318 319 remin = remout = -1; 320 do_cmd_pid = -1; 321 /* Command to be executed on remote system using "ssh". */ 322 (void) snprintf(cmd, sizeof cmd, "scp%s%s%s%s", 323 verbose_mode ? " -v" : "", 324 iamrecursive ? " -r" : "", pflag ? " -p" : "", 325 targetshouldbedirectory ? " -d" : ""); 326 327 (void) signal(SIGPIPE, lostconn); 328 329 if ((targ = colon(argv[argc - 1]))) /* Dest is remote host. */ 330 toremote(targ, argc, argv); 331 else { 332 tolocal(argc, argv); /* Dest is local host. */ 333 if (targetshouldbedirectory) 334 verifydir(argv[argc - 1]); 335 } 336 /* 337 * Finally check the exit status of the ssh process, if one was forked 338 * and no error has occured yet 339 */ 340 if (do_cmd_pid != -1 && errs == 0) { 341 if (remin != -1) 342 (void) close(remin); 343 if (remout != -1) 344 (void) close(remout); 345 if (waitpid(do_cmd_pid, &status, 0) == -1) 346 errs = 1; 347 else { 348 if (!WIFEXITED(status) || WEXITSTATUS(status) != 0) 349 errs = 1; 350 } 351 } 352 exit(errs != 0); 353 } 354 355 void 356 toremote(targ, argc, argv) 357 char *targ, *argv[]; 358 int argc; 359 { 360 int i, len; 361 char *bp, *host, *src, *suser, *thost, *tuser; 362 363 *targ++ = 0; 364 if (*targ == 0) 365 targ = "."; 366 367 if ((thost = strrchr(argv[argc - 1], '@'))) { 368 /* user@host */ 369 *thost++ = 0; 370 tuser = argv[argc - 1]; 371 if (*tuser == '\0') 372 tuser = NULL; 373 } else { 374 thost = argv[argc - 1]; 375 tuser = NULL; 376 } 377 378 for (i = 0; i < argc - 1; i++) { 379 src = colon(argv[i]); 380 if (src) { /* remote to remote */ 381 static char *ssh_options = 382 "-x -o'ClearAllForwardings yes'"; 383 *src++ = 0; 384 if (*src == 0) 385 src = "."; 386 host = strrchr(argv[i], '@'); 387 len = strlen(ssh_program) + strlen(argv[i]) + 388 strlen(src) + (tuser ? strlen(tuser) : 0) + 389 strlen(thost) + strlen(targ) + 390 strlen(ssh_options) + CMDNEEDS + 20; 391 bp = xmalloc(len); 392 if (host) { 393 *host++ = 0; 394 host = cleanhostname(host); 395 suser = argv[i]; 396 if (*suser == '\0') 397 suser = pwd->pw_name; 398 else if (!okname(suser)) { 399 xfree(bp); 400 continue; 401 } 402 if (tuser && !okname(tuser)) { 403 xfree(bp); 404 continue; 405 } 406 snprintf(bp, len, 407 "%s%s %s -n " 408 "-l %s %s %s %s '%s%s%s:%s'", 409 ssh_program, verbose_mode ? " -v" : "", 410 ssh_options, suser, host, cmd, src, 411 tuser ? tuser : "", tuser ? "@" : "", 412 thost, targ); 413 } else { 414 host = cleanhostname(argv[i]); 415 snprintf(bp, len, 416 "exec %s%s %s -n %s " 417 "%s %s '%s%s%s:%s'", 418 ssh_program, verbose_mode ? " -v" : "", 419 ssh_options, host, cmd, src, 420 tuser ? tuser : "", tuser ? "@" : "", 421 thost, targ); 422 } 423 if (verbose_mode) 424 fprintf(stderr, "Executing: %s\n", bp); 425 (void) system(bp); 426 (void) xfree(bp); 427 } else { /* local to remote */ 428 if (remin == -1) { 429 len = strlen(targ) + CMDNEEDS + 20; 430 bp = xmalloc(len); 431 (void) snprintf(bp, len, "%s -t %s", cmd, targ); 432 host = cleanhostname(thost); 433 if (do_cmd(host, tuser, bp, &remin, 434 &remout, argc) < 0) 435 exit(1); 436 if (response() < 0) 437 exit(1); 438 (void) xfree(bp); 439 } 440 source(1, argv + i); 441 } 442 } 443 } 444 445 void 446 tolocal(argc, argv) 447 int argc; 448 char *argv[]; 449 { 450 int i, len; 451 char *bp, *host, *src, *suser; 452 453 for (i = 0; i < argc - 1; i++) { 454 if (!(src = colon(argv[i]))) { /* Local to local. */ 455 len = strlen(_PATH_CP) + strlen(argv[i]) + 456 strlen(argv[argc - 1]) + 20; 457 bp = xmalloc(len); 458 (void) snprintf(bp, len, "exec %s%s%s %s %s", _PATH_CP, 459 iamrecursive ? " -r" : "", pflag ? " -p" : "", 460 argv[i], argv[argc - 1]); 461 if (verbose_mode) 462 fprintf(stderr, "Executing: %s\n", bp); 463 if (system(bp)) 464 ++errs; 465 (void) xfree(bp); 466 continue; 467 } 468 *src++ = 0; 469 if (*src == 0) 470 src = "."; 471 if ((host = strrchr(argv[i], '@')) == NULL) { 472 host = argv[i]; 473 suser = NULL; 474 } else { 475 *host++ = 0; 476 suser = argv[i]; 477 if (*suser == '\0') 478 suser = pwd->pw_name; 479 } 480 host = cleanhostname(host); 481 len = strlen(src) + CMDNEEDS + 20; 482 bp = xmalloc(len); 483 (void) snprintf(bp, len, "%s -f %s", cmd, src); 484 if (do_cmd(host, suser, bp, &remin, &remout, argc) < 0) { 485 (void) xfree(bp); 486 ++errs; 487 continue; 488 } 489 xfree(bp); 490 sink(1, argv + argc - 1); 491 (void) close(remin); 492 remin = remout = -1; 493 } 494 } 495 496 void 497 source(argc, argv) 498 int argc; 499 char *argv[]; 500 { 501 struct stat stb; 502 static BUF buffer; 503 BUF *bp; 504 off_t i, amt, result, statbytes; 505 int fd, haderr, indx; 506 char *last, *name, buf[2048]; 507 int len; 508 509 for (indx = 0; indx < argc; ++indx) { 510 name = argv[indx]; 511 statbytes = 0; 512 len = strlen(name); 513 while (len > 1 && name[len-1] == '/') 514 name[--len] = '\0'; 515 if (strchr(name, '\n') != NULL) { 516 run_err("%s: skipping, filename contains a newline", 517 name); 518 goto next; 519 } 520 if ((fd = open(name, O_RDONLY, 0)) < 0) 521 goto syserr; 522 if (fstat(fd, &stb) < 0) { 523 syserr: run_err("%s: %s", name, strerror(errno)); 524 goto next; 525 } 526 switch (stb.st_mode & S_IFMT) { 527 case S_IFREG: 528 break; 529 case S_IFDIR: 530 if (iamrecursive) { 531 rsource(name, &stb); 532 goto next; 533 } 534 /* FALLTHROUGH */ 535 default: 536 run_err("%s: not a regular file", name); 537 goto next; 538 } 539 if ((last = strrchr(name, '/')) == NULL) 540 last = name; 541 else 542 ++last; 543 curfile = last; 544 if (pflag) { 545 /* 546 * Make it compatible with possible future 547 * versions expecting microseconds. 548 */ 549 (void) snprintf(buf, sizeof buf, "T%lu 0 %lu 0\n", 550 (u_long) stb.st_mtime, 551 (u_long) stb.st_atime); 552 (void) atomicio(write, remout, buf, strlen(buf)); 553 if (response() < 0) 554 goto next; 555 } 556 #define FILEMODEMASK (S_ISUID|S_ISGID|S_IRWXU|S_IRWXG|S_IRWXO) 557 #ifdef HAVE_LONG_LONG_INT 558 snprintf(buf, sizeof buf, "C%04o %lld %s\n", 559 (u_int) (stb.st_mode & FILEMODEMASK), 560 (long long)stb.st_size, last); 561 #else 562 /* XXX: Handle integer overflow? */ 563 snprintf(buf, sizeof buf, "C%04o %lu %s\n", 564 (u_int) (stb.st_mode & FILEMODEMASK), 565 (u_long) stb.st_size, last); 566 #endif 567 if (verbose_mode) { 568 fprintf(stderr, "Sending file modes: %s", buf); 569 } 570 (void) atomicio(write, remout, buf, strlen(buf)); 571 if (response() < 0) 572 goto next; 573 if ((bp = allocbuf(&buffer, fd, 2048)) == NULL) { 574 next: (void) close(fd); 575 continue; 576 } 577 if (showprogress) 578 start_progress_meter(curfile, stb.st_size, &statbytes); 579 /* Keep writing after an error so that we stay sync'd up. */ 580 for (haderr = i = 0; i < stb.st_size; i += bp->cnt) { 581 amt = bp->cnt; 582 if (i + amt > stb.st_size) 583 amt = stb.st_size - i; 584 if (!haderr) { 585 result = atomicio(read, fd, bp->buf, amt); 586 if (result != amt) 587 haderr = result >= 0 ? EIO : errno; 588 } 589 if (haderr) 590 (void) atomicio(write, remout, bp->buf, amt); 591 else { 592 result = atomicio(write, remout, bp->buf, amt); 593 if (result != amt) 594 haderr = result >= 0 ? EIO : errno; 595 statbytes += result; 596 } 597 if (limitbw) 598 bwlimit(amt); 599 } 600 if (showprogress) 601 stop_progress_meter(); 602 603 if (close(fd) < 0 && !haderr) 604 haderr = errno; 605 if (!haderr) 606 (void) atomicio(write, remout, "", 1); 607 else 608 run_err("%s: %s", name, strerror(haderr)); 609 (void) response(); 610 } 611 } 612 613 void 614 rsource(name, statp) 615 char *name; 616 struct stat *statp; 617 { 618 DIR *dirp; 619 struct dirent *dp; 620 char *last, *vect[1], path[1100]; 621 622 if (!(dirp = opendir(name))) { 623 run_err("%s: %s", name, strerror(errno)); 624 return; 625 } 626 last = strrchr(name, '/'); 627 if (last == 0) 628 last = name; 629 else 630 last++; 631 if (pflag) { 632 (void) snprintf(path, sizeof(path), "T%lu 0 %lu 0\n", 633 (u_long) statp->st_mtime, 634 (u_long) statp->st_atime); 635 (void) atomicio(write, remout, path, strlen(path)); 636 if (response() < 0) { 637 closedir(dirp); 638 return; 639 } 640 } 641 (void) snprintf(path, sizeof path, "D%04o %d %.1024s\n", 642 (u_int) (statp->st_mode & FILEMODEMASK), 0, last); 643 if (verbose_mode) 644 fprintf(stderr, "Entering directory: %s", path); 645 (void) atomicio(write, remout, path, strlen(path)); 646 if (response() < 0) { 647 closedir(dirp); 648 return; 649 } 650 while ((dp = readdir(dirp)) != NULL) { 651 if (dp->d_ino == 0) 652 continue; 653 if (!strcmp(dp->d_name, ".") || !strcmp(dp->d_name, "..")) 654 continue; 655 if (strlen(name) + 1 + strlen(dp->d_name) >= sizeof(path) - 1) { 656 run_err("%s/%s: name too long", name, dp->d_name); 657 continue; 658 } 659 (void) snprintf(path, sizeof path, "%s/%s", name, dp->d_name); 660 vect[0] = path; 661 source(1, vect); 662 } 663 (void) closedir(dirp); 664 (void) atomicio(write, remout, "E\n", 2); 665 (void) response(); 666 } 667 668 void 669 bwlimit(int amount) 670 { 671 static struct timeval bwstart, bwend; 672 static int lamt, thresh = 16384; 673 u_int64_t wait; 674 struct timespec ts, rm; 675 676 if (!timerisset(&bwstart)) { 677 gettimeofday(&bwstart, NULL); 678 return; 679 } 680 681 lamt += amount; 682 if (lamt < thresh) 683 return; 684 685 gettimeofday(&bwend, NULL); 686 timersub(&bwend, &bwstart, &bwend); 687 if (!timerisset(&bwend)) 688 return; 689 690 lamt *= 8; 691 wait = (double)1000000L * lamt / limitbw; 692 693 bwstart.tv_sec = wait / 1000000L; 694 bwstart.tv_usec = wait % 1000000L; 695 696 if (timercmp(&bwstart, &bwend, >)) { 697 timersub(&bwstart, &bwend, &bwend); 698 699 /* Adjust the wait time */ 700 if (bwend.tv_sec) { 701 thresh /= 2; 702 if (thresh < 2048) 703 thresh = 2048; 704 } else if (bwend.tv_usec < 100) { 705 thresh *= 2; 706 if (thresh > 32768) 707 thresh = 32768; 708 } 709 710 TIMEVAL_TO_TIMESPEC(&bwend, &ts); 711 while (nanosleep(&ts, &rm) == -1) { 712 if (errno != EINTR) 713 break; 714 ts = rm; 715 } 716 } 717 718 lamt = 0; 719 gettimeofday(&bwstart, NULL); 720 } 721 722 void 723 sink(argc, argv) 724 int argc; 725 char *argv[]; 726 { 727 static BUF buffer; 728 struct stat stb; 729 enum { 730 YES, NO, DISPLAYED 731 } wrerr; 732 BUF *bp; 733 off_t i, j; 734 int amt, count, exists, first, mask, mode, ofd, omode; 735 off_t size, statbytes; 736 int setimes, targisdir, wrerrno = 0; 737 char ch, *cp, *np, *targ, *why, *vect[1], buf[2048]; 738 struct timeval tv[2]; 739 740 #define atime tv[0] 741 #define mtime tv[1] 742 #define SCREWUP(str) do { why = str; goto screwup; } while (0) 743 744 setimes = targisdir = 0; 745 mask = umask(0); 746 if (!pflag) 747 (void) umask(mask); 748 if (argc != 1) { 749 run_err("ambiguous target"); 750 exit(1); 751 } 752 targ = *argv; 753 if (targetshouldbedirectory) 754 verifydir(targ); 755 756 (void) atomicio(write, remout, "", 1); 757 if (stat(targ, &stb) == 0 && S_ISDIR(stb.st_mode)) 758 targisdir = 1; 759 for (first = 1;; first = 0) { 760 cp = buf; 761 if (atomicio(read, remin, cp, 1) <= 0) 762 return; 763 if (*cp++ == '\n') 764 SCREWUP("unexpected <newline>"); 765 do { 766 if (atomicio(read, remin, &ch, sizeof(ch)) != sizeof(ch)) 767 SCREWUP("lost connection"); 768 *cp++ = ch; 769 } while (cp < &buf[sizeof(buf) - 1] && ch != '\n'); 770 *cp = 0; 771 772 if (buf[0] == '\01' || buf[0] == '\02') { 773 if (iamremote == 0) 774 (void) atomicio(write, STDERR_FILENO, 775 buf + 1, strlen(buf + 1)); 776 if (buf[0] == '\02') 777 exit(1); 778 ++errs; 779 continue; 780 } 781 if (buf[0] == 'E') { 782 (void) atomicio(write, remout, "", 1); 783 return; 784 } 785 if (ch == '\n') 786 *--cp = 0; 787 788 cp = buf; 789 if (*cp == 'T') { 790 setimes++; 791 cp++; 792 mtime.tv_sec = strtol(cp, &cp, 10); 793 if (!cp || *cp++ != ' ') 794 SCREWUP("mtime.sec not delimited"); 795 mtime.tv_usec = strtol(cp, &cp, 10); 796 if (!cp || *cp++ != ' ') 797 SCREWUP("mtime.usec not delimited"); 798 atime.tv_sec = strtol(cp, &cp, 10); 799 if (!cp || *cp++ != ' ') 800 SCREWUP("atime.sec not delimited"); 801 atime.tv_usec = strtol(cp, &cp, 10); 802 if (!cp || *cp++ != '\0') 803 SCREWUP("atime.usec not delimited"); 804 (void) atomicio(write, remout, "", 1); 805 continue; 806 } 807 if (*cp != 'C' && *cp != 'D') { 808 /* 809 * Check for the case "rcp remote:foo\* local:bar". 810 * In this case, the line "No match." can be returned 811 * by the shell before the rcp command on the remote is 812 * executed so the ^Aerror_message convention isn't 813 * followed. 814 */ 815 if (first) { 816 run_err("%s", cp); 817 exit(1); 818 } 819 SCREWUP("expected control record"); 820 } 821 mode = 0; 822 for (++cp; cp < buf + 5; cp++) { 823 if (*cp < '0' || *cp > '7') 824 SCREWUP("bad mode"); 825 mode = (mode << 3) | (*cp - '0'); 826 } 827 if (*cp++ != ' ') 828 SCREWUP("mode not delimited"); 829 830 for (size = 0; isdigit(*cp);) 831 size = size * 10 + (*cp++ - '0'); 832 if (*cp++ != ' ') 833 SCREWUP("size not delimited"); 834 if (targisdir) { 835 static char *namebuf; 836 static int cursize; 837 size_t need; 838 839 need = strlen(targ) + strlen(cp) + 250; 840 if (need > cursize) { 841 if (namebuf) 842 xfree(namebuf); 843 namebuf = xmalloc(need); 844 cursize = need; 845 } 846 (void) snprintf(namebuf, need, "%s%s%s", targ, 847 strcmp(targ, "/") ? "/" : "", cp); 848 np = namebuf; 849 } else 850 np = targ; 851 curfile = cp; 852 exists = stat(np, &stb) == 0; 853 if (buf[0] == 'D') { 854 int mod_flag = pflag; 855 if (exists) { 856 if (!S_ISDIR(stb.st_mode)) { 857 errno = ENOTDIR; 858 goto bad; 859 } 860 if (pflag) 861 (void) chmod(np, mode); 862 } else { 863 /* Handle copying from a read-only 864 directory */ 865 mod_flag = 1; 866 if (mkdir(np, mode | S_IRWXU) < 0) 867 goto bad; 868 } 869 vect[0] = xstrdup(np); 870 sink(1, vect); 871 if (setimes) { 872 setimes = 0; 873 if (utimes(vect[0], tv) < 0) 874 run_err("%s: set times: %s", 875 vect[0], strerror(errno)); 876 } 877 if (mod_flag) 878 (void) chmod(vect[0], mode); 879 if (vect[0]) 880 xfree(vect[0]); 881 continue; 882 } 883 omode = mode; 884 mode |= S_IWRITE; 885 if ((ofd = open(np, O_WRONLY|O_CREAT, mode)) < 0) { 886 bad: run_err("%s: %s", np, strerror(errno)); 887 continue; 888 } 889 (void) atomicio(write, remout, "", 1); 890 if ((bp = allocbuf(&buffer, ofd, 4096)) == NULL) { 891 (void) close(ofd); 892 continue; 893 } 894 cp = bp->buf; 895 wrerr = NO; 896 897 statbytes = 0; 898 if (showprogress) 899 start_progress_meter(curfile, size, &statbytes); 900 for (count = i = 0; i < size; i += 4096) { 901 amt = 4096; 902 if (i + amt > size) 903 amt = size - i; 904 count += amt; 905 do { 906 j = read(remin, cp, amt); 907 if (j == -1 && (errno == EINTR || 908 errno == EAGAIN)) { 909 continue; 910 } else if (j <= 0) { 911 run_err("%s", j ? strerror(errno) : 912 "dropped connection"); 913 exit(1); 914 } 915 amt -= j; 916 cp += j; 917 statbytes += j; 918 } while (amt > 0); 919 920 if (limitbw) 921 bwlimit(4096); 922 923 if (count == bp->cnt) { 924 /* Keep reading so we stay sync'd up. */ 925 if (wrerr == NO) { 926 j = atomicio(write, ofd, bp->buf, count); 927 if (j != count) { 928 wrerr = YES; 929 wrerrno = j >= 0 ? EIO : errno; 930 } 931 } 932 count = 0; 933 cp = bp->buf; 934 } 935 } 936 if (showprogress) 937 stop_progress_meter(); 938 if (count != 0 && wrerr == NO && 939 (j = atomicio(write, ofd, bp->buf, count)) != count) { 940 wrerr = YES; 941 wrerrno = j >= 0 ? EIO : errno; 942 } 943 if (wrerr == NO && ftruncate(ofd, size) != 0) { 944 run_err("%s: truncate: %s", np, strerror(errno)); 945 wrerr = DISPLAYED; 946 } 947 if (pflag) { 948 if (exists || omode != mode) 949 #ifdef HAVE_FCHMOD 950 if (fchmod(ofd, omode)) 951 #else /* HAVE_FCHMOD */ 952 if (chmod(np, omode)) 953 #endif /* HAVE_FCHMOD */ 954 run_err("%s: set mode: %s", 955 np, strerror(errno)); 956 } else { 957 if (!exists && omode != mode) 958 #ifdef HAVE_FCHMOD 959 if (fchmod(ofd, omode & ~mask)) 960 #else /* HAVE_FCHMOD */ 961 if (chmod(np, omode & ~mask)) 962 #endif /* HAVE_FCHMOD */ 963 run_err("%s: set mode: %s", 964 np, strerror(errno)); 965 } 966 if (close(ofd) == -1) { 967 wrerr = YES; 968 wrerrno = errno; 969 } 970 (void) response(); 971 if (setimes && wrerr == NO) { 972 setimes = 0; 973 if (utimes(np, tv) < 0) { 974 run_err("%s: set times: %s", 975 np, strerror(errno)); 976 wrerr = DISPLAYED; 977 } 978 } 979 switch (wrerr) { 980 case YES: 981 run_err("%s: %s", np, strerror(wrerrno)); 982 break; 983 case NO: 984 (void) atomicio(write, remout, "", 1); 985 break; 986 case DISPLAYED: 987 break; 988 } 989 } 990 screwup: 991 run_err("protocol error: %s", why); 992 exit(1); 993 } 994 995 int 996 response(void) 997 { 998 char ch, *cp, resp, rbuf[2048]; 999 1000 if (atomicio(read, remin, &resp, sizeof(resp)) != sizeof(resp)) 1001 lostconn(0); 1002 1003 cp = rbuf; 1004 switch (resp) { 1005 case 0: /* ok */ 1006 return (0); 1007 default: 1008 *cp++ = resp; 1009 /* FALLTHROUGH */ 1010 case 1: /* error, followed by error msg */ 1011 case 2: /* fatal error, "" */ 1012 do { 1013 if (atomicio(read, remin, &ch, sizeof(ch)) != sizeof(ch)) 1014 lostconn(0); 1015 *cp++ = ch; 1016 } while (cp < &rbuf[sizeof(rbuf) - 1] && ch != '\n'); 1017 1018 if (!iamremote) 1019 (void) atomicio(write, STDERR_FILENO, rbuf, cp - rbuf); 1020 ++errs; 1021 if (resp == 1) 1022 return (-1); 1023 exit(1); 1024 } 1025 /* NOTREACHED */ 1026 } 1027 1028 void 1029 usage(void) 1030 { 1031 (void) fprintf(stderr, 1032 "usage: scp [-pqrvBC1246] [-F config] [-S program] [-P port]\n" 1033 " [-c cipher] [-i identity] [-l limit] [-o option]\n" 1034 " [[user@]host1:]file1 [...] [[user@]host2:]file2\n"); 1035 exit(1); 1036 } 1037 1038 void 1039 run_err(const char *fmt,...) 1040 { 1041 static FILE *fp; 1042 va_list ap; 1043 1044 ++errs; 1045 if (fp == NULL && !(fp = fdopen(remout, "w"))) 1046 return; 1047 (void) fprintf(fp, "%c", 0x01); 1048 (void) fprintf(fp, "scp: "); 1049 va_start(ap, fmt); 1050 (void) vfprintf(fp, fmt, ap); 1051 va_end(ap); 1052 (void) fprintf(fp, "\n"); 1053 (void) fflush(fp); 1054 1055 if (!iamremote) { 1056 va_start(ap, fmt); 1057 vfprintf(stderr, fmt, ap); 1058 va_end(ap); 1059 fprintf(stderr, "\n"); 1060 } 1061 } 1062 1063 void 1064 verifydir(cp) 1065 char *cp; 1066 { 1067 struct stat stb; 1068 1069 if (!stat(cp, &stb)) { 1070 if (S_ISDIR(stb.st_mode)) 1071 return; 1072 errno = ENOTDIR; 1073 } 1074 run_err("%s: %s", cp, strerror(errno)); 1075 exit(1); 1076 } 1077 1078 int 1079 okname(cp0) 1080 char *cp0; 1081 { 1082 int c; 1083 char *cp; 1084 1085 cp = cp0; 1086 do { 1087 c = (int)*cp; 1088 if (c & 0200) 1089 goto bad; 1090 if (!isalpha(c) && !isdigit(c)) { 1091 switch (c) { 1092 case '\'': 1093 case '"': 1094 case '`': 1095 case ' ': 1096 case '#': 1097 goto bad; 1098 default: 1099 break; 1100 } 1101 } 1102 } while (*++cp); 1103 return (1); 1104 1105 bad: fprintf(stderr, "%s: invalid user name\n", cp0); 1106 return (0); 1107 } 1108 1109 BUF * 1110 allocbuf(bp, fd, blksize) 1111 BUF *bp; 1112 int fd, blksize; 1113 { 1114 size_t size; 1115 #ifdef HAVE_STRUCT_STAT_ST_BLKSIZE 1116 struct stat stb; 1117 1118 if (fstat(fd, &stb) < 0) { 1119 run_err("fstat: %s", strerror(errno)); 1120 return (0); 1121 } 1122 size = roundup(stb.st_blksize, blksize); 1123 if (size == 0) 1124 size = blksize; 1125 #else /* HAVE_STRUCT_STAT_ST_BLKSIZE */ 1126 size = blksize; 1127 #endif /* HAVE_STRUCT_STAT_ST_BLKSIZE */ 1128 if (bp->cnt >= size) 1129 return (bp); 1130 if (bp->buf == NULL) 1131 bp->buf = xmalloc(size); 1132 else 1133 bp->buf = xrealloc(bp->buf, size); 1134 memset(bp->buf, 0, size); 1135 bp->cnt = size; 1136 return (bp); 1137 } 1138 1139 void 1140 lostconn(signo) 1141 int signo; 1142 { 1143 if (!iamremote) 1144 write(STDERR_FILENO, "lost connection\n", 16); 1145 if (signo) 1146 _exit(1); 1147 else 1148 exit(1); 1149 } 1150