#include <stdio.h>
#include <stdlib.h>
#include <fcntl.h>
#include <unistd.h>
#include <sys/socket.h>
#include <arpa/inet.h>
#include <netdb.h>
#include <string.h>
#include "hdhomerun_http.h"

#define HOST "google.com"
#define PAGE "/"
#define PORT 80
#define USERAGENT "SAGETV 1.0"

#define _MIN_(x, y) ((x) > (y) ? (y) : (x))
static char *get_ip(char *host, char *buf, int size)
{
  struct hostent *hent;
  char *ip = buf;
  memset(ip, 0, size);
  if ((hent = gethostbyname(host)) == NULL) {
    herror("Can't get IP");
    exit(1);
  }
  if (inet_ntop(AF_INET, (void *)hent->h_addr_list[0], ip, size) == NULL) {
    perror("Can't resolve host");
    exit(1);
  }
  return ip;
}

static char *build_get_query(char *host, char *page)
{
  char *query;
  char *getpage = page;
  char *tpl = "GET /%s HTTP/1.0\r\nHost: %s\r\nUser-Agent: %s\r\n\r\n";
  if (getpage[0] == '/') {
    getpage = getpage + 1;
  }
  // -5 is to consider the %s %s %s in tpl and the ending \0
  query = (char *)malloc(strlen(host) + strlen(getpage) + strlen(USERAGENT) +
                         strlen(tpl) - 5);
  sprintf(query, tpl, getpage, host, USERAGENT);
  return query;
}

int parse_http_page(char *host, char *page, parser_f parser, void *context)
{
  struct sockaddr_in *remote;
  int ret;
  char buf[BUFSIZ + 1];
  int sock;
  char *get;
  char ip[32];
  if ((sock = socket(AF_INET, SOCK_STREAM, IPPROTO_TCP)) < 0) {
    perror("Can't create TCP socket");
    return -1;
  }

  get_ip(host, ip, sizeof(ip));
  remote = (struct sockaddr_in *)malloc(sizeof(struct sockaddr_in *));
  remote->sin_family = AF_INET;
  ret = inet_pton(AF_INET, ip, (void *)(&(remote->sin_addr.s_addr)));
  if (ret < 0) {
    perror("Can't set remote->sin_addr.s_addr");
    return -1;
  } else if (ret == 0) {
    fprintf(stderr, "%s is not a valid IP address\n", ip);
    return -1;
  }
  remote->sin_port = htons(PORT);

  if (connect(sock, (struct sockaddr *)remote, sizeof(struct sockaddr)) < 0) {
    perror("Could not connect");
    return -1;
  }
  get = build_get_query(host, page);

  // send the query to the server
  int sent = 0;
  while (sent < strlen(get)) {
    ret = send(sock, get + sent, strlen(get) - sent, 0);
    if (ret == -1) {
      perror("Can't send query");
      break;
    }
    sent += ret;
  }

  // recieve page
  int remain = 0;
  while ((ret = recv(sock, buf + remain, BUFSIZ - remain, 0)) > 0) {
    int used_bytes = 0;
    if (parser != NULL && ret >= 0) {
      *(buf + remain + ret) = 0x0;
      used_bytes = parser(context, buf, ret + remain);
      remain = ret + remain - used_bytes;
      if (remain > 0)
        memcpy(buf, buf + used_bytes, remain);
    }
    if (used_bytes < 0)
      break;
  }
  free(get);
  free(remote);
  close(sock);
  return 1;
}

#ifdef HTTP_GET_APP
static void usage()
{
  fprintf(stderr,
          "USAGE: htmlget host [page]\n\
\thost: the website hostname. ex: coding.debuntu.org\n\
\tpage: the page to retrieve. ex: index.html, default: /\n");
}

static int noop_parser(void *context, char *buf, int bytes)
{
  printf("%s", buf);
  return bytes;
}

int main(int argc, char **argv)
{
  char *host;
  char *page;

  if (argc == 1) {
    usage();
    exit(2);
  }
  host = argv[1];
  if (argc > 2) {
    page = argv[2];
  } else {
    page = PAGE;
  }

  parse_http_page(host, page, noop_parser, NULL);
  return 0;
}

#endif