s3-libads: use ldap_init_fd() to initialize a ldap session if possible
[bbaumbach/samba-autobuild/.git] / source4 / lib / socket / interface.c
1 /* 
2    Unix SMB/CIFS implementation.
3
4    multiple interface handling
5
6    Copyright (C) Andrew Tridgell 1992-2005
7    
8    This program is free software; you can redistribute it and/or modify
9    it under the terms of the GNU General Public License as published by
10    the Free Software Foundation; either version 3 of the License, or
11    (at your option) any later version.
12    
13    This program is distributed in the hope that it will be useful,
14    but WITHOUT ANY WARRANTY; without even the implied warranty of
15    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
16    GNU General Public License for more details.
17    
18    You should have received a copy of the GNU General Public License
19    along with this program.  If not, see <http://www.gnu.org/licenses/>.
20 */
21
22 #include "includes.h"
23 #include "system/network.h"
24 #include "param/param.h"
25 #include "lib/socket/netif.h"
26 #include "../lib/util/util_net.h"
27 #include "../lib/util/dlinklist.h"
28
29 /* used for network interfaces */
30 struct interface {
31         struct interface *next, *prev;
32         char *name;
33         int flags;
34         struct sockaddr_storage ip;
35         struct sockaddr_storage netmask;
36         struct sockaddr_storage bcast;
37         const char *ip_s;
38         const char *bcast_s;
39         const char *nmask_s;
40 };
41
42 #define ALLONES  ((uint32_t)0xFFFFFFFF)
43 /*
44   address construction based on a patch from fred@datalync.com
45 */
46 #define MKBCADDR(_IP, _NM) ((_IP & _NM) | (_NM ^ ALLONES))
47 #define MKNETADDR(_IP, _NM) (_IP & _NM)
48
49 /****************************************************************************
50 Try and find an interface that matches an ip. If we cannot, return NULL
51   **************************************************************************/
52 static struct interface *iface_list_find(struct interface *interfaces,
53                                          const struct sockaddr *ip,
54                                          bool check_mask)
55 {
56         struct interface *i;
57
58         if (is_address_any(ip)) {
59                 return interfaces;
60         }
61
62         for (i=interfaces;i;i=i->next) {
63                 if (check_mask) {
64                         if (same_net(ip, (struct sockaddr *)&i->ip, (struct sockaddr *)&i->netmask)) {
65                                 return i;
66                         }
67                 } else if (sockaddr_equal((struct sockaddr *)&i->ip, ip)) {
68                         return i;
69                 }
70         }
71
72         return NULL;
73 }
74
75 /****************************************************************************
76 add an interface to the linked list of interfaces
77 ****************************************************************************/
78 static void add_interface(TALLOC_CTX *mem_ctx, const struct iface_struct *ifs, struct interface **interfaces)
79 {
80         char addr[INET6_ADDRSTRLEN];
81         struct interface *iface;
82
83         if (iface_list_find(*interfaces, (const struct sockaddr *)&ifs->ip, false)) {
84                 DEBUG(3,("add_interface: not adding duplicate interface %s\n",
85                         print_sockaddr(addr, sizeof(addr), &ifs->ip) ));
86                 return;
87         }
88
89         if (ifs->ip.ss_family == AF_INET &&
90                 !(ifs->flags & (IFF_BROADCAST|IFF_LOOPBACK))) {
91                 DEBUG(3,("not adding non-broadcast interface %s\n",
92                                         ifs->name ));
93                 return;
94         }
95
96         iface = talloc(*interfaces == NULL ? mem_ctx : *interfaces, struct interface);
97         if (iface == NULL) 
98                 return;
99         
100         ZERO_STRUCTPN(iface);
101
102         iface->name = talloc_strdup(iface, ifs->name);
103         if (!iface->name) {
104                 SAFE_FREE(iface);
105                 return;
106         }
107         iface->flags = ifs->flags;
108         iface->ip = ifs->ip;
109         iface->netmask = ifs->netmask;
110         iface->bcast = ifs->bcast;
111
112         /* keep string versions too, to avoid people tripping over the implied
113            static in inet_ntoa() */
114         print_sockaddr(addr, sizeof(addr), &iface->ip);
115         DEBUG(4,("added interface %s ip=%s ",
116                  iface->name, addr));
117         iface->ip_s = talloc_strdup(iface, addr);
118
119         print_sockaddr(addr, sizeof(addr),
120                        &iface->bcast);
121         DEBUG(4,("bcast=%s ", addr));
122         iface->bcast_s = talloc_strdup(iface, addr);
123
124         print_sockaddr(addr, sizeof(addr),
125                        &iface->netmask);
126         DEBUG(4,("netmask=%s\n", addr));
127         iface->nmask_s = talloc_strdup(iface, addr);
128
129         /*
130            this needs to be a ADD_END, as some tests (such as the
131            spoolss notify test) depend on the interfaces ordering
132         */
133         DLIST_ADD_END(*interfaces, iface);
134 }
135
136 /**
137 interpret a single element from a interfaces= config line 
138
139 This handles the following different forms:
140
141 1) wildcard interface name
142 2) DNS name
143 3) IP/masklen
144 4) ip/mask
145 5) bcast/mask
146 **/
147 static void interpret_interface(TALLOC_CTX *mem_ctx, 
148                                 const char *token, 
149                                 struct iface_struct *probed_ifaces, 
150                                 int total_probed,
151                                 struct interface **local_interfaces)
152 {
153         struct sockaddr_storage ss;
154         struct sockaddr_storage ss_mask;
155         struct sockaddr_storage ss_net;
156         struct sockaddr_storage ss_bcast;
157         struct iface_struct ifs;
158         char *p;
159         int i;
160         bool added=false;
161         bool goodaddr = false;
162
163         /* first check if it is an interface name */
164         for (i=0;i<total_probed;i++) {
165                 if (gen_fnmatch(token, probed_ifaces[i].name) == 0) {
166                         add_interface(mem_ctx, &probed_ifaces[i],
167                                       local_interfaces);
168                         added = true;
169                 }
170         }
171         if (added) {
172                 return;
173         }
174
175         p = strchr_m(token, ';');
176         if (p != NULL) {
177                 /*
178                  * skip smbd-specific extra data:
179                  * link speed, capabilities, and interface index
180                  */
181                 *p = 0;
182         }
183
184         /* maybe it is a DNS name */
185         p = strchr_m(token,'/');
186         if (p == NULL) {
187                 if (!interpret_string_addr(&ss, token, 0)) {
188                         DEBUG(2, ("interpret_interface: Can't find address "
189                                   "for %s\n", token));
190                         return;
191                 }
192
193                 for (i=0;i<total_probed;i++) {
194                         if (sockaddr_equal((struct sockaddr *)&ss, (struct sockaddr *)&probed_ifaces[i].ip)) {
195                                 add_interface(mem_ctx, &probed_ifaces[i],
196                                               local_interfaces);
197                                 return;
198                         }
199                 }
200                 DEBUG(2,("interpret_interface: "
201                         "can't determine interface for %s\n",
202                         token));
203                 return;
204         }
205
206         /* parse it into an IP address/netmasklength pair */
207         *p = 0;
208         goodaddr = interpret_string_addr(&ss, token, 0);
209         *p++ = '/';
210
211         if (!goodaddr) {
212                 DEBUG(2,("interpret_interface: "
213                         "can't determine interface for %s\n",
214                         token));
215                 return;
216         }
217
218         if (strlen(p) > 2) {
219                 goodaddr = interpret_string_addr(&ss_mask, p, 0);
220                 if (!goodaddr) {
221                         DEBUG(2,("interpret_interface: "
222                                 "can't determine netmask from %s\n",
223                                 p));
224                         return;
225                 }
226         } else {
227                 int error = 0;
228
229                 unsigned long val = smb_strtoul(p,
230                                                 NULL,
231                                                 0,
232                                                 &error,
233                                                 SMB_STR_FULL_STR_CONV);
234                 if (error != 0) {
235                         DEBUG(2,("interpret_interface: "
236                                 "can't determine netmask value from %s\n",
237                                 p));
238                         return;
239                 }
240                 if (!make_netmask(&ss_mask, &ss, val)) {
241                         DEBUG(2,("interpret_interface: "
242                                 "can't apply netmask value %lu from %s\n",
243                                 val,
244                                 p));
245                         return;
246                 }
247         }
248
249         make_bcast(&ss_bcast, &ss, &ss_mask);
250         make_net(&ss_net, &ss, &ss_mask);
251
252         /* Maybe the first component was a broadcast address. */
253         if (sockaddr_equal((struct sockaddr *)&ss_bcast, (struct sockaddr *)&ss) ||
254                 sockaddr_equal((struct sockaddr *)&ss_net, (struct sockaddr *)&ss)) {
255                 for (i=0;i<total_probed;i++) {
256                         if (same_net((struct sockaddr *)&ss,
257                                                  (struct sockaddr *)&probed_ifaces[i].ip,
258                                                  (struct sockaddr *)&ss_mask)) {
259                                 /* Temporarily replace netmask on
260                                  * the detected interface - user knows
261                                  * best.... */
262                                 struct sockaddr_storage saved_mask =
263                                         probed_ifaces[i].netmask;
264                                 probed_ifaces[i].netmask = ss_mask;
265                                 DEBUG(2,("interpret_interface: "
266                                         "using netmask value %s from "
267                                         "config file on interface %s\n",
268                                         p,
269                                         probed_ifaces[i].name));
270                                 add_interface(mem_ctx, &probed_ifaces[i],
271                                               local_interfaces);
272                                 probed_ifaces[i].netmask = saved_mask;
273                                 return;
274                         }
275                 }
276                 DEBUG(2,("interpret_interface: Can't determine ip for "
277                         "broadcast address %s\n",
278                         token));
279                 return;
280         }
281
282         /* Just fake up the interface definition. User knows best. */
283
284         DEBUG(2,("interpret_interface: Adding interface %s\n",
285                 token));
286
287         ZERO_STRUCT(ifs);
288         (void)strlcpy(ifs.name, token, sizeof(ifs.name));
289         ifs.flags = IFF_BROADCAST;
290         ifs.ip = ss;
291         ifs.netmask = ss_mask;
292         ifs.bcast = ss_bcast;
293         add_interface(mem_ctx, &ifs, local_interfaces);
294 }
295
296
297 /**
298 load the list of network interfaces
299 **/
300 void load_interface_list(TALLOC_CTX *mem_ctx, struct loadparm_context *lp_ctx, struct interface **local_interfaces)
301 {
302         const char **ptr = lpcfg_interfaces(lp_ctx);
303         int i;
304         struct iface_struct *ifaces = NULL;
305         int total_probed;
306
307         *local_interfaces = NULL;
308
309         /* probe the kernel for interfaces */
310         total_probed = get_interfaces(mem_ctx, &ifaces);
311
312         /* if we don't have a interfaces line then use all interfaces
313            except loopback */
314         if (!ptr || !*ptr || !**ptr) {
315                 if (total_probed <= 0) {
316                         DEBUG(0,("ERROR: Could not determine network interfaces, you must use a interfaces config line\n"));
317                 }
318                 for (i=0;i<total_probed;i++) {
319                         if (!is_loopback_addr((struct sockaddr *)&ifaces[i].ip)) {
320                                 add_interface(mem_ctx, &ifaces[i], local_interfaces);
321                         }
322                 }
323         }
324
325         while (ptr && *ptr) {
326                 interpret_interface(mem_ctx, *ptr, ifaces, total_probed, local_interfaces);
327                 ptr++;
328         }
329
330         if (!*local_interfaces) {
331                 DEBUG(0,("WARNING: no network interfaces found\n"));
332         }
333         talloc_free(ifaces);
334 }
335
336 /**
337   how many interfaces do we have
338   **/
339 int iface_list_count(struct interface *ifaces)
340 {
341         int ret = 0;
342         struct interface *i;
343
344         for (i=ifaces;i;i=i->next)
345                 ret++;
346         return ret;
347 }
348
349 /**
350   return IP of the Nth interface
351   **/
352 const char *iface_list_n_ip(struct interface *ifaces, int n)
353 {
354         struct interface *i;
355   
356         for (i=ifaces;i && n;i=i->next)
357                 n--;
358
359         if (i) {
360                 return i->ip_s;
361         }
362         return NULL;
363 }
364
365
366 /**
367   return the first IPv4 interface address we have registered
368   **/
369 const char *iface_list_first_v4(struct interface *ifaces)
370 {
371         struct interface *i;
372
373         for (i=ifaces; i; i=i->next) {
374                 if (i->ip.ss_family == AF_INET) {
375                         return i->ip_s;
376                 }
377         }
378         return NULL;
379 }
380
381 /**
382   return the first IPv6 interface address we have registered
383   **/
384 static const char *iface_list_first_v6(struct interface *ifaces)
385 {
386         struct interface *i;
387
388 #ifdef HAVE_IPV6
389         for (i=ifaces; i; i=i->next) {
390                 if (i->ip.ss_family == AF_INET6) {
391                         return i->ip_s;
392                 }
393         }
394 #endif
395         return NULL;
396 }
397
398 /**
399    check if an interface is IPv4
400   **/
401 bool iface_list_n_is_v4(struct interface *ifaces, int n)
402 {
403         struct interface *i;
404
405         for (i=ifaces;i && n;i=i->next)
406                 n--;
407
408         if (i) {
409                 return i->ip.ss_family == AF_INET;
410         }
411         return false;
412 }
413
414 /**
415   return bcast of the Nth interface
416   **/
417 const char *iface_list_n_bcast(struct interface *ifaces, int n)
418 {
419         struct interface *i;
420   
421         for (i=ifaces;i && n;i=i->next)
422                 n--;
423
424         if (i) {
425                 return i->bcast_s;
426         }
427         return NULL;
428 }
429
430 /**
431   return netmask of the Nth interface
432   **/
433 const char *iface_list_n_netmask(struct interface *ifaces, int n)
434 {
435         struct interface *i;
436   
437         for (i=ifaces;i && n;i=i->next)
438                 n--;
439
440         if (i) {
441                 return i->nmask_s;
442         }
443         return NULL;
444 }
445
446 /**
447   return the local IP address that best matches a destination IP, or
448   our first interface if none match
449 */
450 const char *iface_list_best_ip(struct interface *ifaces, const char *dest)
451 {
452         struct interface *iface;
453         struct sockaddr_storage ss;
454
455         if (!interpret_string_addr(&ss, dest, AI_NUMERICHOST)) {
456                 return iface_list_n_ip(ifaces, 0);
457         }
458         iface = iface_list_find(ifaces, (const struct sockaddr *)&ss, true);
459         if (iface) {
460                 return iface->ip_s;
461         }
462 #ifdef HAVE_IPV6
463         if (ss.ss_family == AF_INET6) {
464                 return iface_list_first_v6(ifaces);
465         }
466 #endif
467         return iface_list_first_v4(ifaces);
468 }
469
470 /**
471   return true if an IP is one one of our local networks
472 */
473 bool iface_list_is_local(struct interface *ifaces, const char *dest)
474 {
475         struct sockaddr_storage ss;
476
477         if (!interpret_string_addr(&ss, dest, AI_NUMERICHOST)) {
478                 return false;
479         }
480         if (iface_list_find(ifaces, (const struct sockaddr *)&ss, true)) {
481                 return true;
482         }
483         return false;
484 }
485
486 /**
487   return true if a IP matches a IP/netmask pair
488 */
489 bool iface_list_same_net(const char *ip1, const char *ip2, const char *netmask)
490 {
491         struct sockaddr_storage ip1_ss, ip2_ss, nm_ss;
492
493         if (!interpret_string_addr(&ip1_ss, ip1, AI_NUMERICHOST)) {
494                 return false;
495         }
496         if (!interpret_string_addr(&ip2_ss, ip2, AI_NUMERICHOST)) {
497                 return false;
498         }
499         if (!interpret_string_addr(&nm_ss, netmask, AI_NUMERICHOST)) {
500                 return false;
501         }
502
503         return same_net((struct sockaddr *)&ip1_ss,
504                         (struct sockaddr *)&ip2_ss,
505                         (struct sockaddr *)&nm_ss);
506 }
507
508 /**
509    return the list of wildcard interfaces
510    this will include the IPv4 0.0.0.0, and may include IPv6 ::
511 */
512 char **iface_list_wildcard(TALLOC_CTX *mem_ctx)
513 {
514         char **ret;
515 #ifdef HAVE_IPV6
516         ret = str_list_make(mem_ctx, "::,0.0.0.0", NULL);
517 #else
518         ret = str_list_make(mem_ctx, "0.0.0.0", NULL);
519 #endif
520         return ret;
521 }