/*!
 * \file client.c
 *
 * \author Christos Choutouridis AEM:8997 <cchoutou@ece.auth.gr>
 */

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <unistd.h>
#include <time.h>
#include <sys/select.h>
#include <fcntl.h>
#include <errno.h>

#include "client.h"

char_t tx_buffer [MSG_TEXT_SIZE];

static bool_t ping (devAEM_t dev) {
   char_t cmd[72];
   devIP_t ip  = AEM2ip (dev);

   // ask host to ping and make a little pre-process before take the answer
   sprintf (cmd,
      "test $(ping -c1 -w%d %u.%u.%u.%u| grep received |cut -d' ' -f4) = 1",
      (int)settings.pingTimeout, ip.A, ip.B, ip.C, ip.D
   );
   return (system(cmd) == 0) ? true:false;
}

static size_t seeker (void) {
   size_t cnt =0;                         // count devices on range
   log_debug ("Debug: Pinging devices...\n");
   for (int i=0 ; i<AEMLIST_SIZE ; ++i) {
      if (devList[i].dev == settings.me) {// Don't ping me, I'm not here, go away...
         devList[i].onRange = false;
         continue;
      }
      if (ping (devList[i].dev)) {        // Noc noc....
         devList[i].onRange = true;       // Who's there?
         ++cnt;                           // No one, bye bye!
         if (!devList[i].begin)
            devList[i].begin = time(NULL);
         devList[i].end = time(NULL);
         log_debug ("Debug: Device %u found\n", devList[i].dev);
      }
      else
         devList[i].onRange = false;      // Where is everybody?
   }
   log_debug ("Debug: %d devices found\n", cnt);
   return cnt;
}

static bool_t sendMsg (devAEM_t dev, cMsg_t* msg) {
   int sock;
   sockaddr_in_t srvAddr;
   timeval_t timeout = settings.sendTimeout;
   long arg;
   bool_t ret = true;      // have faith

   // Make address
   memset(&srvAddr, 0, sizeof (srvAddr));
   srvAddr.sin_family= AF_INET;
   srvAddr.sin_port= htons (settings.port);
   srvAddr.sin_addr.s_addr = htonl (devAEM2addr (dev));
   devIP_t ip  = AEM2ip (dev);

   // Create socket for sending
   if ((sock = socket (PF_INET, SOCK_STREAM, 0)) == -1)
      return false;
   log_debug ("Debug: Socket for sending to %u.%u.%u.%u created\n", ip.A, ip.B, ip.C, ip.D);
   do {
      // Set non-blocking connect
      if((arg = fcntl(sock, F_GETFL, NULL)) < 0) {
         ret = false;
         log_debug ("Debug: Reading socket's file status failed\n");
         break;
      }
      if(fcntl(sock, F_SETFL, arg | O_NONBLOCK) < 0) {
         ret = false;
         log_debug ("Debug: Set socket to non-blocking mode failed\n");
         break;
      }
      log_debug ("Debug: Socket switched to non-blocking mode\n");

      // Trying to connect with timeout
      log_debug ("Debug: Try to connect with timeout\n");
      if (connect (sock, (sockaddr_t*)&srvAddr, sizeof(srvAddr)) == -1) {
         if (errno == EINPROGRESS) {
            fd_set myset;
            FD_ZERO (&myset);
            FD_SET (sock, &myset);
            if (select (sock+1, NULL, &myset, NULL, &timeout) <= 0) {
               ret = false;
               log_debug ("Debug: Connection failed in select()\n");
               break;
            }
            // Socket selected for write
            int valopt;
            socklen_t lon = sizeof(int);
            if (getsockopt(sock, SOL_SOCKET, SO_ERROR, (void*)(&valopt), &lon) < 0) {
               ret = false;
               log_debug ("Debug: Reading socket's options failed\n");
               break;
            }
            // Check the value returned...
            if (valopt) {
               ret = false;
               log_debug ("Debug: Delayed connection failed\n");
               break;
            }
         }
         else {
            ret = false;
            log_debug ("Debug: Connection failed in select()\n");
            break;
         }
      }
      log_debug ("Debug: Connection to %u.%u.%u.%u succeed\n", ip.A, ip.B, ip.C, ip.D);

      // Set to blocking mode again...
      if( (arg = fcntl(sock, F_GETFL, NULL)) < 0) {
         ret = false;
         log_debug ("Debug: Reading socket's file status failed\n");
         break;
      }
      arg &= (~O_NONBLOCK);
      if( fcntl(sock, F_SETFL, arg) < 0) {
         ret = false;
         log_debug ("Debug: Set socket back to blocking mode failed\n");
         break;
      }
      log_debug ("Debug: Socket switched to blocking mode\n");

      // send the data with timeout
      if (setsockopt (sock, SOL_SOCKET, SO_SNDTIMEO, (void*)&timeout, sizeof(timeout)) == -1) {
         ret = false;
         log_debug ("Debug: Setting send timeout failed\n");
         break;
      }
      log_debug ("Debug: Setting send timeout succeed\n");
      size_t len = cMsg_cat (msg, tx_buffer);
      if (send (sock, tx_buffer, len, MSG_CONFIRM) == -1) {
         ret =  false;
         log_debug ("Debug: Sending failed\n");
         break;
      }
      log_debug ("Debug: Sending succeed\n");
   } while (0);

   close (sock);
   log_debug ("Debug: Closing socket\n");
   return ret;
}

static status_t client (void) {
   msg_t msg;                                   // new message buffer
   while (true) {
      sleep (settings.msgInterval);             // Idle until the time comes
      memset ((void*)&msg, 0, sizeof (msg));    // create a new message
      cMsg_make (&msg.cMsg);
      msg.sender = settings.me;
      log_msg_new (&msg);

      statsUpdateCreate (&msg);

      msgList_acquire ();                       // try to lock resources
      mIter_t at = msgList_add (&msgList, &msg); // Add message to msgList
      log_debug ("Debug: Message added to msgList at %d\n", at);

      if (!seeker ()) {                         // If we are alone skip the rest
         msgList_release ();                    // but unlock resources first
         continue;
      }
      log_debug ("Debug: Devices found on range\n");

      mIter_t it = msgList_begin (&msgList);    // get a message iterator
                                                // begin with old messages first
      // for each message -> for each recipient
      for (size_t i=0 ; i<msgList_size(&msgList) ; ++i, msgList_preInc (&it)) {
         for (size_t j=0 ; j<AEMLIST_SIZE ; ++j) {
            // check when to send
            if (devList[j].onRange              // is on range
             && !msgList.m[it].recipients[j]    // we haven't send the message to that device
             && msgList.m[it].cMsg.to != settings.me // the message it's not for me
            ) {
               if (sendMsg (devList[j].dev, &msgList.m[it].cMsg)) {
                  msgList.m[it].recipients[j] = true;
                  statsUpdateOut (&msg, devList[j].dev);
                  log_debug ("Debug: Send message to device %u succeed\n", devList[j].dev);
               }
               else {
                  log_debug ("Debug: Send message to device %u failed\n", devList[j].dev);
               }
               //^ we try to send the message and mark the transmission on success
               // if send fail, don't worry it may succeed the next time.
            }
         }
      }
      msgList_release ();                       // Unlock resources
      if (statsPrint (&stats) == MSG_ERROR)
         log_error ("Error: Writing to statistics file failed\n");
   }
   return MSG_ERROR;
}

void* pthClient (void* ptr) {
   (void)&ptr;    // use parameter

   if (client () == MSG_ERROR)
      exit(1);    // we should not be here, client never returns
   return NULL;
}