Gracefully close the socket
[oweals/nmrpflash.git] / ethsock.c
index f61845653f46e5c06c9baf8b966ce765835975b2..c11f13d145a5709f41a9207df3be073182b6f4ce 100644 (file)
--- a/ethsock.c
+++ b/ethsock.c
@@ -1,28 +1,17 @@
-#include <netinet/if_ether.h>
-#include <sys/socket.h>
 #include <sys/types.h>
 #include <stdbool.h>
 #include <string.h>
 #include <stdlib.h>
 #include <stdio.h>
-#include <pcap.h>
 #include "ethsock.h"
-
-#if defined(_WIN32) || defined(_WIN64)
-#define NMRPFLASH_WINDOWS
-#elif defined(__linux__)
-#define NMRPFLASH_LINUX
-#elif defined(__APPLE__) && defined(__MACH__)
-#define NMRPFLASH_OSX
-#elif defined(__unix__)
-#define NMRPFLASH_UNIX
-#warning "nmrp-flash is not fully supported on your operating system"
-#endif
+#include "nmrpd.h"
 
 #if defined(NMRPFLASH_WINDOWS)
-#include <winsock2.h>
-#include <iphlpapi.h>
+#define NMRPFLASH_NETALIAS_PREFIX "net"
+#define WPCAP
+#include <pcap.h>
 #else
+#include <pcap.h>
 #include <ifaddrs.h>
 #if defined(NMRPFLASH_LINUX)
 #include <linux/if_packet.h>
 #define MIN(a, b) ((a) < (b) ? (a) : (b))
 #endif
 
+
 struct ethsock
 {
        pcap_t *pcap;
+#ifndef NMRPFLASH_WINDOWS
        struct timeval timeout;
        int fd;
+#else
+       DWORD timeout;
+       HANDLE handle;
+#endif
        uint8_t hwaddr[6];
 };
 
+static int x_pcap_findalldevs(pcap_if_t **devs)
+{
+       char errbuf[PCAP_ERRBUF_SIZE];
+       if (pcap_findalldevs(devs, errbuf) != 0) {
+               fprintf(stderr, "%s.\n", errbuf);
+               return -1;
+       }
+
+       return 0;
+}
+
 #ifndef NMRPFLASH_WINDOWS
