/* ftpget.c - Get a remote file from FTP.
 *
 * Copyright 2013 Ranjan Kumar <ranjankumar.bth@gmail.com>
 * Copyright 2013 Kyungwan Han <asura321@gmail.com>
 *
 * No Standard.
 * 
USE_FTPGET(NEWTOY(ftpget, "<2cvu:p:P#<0=21>65535", TOYFLAG_BIN))
USE_FTPGET(OLDTOY(ftpput, ftpget, TOYFLAG_BIN))

config FTPGET
  bool "ftpget/ftpput"
  default n
  help
    usage: ftpget [-cv] [-u USER -p PASSWORD -P PORT] HOST_NAME [LOCAL_FILENAME] REMOTE_FILENAME
    usage: ftpput [-v] [-u USER -p PASSWORD -P PORT] HOST_NAME [REMOTE_FILENAME] LOCAL_FILENAME

    ftpget - Get a remote file from FTP.
    ftpput - Upload a local file on remote machine through FTP.

    -c Continue previous transfer.
    -v Verbose.
    -u User name.
    -p Password.
    -P Port Number (default 21).
*/
#define FOR_ftpget
#include "toys.h"

GLOBALS(
  long port; //  char *port;
  char *password;
  char *username;

  FILE *sockfp;
  int c;
  int isget;
  char buf[sizeof(struct sockaddr_storage)];
)

#define DATACONNECTION_OPENED   125
#define FTPFILE_STATUSOKAY      150
#define FTP_COMMAND_OKAY        200
#define FTPFILE_STATUS          213
#define FTPSERVER_READY         220
#define CLOSE_DATACONECTION     226
#define PASSIVE_MODE            227
#define USERLOGGED_SUCCESS      230
#define PASSWORD_REQUEST        331
#define REQUESTED_PENDINGACTION 350


static void setport(unsigned port_num)
{
  int af = ((struct sockaddr *)TT.buf)->sa_family;

  if (af == AF_INET) ((struct sockaddr_in*)TT.buf)->sin_port = port_num;
  else if (af == AF_INET6) ((struct sockaddr_in6*)TT.buf)->sin6_port = port_num;
}

static int connect_to_stream()
{
  int sockfd, af = ((struct sockaddr *)TT.buf)->sa_family;

  sockfd = xsocket(af, SOCK_STREAM, 0);
  if (connect(sockfd, (struct sockaddr*)TT.buf,((af == AF_INET)? 
          sizeof(struct sockaddr_in):sizeof(struct sockaddr_in6))) < 0) {
    close(sockfd);
    perror_exit("can't connect to remote host");
  }
  return sockfd;
}

//close ftp connection and print the message.
static void close_stream(char *msg_str)
{
  char *str = toybuf; //toybuf holds response data.

  //Remove garbage chars (from ' ' space to '\x7f') DEL remote server response.
  while ((*str >= 0x20) && (*str < 0x7f)) str++; 
  *str = '\0';
  if (TT.sockfp) fclose(TT.sockfp);
  error_exit("%s server response: %s", (msg_str) ? msg_str:"", toybuf);
}

//send command to ftp and get return status.
static int get_ftp_response(char *command, char *param)
{
  unsigned cmd_status = 0;
  char *fmt = "%s %s\r\n";

  if (command) {
    if (!param) fmt += 3;
    fprintf(TT.sockfp, fmt, command, param);
    fflush(TT.sockfp);
    if (toys.optflags & FLAG_v) 
      fprintf(stderr, "FTP Request: %s %s\r\n", command, param);
  }

  do {
    if (!fgets(toybuf, sizeof(toybuf)-1, TT.sockfp)) close_stream(NULL);
  } while (!isdigit(toybuf[0]) || toybuf[3] != ' ');

  toybuf[3] = '\0';
  cmd_status = atolx_range(toybuf, 0, INT_MAX);
  toybuf[3] = ' ';
  return cmd_status;
}

static void send_requests(void)
{
  int cmd_status = 0;

  //FTP connection request.
  if (get_ftp_response(NULL, NULL) != FTPSERVER_READY) close_stream(NULL);

  //230 User authenticated, password please; 331 Password request.
  cmd_status = get_ftp_response("USER", TT.username);
  if (cmd_status == PASSWORD_REQUEST) { //user logged in. Need Password.
    if (get_ftp_response("PASS", TT.password) != USERLOGGED_SUCCESS) 
      close_stream("PASS");
  } else if (cmd_status == USERLOGGED_SUCCESS); //do nothing
  else close_stream("USER");
  //200 Type Binary. Command okay.
  if (get_ftp_response("TYPE I", NULL) != FTP_COMMAND_OKAY) 
    close_stream("TYPE I");
}

static void get_sockaddr(char *host)
{  
  struct addrinfo hints, *result;
  char port[6];
  int status;
  
  errno = 0;
  snprintf(port, 6, "%ld", TT.port);

  memset(&hints, 0 , sizeof(struct addrinfo));
  hints.ai_family = AF_UNSPEC;
  hints.ai_socktype = SOCK_STREAM;

  status = getaddrinfo(host, port, &hints, &result); 
  if (status) error_exit("bad address '%s' : %s", host, gai_strerror(status));

  memcpy(TT.buf, result->ai_addr, result->ai_addrlen);
  freeaddrinfo(result);
} 

