diff options
Diffstat (limited to 'perl-install')
-rw-r--r-- | perl-install/c/stuff.xs.pl | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/perl-install/c/stuff.xs.pl b/perl-install/c/stuff.xs.pl index 3abcd7690..ec4b72569 100644 --- a/perl-install/c/stuff.xs.pl +++ b/perl-install/c/stuff.xs.pl @@ -471,6 +471,25 @@ isNetDeviceWirelessAware(device) RETVAL +int enable_net_device(device) + char * device + CODE: + struct ifreq ifr; + int err; + int s = socket(AF_INET, SOCK_DGRAM, 0); + + strncpy(ifr.ifr_name, device, IFNAMSIZ); + err = ioctl(s, SIOCGIFFLAGS, &ifr); + if (!err && !(ifr.ifr_flags & IFF_UP)) { + ifr.ifr_flags |= IFF_UP; + err = ioctl(s, SIOCSIFFLAGS, &ifr); + } + if (err) + perror("SIOCSIFFLAGS"); + RETVAL = err; + OUTPUT: + RETVAL + void get_netdevices() PPCODE: |