29bcfc142e4a3b81a30399b24f4659d9f0e3b393
[tinc] / src / netutl.c
1 /*
2     netutl.c -- some supporting network utility code
3     Copyright (C) 1998-2002 Ivo Timmermans <itimmermans@bigfoot.com>
4                   2000-2002 Guus Sliepen <guus@sliepen.warande.net>
5
6     This program is free software; you can redistribute it and/or modify
7     it under the terms of the GNU General Public License as published by
8     the Free Software Foundation; either version 2 of the License, or
9     (at your option) any later version.
10
11     This program is distributed in the hope that it will be useful,
12     but WITHOUT ANY WARRANTY; without even the implied warranty of
13     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
14     GNU General Public License for more details.
15
16     You should have received a copy of the GNU General Public License
17     along with this program; if not, write to the Free Software
18     Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
19
20     $Id: netutl.c,v 1.12.4.36 2002/06/05 00:25:54 guus Exp $
21 */
22
23 #include "config.h"
24
25 #include <fcntl.h>
26 #include <netdb.h>
27 #include <netinet/in.h>
28 #include <stdio.h>
29 #include <stdlib.h>
30 #ifndef HAVE_NETBSD
31  #include <stdint.h>
32 #endif
33 #include <string.h>
34 #include <signal.h>
35 #include <sys/socket.h>
36 #include <syslog.h>
37 #include <arpa/inet.h>
38
39 #include <utils.h>
40 #include <xalloc.h>
41
42 #include "errno.h"
43 #include "conf.h"
44 #include "net.h"
45 #include "netutl.h"
46
47 #include "system.h"
48
49 int hostnames = 0;
50
51 /*
52   Turn a string into a struct addrinfo.
53   Return NULL on failure.
54 */
55 struct addrinfo *str2addrinfo(char *address, char *service, int socktype)
56 {
57   struct addrinfo hint, *ai;
58   int err;
59 cp
60   memset(&hint, 0, sizeof(hint));
61
62   hint.ai_family = addressfamily;
63   hint.ai_socktype = socktype;
64
65   if((err = getaddrinfo(address, service, &hint, &ai)))
66     {
67       if(debug_lvl >= DEBUG_ERROR)
68         syslog(LOG_WARNING, _("Error looking up %s port %s: %s\n"), address, service, gai_strerror(err));
69       cp_trace();
70       return NULL;
71     }
72
73 cp
74   return ai;
75 }
76
77 sockaddr_t str2sockaddr(char *address, char *port)
78 {
79   struct addrinfo hint, *ai;
80   sockaddr_t result;
81   int err;
82 cp
83   memset(&hint, 0, sizeof(hint));
84
85   hint.ai_family = AF_UNSPEC;
86   hint.ai_flags = AI_NUMERICHOST;
87   hint.ai_socktype = SOCK_STREAM;
88
89   if((err = getaddrinfo(address, port, &hint, &ai) || !ai))
90     {
91       syslog(LOG_ERR, _("Error looking up %s port %s: %s\n"), address, port, gai_strerror(err));
92       cp_trace();
93       raise(SIGFPE);
94       exit(0);
95     }
96
97   result = *(sockaddr_t *)ai->ai_addr;
98   freeaddrinfo(ai);
99 cp
100   return result;
101 }
102
103 void sockaddr2str(sockaddr_t *sa, char **addrstr, char **portstr)
104 {
105   char address[NI_MAXHOST];
106   char port[NI_MAXSERV];
107   char *scopeid;
108   int err;
109 cp
110   if((err = getnameinfo(&sa->sa, SALEN(sa->sa), address, sizeof(address), port, sizeof(port), NI_NUMERICHOST|NI_NUMERICSERV)))
111     {
112       syslog(LOG_ERR, _("Error while translating addresses: %s"), gai_strerror(err));
113       cp_trace();
114       raise(SIGFPE);
115       exit(0);
116     }
117
118 #ifdef HAVE_LINUX
119   if((scopeid = strchr(address, '%')))
120     *scopeid = '\0';  /* Descope. */
121 #endif
122
123   *addrstr = xstrdup(address);
124   *portstr = xstrdup(port);
125 cp
126 }
127
128 char *sockaddr2hostname(sockaddr_t *sa)
129 {
130   char *str;
131   char address[NI_MAXHOST] = "unknown";
132   char port[NI_MAXSERV] = "unknown";
133   int err;
134 cp
135   if((err = getnameinfo(&sa->sa, SALEN(sa->sa), address, sizeof(address), port, sizeof(port), hostnames?0:(NI_NUMERICHOST|NI_NUMERICSERV))))
136     {
137       syslog(LOG_ERR, _("Error while looking up hostname: %s"), gai_strerror(err));
138     }
139
140   asprintf(&str, _("%s port %s"), address, port);
141 cp
142   return str;
143 }
144
145 int sockaddrcmp(sockaddr_t *a, sockaddr_t *b)
146 {
147   int result;
148 cp
149   result = a->sa.sa_family - b->sa.sa_family;
150   
151   if(result)
152     return result;
153   
154   switch(a->sa.sa_family)
155     {
156       case AF_UNSPEC:
157         return 0;
158       case AF_INET:
159         result = memcmp(&a->in.sin_addr, &b->in.sin_addr, sizeof(a->in.sin_addr));
160         if(result)
161           return result;
162         return memcmp(&a->in.sin_port, &b->in.sin_port, sizeof(a->in.sin_port));
163       case AF_INET6:
164         result = memcmp(&a->in6.sin6_addr, &b->in6.sin6_addr, sizeof(a->in6.sin6_addr));
165         if(result)
166           return result;
167         return memcmp(&a->in6.sin6_port, &b->in6.sin6_port, sizeof(a->in6.sin6_port));
168       default:
169         syslog(LOG_ERR, _("sockaddrcmp() was called with unknown address family %d, exitting!"), a->sa.sa_family);
170         cp_trace();
171         raise(SIGFPE);
172         exit(0);
173     }
174 cp
175 }
176
177 void sockaddrunmap(sockaddr_t *sa)
178 {
179   if(sa->sa.sa_family == AF_INET6 && IN6_IS_ADDR_V4MAPPED(&sa->in6.sin6_addr))
180     {
181       sa->in.sin_addr.s_addr = ((uint32_t *)&sa->in6.sin6_addr)[3];
182       sa->in.sin_family = AF_INET;
183     }
184 }
185
186 /* Subnet mask handling */
187
188 int maskcmp(char *a, char *b, int masklen, int len)
189 {
190   int i, m, result;
191 cp
192   for(m = masklen, i = 0; m >= 8; m -= 8, i++)
193     if((result = a[i] - b[i]))
194       return result;
195
196   if(m)
197     return (a[i] & (0x100 - (1 << (8 - m)))) - (b[i] & (0x100 - (1 << (8 - m))));
198
199   return 0;
200 }
201
202 void mask(char *a, int masklen, int len)
203 {
204   int i;
205 cp
206   i = masklen / 8;
207   masklen %= 8;
208   
209   if(masklen)
210     a[i++] &= (0x100 - (1 << masklen));
211   
212   for(; i < len; i++)
213     a[i] = 0;
214 }
215
216 void maskcpy(char *a, char *b, int masklen, int len)
217 {
218   int i, m;
219 cp
220   for(m = masklen, i = 0; m >= 8; m -= 8, i++)
221     a[i] = b[i];
222
223   if(m)
224     {
225       a[i] = b[i] & (0x100 - (1 << m));
226       i++;
227     }
228
229   for(; i < len; i++)
230     a[i] = 0;
231 }
232
233 int maskcheck(char *a, int masklen, int len)
234 {
235   int i;
236 cp
237   i = masklen / 8;
238   masklen %= 8;
239   
240   if(masklen)
241     if(a[i++] & (char)~(0x100 - (1 << masklen)))
242       return -1;
243   
244   for(; i < len; i++)
245     if(a[i] != 0)
246       return -1;
247
248   return 0;
249 }