1 /***********************************************************
2 * Rocks'n'Diamonds -- McDuffin Strikes Back! *
3 *----------------------------------------------------------*
4 * (c) 1995-2006 Artsoft Entertainment *
6 * Detmolder Strasse 189 *
9 * e-mail: info@artsoft.org *
10 *----------------------------------------------------------*
12 ***********************************************************/
14 #include "libgame/platform.h"
16 #if defined(NETWORK_AVALIABLE)
23 #if defined(TARGET_SDL)
26 #include <sys/socket.h>
27 #include <netinet/in.h>
28 #include <netinet/tcp.h>
29 #include <arpa/inet.h>
31 #include <sys/select.h> /* apparently needed for OS/2 port */
34 #include "libgame/libgame.h"
38 static int clients = 0;
39 static int onceonly = 0;
41 struct NetworkServerPlayerInfo
43 #if defined(TARGET_SDL)
51 struct NetworkServerPlayerInfo *next;
54 unsigned char readbuffer[MAX_BUFFER_SIZE];
55 unsigned char writbuffer[MAX_BUFFER_SIZE];
58 boolean action_received;
61 static struct NetworkServerPlayerInfo *first_player = NULL;
63 #define NEXT(player) ((player)->next ? (player)->next : first_player)
65 #if defined(TARGET_SDL)
66 /* TODO: peer address */
67 static TCPsocket lfd; /* listening socket */
68 static SDLNet_SocketSet fds; /* socket set */
70 static struct sockaddr_in saddr;
71 static int lfd; /* listening socket */
72 static fd_set fds; /* socket set */
76 static unsigned char realbuffer[512], *buffer = realbuffer + 4;
80 static unsigned int ServerFrameCounter = 0;
82 static void addtobuffer(struct NetworkServerPlayerInfo *player,
83 unsigned char *b, int len)
85 if (player->nwrite + len >= MAX_BUFFER_SIZE)
86 Error(ERR_EXIT_NETWORK_SERVER,
87 "internal error: network send buffer overflow");
89 memcpy(player->writbuffer + player->nwrite, b, len);
90 player->nwrite += len;
93 static void flushuser(struct NetworkServerPlayerInfo *player)
97 #if defined(TARGET_SDL)
98 SDLNet_TCP_Send(player->fd, player->writbuffer, player->nwrite);
100 if (write(player->fd, player->writbuffer, player->nwrite) == -1)
101 Error(ERR_WARN, "write() failed; %s", strerror(errno));
107 static void broadcast(struct NetworkServerPlayerInfo *except,
108 int len, int activeonly)
110 struct NetworkServerPlayerInfo *player;
112 realbuffer[0] = realbuffer[1] = realbuffer[2] = 0;
113 realbuffer[3] = (unsigned char)len;
114 for (player = first_player; player; player = player->next)
115 if (player != except && player->introduced &&
116 (player->active || !activeonly))
117 addtobuffer(player, realbuffer, 4 + len);
120 static void sendtoone(struct NetworkServerPlayerInfo *to, int len)
122 realbuffer[0] = realbuffer[1] = realbuffer[2] = 0;
123 realbuffer[3] = (unsigned char)len;
124 addtobuffer(to, realbuffer, 4 + len);
127 static void RemovePlayer(struct NetworkServerPlayerInfo *player)
129 struct NetworkServerPlayerInfo *v;
132 Error(ERR_NETWORK_SERVER, "dropping client %d (%s)",
133 player->number, player->player_name);
135 if (player == first_player)
136 first_player = player->next;
139 for (v = first_player; v; v = v->next)
141 if (v->next && v->next == player)
143 v->next = player->next;
149 #if defined(TARGET_SDL)
150 SDLNet_TCP_DelSocket(fds, player->fd);
151 SDLNet_TCP_Close(player->fd);
156 if (player->introduced)
158 buffer[0] = player->number;
159 buffer[1] = OP_PLAYER_DISCONNECTED;
160 broadcast(player, 2, 0);
166 if (onceonly && clients == 0)
170 Error(ERR_NETWORK_SERVER, "no clients left");
171 Error(ERR_NETWORK_SERVER, "aborting");
177 #if defined(TARGET_SDL)
178 static void AddPlayer(TCPsocket fd)
180 static void AddPlayer(int fd)
183 struct NetworkServerPlayerInfo *player, *v;
185 boolean again = TRUE;
187 player = checked_malloc(sizeof (struct NetworkServerPlayerInfo));
190 player->player_name[0] = 0;
191 player->next = first_player;
195 player->introduced = 0;
197 player->action_received = FALSE;
199 #if defined(TARGET_SDL)
200 SDLNet_TCP_AddSocket(fds, fd);
203 first_player = player;
214 if (v->number == nxn)
225 player->number = nxn;
226 #if !defined(TARGET_SDL)
228 Error(ERR_NETWORK_SERVER, "client %d connecting from %s",
229 nxn, inet_ntoa(saddr.sin_addr));
234 buffer[1] = OP_YOUR_NUMBER;
235 buffer[2] = player->number;
236 sendtoone(player, 3);
239 static void Handle_OP_PROTOCOL_VERSION(struct NetworkServerPlayerInfo *player,
243 buffer[2] != PROTOCOL_VERSION_1 ||
244 buffer[3] != PROTOCOL_VERSION_2)
247 Error(ERR_NETWORK_SERVER,
248 "client %d (%s) has wrong protocol version %d.%d.%d",
249 player->number, player->player_name, buffer[2], buffer[3], buffer[4]);
252 buffer[1] = OP_BAD_PROTOCOL_VERSION;
253 buffer[2] = PROTOCOL_VERSION_1;
254 buffer[3] = PROTOCOL_VERSION_2;
255 buffer[4] = PROTOCOL_VERSION_3;
256 sendtoone(player, 5);
259 RemovePlayer(player);
265 Error(ERR_NETWORK_SERVER,
266 "client %d (%s) uses protocol version %d.%d.%d",
267 player->number, player->player_name, buffer[2], buffer[3], buffer[4]);
271 static void Handle_OP_NUMBER_WANTED(struct NetworkServerPlayerInfo *player)
273 struct NetworkServerPlayerInfo *v;
274 int client_nr = player->number;
275 int nr_wanted = buffer[2];
279 Error(ERR_NETWORK_SERVER, "client %d (%s) wants to switch to # %d",
280 player->number, player->player_name, nr_wanted);
282 for (v = first_player; v; v = v->next)
284 if (v->number == nr_wanted)
294 Error(ERR_NETWORK_SERVER, "client %d (%s) switches to # %d",
295 player->number, player->player_name, nr_wanted);
296 else if (player->number == nr_wanted)
297 Error(ERR_NETWORK_SERVER, "client %d (%s) already has # %d",
298 player->number, player->player_name, nr_wanted);
300 Error(ERR_NETWORK_SERVER,
301 "client %d (%s) cannot switch (client %d already exists)",
302 player->number, player->player_name, nr_wanted);
306 player->number = nr_wanted;
308 buffer[0] = client_nr;
309 buffer[1] = OP_NUMBER_WANTED;
310 buffer[2] = nr_wanted;
311 buffer[3] = player->number;
314 sendtoone(player, 4);
317 broadcast(NULL, 4, 0);
320 static void Handle_OP_PLAYER_NAME(struct NetworkServerPlayerInfo *player,
323 struct NetworkServerPlayerInfo *v;
328 memcpy(player->player_name, &buffer[2], len-2);
329 player->player_name[len-2] = 0;
330 for (i = 0; i < len - 2; i++)
332 if (player->player_name[i] < ' ' ||
333 ((unsigned char)(player->player_name[i]) > 0x7e &&
334 (unsigned char)(player->player_name[i]) <= 0xa0))
336 player->player_name[i] = 0;
341 if (!player->introduced)
343 buffer[0] = player->number;
344 buffer[1] = OP_PLAYER_CONNECTED;
345 broadcast(player, 2, 0);
349 Error(ERR_NETWORK_SERVER, "client %d calls itself \"%s\"",
350 player->number, player->player_name);
351 buffer[1] = OP_PLAYER_NAME;
352 broadcast(player, len, 0);
354 if (!player->introduced)
356 for (v = first_player; v; v = v->next)
358 if (v != player && v->introduced)
360 buffer[0] = v->number;
361 buffer[1] = OP_PLAYER_CONNECTED;
362 sendtoone(player, 2);
363 buffer[1] = OP_PLAYER_NAME;
364 memcpy(&buffer[2], v->player_name, 14);
365 sendtoone(player, 2+strlen(v->player_name));
370 player->introduced = 1;
373 static void Handle_OP_START_PLAYING(struct NetworkServerPlayerInfo *player)
375 struct NetworkServerPlayerInfo *v, *w;
378 Error(ERR_NETWORK_SERVER,
379 "client %d (%s) starts game [level %d from leveldir %d (%s)]",
380 player->number, player->player_name,
381 (buffer[2] << 8) + buffer[3],
382 (buffer[4] << 8) + buffer[5],
385 for (w = first_player; w; w = w->next)
389 /* reset frame counter */
390 ServerFrameCounter = 0;
392 Error(ERR_NETWORK_SERVER, "resetting ServerFrameCounter to 0");
394 /* reset player actions */
395 for (v = first_player; v; v = v->next)
398 v->action_received = FALSE;
401 broadcast(NULL, 10 + strlen((char *)&buffer[10])+1, 0);
404 static void Handle_OP_PAUSE_PLAYING(struct NetworkServerPlayerInfo *player)
407 Error(ERR_NETWORK_SERVER, "client %d (%s) pauses game",
408 player->number, player->player_name);
409 broadcast(NULL, 2, 0);
412 static void Handle_OP_CONTINUE_PLAYING(struct NetworkServerPlayerInfo *player)
415 Error(ERR_NETWORK_SERVER, "client %d (%s) continues game",
416 player->number, player->player_name);
417 broadcast(NULL, 2, 0);
420 static void Handle_OP_STOP_PLAYING(struct NetworkServerPlayerInfo *player)
422 int cause_for_stopping = buffer[2];
425 Error(ERR_NETWORK_SERVER, "client %d (%s) stops game [%d]",
426 player->number, player->player_name, cause_for_stopping);
427 broadcast(NULL, 3, 0);
430 static void Handle_OP_MOVE_PLAYER(struct NetworkServerPlayerInfo *player)
432 struct NetworkServerPlayerInfo *v;
433 int last_client_nr = 0;
436 /* store player action */
437 for (v = first_player; v; v = v->next)
439 if (v->number == player->number)
441 v->action = buffer[2];
442 v->action_received = TRUE;
446 /* check if server received action from each player */
447 for (v = first_player; v; v = v->next)
449 if (!v->action_received)
452 if (v->number > last_client_nr)
453 last_client_nr = v->number;
456 /* initialize all player actions to zero */
457 for (i = 0; i < last_client_nr; i++)
460 /* broadcast actions of all players to all players */
461 for (v = first_player; v; v = v->next)
463 buffer[6 + v->number-1] = v->action;
465 v->action_received = FALSE;
468 buffer[2] = (unsigned char)((ServerFrameCounter >> 24) & 0xff);
469 buffer[3] = (unsigned char)((ServerFrameCounter >> 16) & 0xff);
470 buffer[4] = (unsigned char)((ServerFrameCounter >> 8) & 0xff);
471 buffer[5] = (unsigned char)((ServerFrameCounter >> 0) & 0xff);
473 broadcast(NULL, 6 + last_client_nr, 0);
476 Error(ERR_NETWORK_SERVER, "sending ServerFrameCounter value %d",
480 ServerFrameCounter++;
483 #if defined(TARGET_SDL)
484 /* the following is not used for a standalone server;
485 the pointer points to an integer containing the port-number */
486 int NetworkServerThread(void *ptr)
488 NetworkServer(*((int *) ptr), 0);
490 /* should never be reached */
495 void NetworkServer(int port, int serveronly)
498 struct NetworkServerPlayerInfo *player;
501 #if defined(TARGET_SDL)
506 struct protoent *tcpproto;
511 #if defined(PLATFORM_UNIX) && !defined(PLATFORM_NEXT)
512 struct sigaction sact;
516 port = DEFAULT_SERVER_PORT;
521 #if !defined(TARGET_SDL)
522 if ((tcpproto = getprotobyname("tcp")) != NULL)
523 tcp = tcpproto->p_proto;
526 #if defined(PLATFORM_UNIX)
527 #if defined(PLATFORM_NEXT)
528 signal(SIGPIPE, SIG_IGN);
530 sact.sa_handler = SIG_IGN;
531 sigemptyset(&sact.sa_mask);
533 sigaction(SIGPIPE, &sact, NULL);
537 #if defined(TARGET_SDL)
539 /* assume that SDL is already initialized */
541 if (SDLNet_Init() == -1)
542 Error(ERR_EXIT_NETWORK_SERVER, "SDLNet_Init() failed");
546 if (SDLNet_ResolveHost(&ip, NULL, port) == -1)
547 Error(ERR_EXIT_NETWORK_SERVER, "SDLNet_ResolveHost() failed");
549 lfd = SDLNet_TCP_Open(&ip);
551 Error(ERR_EXIT_NETWORK_SERVER, "SDLNet_TCP_Open() failed");
553 fds = SDLNet_AllocSocketSet(MAX_PLAYERS+1);
554 SDLNet_TCP_AddSocket(fds, lfd);
558 if ((lfd = socket(PF_INET, SOCK_STREAM, 0)) < 0)
559 Error(ERR_EXIT_NETWORK_SERVER, "socket() failed");
561 saddr.sin_family = AF_INET;
562 saddr.sin_addr.s_addr = htonl(INADDR_ANY);
563 saddr.sin_port = htons(port);
567 setsockopt(lfd, SOL_SOCKET, SO_REUSEADDR, (char *)&on, sizeof(int));
568 if (bind(lfd, (struct sockaddr *)&saddr, sizeof(saddr)) < 0)
569 Error(ERR_EXIT_NETWORK_SERVER, "bind() failed");
574 #if !defined(TARGET_SDL)
577 /* become a daemon, breaking all ties with the controlling terminal */
578 options.verbose = FALSE;
579 for (i = 0; i < 255; i++)
590 if (chdir("/") == -1)
591 Error(ERR_WARN, "chdir() failed; %s", strerror(errno));
593 /* open a fake stdin, stdout, stderr, just in case */
594 open("/dev/null", O_RDONLY);
595 open("/dev/null", O_WRONLY);
596 open("/dev/null", O_WRONLY);
602 Error(ERR_NETWORK_SERVER, "started up, listening on port %d", port);
603 Error(ERR_NETWORK_SERVER, "using protocol version %d.%d.%d",
604 PROTOCOL_VERSION_1, PROTOCOL_VERSION_2, PROTOCOL_VERSION_3);
611 for (player = first_player; player; player = player->next)
614 #if defined(TARGET_SDL)
615 if ((sl = SDLNet_CheckSockets(fds, 500000)) < 1)
617 Error(ERR_NETWORK_SERVER, SDLNet_GetError());
618 perror("SDLNet_CheckSockets");
625 player = first_player;
628 FD_SET(player->fd, &fds);
629 if (player->fd > mfd)
631 player = player->next;
636 if ((sl = select(mfd + 1, &fds, NULL, NULL, &tv)) < 0)
639 Error(ERR_EXIT_NETWORK_SERVER, "select() failed");
651 /* accept incoming connections */
652 #if defined(TARGET_SDL)
653 if (SDLNet_SocketReady(lfd))
657 newsock = SDLNet_TCP_Accept(lfd);
665 if (FD_ISSET(lfd, &fds))
670 slen = sizeof(saddr);
671 newfd = accept(lfd, (struct sockaddr *)&saddr, &slen);
675 Error(ERR_EXIT_NETWORK_SERVER, "accept() failed");
682 setsockopt(newfd, tcp, TCP_NODELAY, (char *)&on, sizeof(int));
690 player = first_player;
694 #if defined(TARGET_SDL)
695 if (SDLNet_SocketReady(player->fd))
697 if (FD_ISSET(player->fd, &fds))
700 #if defined(TARGET_SDL)
701 /* read only 1 byte, because SDLNet blocks when we want more than is
703 r = SDLNet_TCP_Recv(player->fd, player->readbuffer + player->nread, 1);
705 r = read(player->fd, player->readbuffer + player->nread,
706 MAX_BUFFER_SIZE - player->nread);
712 Error(ERR_NETWORK_SERVER, "EOF from client %d (%s)",
713 player->number, player->player_name);
714 RemovePlayer(player);
719 while (player->nread >= 4 && player->nread >= 4 + player->readbuffer[3])
721 len = player->readbuffer[3];
722 if (player->readbuffer[0] || player->readbuffer[1] || player->readbuffer[2])
725 Error(ERR_NETWORK_SERVER, "crap from client %d (%s)",
726 player->number, player->player_name);
727 RemovePlayer(player);
731 memcpy(buffer, &player->readbuffer[4], len);
732 player->nread -= 4 + len;
733 memmove(player->readbuffer, player->readbuffer + 4 + len, player->nread);
735 buffer[0] = player->number;
736 if (!player->introduced && buffer[1] != OP_PLAYER_NAME)
739 Error(ERR_NETWORK_SERVER, "!(client %d)->introduced && buffer[1]==%d (expected OP_PLAYER_NAME)", buffer[0], buffer[1]);
741 RemovePlayer(player);
749 Handle_OP_PLAYER_NAME(player, len);
752 case OP_PROTOCOL_VERSION:
753 Handle_OP_PROTOCOL_VERSION(player, len);
756 case OP_NUMBER_WANTED:
757 Handle_OP_NUMBER_WANTED(player);
760 case OP_START_PLAYING:
761 Handle_OP_START_PLAYING(player);
764 case OP_PAUSE_PLAYING:
765 Handle_OP_PAUSE_PLAYING(player);
768 case OP_CONTINUE_PLAYING:
769 Handle_OP_CONTINUE_PLAYING(player);
772 case OP_STOP_PLAYING:
773 Handle_OP_STOP_PLAYING(player);
777 Handle_OP_MOVE_PLAYER(player);
780 case OP_BROADCAST_MESSAGE:
783 Error(ERR_NETWORK_SERVER, "client %d (%s) sends message: %s",
784 player->number, player->player_name, &buffer[2]);
785 broadcast(player, len, 0);
790 Error(ERR_NETWORK_SERVER,
791 "unknown opcode %d from client %d (%s)",
792 buffer[0], player->number, player->player_name);
797 if (player && !interrupt)
798 player = player->next;
800 while (player && !interrupt);
804 #endif /* NETWORK_AVALIABLE */