php-src/ext/standard/net.c
Christoph M. Becker c8955c078a
Revert GH-10220
Cf. <https://github.com/php/php-src/pull/10220#issuecomment-1383739816>.

This reverts commit ecc880f491.
This reverts commit 588a07f737.
This reverts commit f377e15751.
This reverts commit b4ba16fe18.
This reverts commit 694ec1deea.
This reverts commit 6b34de8eba.
This reverts commit aa1cd02a43.
This reverts commit 308fd311ea.
This reverts commit 16203b53e1.
This reverts commit 738fb5ca54.
This reverts commit 9fdbefacd3.
This reverts commit cd4a7c1d90.
This reverts commit 928685eba2.
This reverts commit 01e5ffc85c.
2023-01-16 12:27:33 +01:00

313 lines
9 KiB
C

/*
+----------------------------------------------------------------------+
| Copyright (c) The PHP Group |
+----------------------------------------------------------------------+
| This source file is subject to version 3.01 of the PHP license, |
| that is bundled with this package in the file LICENSE, and is |
| available through the world-wide-web at the following url: |
| https://www.php.net/license/3_01.txt |
| If you did not receive a copy of the PHP license and are unable to |
| obtain it through the world-wide-web, please send a note to |
| license@php.net so we can mail you a copy immediately. |
+----------------------------------------------------------------------+
| Authors: Sara Golemon <pollita@php.net> |
+----------------------------------------------------------------------+
*/
#include "php.h"
#include "php_network.h"
#ifdef HAVE_ARPA_INET_H
# include <arpa/inet.h>
#endif
#ifdef HAVE_NET_IF_H
# include <net/if.h>
#endif
#ifdef HAVE_GETIFADDRS
# include <ifaddrs.h>
#elif defined(__PASE__)
/* IBM i implements getifaddrs, but under its own name */
#include <as400_protos.h>
#define getifaddrs Qp2getifaddrs
#define freeifaddrs Qp2freeifaddrs
#define ifaddrs ifaddrs_pase
#endif
#ifdef PHP_WIN32
# ifndef __clang__
# include <intrin.h>
# endif
# include <winsock2.h>
# include <ws2ipdef.h>
# include <Ws2tcpip.h>
# include <iphlpapi.h>
#else
# include <netdb.h>
#endif
PHPAPI zend_string* php_inet_ntop(const struct sockaddr *addr) {
socklen_t addrlen = sizeof(struct sockaddr_in);
if (!addr) { return NULL; }
/* Prefer inet_ntop() as it's more task-specific and doesn't have to be demangled */
#ifdef HAVE_INET_NTOP
switch (addr->sa_family) {
#ifdef AF_INET6
case AF_INET6: {
zend_string *ret = zend_string_alloc(INET6_ADDRSTRLEN, 0);
if (inet_ntop(AF_INET6, &(((struct sockaddr_in6*)addr)->sin6_addr), ZSTR_VAL(ret), INET6_ADDRSTRLEN)) {
ZSTR_LEN(ret) = strlen(ZSTR_VAL(ret));
return ret;
}
zend_string_efree(ret);
break;
}
#endif
case AF_INET: {
zend_string *ret = zend_string_alloc(INET_ADDRSTRLEN, 0);
if (inet_ntop(AF_INET, &(((struct sockaddr_in*)addr)->sin_addr), ZSTR_VAL(ret), INET_ADDRSTRLEN)) {
ZSTR_LEN(ret) = strlen(ZSTR_VAL(ret));
return ret;
}
zend_string_efree(ret);
break;
}
}
#endif
/* Fallback on getnameinfo() */
switch (addr->sa_family) {
#ifdef AF_INET6
case AF_INET6:
addrlen = sizeof(struct sockaddr_in6);
ZEND_FALLTHROUGH;
#endif
case AF_INET: {
zend_string *ret = zend_string_alloc(NI_MAXHOST, 0);
if (getnameinfo(addr, addrlen, ZSTR_VAL(ret), NI_MAXHOST, NULL, 0, NI_NUMERICHOST) == SUCCESS) {
/* Also demangle numeric host with %name suffix */
char *colon = strchr(ZSTR_VAL(ret), '%');
if (colon) { *colon = 0; }
ZSTR_LEN(ret) = strlen(ZSTR_VAL(ret));
return ret;
}
zend_string_efree(ret);
break;
}
}
return NULL;
}
#if defined(PHP_WIN32) || defined(HAVE_GETIFADDRS) || defined(__PASE__)
static void iface_append_unicast(zval *unicast, zend_long flags,
struct sockaddr *addr, struct sockaddr *netmask,
struct sockaddr *broadcast, struct sockaddr *ptp) {
zend_string *host;
zval u;
array_init(&u);
add_assoc_long(&u, "flags", flags);
if (addr) {
add_assoc_long(&u, "family", addr->sa_family);
if ((host = php_inet_ntop(addr))) {
add_assoc_str(&u, "address", host);
}
}
if ((host = php_inet_ntop(netmask))) {
add_assoc_str(&u, "netmask", host);
}
if ((host = php_inet_ntop(broadcast))) {
add_assoc_str(&u, "broadcast", host);
}
if ((host = php_inet_ntop(ptp))) {
add_assoc_str(&u, "ptp", host);
}
add_next_index_zval(unicast, &u);
}
/* {{{ Returns an array in the form:
array(
'ifacename' => array(
'description' => 'Awesome interface', // Win32 only
'mac' => '00:11:22:33:44:55', // Win32 only
'mtu' => 1234, // Win32 only
'unicast' => array(
0 => array(
'family' => 2, // e.g. AF_INET, AF_INET6, AF_PACKET
'address' => '127.0.0.1',
'netmnask' => '255.0.0.0',
'broadcast' => '127.255.255.255', // POSIX only
'ptp' => '127.0.0.2', // POSIX only
), // etc...
),
), // etc...
)
*/
PHP_FUNCTION(net_get_interfaces) {
#ifdef PHP_WIN32
# define MALLOC(x) HeapAlloc(GetProcessHeap(), 0, (x))
# define FREE(x) HeapFree(GetProcessHeap(), 0, (x))
ULONG family = AF_UNSPEC;
ULONG flags = GAA_FLAG_INCLUDE_PREFIX;
PIP_ADAPTER_ADDRESSES pAddresses = NULL, p;
PIP_ADAPTER_UNICAST_ADDRESS u = NULL;
ULONG outBufLen = 0;
DWORD dwRetVal = 0;
ZEND_PARSE_PARAMETERS_NONE();
// Make an initial call to GetAdaptersAddresses to get the
// size needed into the outBufLen variable
if (GetAdaptersAddresses(family, flags, NULL, pAddresses, &outBufLen) == ERROR_BUFFER_OVERFLOW) {
FREE(pAddresses);
pAddresses = (IP_ADAPTER_ADDRESSES *) MALLOC(outBufLen);
}
if (pAddresses == NULL) {
zend_error(E_WARNING, "Memory allocation failed for IP_ADAPTER_ADDRESSES struct");
RETURN_FALSE;
}
dwRetVal = GetAdaptersAddresses(family, flags, NULL, pAddresses, &outBufLen);
if (NO_ERROR != dwRetVal) {
char *buf = php_win32_error_to_msg(GetLastError());
zend_error(E_WARNING, "GetAdaptersAddresses failed: %s", buf);
php_win32_error_msg_free(buf);
FREE(pAddresses);
RETURN_FALSE;
}
array_init(return_value);
for (p = pAddresses; p; p = p->Next) {
zval iface, unicast;
if ((IF_TYPE_ETHERNET_CSMACD != p->IfType) && (IF_TYPE_IEEE80211 != p->IfType) && (IF_TYPE_SOFTWARE_LOOPBACK != p->IfType)) {
continue;
}
array_init(&iface);
if (p->Description) {
char tmp[256];
memset(tmp, 0, sizeof(tmp));
wcstombs(tmp, p->Description, sizeof(tmp));
add_assoc_string(&iface, "description", tmp);
}
if (p->PhysicalAddressLength > 0) {
zend_string *mac = zend_string_alloc(p->PhysicalAddressLength * 3, 0);
char *s = ZSTR_VAL(mac);
ULONG i;
for (i = 0; i < p->PhysicalAddressLength; ++i) {
s += snprintf(s, 4, "%02X:", p->PhysicalAddress[i]);
}
*(--s) = 0;
ZSTR_LEN(mac) = s - ZSTR_VAL(mac);
add_assoc_str(&iface, "mac", mac);
}
/* Flags could be placed at this level,
* but we repeat it in the unicast subarray
* for consistency with the POSIX version.
*/
add_assoc_long(&iface, "mtu", p->Mtu);
array_init(&unicast);
for (u = p->FirstUnicastAddress; u; u = u->Next) {
switch (u->Address.lpSockaddr->sa_family) {
case AF_INET: {
ULONG mask;
struct sockaddr_in sin_mask;
ConvertLengthToIpv4Mask(u->OnLinkPrefixLength, &mask);
sin_mask.sin_family = AF_INET;
sin_mask.sin_addr.s_addr = mask;
iface_append_unicast(&unicast, p->Flags,
(struct sockaddr*)u->Address.lpSockaddr,
(struct sockaddr*)&sin_mask, NULL, NULL);
break;
}
case AF_INET6: {
ULONG i, j;
struct sockaddr_in6 sin6_mask;
memset(&sin6_mask, 0, sizeof(sin6_mask));
sin6_mask.sin6_family = AF_INET6;
for (i = u->OnLinkPrefixLength, j = 0; i > 0; i -= 8, ++j) {
sin6_mask.sin6_addr.s6_addr[j] = (i >= 8) ? 0xff : ((ULONG)((0xffU << (8 - i)) & 0xffU));
}
iface_append_unicast(&unicast, p->Flags,
(struct sockaddr*)u->Address.lpSockaddr,
(struct sockaddr*)&sin6_mask, NULL, NULL);
break;
}
}
}
add_assoc_zval(&iface, "unicast", &unicast);
add_assoc_bool(&iface, "up", (p->OperStatus == IfOperStatusUp));
add_assoc_zval(return_value, p->AdapterName, &iface);
}
FREE(pAddresses);
#undef MALLOC
#undef FREE
#elif HAVE_GETIFADDRS || defined(__PASE__) /* !PHP_WIN32 */
struct ifaddrs *addrs = NULL, *p;
ZEND_PARSE_PARAMETERS_NONE();
if (getifaddrs(&addrs)) {
php_error(E_WARNING, "getifaddrs() failed %d: %s", errno, strerror(errno));
RETURN_FALSE;
}
array_init(return_value);
for (p = addrs; p; p = p->ifa_next) {
zval *iface = zend_hash_str_find(Z_ARR_P(return_value), p->ifa_name, strlen(p->ifa_name));
zval *unicast, *status;
if (!iface) {
zval newif;
array_init(&newif);
iface = zend_hash_str_add(Z_ARR_P(return_value), p->ifa_name, strlen(p->ifa_name), &newif);
}
unicast = zend_hash_str_find(Z_ARR_P(iface), "unicast", sizeof("unicast") - 1);
if (!unicast) {
zval newuni;
array_init(&newuni);
unicast = zend_hash_str_add(Z_ARR_P(iface), "unicast", sizeof("unicast") - 1, &newuni);
}
iface_append_unicast(unicast,
p->ifa_flags,
p->ifa_addr, p->ifa_netmask,
(p->ifa_flags & IFF_BROADCAST) ? p->ifa_broadaddr : NULL,
(p->ifa_flags & IFF_POINTOPOINT) ? p->ifa_dstaddr : NULL);
status = zend_hash_str_find(Z_ARR_P(iface), "up", sizeof("up") - 1);
if (!status) {
add_assoc_bool(iface, "up", ((p->ifa_flags & IFF_UP) != 0));
}
}
freeifaddrs(addrs);
#else
/* Should never happen as we never register the function */
ZEND_UNREACHABLE();
#endif
}
#endif
/* }}} */