#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>
#include <string.h>
#include <signal.h>
#include <termios.h>

#include "utils.h"
#include "screen.h"
#include "buddies.h"
#include "parsecfg.h"
#include "lang.h"
#include "server.h"
#include "harddefines.h"
#include "socket.h"

int sock;

void sig_handler(int signum)
{
  switch (signum) {
  case SIGALRM:
    sk_send(sock, " ");
    break;

  case SIGTERM:
    bud_TerminateBuddies();
    scr_TerminateCurses();
    srv_setpresence(sock, "unavailable");
    close(sock);
    printf("Killed by SIGTERM\nBye!\n");
    exit(EXIT_SUCCESS);
    break;

  }
  signal(SIGALRM, sig_handler);
}

ssize_t my_getpass (char **passstr, size_t *n)
{
  struct termios orig, new;
  int nread;

  /* Turn echoing off and fail if we can't. */
  if (tcgetattr(fileno (stdin), &orig) != 0)
      return -1;
  new = orig;
  new.c_lflag &= ~ECHO;
  if (tcsetattr(fileno (stdin), TCSAFLUSH, &new) != 0)
      return -1;

  /* Read the password. */
  nread = getline(passstr, n, stdin);

  /* Restore terminal. */
  (void) tcsetattr(fileno (stdin), TCSAFLUSH, &orig);

  return nread;
}

void credits(void)
{
  printf(VERSION "\n");
  printf(EMAIL "\n");
}

int main(int argc, char **argv)
{
  //int i;
  char configFile[4096];
  //char *buffer;
  //char *secbuffer;
  char *username, *password, *resource;
  char *servername;
  char *idsession;
  char *portstring;
  int key;
  unsigned int port;
  unsigned int ping;
  int ret = 0;


  credits();

  /* SET THIS >0 TO ENABLE LOG */
  ut_InitDebug(1);

  lng_InitLanguage();

  ut_WriteLog("Setting signals handlers...\n");
  signal(SIGTERM, sig_handler);
  signal(SIGALRM, sig_handler);


  sprintf(configFile, "%s/.mcabberrc", getenv("HOME"));

  /* Proceso opciones de usuario */
  while (1) {
    int c = getopt(argc, argv, "hf:");
    if (c == -1) {
      break;
    } else
      switch (c) {
      case 'h':
	printf("Usage: %s [-f mcabberrc_file]\n\n", argv[0]);
        printf("Thanks to AjMacias for cabber!\n\n");
	return 0;
      case 'f':
	strncpy(configFile, optarg, 1024);
	break;
      }
  }

  ut_WriteLog("Setting config file: %s\n", configFile);


  /* Parsing config file... */
  ut_WriteLog("Parsing config file...\n");
  cfg_file(configFile);

  servername = cfg_read("server");
  username = cfg_read("username");
  password = cfg_read("password");
  resource = cfg_read("resource");

  if (!servername) {
      printf("Server name has not been specified in the config file!\n");
      return -1;
  }
  if (!username) {
      printf("User name has not been specified in the config file!\n");
      return -1;
  }
  if (!password) {
      char *p;
      size_t passsize = 64;
      printf("Please enter password: ");
      my_getpass(&password, &passsize);
      printf("\n");
      for (p = password; *p; p++);
      for ( ; p > password ; p--)
          if (*p == '\n' || *p == '\r') *p = 0;
  }

  /* Initialize N-Curses */
  ut_WriteLog("Initializing N-Curses...\n");
  scr_InitCurses();

  /* Connect to server */
  portstring = cfg_read("port");
  port = (portstring != NULL) ? atoi(portstring) : -1;

  ut_WriteLog("Connecting to server: %s:%d\n", servername, port);
  if ((sock = srv_connect(servername, port)) < 0) {
    ut_WriteLog("\terror!!!\n");
    fprintf(stderr, "Error connecting to (%s)\n", servername);
    scr_TerminateCurses();
    return -2;
  }

  ut_WriteLog("Sending login string...\n");
  if ((idsession = srv_login(sock, servername, username, password, 
                             resource)) == NULL) {

    ut_WriteLog("\terror!!!\n");
    fprintf(stderr, "Error sending login string...\n");
    scr_TerminateCurses();
    return -3;
  }
  ut_WriteLog("Connected to %s: %s\n", servername, idsession);
  free(idsession);

  ut_WriteLog("Requesting roster...\n");
  bud_InitBuddies(sock);

  ut_WriteLog("Sending presence...\n");
  srv_setpresence(sock, "Online!");


  ut_WriteLog("Drawing main window...\n");
  scr_DrawMainWindow();

  ping = 15;
  if (cfg_read("pinginterval"))
    ping = atoi(cfg_read("pinginterval"));

  ut_WriteLog("Ping interval stablished: %d secs\n", ping);

  ut_WriteLog("Entering into main loop...\n\n");
  ut_WriteLog("Ready to send/receive messages...\n");

  while (ret != 255) {
    int x;
    alarm(ping);
    x = check_io(sock, 0);
    if ((x & 1) == 1) {
      srv_msg *incoming = readserver(sock);

      switch (incoming->m) {
      case SM_PRESENCE:
	bud_SetBuddyStatus(incoming->from, incoming->connected);
	break;

      case SM_MESSAGE:
	scr_WriteIncomingMessage(incoming->from, incoming->body);
	free(incoming->body);
	free(incoming->from);
	break;

      case SM_UNHANDLED:
	break;
      }
      free(incoming);
    }
    if ((x & 2) == 2) {
      keypad(scr_GetInputWindow(), TRUE);
      key = scr_Getch();
      ret = process_key(key, sock);
      /*
      switch (key) {
      case KEY_IC:
	bud_AddBuddy(sock);
	break;
      case KEY_DC:
	bud_DeleteBuddy(sock);
	break;
      case KEY_DOWN:
	bud_RosterDown();
	break;
      case KEY_UP:
	bud_RosterUp();
	break;

      case KEY_RESIZE:
	endwin();
	printf("\nRedimensionado no implementado\n");
	printf("Reinicie Cabber.\n\n\n");
	exit(EXIT_FAILURE);
	break;

      case 'z':
      case KEY_F(1):
	buffer = (char *) calloc(1, 4096);
	secbuffer = (char *) calloc(1, 4096);

	sprintf(secbuffer, "INS   = %s ", i18n("Add contact"));
	i = strlen(secbuffer);
	strcpy(buffer, secbuffer);
	sprintf(secbuffer, "DEL   = %s ", i18n("Delete contact"));
	strcat(buffer, secbuffer);
	sprintf(secbuffer, "SPACE = %s ", i18n("View buddy window"));
	strcat(buffer, secbuffer);
	sprintf(secbuffer, "INTRO = %s ", i18n("Send message"));
	strcat(buffer, secbuffer);
	sprintf(secbuffer, "ESC   = %s ", i18n("Exit"));
	strcat(buffer, secbuffer);

	scr_CreatePopup(i18n("help"), buffer, i, 0, NULL);
	free(buffer);
	free(secbuffer);
	break;

      case '\n':
	scr_WriteMessage(sock);
	break;

      case ' ':
	scr_ShowBuddyWindow();
	break;
      }
      */
    }
  }

  bud_TerminateBuddies();
  scr_TerminateCurses();

  srv_setpresence(sock, "unavailable");

  close(sock);

  printf("\n\nHave a nice day!\nBye!\n");

  return 0;
}