// send commands to ftp fo PASV mode.
static void verify_pasv_mode(char *r_filename)
{
  char *pch;
  unsigned portnum;

  //vsftpd reply like:- "227 Entering Passive Mode (125,19,39,117,43,39)".
  if (get_ftp_response("PASV", NULL) != PASSIVE_MODE) goto close_stream;

  //Response is "NNN <some text> (N1,N2,N3,N4,P1,P2) garbage.
  //Server's IP is N1.N2.N3.N4
  //Server's port for data connection is P1*256+P2.
  if (!(pch = strrchr(toybuf, ')'))) goto close_stream;
  *pch = '\0';
  if (!(pch = strrchr(toybuf, ','))) goto close_stream;
  *pch = '\0';

  portnum = atolx_range(pch + 1, 0, 255);

  if (!(pch = strrchr(toybuf, ','))) goto close_stream;
  *pch = '\0';
  portnum = portnum + (atolx_range(pch + 1, 0, 255) * 256);
  setport(htons(portnum));

  if (TT.isget && get_ftp_response("SIZE", r_filename) != FTPFILE_STATUS)
    TT.c = 0;
  return;

close_stream:
  close_stream("PASV");
}

/*
 * verify the local file presence.
 * if present, get the size of the file.
 */
static void is_localfile_present(char *l_filename)
{
  struct stat sb;

  if (stat(l_filename, &sb) < 0) perror_exit("stat");
  //if local file present, then request for pending file action.
  if (sb.st_size > 0) {
    sprintf(toybuf, "REST %lu", (unsigned long) sb.st_size);
    if (get_ftp_response(toybuf, NULL) != REQUESTED_PENDINGACTION) TT.c = 0;
  } else TT.c = 0;
}

static void transfer_file(int local_fd, int remote_fd)
{
  int len, rfd = (TT.isget)?remote_fd:local_fd,
      wfd = (TT.isget)?local_fd:remote_fd;

  if (rfd < 0 || wfd < 0) error_exit("Error in file creation:");
  while ((len = xread(rfd, toybuf, sizeof(toybuf)))) xwrite(wfd, toybuf, len);
}

static void get_file(char *l_filename, char *r_filename)
{
  int local_fd = -1, remote_fd;

  verify_pasv_mode(r_filename);
  remote_fd = connect_to_stream(); //Connect to data socket.

  //if local file name will be '-' then local fd will be stdout.
  if ((l_filename[0] == '-') && !l_filename[1]) {
    local_fd = 1; //file descriptor will become stdout.
    TT.c = 0;
  }

  //if continue, check for local file existance.
  if (TT.c) is_localfile_present(l_filename);

  //verify the remote file presence.
  if (get_ftp_response("RETR", r_filename) > FTPFILE_STATUSOKAY) 
    close_stream("RETR");

  //if local fd is not stdout, create a file descriptor.
  if (local_fd == -1) {
    int flags = O_WRONLY;

    flags |= (TT.c)? O_APPEND : (O_CREAT | O_TRUNC);
    local_fd = xcreate((char *)l_filename, flags, 0666);
  }
  transfer_file(local_fd, remote_fd);
  xclose(remote_fd);
  xclose(local_fd);
  if (get_ftp_response(NULL, NULL) != CLOSE_DATACONECTION) close_stream(NULL);
  get_ftp_response("QUIT", NULL);
  toys.exitval = EXIT_SUCCESS;
}

static void put_file(char *r_filename, char *l_filename)
{
  int local_fd = 0, remote_fd;
  unsigned cmd_status = 0;

  verify_pasv_mode(r_filename);
  remote_fd = connect_to_stream(); //Connect to data socket.

  //open the local file for transfer.
  if ((l_filename[0] != '-') || l_filename[1]) 
    local_fd = xcreate((char *)l_filename, O_RDONLY, 0666);

  //verify for the remote file status, Ok or Open: transfer File.
  cmd_status = get_ftp_response("STOR", r_filename);
  if ( (cmd_status == DATACONNECTION_OPENED) || 
      (cmd_status == FTPFILE_STATUSOKAY)) {
    transfer_file(local_fd, remote_fd);
    if (get_ftp_response(NULL, NULL) != CLOSE_DATACONECTION) close_stream(NULL);
    get_ftp_response("QUIT", NULL);
    toys.exitval = EXIT_SUCCESS;
  } else {
    toys.exitval = EXIT_FAILURE;
    close_stream("STOR");
  }
  xclose(remote_fd);
  xclose(local_fd);
}

void ftpget_main(void)
{
  char **argv = toys.optargs; //host name + file name.

  TT.isget = toys.which->name[3] == 'g';
  TT.c = 1;
  //if user name is not specified.
  if (!(toys.optflags & FLAG_u) && (toys.optflags & FLAG_p)) 
    error_exit("Missing username:");
  //if user name and password is not specified in command line.
  if (!(toys.optflags & FLAG_u) && !(toys.optflags & FLAG_p))
    TT.username = TT.password ="anonymous";

  //if continue is not in the command line argument.
  if (TT.isget && !(toys.optflags & FLAG_c)) TT.c = 0;

  if (toys.optflags & FLAG_v) fprintf(stderr, "Connecting to %s\n", argv[0]);
  get_sockaddr(argv[0]);

  TT.sockfp = xfdopen(connect_to_stream(), "r+");
  send_requests();

  if (TT.isget) get_file(argv[1], argv[2] ? argv[2] : argv[1]); 
  else put_file(argv[1], argv[2] ? argv[2] : argv[1]);
}