d1540414bc78a0152d793fca1b1c9c4d48d3660f
[olsrd.git] / src / win32 / ifnet.c
1
2 /*
3  * The olsr.org Optimized Link-State Routing daemon(olsrd)
4  * Copyright (c) 2004-2009, the olsr.org team - see HISTORY file
5  * All rights reserved.
6  *
7  * Redistribution and use in source and binary forms, with or without
8  * modification, are permitted provided that the following conditions
9  * are met:
10  *
11  * * Redistributions of source code must retain the above copyright
12  *   notice, this list of conditions and the following disclaimer.
13  * * Redistributions in binary form must reproduce the above copyright
14  *   notice, this list of conditions and the following disclaimer in
15  *   the documentation and/or other materials provided with the
16  *   distribution.
17  * * Neither the name of olsr.org, olsrd nor the names of its
18  *   contributors may be used to endorse or promote products derived
19  *   from this software without specific prior written permission.
20  *
21  * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
22  * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
23  * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
24  * FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
25  * COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,
26  * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
27  * BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
28  * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
29  * CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
30  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN
31  * ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
32  * POSSIBILITY OF SUCH DAMAGE.
33  *
34  * Visit http://www.olsr.org for more information.
35  *
36  * If you find this software useful feel free to make a donation
37  * to the project. For more information see the website or contact
38  * the copyright holders.
39  *
40  */
41
42 #include <winsock2.h>
43
44 #include "olsr.h"
45 #include "olsr_cfg.h"
46 #include "interfaces.h"
47 #include "parser.h"
48 #include "defs.h"
49 #include "net_os.h"
50 #include "ifnet.h"
51 #include "scheduler.h"
52 #include "olsr_time.h"
53 #include "lq_packet.h"
54 #include "net_olsr.h"
55 #include "common/string.h"
56 #include "olsr_logging.h"
57 #include "mid_set.h"
58 #include "hna_set.h"
59 #include "olsr_logging.h"
60 #include "link_set.h"
61
62 #include <iphlpapi.h>
63 #include <iprtrmib.h>
64
65 #include <arpa/inet.h>
66
67 struct MibIpInterfaceRow {
68   USHORT Family;
69   ULONG64 InterfaceLuid;
70   ULONG InterfaceIndex;
71   ULONG MaxReassemblySize;
72   ULONG64 InterfaceIdentifier;
73   ULONG MinRouterAdvertisementInterval;
74   ULONG MaxRouterAdvertisementInterval;
75   BOOLEAN AdvertisingEnabled;
76   BOOLEAN ForwardingEnabled;
77   BOOLEAN WeakHostSend;
78   BOOLEAN WeakHostReceive;
79   BOOLEAN UseAutomaticMetric;
80   BOOLEAN UseNeighborUnreachabilityDetection;
81   BOOLEAN ManagedAddressConfigurationSupported;
82   BOOLEAN OtherStatefulConfigurationSupported;
83   BOOLEAN AdvertiseDefaultRoute;
84   INT RouterDiscoveryBehavior;
85   ULONG DadTransmits;
86   ULONG BaseReachableTime;
87   ULONG RetransmitTime;
88   ULONG PathMtuDiscoveryTimeout;
89   INT LinkLocalAddressBehavior;
90   ULONG LinkLocalAddressTimeout;
91   ULONG ZoneIndices[16];
92   ULONG SitePrefixLength;
93   ULONG Metric;
94   ULONG NlMtu;
95   BOOLEAN Connected;
96   BOOLEAN SupportsWakeUpPatterns;
97   BOOLEAN SupportsNeighborDiscovery;
98   BOOLEAN SupportsRouterDiscovery;
99   ULONG ReachableTime;
100   BYTE TransmitOffload;
101   BYTE ReceiveOffload;
102   BOOLEAN DisableDefaultRoutes;
103 };
104
105 typedef DWORD(__stdcall * GETIPINTERFACEENTRY)
106   (struct MibIpInterfaceRow * Row);
107
108 typedef DWORD(__stdcall * GETADAPTERSADDRESSES)
109   (ULONG Family, DWORD Flags, PVOID Reserved, PIP_ADAPTER_ADDRESSES pAdapterAddresses, PULONG pOutBufLen);
110
111 struct InterfaceInfo {
112   unsigned int Index;
113   int Mtu;
114   int Metric;
115   unsigned int Addr;
116   unsigned int Mask;
117   unsigned int Broad;
118   char Guid[39];
119 };
120
121 void WinSockPError(char *);
122 char *StrError(unsigned int ErrNo);
123 int GetIntInfo(struct InterfaceInfo *Info, char *Name);
124
125 #define MAX_INTERFACES 100
126
127 int __stdcall SignalHandler(unsigned long Signal);
128
129 static unsigned long __stdcall
130 SignalHandlerWrapper(void *Dummy __attribute__ ((unused)))
131 {
132   SignalHandler(0);
133   return 0;
134 }
135
136 void
137 CallSignalHandler(void)
138 {
139   unsigned long ThreadId;              /* Win9x compat */
140
141   CreateThread(NULL, 0, SignalHandlerWrapper, NULL, 0, &ThreadId);
142 }
143
144 static void
145 MiniIndexToIntName(char *String, int MiniIndex)
146 {
147   const char *HexDigits = "0123456789abcdef";
148
149   String[0] = 'i';
150   String[1] = 'f';
151
152   String[2] = HexDigits[(MiniIndex >> 4) & 15];
153   String[3] = HexDigits[MiniIndex & 15];
154
155   String[4] = 0;
156 }
157
158 static int
159 IntNameToMiniIndex(int *MiniIndex, char *String)
160 {
161   const char *HexDigits = "0123456789abcdef";
162   int i, k;
163   char ch;
164
165   if ((String[0] != 'i' && String[0] != 'I') || (String[1] != 'f' && String[1] != 'F'))
166     return -1;
167
168   *MiniIndex = 0;
169
170   for (i = 2; i < 4; i++) {
171     ch = String[i];
172
173     if (ch >= 'A' && ch <= 'F')
174       ch += 32;
175
176     for (k = 0; k < 16 && ch != HexDigits[k]; k++);
177
178     if (k == 16)
179       return -1;
180
181     *MiniIndex = (*MiniIndex << 4) | k;
182   }
183
184   return 0;
185 }
186
187 static int
188 FriendlyNameToMiniIndex(int *MiniIndex, char *String)
189 {
190   unsigned long BuffLen;
191   unsigned long Res;
192   IP_ADAPTER_ADDRESSES AdAddr[MAX_INTERFACES], *WalkerAddr;
193   char FriendlyName[MAX_INTERFACE_NAME_LEN];
194   HMODULE h;
195   GETADAPTERSADDRESSES pfGetAdaptersAddresses;
196
197   h = LoadLibrary("iphlpapi.dll");
198
199   if (h == NULL) {
200     OLSR_WARN(LOG_NETWORKING, "LoadLibrary() = %08lx", GetLastError());
201     return -1;
202   }
203
204   pfGetAdaptersAddresses = (GETADAPTERSADDRESSES) GetProcAddress(h, "GetAdaptersAddresses");
205
206   if (pfGetAdaptersAddresses == NULL) {
207     OLSR_WARN(LOG_NETWORKING, "Unable to use adapter friendly name (GetProcAddress() = %08lx)\n", GetLastError());
208     return -1;
209   }
210
211   BuffLen = sizeof(AdAddr);
212
213   Res = pfGetAdaptersAddresses(AF_INET, 0, NULL, AdAddr, &BuffLen);
214
215   if (Res != NO_ERROR) {
216     OLSR_WARN(LOG_NETWORKING, "GetAdaptersAddresses() = %08lx", GetLastError());
217     return -1;
218   }
219
220   for (WalkerAddr = AdAddr; WalkerAddr != NULL; WalkerAddr = WalkerAddr->Next) {
221     OLSR_DEBUG(LOG_NETWORKING, "Index = %08x - ", (int)WalkerAddr->IfIndex);
222
223     wcstombs(FriendlyName, WalkerAddr->FriendlyName, MAX_INTERFACE_NAME_LEN);
224
225     OLSR_DEBUG(LOG_NETWORKING, "Friendly name = %s\n", FriendlyName);
226
227     if (strncmp(FriendlyName, String, MAX_INTERFACE_NAME_LEN) == 0)
228       break;
229   }
230
231   if (WalkerAddr == NULL) {
232     OLSR_WARN(LOG_NETWORKING, "No such interface: %s!\n", String);
233     return -1;
234   }
235
236   *MiniIndex = WalkerAddr->IfIndex & 255;
237
238   return 0;
239 }
240
241 int
242 GetIntInfo(struct InterfaceInfo *Info, char *Name)
243 {
244   int MiniIndex;
245   unsigned char Buff[MAX_INTERFACES * sizeof(MIB_IFROW) + 4];
246   MIB_IFTABLE *IfTable;
247   unsigned long BuffLen;
248   unsigned long Res;
249   int TabIdx;
250   IP_ADAPTER_INFO AdInfo[MAX_INTERFACES], *Walker;
251   HMODULE Lib;
252   struct MibIpInterfaceRow Row;
253   GETIPINTERFACEENTRY InterfaceEntry;
254
255   if (olsr_cnf->ip_version == AF_INET6) {
256     OLSR_WARN(LOG_NETWORKING, "IPv6 not supported by GetIntInfo()!\n");
257     return -1;
258   }
259
260   if ((Name[0] != 'i' && Name[0] != 'I') || (Name[1] != 'f' && Name[1] != 'F')) {
261     if (FriendlyNameToMiniIndex(&MiniIndex, Name) < 0) {
262       OLSR_WARN(LOG_NETWORKING, "No such interface: %s!\n", Name);
263       return -1;
264     }
265   }
266
267   else {
268     if (IntNameToMiniIndex(&MiniIndex, Name) < 0) {
269       OLSR_WARN(LOG_NETWORKING, "No such interface: %s!\n", Name);
270       return -1;
271     }
272   }
273
274   IfTable = (MIB_IFTABLE *) Buff;
275
276   BuffLen = sizeof(Buff);
277
278   Res = GetIfTable(IfTable, &BuffLen, FALSE);
279
280   if (Res != NO_ERROR) {
281     OLSR_WARN(LOG_NETWORKING, "GetIfTable() = %08lx, %s", Res, StrError(Res));
282     return -1;
283   }
284
285   for (TabIdx = 0; TabIdx < (int)IfTable->dwNumEntries; TabIdx++) {
286     OLSR_DEBUG(LOG_NETWORKING, "Index = %08x\n", (int)IfTable->table[TabIdx].dwIndex);
287
288     if ((int)(IfTable->table[TabIdx].dwIndex & 255) == MiniIndex)
289       break;
290   }
291
292   if (TabIdx == (int)IfTable->dwNumEntries) {
293     OLSR_WARN(LOG_NETWORKING, "No such interface: %s!\n", Name);
294     return -1;
295   }
296
297   Info->Index = IfTable->table[TabIdx].dwIndex;
298   Info->Mtu = (int)IfTable->table[TabIdx].dwMtu;
299
300   Info->Mtu -= olsr_cnf->ip_version == AF_INET6 ? UDP_IPV6_HDRSIZE : UDP_IPV4_HDRSIZE;
301
302   Lib = LoadLibrary("iphlpapi.dll");
303
304   if (Lib == NULL) {
305     OLSR_WARN(LOG_NETWORKING, "Cannot load iphlpapi.dll: %08lx\n", GetLastError());
306     return -1;
307   }
308
309   InterfaceEntry = (GETIPINTERFACEENTRY) GetProcAddress(Lib, "GetIpInterfaceEntry");
310
311   if (InterfaceEntry == NULL) {
312     OLSR_DEBUG(LOG_NETWORKING, "Not running on Vista - setting interface metric to 0.\n");
313
314     Info->Metric = 0;
315   }
316
317   else {
318     memset(&Row, 0, sizeof(struct MibIpInterfaceRow));
319
320     Row.Family = AF_INET;
321     Row.InterfaceIndex = Info->Index;
322
323     Res = InterfaceEntry(&Row);
324
325     if (Res != NO_ERROR) {
326       OLSR_WARN(LOG_NETWORKING, "GetIpInterfaceEntry() = %08lx", Res);
327       FreeLibrary(Lib);
328       return -1;
329     }
330
331     Info->Metric = Row.Metric;
332
333     OLSR_DEBUG(LOG_NETWORKING, "Running on Vista - interface metric is %d.\n", Info->Metric);
334   }
335
336   FreeLibrary(Lib);
337
338   BuffLen = sizeof(AdInfo);
339
340   Res = GetAdaptersInfo(AdInfo, &BuffLen);
341
342   if (Res != NO_ERROR) {
343     OLSR_WARN(LOG_NETWORKING, "GetAdaptersInfo() = %08lx, %s", GetLastError(), StrError(Res));
344     return -1;
345   }
346
347   for (Walker = AdInfo; Walker != NULL; Walker = Walker->Next) {
348     OLSR_DEBUG(LOG_NETWORKING, "Index = %08x\n", (int)Walker->Index);
349
350     if ((int)(Walker->Index & 255) == MiniIndex)
351       break;
352   }
353
354   if (Walker == NULL) {
355     OLSR_WARN(LOG_NETWORKING, "No such interface: %s!\n", Name);
356     return -1;
357   }
358
359   inet_pton(AF_INET, Walker->IpAddressList.IpAddress.String, &Info->Addr);
360   inet_pton(AF_INET, Walker->IpAddressList.IpMask.String, &Info->Mask);
361
362   Info->Broad = Info->Addr | ~Info->Mask;
363
364   strscpy(Info->Guid, Walker->AdapterName, sizeof(Info->Guid));
365
366   if ((IfTable->table[TabIdx].dwOperStatus != MIB_IF_OPER_STATUS_CONNECTED &&
367        IfTable->table[TabIdx].dwOperStatus != MIB_IF_OPER_STATUS_OPERATIONAL) || Info->Addr == 0) {
368     OLSR_WARN(LOG_NETWORKING, "Interface %s not up!\n", Name);
369     return -1;
370   }
371
372   return 0;
373 }
374
375 #if !defined OID_802_11_CONFIGURATION
376 #define OID_802_11_CONFIGURATION 0x0d010211
377 #endif
378
379 #if !defined IOCTL_NDIS_QUERY_GLOBAL_STATS
380 #define IOCTL_NDIS_QUERY_GLOBAL_STATS 0x00170002
381 #endif
382
383 void
384 ListInterfaces(void)
385 {
386   IP_ADAPTER_INFO AdInfo[MAX_INTERFACES], *Walker;
387   unsigned long AdInfoLen;
388   char IntName[5];
389   unsigned long Res;
390
391   if (olsr_cnf->ip_version == AF_INET6) {
392     OLSR_WARN(LOG_NETWORKING, "IPv6 not supported by ListInterfaces()!\n");
393     return;
394   }
395
396   AdInfoLen = sizeof(AdInfo);
397
398   Res = GetAdaptersInfo(AdInfo, &AdInfoLen);
399
400   if (Res == ERROR_NO_DATA) {
401     OLSR_INFO(LOG_NETWORKING, "No interfaces detected.\n");
402     return;
403   }
404
405   if (Res != NO_ERROR) {
406     OLSR_WARN(LOG_NETWORKING, "GetAdaptersInfo() = %08lx, %s", Res, StrError(Res));
407     return;
408   }
409   // TODO: change to new logging API ?
410   for (Walker = AdInfo; Walker != NULL; Walker = Walker->Next) {
411     OLSR_DEBUG(LOG_NETWORKING, "Index = %08x\n", (int)Walker->Index);
412
413     MiniIndexToIntName(IntName, Walker->Index);
414 #if 0
415     printf("%s: ", IntName);
416
417     IsWlan = IsWireless(IntName);
418
419     if (IsWlan < 0)
420       printf("?");
421
422     else if (IsWlan == 0)
423       printf("-");
424
425     else
426       printf("+");
427
428     for (Walker2 = &Walker->IpAddressList; Walker2 != NULL; Walker2 = Walker2->Next)
429       printf(" %s", Walker2->IpAddress.String);
430
431     printf("\n");
432 #endif
433   }
434 }
435
436 int
437 chk_if_changed(struct olsr_if_config *IntConf)
438 {
439   struct ipaddr_str buf;
440   struct interface *Int;
441   struct InterfaceInfo Info;
442   int Res;
443   union olsr_ip_addr OldVal, NewVal;
444   struct sockaddr_in *AddrIn;
445
446   if (olsr_cnf->ip_version == AF_INET6) {
447     OLSR_WARN(LOG_NETWORKING, "IPv6 not supported by chk_if_changed()!\n");
448     return 0;
449   }
450
451   Int = IntConf->interf;
452
453   if (GetIntInfo(&Info, IntConf->name) < 0) {
454     remove_interface(&IntConf->interf);
455     return 1;
456   }
457
458   Res = 0;
459
460   if (Int->int_mtu != Info.Mtu) {
461     OLSR_INFO(LOG_NETWORKING, "\tMTU change: %d -> %d.\n", (int)Int->int_mtu, Info.Mtu);
462
463     Int->int_mtu = Info.Mtu;
464
465     net_remove_buffer(Int);
466     net_add_buffer(Int);
467
468     Res = 1;
469   }
470
471   OldVal.v4 = Int->int_src.v4.sin_addr;
472   NewVal.v4.s_addr = Info.Addr;
473
474   OLSR_INFO(LOG_NETWORKING, "\tAddress: %s\n", olsr_ip_to_string(&buf, &NewVal));
475
476   if (NewVal.v4.s_addr != OldVal.v4.s_addr) {
477     OLSR_DEBUG(LOG_NETWORKING, "\tAddress change.\n");
478     OLSR_DEBUG(LOG_NETWORKING, "\tOld: %s\n", olsr_ip_to_string(&buf, &OldVal));
479     OLSR_DEBUG(LOG_NETWORKING, "\tNew: %s\n", olsr_ip_to_string(&buf, &NewVal));
480
481     Int->ip_addr.v4 = NewVal.v4;
482
483     AddrIn = &Int->int_src.v4;
484
485     AddrIn->sin_family = AF_INET;
486     AddrIn->sin_port = 0;
487     AddrIn->sin_addr = NewVal.v4;
488
489     Res = 1;
490   }
491
492   else
493     OLSR_DEBUG(LOG_NETWORKING, "\tNo address change.\n");
494
495   OldVal.v4 = Int->int_multicast.v4.sin_addr;
496   NewVal.v4.s_addr = Info.Broad;
497
498   OLSR_INFO(LOG_NETWORKING, "\tBroadcast address: %s\n", olsr_ip_to_string(&buf, &NewVal));
499
500   if (NewVal.v4.s_addr != OldVal.v4.s_addr) {
501     OLSR_DEBUG(LOG_NETWORKING, "\tBroadcast address change.\n");
502     OLSR_DEBUG(LOG_NETWORKING, "\tOld: %s\n", olsr_ip_to_string(&buf, &OldVal));
503     OLSR_DEBUG(LOG_NETWORKING, "\tNew: %s\n", olsr_ip_to_string(&buf, &NewVal));
504
505     AddrIn = &Int->int_multicast.v4;
506
507     AddrIn->sin_family = AF_INET;
508     AddrIn->sin_port = 0;
509     AddrIn->sin_addr = NewVal.v4;
510
511     Res = 1;
512   }
513
514   else
515     OLSR_DEBUG(LOG_NETWORKING, "\tNo broadcast address change.\n");
516
517   if (Res != 0)
518     run_ifchg_cbs(Int, IFCHG_IF_UPDATE);
519
520   return Res;
521 }
522
523 struct interface *
524 os_init_interface(struct olsr_if_config *IntConf)
525 {
526   struct ipaddr_str buf;
527   struct InterfaceInfo if_info;
528   struct interface *ifp;
529   struct sockaddr_in *if_addr;
530   size_t name_size;
531
532   if (olsr_cnf->ip_version == AF_INET6) {
533     OLSR_ERROR(LOG_NETWORKING, "IPv6 not supported by win32!\n");
534     olsr_exit(1);
535   }
536
537   if (GetIntInfo(&if_info, IntConf->name) < 0)
538     return 0;
539
540   ifp = olsr_cookie_malloc(interface_mem_cookie);
541
542 #if 0
543   ifp->gen_properties = NULL;
544 #endif
545   if_addr = &ifp->int_src.v4;
546
547   if_addr->sin_family = AF_INET;
548   if_addr->sin_port = 0;
549   if_addr->sin_addr.s_addr = if_info.Addr;
550
551   if_addr = &ifp->int_multicast.v4;
552
553   if_addr->sin_family = AF_INET;
554   if_addr->sin_port = 0;
555   if_addr->sin_addr.s_addr = if_info.Broad;
556
557   if (IntConf->cnf->ipv4_broadcast.v4.s_addr != 0)
558     if_addr->sin_addr = IntConf->cnf->ipv4_broadcast.v4;
559
560   ifp->int_mtu = if_info.Mtu;
561
562   name_size = strlen(IntConf->name) + 1;
563   ifp->int_name = olsr_malloc(name_size, "Interface 2");
564   strscpy(ifp->int_name, IntConf->name, name_size);
565
566   ifp->olsr_seqnum = rand() & 0xffff;
567
568   OLSR_INFO(LOG_NETWORKING, "\tInterface %s set up for use with index %d\n\n", IntConf->name, ifp->if_index);
569
570   OLSR_INFO(LOG_NETWORKING, "\tMTU: %d\n", ifp->int_mtu);
571   OLSR_INFO(LOG_NETWORKING, "\tAddress: %s\n", ip4_to_string(&buf, ifp->int_src.v4.sin_addr));
572   OLSR_INFO(LOG_NETWORKING, "\tBroadcast address: %s\n", ip4_to_string(&buf, ifp->int_multicast.v4.sin_addr));
573
574   ifp->ip_addr.v4 = ifp->int_src.v4.sin_addr;
575
576   ifp->if_index = if_info.Index;
577
578   OLSR_INFO(LOG_NETWORKING, "\tKernel index: %08x\n", ifp->if_index);
579   return ifp;
580 }
581
582 /*
583  * Local Variables:
584  * c-basic-offset: 2
585  * indent-tabs-mode: nil
586  * End:
587  */