server/socket/init.C

/*
    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 <netinet/tcp.h>
#include <netinet/ip.h>
#include <netdb.h>

#include <unistd.h>
#include <arpa/inet.h>

#include <algorithm>

sockvec clients;

/**
 * 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::client (int fd, const char *peername)
: fd (fd), host (strdup (peername)),
  socket_ev (this, &client::socket_cb),
  cmd_ev    (this, &client::cmd_cb),
  cc_inv (this), cc_other (this)
{
  {
    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, "SO_LINGER: %s\n", strerror (errno));
  }

  {
    int val = IPTOS_LOWDELAY;

    if (setsockopt (fd, IPPROTO_IP, IP_TOS, &val, sizeof (val)))
      LOG (llevError, "IP_TOS: %s\n", strerror (errno));
  }

  {
    int val = 1;

    if (setsockopt (fd, IPPROTO_TCP, TCP_NODELAY, &val, sizeof (val)))
      LOG (llevError, "TCP_NODELAY: %s\n", strerror (errno));
  }

#ifdef __linux__
  {
     int val;

     // set some very aggressive keepalive parameters
     val = 10;
     if (setsockopt (fd, IPPROTO_TCP, TCP_KEEPIDLE, &val, sizeof (val)))
       LOG (llevError, "TCP_KEEPIDLE: %s\n", strerror (errno));

     val = 5;
     if (setsockopt (fd, IPPROTO_TCP, TCP_KEEPCNT, &val, sizeof (val)))
       LOG (llevError, "TCP_KEEPCNT: %s\n", strerror (errno));

     val = 1;
     if (setsockopt (fd, IPPROTO_TCP, TCP_KEEPINTVL, &val, sizeof (val)))
       LOG (llevError, "TCP_KEEPINTVL: %s\n", strerror (errno));
  }
#endif

  {
    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);
  }

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

  faces_sent = salloc0<uint8> (nrofpixmaps);

  /* 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 I/O is low priority
  // we prefer to have the server run instead of handling client requests
  socket_ev.prio (PE_PRIO_NORMAL + 1);
  socket_ev.fd (fd);
  socket_ev.poll (PE_R);

  // command handling is even lower priority
  // that way no client can monopolise the server
  cmd_ev.prio (PE_PRIO_NORMAL + 2);

  // initialisation done, kick it!
  send_packet_printf ("version %d %d %s\n", VERSION_CS, VERSION_SC, VERSION_INFO);
  flush ();

  // clients are externally referenced by the socket
  refcnt_inc ();
  clients.push_back (this);

#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::~client ()
{
  sfree<uint8> (faces_sent, nrofpixmaps);
  free (stats.range);
  free (stats.title);
  free (host);
}

void
client::do_destroy ()
{
  attachable::do_destroy ();

  sockvec::iterator i = find (clients.begin (), clients.end (), this);
  if (i != clients.end ())
    clients.erase (i);

  if (pl)
    pl->disconnect ();

  if (fd >= 0)
    close (fd);

  state = ST_DEAD;

  socket_ev.suspend ();
  cmd_ev.suspend ();

  // socket now longer references us
  refcnt_dec ();
}

/** This sets up the socket and reads all the image information into memory. */
void
init_ericserver (void)
{
  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 ();
}

client *
client::create (int fd, const char *peername)
{
  if (checkbanned (NULL, peername))
    {
      LOG (llevInfo, "Banned host tried to connect: [%s]\n", peername);
      return 0;
    }
  else
    {
      client *ns = new client (dup (fd), peername);

      ns->instantiate (); // effectively a nop right now

      INVOKE_CLIENT (CONNECT, ns);

      return ns;
    }
}

