networking/ftpgetput.c

   1 /* vi: set sw=4 ts=4: */
   2 /*
   3  * ftpget
   4  *
   5  * Mini implementation of FTP to retrieve a remote file.
   6  *
   7  * Copyright (C) 2002 Jeff Angielski, The PTR Group <jeff@theptrgroup.com>
   8  * Copyright (C) 2002 Glenn McGrath <bug1@iinet.net.au>
   9  *
  10  * Based on wget.c by Chip Rosenthal Covad Communications
  11  * <chip@laserlink.net>
  12  *
  13  * Licensed under GPLv2 or later, see file LICENSE in this tarball for details.
  14  */
  15
  16 #include "busybox.h"
  17 #include <getopt.h>
  18
  19 typedef struct ftp_host_info_s {
  20         char *user;
  21         char *password;
  22         struct sockaddr_in *s_in;
  23 } ftp_host_info_t;
  24
  25 static char verbose_flag = 0;
  26 static char do_continue = 0;
  27
  28 static int ftpcmd(const char *s1, const char *s2, FILE *stream, char *buf)
  29 {
  30         if (verbose_flag) {
  31                 bb_error_msg("cmd %s%s", s1, s2);
  32         }
  33
  34         if (s1) {
  35                 if (s2) {
  36                         fprintf(stream, "%s%s\r\n", s1, s2);
  37                 } else {
  38                         fprintf(stream, "%s\r\n", s1);
  39                 }
  40         }
  41         do {
  42                 char *buf_ptr;
  43
  44                 if (fgets(buf, 510, stream) == NULL) {
  45                         bb_perror_msg_and_die("fgets");
  46                 }
  47                 buf_ptr = strstr(buf, "\r\n");
  48                 if (buf_ptr) {
  49                         *buf_ptr = '\0';
  50                 }
  51         } while (!isdigit(buf[0]) || buf[3] != ' ');
  52
  53         return xatou(buf);
  54 }
  55
  56 static int xconnect_ftpdata(ftp_host_info_t *server, const char *buf)
  57 {
  58         char *buf_ptr;
  59         unsigned short port_num;
  60
  61         buf_ptr = strrchr(buf, ',');
  62         *buf_ptr = '\0';
  63         port_num = xatoul_range(buf_ptr + 1, 0, 255);
  64
  65         buf_ptr = strrchr(buf, ',');
  66         *buf_ptr = '\0';
  67         port_num += xatoul_range(buf_ptr + 1, 0, 255) * 256;
  68
  69         server->s_in->sin_port = htons(port_num);
  70         return xconnect_tcp_v4(server->s_in);
  71 }
  72
  73 static FILE *ftp_login(ftp_host_info_t *server)
  74 {
  75         FILE *control_stream;
  76         char buf[512];
  77
  78         /* Connect to the command socket */
  79         control_stream = fdopen(xconnect_tcp_v4(server->s_in), "r+");
  80         if (control_stream == NULL) {
  81                 bb_perror_msg_and_die("cannot open control stream");
  82         }
  83
  84         if (ftpcmd(NULL, NULL, control_stream, buf) != 220) {
  85                 bb_error_msg_and_die("%s", buf + 4);
  86         }
  87
  88         /*  Login to the server */
  89         switch (ftpcmd("USER ", server->user, control_stream, buf)) {
  90         case 230:
  91                 break;
  92         case 331:
  93                 if (ftpcmd("PASS ", server->password, control_stream, buf) != 230) {
  94                         bb_error_msg_and_die("PASS error: %s", buf + 4);
  95                 }
  96                 break;
  97         default:
  98                 bb_error_msg_and_die("USER error: %s", buf + 4);
  99         }
 100
 101         ftpcmd("TYPE I", NULL, control_stream, buf);
 102
 103         return(control_stream);
 104 }
 105
 106 #if !ENABLE_FTPGET
 107 int ftp_receive(ftp_host_info_t *server, FILE *control_stream,
 108                 const char *local_path, char *server_path);
 109 #else
 110 static
 111 int ftp_receive(ftp_host_info_t *server, FILE *control_stream,
 112                 const char *local_path, char *server_path)
 113 {
 114         char buf[512];
 115         off_t filesize = 0;
 116         int fd_data;
 117         int fd_local = -1;
 118         off_t beg_range = 0;
 119
 120         /* Connect to the data socket */
 121         if (ftpcmd("PASV", NULL, control_stream, buf) != 227) {
 122                 bb_error_msg_and_die("PASV error: %s", buf + 4);
 123         }
 124         fd_data = xconnect_ftpdata(server, buf);
 125
 126         if (ftpcmd("SIZE ", server_path, control_stream, buf) == 213) {
 127                 if (SAFE_STRTOOFF(buf + 4, &filesize))
 128                         bb_error_msg_and_die("SIZE error: %s", buf + 4);
 129         } else {
 130                 filesize = -1;
 131                 do_continue = 0;
 132         }
 133
 134         if ((local_path[0] == '-') && (local_path[1] == '\0')) {
 135                 fd_local = STDOUT_FILENO;
 136                 do_continue = 0;
 137         }
 138
 139         if (do_continue) {
 140                 struct stat sbuf;
 141                 if (lstat(local_path, &sbuf) < 0) {
 142                         bb_perror_msg_and_die("lstat");
 143                 }
 144                 if (sbuf.st_size > 0) {
 145                         beg_range = sbuf.st_size;
 146                 } else {
 147                         do_continue = 0;
 148                 }
 149         }
 150
 151         if (do_continue) {
 152                 sprintf(buf, "REST "OFF_FMT, beg_range);
 153                 if (ftpcmd(buf, NULL, control_stream, buf) != 350) {
 154                         do_continue = 0;
 155                 } else {
 156                         filesize -= beg_range;
 157                 }
 158         }
 159
 160         if (ftpcmd("RETR ", server_path, control_stream, buf) > 150) {
 161                 bb_error_msg_and_die("RETR error: %s", buf + 4);
 162         }
 163
 164         /* only make a local file if we know that one exists on the remote server */
 165         if (fd_local == -1) {
 166                 if (do_continue) {
 167                         fd_local = xopen(local_path, O_APPEND | O_WRONLY);
 168                 } else {
 169                         fd_local = xopen3(local_path, O_CREAT | O_TRUNC | O_WRONLY, 0666);
 170                 }
 171         }
 172
 173         /* Copy the file */
 174         if (filesize != -1) {
 175                 if (-1 == bb_copyfd_size(fd_data, fd_local, filesize))
 176                         exit(EXIT_FAILURE);
 177         } else {
 178                 if (-1 == bb_copyfd_eof(fd_data, fd_local))
 179                         exit(EXIT_FAILURE);
 180         }
 181
 182         /* close it all down */
 183         close(fd_data);
 184         if (ftpcmd(NULL, NULL, control_stream, buf) != 226) {
 185                 bb_error_msg_and_die("ftp error: %s", buf + 4);
 186         }
 187         ftpcmd("QUIT", NULL, control_stream, buf);
 188
 189         return(EXIT_SUCCESS);
 190 }
 191 #endif
 192
 193 #if !ENABLE_FTPPUT
 194 int ftp_send(ftp_host_info_t *server, FILE *control_stream,
 195                 const char *server_path, char *local_path);
 196 #else
 197 static
 198 int ftp_send(ftp_host_info_t *server, FILE *control_stream,
 199                 const char *server_path, char *local_path)
 200 {
 201         struct stat sbuf;
 202         char buf[512];
 203         int fd_data;
 204         int fd_local;
 205         int response;
 206
 207         /*  Connect to the data socket */
 208         if (ftpcmd("PASV", NULL, control_stream, buf) != 227) {
 209                 bb_error_msg_and_die("PASV error: %s", buf + 4);
 210         }
 211         fd_data = xconnect_ftpdata(server, buf);
 212
 213         /* get the local file */
 214         if ((local_path[0] == '-') && (local_path[1] == '\0')) {
 215                 fd_local = STDIN_FILENO;
 216         } else {
 217                 fd_local = xopen(local_path, O_RDONLY);
 218                 fstat(fd_local, &sbuf);
 219
 220                 sprintf(buf, "ALLO %lu", (unsigned long)sbuf.st_size);
 221                 response = ftpcmd(buf, NULL, control_stream, buf);
 222                 switch (response) {
 223                 case 200:
 224                 case 202:
 225                         break;
 226                 default:
 227                         close(fd_local);
 228                         bb_error_msg_and_die("ALLO error: %s", buf + 4);
 229                         break;
 230                 }
 231         }
 232         response = ftpcmd("STOR ", server_path, control_stream, buf);
 233         switch (response) {
 234         case 125:
 235         case 150:
 236                 break;
 237         default:
 238                 close(fd_local);
 239                 bb_error_msg_and_die("STOR error: %s", buf + 4);
 240         }
 241
 242         /* transfer the file  */
 243         if (bb_copyfd_eof(fd_local, fd_data) == -1) {
 244                 exit(EXIT_FAILURE);
 245         }
 246
 247         /* close it all down */
 248         close(fd_data);
 249         if (ftpcmd(NULL, NULL, control_stream, buf) != 226) {
 250                 bb_error_msg_and_die("error: %s", buf + 4);
 251         }
 252         ftpcmd("QUIT", NULL, control_stream, buf);
 253
 254         return(EXIT_SUCCESS);
 255 }
 256 #endif
 257
 258 #define FTPGETPUT_OPT_CONTINUE  1
 259 #define FTPGETPUT_OPT_VERBOSE   2
 260 #define FTPGETPUT_OPT_USER      4
 261 #define FTPGETPUT_OPT_PASSWORD  8
 262 #define FTPGETPUT_OPT_PORT      16
 263
 264 #if ENABLE_FEATURE_FTPGETPUT_LONG_OPTIONS
 265 static const struct option ftpgetput_long_options[] = {
 266         {"continue", 1, NULL, 'c'},
 267         {"verbose", 0, NULL, 'v'},
 268         {"username", 1, NULL, 'u'},
 269         {"password", 1, NULL, 'p'},
 270         {"port", 1, NULL, 'P'},
 271         {0, 0, 0, 0}
 272 };
 273 #else
 274 #define ftpgetput_long_options 0
 275 #endif
 276
 277 int ftpgetput_main(int argc, char **argv)
 278 {
 279         /* content-length of the file */
 280         unsigned opt;
 281         char *port = "ftp";
 282
 283         /* socket to ftp server */
 284         FILE *control_stream;
 285         struct sockaddr_in s_in;
 286
 287         /* continue a prev transfer (-c) */
 288         ftp_host_info_t *server;
 289
 290         int (*ftp_action)(ftp_host_info_t *, FILE *, const char *, char *) = NULL;
 291
 292         /* Check to see if the command is ftpget or ftput */
 293         if (ENABLE_FTPPUT && (!ENABLE_FTPGET || applet_name[3] == 'p')) {
 294                 ftp_action = ftp_send;
 295         }
 296         if (ENABLE_FTPGET && (!ENABLE_FTPPUT || applet_name[3] == 'g')) {
 297                 ftp_action = ftp_receive;
 298         }
 299
 300         /* Set default values */
 301         server = xmalloc(sizeof(ftp_host_info_t));
 302         server->user = "anonymous";
 303         server->password = "busybox@";
 304         verbose_flag = 0;
 305
 306         /*
 307          * Decipher the command line
 308          */
 309         if (ENABLE_FEATURE_FTPGETPUT_LONG_OPTIONS)
 310                 applet_long_options = ftpgetput_long_options;
 311
 312         opt = getopt32(argc, argv, "cvu:p:P:", &server->user, &server->password, &port);
 313
 314         /* Process the non-option command line arguments */
 315         if (argc - optind != 3) {
 316                 bb_show_usage();
 317         }
 318
 319         if (opt & FTPGETPUT_OPT_CONTINUE) {
 320                 do_continue = 1;
 321         }
 322         if (opt & FTPGETPUT_OPT_VERBOSE) {
 323                 verbose_flag = 1;
 324         }
 325
 326         /* We want to do exactly _one_ DNS lookup, since some
 327          * sites (i.e. ftp.us.debian.org) use round-robin DNS
 328          * and we want to connect to only one IP... */
 329         server->s_in = &s_in;
 330         bb_lookup_host(&s_in, argv[optind]);
 331         s_in.sin_port = bb_lookup_port(port, "tcp", 21);
 332         if (verbose_flag) {
 333                 printf("Connecting to %s[%s]:%d\n",
 334                                 argv[optind], inet_ntoa(s_in.sin_addr), ntohs(s_in.sin_port));
 335         }
 336
 337         /*  Connect/Setup/Configure the FTP session */
 338         control_stream = ftp_login(server);
 339
 340         return(ftp_action(server, control_stream, argv[optind + 1], argv[optind + 2]));
 341 }