/* net_udp6.c (description) Copyright (C) 1996-1997 Id Software, Inc. Copyright (C) 2000 Marcus Sundberg [mackan@stacken.kth.se] Copyright (C) 1999,2000 contributors of the QuakeForge project Please see the file "AUTHORS" for a list of contributors 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: Free Software Foundation, Inc. 59 Temple Place - Suite 330 Boston, MA 02111-1307, USA */ /* Sun's model_t in sys/model.h conflicts w/ Quake's model_t */ #define model_t quakeforgemodel_t #ifdef HAVE_CONFIG_H # include "config.h" #endif static __attribute__ ((used)) const char rcsid[] = "$Id$"; #ifdef HAVE_STRING_H # include #endif #ifdef HAVE_STRINGS_H # include #endif #ifdef HAVE_UNISTD_H # include #endif #ifdef HAVE_SYS_IOCTL_H # include #endif #ifdef HAVE_SYS_SOCKET_H # include #endif #ifdef HAVE_NETINET_IN_H # include #endif #ifdef HAVE_NETDB_H # include #endif #ifdef HAVE_ARPA_INET_H # include #endif #ifdef HAVE_SYS_FILIO_H # include #endif #ifdef NeXT # include #endif #ifdef _WIN32 # include # undef EWOULDBLOCK # define EWOULDBLOCK WSAEWOULDBLOCK # ifdef HAVE_IPV6 # include # undef IP_MULTICAST_IF # undef IP_MULTICAST_TTL # undef IP_MULTICAST_LOOP # undef IP_ADD_MEMBERSHIP # undef IP_DROP_MEMBERSHIP # define ip_mreq ip_mreq_icky_hack # include # undef ip_mreq # ifndef WINSOCK_API_LINKAGE # define WINSOCK_API_LINKAGE # endif # ifndef _WINSOCK2API_ # define _WINSOCK2API_ # endif # define _WINSOCKAPI_ # define HAVE_SOCKLEN_T # endif #endif #include #include #include #undef model_t #include "QF/dstring.h" #include "QF/msg.h" #include "QF/qargs.h" #include "QF/sys.h" #include "netchan.h" #ifndef MAXHOSTNAMELEN # define MAXHOSTNAMELEN 512 #endif #if defined(__GLIBC__) && !defined(s6_addr32) // glibc macro # define s6_addr32 in6_u.u6_addr32 # if ! __GLIBC_PREREQ (2,2) # define ss_family __ss_family # endif #endif static cvar_t *net_family; netadr_t net_from; netadr_t net_local_adr; netadr_t net_loopback_adr; int net_socket; static sizebuf_t _net_message_message; static qmsg_t _net_message = {0, 0, &_net_message_message}; qmsg_t *net_message = &_net_message; #define MAX_UDP_PACKET (MAX_MSGLEN*2) byte net_message_buffer[MAX_UDP_PACKET]; #ifdef _WIN32 WSADATA winsockdata; #endif typedef union address { struct sockaddr_storage ss; struct sockaddr sa; struct sockaddr_in s4; struct sockaddr_in6 s6; } AF_address_t; #undef SA_LEN #undef SS_LEN #ifdef HAVE_SA_LEN #define SA_LEN(sa) (sa)->sa_len #else #define SA_LEN(sa) (((sa)->sa_family == AF_INET6) \ ? sizeof(struct sockaddr_in6) \ : sizeof(struct sockaddr_in)) #endif #ifdef HAVE_SS_LEN #define SS_LEN(ss) (ss)->ss_len #else #define SS_LEN(ss) (((ss)->ss_family == AF_INET6) \ ? sizeof(struct sockaddr_in6) \ : sizeof(struct sockaddr_in)) #endif static void NetadrToSockadr (netadr_t *a, AF_address_t *s) { memset (s, 0, sizeof (*s)); switch (a->family) { case AF_INET: { Sys_MaskPrintf (SYS_NET, "err, converting v4 to v6...\n"); s->ss.ss_family = AF_INET6; s->s6.sin6_addr.s6_addr[10] = s->s6.sin6_addr.s6_addr[11] = 0xff; memcpy (&s->s6.sin6_addr.s6_addr[12], &a->ip, sizeof (s->s4.sin_addr)); s->s4.sin_port = a->port; #ifdef HAVE_SS_LEN s->ss.ss_len = sizeof (struct sockaddr_in6); #endif break; } case AF_INET6: { s->ss.ss_family = a->family; memcpy (&s->s6.sin6_addr, &a->ip, sizeof (s->s6.sin6_addr)); s->s6.sin6_port = a->port; #ifdef HAVE_SS_LEN s->ss.ss_len = sizeof (struct sockaddr_in6); #endif break; } default: Sys_MaskPrintf (SYS_NET, "%s: Unknown address family %d", __FUNCTION__, a->family); break; } } static void SockadrToNetadr (AF_address_t *s, netadr_t *a) { a->family = s->ss.ss_family; switch (a->family) { case AF_INET: { memcpy (a->ip, &(s->s4.sin_addr), sizeof (s->s4.sin_addr)); a->port = s->s4.sin_port; break; } case AF_INET6: { memcpy (a->ip, &(s->s6.sin6_addr), sizeof (s->s6.sin6_addr)); a->port = s->s6.sin6_port; break; } default: Sys_MaskPrintf (SYS_NET, "%s: Unknown address family 0x%x\n", __FUNCTION__, s->ss.ss_family); break; } } /* static qboolean NET_AdrIsLoopback (netadr_t a) { if (IN6_IS_ADDR_LOOPBACK ((struct in6_addr *) &a.ip)) return true; else if (IN6_IS_ADDR_V4MAPPED ((struct in6_addr *) &a.ip) && ((struct in_addr *) &a.ip[3])->s_addr == htonl (INADDR_LOOPBACK)) return true; return false; } */ qboolean NET_CompareBaseAdr (netadr_t a, netadr_t b) { if (memcmp (a.ip, b.ip, sizeof (a.ip)) == 0) return true; return false; } qboolean NET_CompareAdr (netadr_t a, netadr_t b) { if (memcmp (a.ip, b.ip, sizeof (a.ip)) == 0 && a.port == b.port) return true; return false; } const char * NET_AdrToString (netadr_t a) { static char s[64]; char base[64]; AF_address_t ss; /* Yes, this duplication is lame, but we want to know the real address family of the address so that we can know whether or not to put a bracket around it, and this is less ugly than trying to check the string returned from NET_BaseAdrToString() */ memset (&ss, 0, sizeof (ss)); NetadrToSockadr (&a, &ss); // Convert any "mapped" addresses back to v4 if (a.family == AF_INET6 && IN6_IS_ADDR_V4MAPPED (&(ss.s6.sin6_addr))) { #ifdef HAVE_SS_LEN ss.ss.ss_len = sizeof (ss.s4); #endif ss.ss.ss_family = AF_INET; memcpy (&(ss.s4.sin_addr), &ss.s6.sin6_addr.s6_addr[12], sizeof (ss.s4.sin_addr)); } if (getnameinfo (&ss.sa, SS_LEN(&ss.ss), base, sizeof (base), NULL, 0, NI_NUMERICHOST)) strcpy (base, ""); if (ss.ss.ss_family == AF_INET6) { sprintf (s, "[%s]:%d", base, ntohs (a.port)); } else { sprintf (s, "%s:%d", base, ntohs (a.port)); } return s; } const char * NET_BaseAdrToString (netadr_t a) { static char s[64]; AF_address_t ss; memset (&ss, 0, sizeof (ss)); NetadrToSockadr (&a, &ss); // Convert any "mapped" addresses back to v4 if (a.family == AF_INET6 && IN6_IS_ADDR_V4MAPPED (&(ss.s6.sin6_addr))) { #ifdef HAVE_SS_LEN ss.ss.ss_len = sizeof (ss.s4); #endif ss.ss.ss_family = AF_INET; memcpy (&(ss.s4.sin_addr), &ss.s6.sin6_addr.s6_addr[12], sizeof (ss.s4.sin_addr)); } if (getnameinfo (&ss.sa, SS_LEN(&ss.ss), s, sizeof (s), NULL, 0, NI_NUMERICHOST)) strcpy (s, ""); return s; } /* NET_StringToAdr idnewt idnewt:28000 192.246.40.70 192.246.40.70:28000 */ qboolean NET_StringToAdr (const char *s, netadr_t *a) { static dstring_t *copy; char *addrs, *space; char *ports = NULL; int err; struct addrinfo hints; struct addrinfo *resultp; AF_address_t addr; AF_address_t resadr; if (!copy) copy = dstring_new (); memset (&hints, 0, sizeof (hints)); hints.ai_socktype = SOCK_DGRAM; if (strchr (net_family->string, '6')) { hints.ai_family = AF_INET6; } else if (strchr (net_family->string, '4')) { hints.ai_family = AF_INET; } else { hints.ai_family = AF_UNSPEC; } dstring_copystr (copy, s); addrs = space = copy->str; if (*addrs == '[') { addrs++; for (; *space && *space != ']'; space++); if (!*space) { Sys_Printf ("NET_StringToAdr: invalid IPv6 address %s\n", s); return 0; } *space++ = '\0'; } for (; *space; space++) { if (*space == ':') { *space = '\0'; ports = space + 1; } } if ((err = getaddrinfo (addrs, ports, &hints, &resultp))) { // Error Sys_Printf ("NET_StringToAdr: string %s:\n%s\n", s, gai_strerror (err)); return 0; } switch (resultp->ai_family) { case AF_INET: // convert to ipv6 addr memset (&addr, 0, sizeof (addr)); memset (&resadr, 0, sizeof (resadr)); memcpy (&resadr.s4, resultp->ai_addr, sizeof (resadr.s4)); addr.ss.ss_family = AF_INET6; addr.s6.sin6_addr.s6_addr[10] = addr.s6.sin6_addr.s6_addr[11] = 0xff; memcpy (&(addr.s6.sin6_addr.s6_addr[12]), &resadr.s4.sin_addr, sizeof (resadr.s4.sin_addr)); addr.s6.sin6_port = resadr.s4.sin_port; break; case AF_INET6: memcpy (&addr, resultp->ai_addr, sizeof (addr.s6)); break; default: Sys_Printf ("NET_StringToAdr: string %s:\nprotocol family %d not " "supported\n", s, resultp->ai_family); return 0; } freeaddrinfo (resultp); SockadrToNetadr (&addr, a); Sys_MaskPrintf (SYS_NET, "Raw address: %s\n", NET_BaseAdrToString (*a)); return true; } qboolean NET_GetPacket (void) { int ret; unsigned int fromlen; AF_address_t from; fromlen = sizeof (from); memset (&from, 0, sizeof (from)); ret = recvfrom (net_socket, (void *) net_message_buffer, sizeof (net_message_buffer), 0, &from.sa, &fromlen); if (ret == -1) { #ifdef _WIN32 int err = WSAGetLastError (); if (err == WSAEMSGSIZE) { Sys_Printf ("Warning: Oversize packet from %s\n", NET_AdrToString (net_from)); return false; } #else // _WIN32 int err = errno; if (err == ECONNREFUSED) return false; #endif // _WIN32 if (err == EWOULDBLOCK) return false; Sys_Printf ("NET_GetPacket: %s\n", strerror (err)); return false; } SockadrToNetadr (&from, &net_from); _net_message_message.cursize = ret; if (ret == sizeof (net_message_buffer)) { Sys_Printf ("Oversize packet from %s\n", NET_AdrToString (net_from)); return false; } return ret; } void NET_SendPacket (int length, const void *data, netadr_t to) { int ret; AF_address_t addr; NetadrToSockadr (&to, &addr); ret = sendto (net_socket, data, length, 0, &addr.sa, SA_LEN (&addr.sa)); if (ret == -1) { #ifdef _WIN32 int err = WSAGetLastError (); if (err == WSAEADDRNOTAVAIL) Sys_Printf ("NET_SendPacket Warning: %i\n", err); #else /* _WIN32 */ int err = errno; if (err == ECONNREFUSED) return; #endif /* _WIN32 */ if (err == EWOULDBLOCK) return; Sys_Printf ("NET_SendPacket: %s\n", strerror (err)); } } static int UDP_OpenSocket (int port) { char Buf[BUFSIZ]; const char *Host, *Service; int newsocket, Error; struct sockaddr_in6 address; struct addrinfo hints, *res; #ifdef IPV6_V6ONLY int off = 0; #endif #ifdef _WIN32 #define ioctl ioctlsocket unsigned long _true = true; #else int _true = 1; #endif int i; if ((newsocket = socket (PF_INET6, SOCK_DGRAM, IPPROTO_UDP)) == -1) Sys_Error ("UDP_OpenSocket: socket: %s", strerror (errno)); if (ioctl (newsocket, FIONBIO, &_true) == -1) Sys_Error ("UDP_OpenSocket: ioctl FIONBIO: %s", strerror (errno)); memset (&address, 0, sizeof (address)); address.sin6_family = AF_INET6; memset (&hints, 0, sizeof (hints)); if (strchr (net_family->string, '6')) { hints.ai_family = AF_INET6; } else if (strchr (net_family->string, '4')) { hints.ai_family = AF_INET; } else { hints.ai_family = AF_UNSPEC; } hints.ai_socktype = SOCK_DGRAM; hints.ai_protocol = IPPROTO_UDP; hints.ai_flags = AI_PASSIVE; // ZOID -- check for interface binding option if ((i = COM_CheckParm ("-ip")) && i < com_argc) { Host = com_argv[i + 1]; } else { Host = "::0"; } Sys_MaskPrintf (SYS_NET, "Binding to IP address [%s]\n", Host); if (port == PORT_ANY) Service = NULL; else { sprintf (Buf, "%5d", port); Service = Buf; } if ((Error = getaddrinfo (Host, Service, &hints, &res))) Sys_Error ("UDP_OpenSocket: getaddrinfo: %s", gai_strerror (Error)); if ((newsocket = socket (res->ai_family, res->ai_socktype, res->ai_protocol)) == -1) Sys_Error ("UDP_OpenSocket: socket: %s", strerror (errno)); // FIONBIO sets non-blocking IO for this socket #ifdef _WIN32 if (ioctl (newsocket, FIONBIO, &_true) == -1) #else /* _WIN32 */ if (ioctl (newsocket, FIONBIO, (char *) &_true) == -1) #endif /* _WIN32 */ Sys_Error ("UDP_OpenSocket: ioctl FIONBIO: %s", strerror (errno)); // don't care about the result code #ifdef IPV6_V6ONLY setsockopt (newsocket, IPPROTO_IPV6, IPV6_V6ONLY, &off, sizeof (off)); #endif if (bind (newsocket, res->ai_addr, res->ai_addrlen) < 0) Sys_Error ("UDP_OpenSocket: bind: %s", strerror (errno)); freeaddrinfo (res); return newsocket; } static void NET_GetLocalAddress (void) { char buff[MAXHOSTNAMELEN]; socklen_t namelen; AF_address_t address; if (gethostname (buff, MAXHOSTNAMELEN) == -1) Sys_Error ("Net_GetLocalAddress: gethostname: %s", strerror (errno)); buff[MAXHOSTNAMELEN - 1] = 0; NET_StringToAdr (buff, &net_local_adr); namelen = sizeof (address); if (getsockname (net_socket, (struct sockaddr *) &address, &namelen) == -1) Sys_Error ("NET_GetLocalAddress: getsockname: %s", strerror (errno)); net_local_adr.port = address.s6.sin6_port; Sys_Printf ("IP address %s\n", NET_AdrToString (net_local_adr)); } void NET_Init (int port) { #ifdef _WIN32 int r; WORD wVersionRequested; wVersionRequested = MAKEWORD (1, 1); r = WSAStartup (MAKEWORD (1, 1), &winsockdata); if (r) Sys_Error ("Winsock initialization failed."); #endif /* _WIN32 */ net_family = Cvar_Get ("net_family", "unspecified", CVAR_ROM, 0, "Set the address family to ipv4, ipv6 or" " unspecified"); // open the single socket to be used for all communications net_socket = UDP_OpenSocket (port); // init the message buffer _net_message_message.maxsize = sizeof (net_message_buffer); _net_message_message.data = net_message_buffer; // determine my name & address NET_GetLocalAddress (); net_loopback_adr.ip[15] = 1; Sys_Printf ("UDP (IPv6) Initialized\n"); } void NET_Shutdown (void) { #ifdef _WIN32 closesocket (net_socket); WSACleanup (); #else close (net_socket); #endif }