Revision:	1.31
Committed:	Mon Dec 25 11:25:50 2006 UTC (19 years, 8 months ago) by root
Content type:	text/plain
Branch:	MAIN
Changes since 1.30:	+21 -15 lines
Log Message:	- small, but subtle, rewrite of object management - perl will now keep attachable objects alive - objects are now refcounted - refcouts need to be tested explicitly (refcnt_chk) - explicit destroy is required current - explicit destroy asks "nicely" for the object to self destruct, if possible - refcounts will be used during mortal killing - minor bugfixes, optimisations etc. - some former hacks removed.
#	User	Rev	Content
1	elmex	1.1	/*
2			CrossFire, A Multiplayer game for X-windows
3
4			Copyright (C) 2001 Mark Wedel
5			Copyright (C) 1992 Frank Tore Johansen
6
7			This program is free software; you can redistribute it and/or modify
8			it under the terms of the GNU General Public License as published by
9			the Free Software Foundation; either version 2 of the License, or
10			(at your option) any later version.
11
12			This program is distributed in the hope that it will be useful,
13			but WITHOUT ANY WARRANTY; without even the implied warranty of
14			MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15			GNU General Public License for more details.
16
17			You should have received a copy of the GNU General Public License
18			along with this program; if not, write to the Free Software
19			Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
20
21	root	1.8	The author can be reached via e-mail to <crossfire@schmorp.de>
22	elmex	1.1	*/
23
24			/**
25			* \file
26			* Socket general functions
27			*
28			* \date 2003-12-02
29			*
30			* Mainly deals with initialization and higher level socket
31			* maintenance (checking for lost connections and if data has arrived.)
32			* The reading of data is handled in ericserver.c
33			*/
34
35			#include <global.h>
36	root	1.11	#include <sproto.h>
37	pippijn	1.10	#include <sys/types.h>
38			#include <sys/time.h>
39			#include <sys/socket.h>
40			#include <netinet/in.h>
41	root	1.23	#include <netinet/tcp.h>
42			#include <netinet/ip.h>
43	pippijn	1.10	#include <netdb.h>
44	elmex	1.1
45	root	1.19	#include <unistd.h>
46			#include <arpa/inet.h>
47	elmex	1.1
48	root	1.31	#include <algorithm>
49
50	root	1.20	sockvec clients;
51	elmex	1.1
52			/**
53			* Initializes a connection. Really, it just sets up the data structure,
54			* socket setup is handled elsewhere. We do send a version to the
55			* client.
56			*/
57	root	1.20	client::client (int fd, const char *peername)
58	root	1.17	: fd (fd), host (strdup (peername)),
59	root	1.21	socket_ev (this, &client::socket_cb),
60	root	1.26	cmd_ev (this, &client::cmd_cb),
61			cc_inv (this), cc_other (this)
62	elmex	1.1	{
63	root	1.16	{
64			struct linger linger_opt;
65
66			linger_opt.l_onoff = 0;
67			linger_opt.l_linger = 0;
68
69			if (setsockopt (fd, SOL_SOCKET, SO_LINGER, &linger_opt, sizeof (struct linger)))
70	root	1.23	LOG (llevError, "SO_LINGER: %s\n", strerror (errno));
71	root	1.16	}
72
73			{
74	root	1.23	int val = IPTOS_LOWDELAY;
75
76			if (setsockopt (fd, IPPROTO_IP, IP_TOS, &val, sizeof (val)))
77			LOG (llevError, "IP_TOS: %s\n", strerror (errno));
78			}
79
80			{
81			int val = 1;
82
83			if (setsockopt (fd, IPPROTO_TCP, TCP_NODELAY, &val, sizeof (val)))
84			LOG (llevError, "TCP_NODELAY: %s\n", strerror (errno));
85			}
86
87			#ifdef __linux__
88			{
89			int val;
90
91			// set some very aggressive keepalive parameters
92			val = 10;
93			if (setsockopt (fd, IPPROTO_TCP, TCP_KEEPIDLE, &val, sizeof (val)))
94			LOG (llevError, "TCP_KEEPIDLE: %s\n", strerror (errno));
95
96			val = 5;
97			if (setsockopt (fd, IPPROTO_TCP, TCP_KEEPCNT, &val, sizeof (val)))
98			LOG (llevError, "TCP_KEEPCNT: %s\n", strerror (errno));
99
100			val = 1;
101			if (setsockopt (fd, IPPROTO_TCP, TCP_KEEPINTVL, &val, sizeof (val)))
102			LOG (llevError, "TCP_KEEPINTVL: %s\n", strerror (errno));
103			}
104			#endif
105
106			{
107	root	1.16	int bufsize = 65535; /Supposed absolute upper limit /
108			int oldbufsize;
109			int buflen = sizeof (int);
110
111			if (fcntl (fd, F_SETFL, O_NONBLOCK) == -1)
112			LOG (llevError, "InitConnection: Error on fcntl.\n");
113
114			if (getsockopt (fd, SOL_SOCKET, SO_SNDBUF, (char ) &oldbufsize, (socklen_t ) & buflen) == -1)
115			oldbufsize = 0;
116
117			if (oldbufsize < bufsize)
118			if (setsockopt (fd, SOL_SOCKET, SO_SNDBUF, (char *) &bufsize, sizeof (&bufsize)))
119			LOG (llevError, "InitConnection: setsockopt unable to set output buf size to %d\n", bufsize);
120
121			buflen = sizeof (oldbufsize);
122			getsockopt (fd, SOL_SOCKET, SO_SNDBUF, (char ) &oldbufsize, (socklen_t ) & buflen);
123			}
124	elmex	1.1
125	root	1.28	state = ST_SETUP;
126	root	1.15	mapmode = Map0Cmd;
127			darkness = 1;
128			mapx = 11;
129			mapy = 11;
130			itemcmd = 1; /* Default is version item1 command */
131	root	1.12
132	root	1.27	faces_sent = salloc0<uint8> (nrofpixmaps);
133	root	1.16
134	root	1.7	/* Do this so we don't send a face command for the client for
135			* this face. Face 0 is sent to the client to say clear
136			* face information.
137			*/
138	root	1.15	faces_sent[0] = NS_FACESENT_FACE;
139	root	1.7
140	root	1.21	// socket I/O is low priority
141			// we prefer to have the server run instead of handling client requests
142			socket_ev.prio (PE_PRIO_NORMAL + 1);
143	root	1.18	socket_ev.fd (fd);
144	root	1.21	socket_ev.poll (PE_R);
145
146			// command handling is even lower priority
147			// that way no client can monopolise the server
148			cmd_ev.prio (PE_PRIO_NORMAL + 2);
149	root	1.15
150	root	1.16	// initialisation done, kick it!
151	root	1.21	send_packet_printf ("version %d %d %s\n", VERSION_CS, VERSION_SC, VERSION_INFO);
152			flush ();
153	root	1.13
154	root	1.31	// clients are externally referenced by the socket
155			refcnt_inc ();
156			clients.push_back (this);
157
158	root	1.16	#if 0//TODO
159			socket_info.nconns++;
160			if (socket_info.nconns > cst_tot.max_conn) cst_tot.max_conn = socket_info.nconns;
161			if (socket_info.nconns > cst_lst.max_conn) cst_lst.max_conn = socket_info.nconns;
162			#endif
163	elmex	1.1	}
164
165	root	1.20	client::~client ()
166	root	1.16	{
167	root	1.25	sfree<uint8> (faces_sent, nrofpixmaps);
168	root	1.22	free (stats.range);
169			free (stats.title);
170			free (host);
171	root	1.21	}
172
173			void
174	root	1.31	client::do_destroy ()
175	root	1.21	{
176	root	1.31	attachable::do_destroy ();
177
178			sockvec::iterator i = find (clients.begin (), clients.end (), this);
179			if (i != clients.end ())
180			clients.erase (i);
181
182			if (pl)
183			pl->disconnect ();
184
185			if (fd >= 0)
186			close (fd);
187	root	1.29
188	root	1.28	state = ST_DEAD;
189	root	1.27
190	root	1.21	socket_ev.suspend ();
191			cmd_ev.suspend ();
192	root	1.31
193			// socket now longer references us
194			refcnt_dec ();
195	root	1.16	}
196	elmex	1.1
197			/** This sets up the socket and reads all the image information into memory. */
198	root	1.7	void
199			init_ericserver (void)
200	elmex	1.1	{
201	root	1.7	cst_tot.time_start = time (NULL);
202			cst_lst.time_start = time (NULL);
203	elmex	1.1
204	root	1.7	LOG (llevDebug, "Initialize new client/server data\n");
205	root	1.11
206	root	1.7	read_client_images ();
207	elmex	1.1	}
208
209
210			/*******************************************************************************
211			*
212			* Start of functions dealing with freeing of the data.
213			*
214			******************************************************************************/
215
216			/** Free's all the memory that ericserver allocates. */
217	root	1.7	void
218			free_all_newserver (void)
219			{
220			LOG (llevDebug, "Freeing all new client/server information.\n");
221			free_socket_images ();
222	elmex	1.1	}
223
224	root	1.27	client *
225			client::create (int fd, const char *peername)
226	root	1.16	{
227			if (checkbanned (NULL, peername))
228			{
229			LOG (llevInfo, "Banned host tried to connect: [%s]\n", peername);
230	root	1.27	return 0;
231	root	1.16	}
232			else
233			{
234	root	1.20	client *ns = new client (dup (fd), peername);
235	root	1.27
236			ns->instantiate (); // effectively a nop right now
237
238			INVOKE_CLIENT (CONNECT, ns);
239
240			return ns;
241	root	1.16	}
242			}
243