/*
    CrossFire, A Multiplayer game for X-windows

    Copyright (C) 2001 Mark Wedel
    Copyright (C) 1992 Frank Tore Johansen

    This program is free software; you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
    the Free Software Foundation; either version 2 of the License, or
    (at your option) any later version.

    This program is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    GNU General Public License for more details.

    You should have received a copy of the GNU General Public License
    along with this program; if not, write to the Free Software
    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.

    The author can be reached via e-mail to <crossfire@schmorp.de>
*/

/**
 * \file
 * Socket general functions
 *
 * \date 2003-12-02
 *
 * Mainly deals with initialization and higher level socket
 * maintenance (checking for lost connections and if data has arrived.)
 * The reading of data is handled in ericserver.c
 */


#include <global.h>
#include <sproto.h>
#include <sys/types.h>
#include <sys/time.h>
#include <sys/socket.h>
#include <netinet/in.h>
#include <netdb.h>

#ifdef HAVE_UNISTD_H
# include <unistd.h>
#endif

#ifdef HAVE_ARPA_INET_H
# include <arpa/inet.h>
#endif
#include <newserver.h>

sockvec client_sockets;

/**
 * Initializes a connection. Really, it just sets up the data structure,
 * socket setup is handled elsewhere.  We do send a version to the
 * client.
 */
client_socket::client_socket (int fd, const char *peername)
: fd (fd), host (strdup (peername)),
  socket_ev (this, &client_socket::socket_cb)
{
  {
    struct linger linger_opt;

    linger_opt.l_onoff = 0;
    linger_opt.l_linger = 0;

    if (setsockopt (fd, SOL_SOCKET, SO_LINGER, &linger_opt, sizeof (struct linger)))
      LOG (llevError, "Cannot setsockopt(SO_LINGER): %s\n", strerror (errno));
  }

  {
    int bufsize = 65535;          /*Supposed absolute upper limit */
    int oldbufsize;
    int buflen = sizeof (int);

    if (fcntl (fd, F_SETFL, O_NONBLOCK) == -1)
      LOG (llevError, "InitConnection:  Error on fcntl.\n");

    if (getsockopt (fd, SOL_SOCKET, SO_SNDBUF, (char *) &oldbufsize, (socklen_t *) & buflen) == -1)
      oldbufsize = 0;

    if (oldbufsize < bufsize)
      if (setsockopt (fd, SOL_SOCKET, SO_SNDBUF, (char *) &bufsize, sizeof (&bufsize)))
        LOG (llevError, "InitConnection: setsockopt unable to set output buf size to %d\n", bufsize);

    buflen = sizeof (oldbufsize);
    getsockopt (fd, SOL_SOCKET, SO_SNDBUF, (char *) &oldbufsize, (socklen_t *) & buflen);
  }

  mapmode = Map0Cmd;
  darkness = 1;
  status = Ns_Add;
  mapx = 11;
  mapy = 11;
  itemcmd = 1;              /* Default is version item1 command */

  faces_sent_len = nrofpixmaps;
  faces_sent = (uint8 *)calloc (nrofpixmaps, sizeof (*faces_sent));
  if (!faces_sent)
    fatal (OUT_OF_MEMORY);

  /* Do this so we don't send a face command for the client for
   * this face.  Face 0 is sent to the client to say clear
   * face information.
   */
  faces_sent[0] = NS_FACESENT_FACE;

  socket_ev.fd (fd);

  // initialisation done, kick it!

  {
    packet sl;
    sl.printf ("version %d %d %s\n", VERSION_CS, VERSION_SC, VERSION_INFO);
    send_packet (sl);
    flush ();
  }

#if 0//TODO
  socket_info.nconns++;
  if (socket_info.nconns > cst_tot.max_conn) cst_tot.max_conn = socket_info.nconns;
  if (socket_info.nconns > cst_lst.max_conn) cst_lst.max_conn = socket_info.nconns;
#endif
}

client_socket::~client_socket ()
{
  status = Ns_Dead;
}

/** This sets up the socket and reads all the image information into memory. */
void
init_ericserver (void)
{
  struct sockaddr_in insock;
  struct linger linger_opt;

  memset (&cst_tot, 0, sizeof (CS_Stats));
  memset (&cst_lst, 0, sizeof (CS_Stats));
  cst_tot.time_start = time (NULL);
  cst_lst.time_start = time (NULL);

  LOG (llevDebug, "Initialize new client/server data\n");

  read_client_images ();
}


/*******************************************************************************
 *
 * Start of functions dealing with freeing of the data.
 *
 ******************************************************************************/

/** Free's all the memory that ericserver allocates. */
void
free_all_newserver (void)
{
  LOG (llevDebug, "Freeing all new client/server information.\n");
  free_socket_images ();
}

/**
 * Frees a socket.
 * Basically, all we need to do here is free all data structures that
 * might be associated with the socket.  It is up to the caller to
 * update the list
 */

void
free_newsocket (client_socket *ns)
{
  if (ns->fd >= 0)
    close (ns->fd);

  if (ns->stats.range)
    free (ns->stats.range);

  if (ns->stats.title)
    free (ns->stats.title);

  free (ns->host);

  ns->fd = -1;
  ns->stats.range = 0;
  ns->stats.title = 0;
  ns->host = 0;
}

/** Sends the 'goodbye' command to the player, and closes connection. */
void
final_free_player (player *pl)
{
  pl->socket->send_packet ("goodbye");
  free_newsocket (pl->socket);
  free_player (pl);
}

bool
add_client_socket (int fd, const char *peername)
{
  if (checkbanned (NULL, peername))
    {
      LOG (llevInfo, "Banned host tried to connect: [%s]\n", peername);
      return false;
    }
  else
    {
      client_socket *ns = new client_socket (dup (fd), peername);
      client_sockets.push_back (ns);
      return true;
    }
}