-static bool get_hwaddr(uint8_t *hwaddr, const char *interface)
+static bool get_hwaddr(uint8_t *hwaddr, const char *intf)
 {
        struct ifaddrs *ifas, *ifa;
        void *src;
@@ -58,7 +64,7 @@ static bool get_hwaddr(uint8_t *hwaddr, const char *interface)
        found = false;
 
        for (ifa = ifas; ifa; ifa = ifa->ifa_next) {
-               if (!strcmp(ifa->ifa_name, interface)) {
+               if (!strcmp(ifa->ifa_name, intf)) {
 #ifdef NMRPFLASH_LINUX
                        if (ifa->ifa_addr->sa_family != AF_PACKET) {
                                continue;
@@ -76,15 +82,17 @@ static bool get_hwaddr(uint8_t *hwaddr, const char *interface)
                }
        }
 
-       if (!found) {
-               fprintf(stderr, "Failed to get MAC address of interface %s.\n", interface);
-       }
-
        freeifaddrs(ifas);
        return found;
 }
 #else
-static bool get_hwaddr(uint8_t *hwaddr, const char *interface)
+
+static void win_perror2(const char *msg, int err)
+{
+       fprintf(stderr, "%s: error %d\n", msg, err);
+}
+
+static bool get_hwaddr(uint8_t *hwaddr, const char *intf)
 {
        PIP_ADAPTER_INFO adapters, adapter;
        DWORD ret;
@@ -92,7 +100,7 @@ static bool get_hwaddr(uint8_t *hwaddr, const char *interface)
        bool found = false;
 
        if ((ret = GetAdaptersInfo(NULL, &bufLen)) != ERROR_BUFFER_OVERFLOW) {
-               fprintf(stderr, "GetAdaptersInfo: error %d.\n", ret);
+               win_perror2("GetAdaptersInfo", ret);
                return false;
        }
 
@@ -102,28 +110,113 @@ static bool get_hwaddr(uint8_t *hwaddr, const char *interface)
                return false;
        }
 
-       if ((ret = GetAdaptersInfo(adapters, bufLen) == NO_ERROR)) {
+       if ((ret = GetAdaptersInfo(adapters, &bufLen) == NO_ERROR)) {
                for (adapter = adapters; adapter; adapter = adapter->Next) {
                        if (adapter->Type != MIB_IF_TYPE_ETHERNET) {
                                continue;
                        }
 
-                       if (!strcmp(adapter->AdapterName, interface)) {
-                               for (i = 0; i != MIN(adapter->AddressLength, 6); ++i) {
-                                       hwaddr[i] = adapter->Address[i];
+#ifndef NMRPFLASH_WINDOWS
+                       if (!strcmp(intf, adapter->AdapterName))
+#else
+                       /* Interface names from WinPcap are "\Device\NPF_{GUID}", while
+                        * AdapterName from GetAdaptersInfo is just "{GUID}".*/
+                       if (strstr(intf, adapter->AdapterName))
+#endif
+                       {
+                               if (adapter->AddressLength == 6) {
+                                       for (i = 0; i != 6; ++i) {
+                                               hwaddr[i] = adapter->Address[i];
+                                       }
+
+                                       found = true;
+                                       break;
                                }
-
-                               found = true;
-                               break;
                        }
                }
        } else {
-               fprintf(stderr, "GetAdaptersInfo: error %d.\n", ret);
+               win_perror2("GetAdaptersInfo", ret);
        }
 
        free(adapters);
        return found;
 }
+
+static const char *intf_alias_to_wpcap(const char *intf)
+{
+       static char buf[128];
+       pcap_if_t *devs, *dev;
+       unsigned i = 0, dev_num = 0;
+
+       if (intf[0] == '\\') {
+               return intf;
+       } else if (sscanf(intf, NMRPFLASH_NETALIAS_PREFIX "%u", &dev_num) != 1) {
+               fprintf(stderr, "Invalid interface alias.\n");
+               return NULL;
+       }
+
+       if (x_pcap_findalldevs(&devs) != 0) {
+               return NULL;
+       }
+
+       for (dev = devs; dev; dev = dev->next) {
+               if (i == dev_num) {
+                       if (verbosity) {
+                               printf("%s%u: %s\n", NMRPFLASH_NETALIAS_PREFIX, i, dev->name);
+                       }
+                       strncpy(buf, dev->name, sizeof(buf) - 1);
+                       buf[sizeof(buf) - 1] = '\0';
+                       break;
+               }
+       }
+
+       pcap_freealldevs(devs);
+
+       if (!dev) {
+               fprintf(stderr, "Interface alias not found.\n");
+               return NULL;
+       }
+
+       return buf;
+}
+
+static const char *intf_get_pretty_name(const char *intf)
+{
+       static char buf[512];
+       char *guid;
+       HKEY hkey;
+       LONG err;
+       DWORD len;
+
+       guid = strstr(intf, "NPF_{");
+       if (!guid) {
+               return NULL;
+       }
+
+       guid += 4;
+
+       snprintf(buf, sizeof(buf),
+                       "System\\CurrentControlSet\\Control\\Network\\"
+                       "{4D36E972-E325-11CE-BFC1-08002BE10318}\\"
+                       "%s\\Connection", guid);
+       err = RegOpenKeyExA(HKEY_LOCAL_MACHINE, buf, 0, KEY_READ, &hkey);
+       if (err != ERROR_SUCCESS) {
+               win_perror2("RegOpenKeyExA", err);
+               return NULL;
+       }
+
+       len = sizeof(buf);
+       err = RegQueryValueExA(hkey, "Name", NULL, NULL, (LPBYTE)buf, &len);
+       if (err == ERROR_SUCCESS) {
+               intf = buf;
+       } else {
+               win_perror2("RegQueryValueExA", err);
+               intf = NULL;
+       }
+
+       RegCloseKey(hkey);
+       return intf;
+}
 #endif
 
 
@@ -132,7 +225,7 @@ inline uint8_t *ethsock_get_hwaddr(struct ethsock *sock)
        return sock->hwaddr;
 }
 
-struct ethsock *ethsock_create(const char *interface, uint16_t protocol)
+struct ethsock *ethsock_create(const char *intf, uint16_t protocol)
 {
        char buf[PCAP_ERRBUF_SIZE];
        struct bpf_program fp;
@@ -145,15 +238,18 @@ struct ethsock *ethsock_create(const char *interface, uint16_t protocol)
                return NULL;
        }
 
-       if (!get_hwaddr(sock->hwaddr, interface)) {
-               goto cleanup_malloc;
+#ifdef NMRPFLASH_WINDOWS
+       intf = intf_alias_to_wpcap(intf);
+       if (!intf) {
+               return NULL;
        }
+#endif
 
        buf[0] = '\0';
 
-       sock->pcap = pcap_open_live(interface, BUFSIZ, 1, 1, buf);
+       sock->pcap = pcap_open_live(intf, BUFSIZ, 1, 1, buf);
        if (!sock->pcap) {
-               fprintf(stderr, "%s\n", buf);
+               fprintf(stderr, "%s.\n", buf);
                goto cleanup_malloc;
        }
 
@@ -162,18 +258,32 @@ struct ethsock *ethsock_create(const char *interface, uint16_t protocol)
        }
 
        if (pcap_datalink(sock->pcap) != DLT_EN10MB) {
-               fprintf(stderr, "Interface %s not supported.\n", interface);
+               fprintf(stderr, "%s is not an ethernet interface.\n",
+                               intf);
                goto cleanup_pcap;
        }
 
+       if (!get_hwaddr(sock->hwaddr, intf)) {
+               fprintf(stderr, "Failed to get MAC address of interface.\n");
+               goto cleanup_malloc;
+       }
+
+#ifndef NMRPFLASH_WINDOWS
        sock->fd = pcap_get_selectable_fd(sock->pcap);
        if (sock->fd == -1) {
                fprintf(stderr, "No selectable file descriptor available.\n");
                goto cleanup_pcap;
        }
+#else
+       sock->handle = pcap_getevent(sock->pcap);
+       if (!sock->handle) {
+               fprintf(stderr, "No event handle available.\n");
+               goto cleanup_pcap;
+       }
+#endif
 
        snprintf(buf, sizeof(buf), "ether proto %04x", protocol);
-       err = pcap_compile(sock->pcap, &fp, buf, 0, PCAP_NETMASK_UNKNOWN);
+       err = pcap_compile(sock->pcap, &fp, buf, 0, 0);
        if (err) {
                pcap_perror(sock->pcap, "pcap_compile");
                goto cleanup_pcap;
@@ -198,8 +308,13 @@ ssize_t ethsock_recv(struct ethsock *sock, void *buf, size_t len)
        struct pcap_pkthdr* hdr;
        const u_char *capbuf;
        int status;
+#ifndef NMRPFLASH_WINDOWS
        fd_set fds;
+#else
+       DWORD ret;
+#endif
 
+#ifndef NMRPFLASH_WINDOWS
        if (sock->timeout.tv_sec || sock->timeout.tv_usec) {
                FD_ZERO(&fds);
                FD_SET(sock->fd, &fds);
@@ -212,6 +327,17 @@ ssize_t ethsock_recv(struct ethsock *sock, void *buf, size_t len)
                        return 0;
                }
        }
+#else
+       if (sock->timeout) {
+               ret = WaitForSingleObject(sock->handle, sock->timeout);
+               if (ret == WAIT_TIMEOUT) {
+                       return 0;
+               } else if (ret != WAIT_OBJECT_0) {
+                       win_perror2("WaitForSingleObject", ret);
+                       return -1;
+               }
+       }
+#endif
 
        status = pcap_next_ex(sock->pcap, &hdr, &capbuf);
        switch (status) {
@@ -257,7 +383,105 @@ int ethsock_close(struct ethsock *sock)
 
 int ethsock_set_timeout(struct ethsock *sock, unsigned msec)
 {
+#ifndef NMRPFLASH_WINDOWS
        sock->timeout.tv_sec = msec / 1000;
        sock->timeout.tv_usec = (msec % 1000) * 1000;
+#else
+       sock->timeout = msec;
+#endif
+       return 0;
+}
+
+static bool is_ethernet(const char *intf)
+{
+       pcap_t *pcap;
+       char errbuf[PCAP_ERRBUF_SIZE];
+       bool ret = false;
+
+       if ((pcap = pcap_create(intf, errbuf))) {
+               if (pcap_activate(pcap) == 0) {
+                       ret = (pcap_datalink(pcap) == DLT_EN10MB);
+               }
+               pcap_close(pcap);
+       }
+
+       return ret;
+}
+
+int ethsock_list_all(void)
+{
+       pcap_if_t *devs, *dev;
+       pcap_addr_t *addr;
+       uint8_t hwaddr[6];
+       unsigned dev_num = 0;
+#ifdef NMRPFLASH_WINDOWS
+       const char *pretty;
+#endif
+
+       if (x_pcap_findalldevs(&devs) != 0) {
+               return -1;
+       }
+
+       memset(hwaddr, 0, 6);
+
+       for (dev = devs; dev; dev = dev->next) {
+               if (!is_ethernet(dev->name)) {
+                       if (verbosity > 1) {
+                               printf("%s  (not an ethernet device)\n",
+                                               dev->name);
+                       }
+                       continue;
+               }
+
+               if (!get_hwaddr(hwaddr, dev->name)) {
+                       if (verbosity > 1) {
+                               printf("%s  (failed to get hardware address)\n",
+                                               dev->name);
+                       }
+                       continue;
+               }
+
+#ifndef NMRPFLASH_WINDOWS
+               printf("%s", dev->name);
+#else
+               if (!verbosity) {
+                       printf("%s%u", NMRPFLASH_NETALIAS_PREFIX, dev_num);
+               } else {
+                       printf("%s", dev->name);
+               }
+#endif
+
+               for (addr = dev->addresses; addr; addr = addr->next) {
+                       if (addr->addr->sa_family == AF_INET) {
+                               printf("  %15s",
+                                               inet_ntoa(((struct sockaddr_in*)addr->addr)->sin_addr));
+                               break;
+                       }
+               }
+
+               if (!addr) {
+                       printf("                 ");
+               }
+
+               printf("  %02x:%02x:%02x:%02x:%02x:%02x", hwaddr[0], hwaddr[1],
+                               hwaddr[2], hwaddr[3], hwaddr[4], hwaddr[5]);
+
+#ifdef NMRPFLASH_WINDOWS
+               pretty = intf_get_pretty_name(dev->name);
+               if (pretty) {
+                       printf("  (%s)", pretty);
+               } else if (dev->description) {
+                       printf("  (%s)", dev->description);
+               }
+
+#endif
+               printf("\n");
+               ++dev_num;
+       }
+
+       if (!dev_num) {
+               printf("No suitable network interfaces found.\n");
+       }
+
        return 0;
 }