NAME¶

Net::Ifconfig::Wrapper - provides a unified way to configure network interfaces on FreeBSD, OpenBSD, Solaris, Linux, OS X, and WinNT (from Win2K). Version 0.11

SYNOPSIS¶

  #!/usr/local/bin/perl -w
  # uni-ifconfig.pl
  # The unified ifconfig command.
  # Works the same way on FreeBSD, OpenBSD, Solaris, Linux, OS X, WinNT (from Win2K).
  # Note: due of Net::Ifconfig::Wrapper limitations 'inet' and 'down' commands
  # are not working on WinNT. +/-alias are working, of course.
  
  use strict;
  
  use Net::Ifconfig::Wrapper;
  
  my $Usage = << 'EndOfText';
  uni-ifconfig.pl         # Print this notice
  uni-ifconfig.pl -a      # Print info about all interfaces
  uni-ifconfig.pl <iface> # Print info obout specified interface
  uni-ifconfig.pl <iface> down
                          # Bring specified interface down
  uni-ifconfig.pl <iface> inet <AAA.AAA.AAA.AAA> mask <MMM.MMM.MMM.MMM>
                          # Set the specified address on the specified interface
                          # and bring this interface up
  uni-ifconfig.pl <iface> inet <AAA.AAA.AAA.AAA> mask <MMM.MMM.MMM.MMM> [+]alias
                          # Set the specified alias address
                          # on the specified interface
  uni-ifconfig.pl <iface> inet <AAA.AAA.AAA.AAA> [mask <MMM.MMM.MMM.MMM>] -alias
                          # Remove specified alias address
                          # from the specified interface
  EndOfText
  
  my $Info = Net::Ifconfig::Wrapper::Ifconfig('list', '', '', '')
        or die $@;
  
  scalar(keys(%{$Info}))
        or die "No one interface found. Something wrong?\n";
  
  if (!scalar(@ARGV))
        {
        print $Usage;
        exit 0;
        }
  
  if ($ARGV[0] eq '-a')
        {
        defined($ARGV[1])
                and die $Usage;
        foreach (sort(keys(%{$Info})))
                { print IfaceInfo($Info, $_); };
        exit 0;
        };
  
  $Info->{$ARGV[0]}
        or die "Interface '$ARGV[0]' is unknown\n";
  
  if    (!defined($ARGV[1]))
        {
        print IfaceInfo($Info, $ARGV[0]);
        exit 0;
        }
  
  my $CmdLine = join(' ', @ARGV);
  my $Result = undef;
  
  if    ($CmdLine =~ m/\A\s*([\w\{\}\-]+)\s+down\s*\Z/i)
        {
        $Result = Net::Ifconfig::Wrapper::Ifconfig('down', $1, '', '');
        }
  elsif ($CmdLine =~ m/\A\s*([\w\{\}\-]+)\s+inet\s+(\d{1,3}(?:\.\d{1,3}){3})\s+mask\s+(\d{1,3}(?:\.\d{1,3}){3})\s*\Z/i)
        {
        $Result = Net::Ifconfig::Wrapper::Ifconfig('inet', $1, $2, $3);
        }
  elsif ($CmdLine =~ m/\A\s*([\w\{\}\-]+)\s+inet\s+(\d{1,3}(?:\.\d{1,3}){3})\s+mask\s+(\d{1,3}(?:\.\d{1,3}){3})\s+\+?alias\s*\Z/i)
        {
        $Result = Net::Ifconfig::Wrapper::Ifconfig('+alias', $1, $2, $3);
        }
  elsif ($CmdLine =~ m/\A\s*([\w\{\}\-]+)\s+inet\s+(\d{1,3}(?:\.\d{1,3}){3})\s+(:?mask\s+(\d{1,3}(?:\.\d{1,3}){3})\s+)?\-alias\s*\Z/i)
        {
        $Result = Net::Ifconfig::Wrapper::Ifconfig('-alias', $1, $2, '');
        }
  else
        { die $Usage; };
  
  $Result
        or die $@;
  
  exit 0;
  
  sub IfaceInfo
        {
        my ($Info, $Iface) = @_;
  
        my $Res = "$Iface:\t".($Info->{$Iface}{'status'} ? 'UP' : 'DOWN')."\n";
  
        while (my ($Addr, $Mask) = each(%{$Info->{$Iface}{'inet'}}))
                { $Res .= sprintf("\tinet %-15s mask $Mask\n", $Addr); };
        
        $Info->{$Iface}{'ether'}
                and $Res .= "\tether ".$Info->{$Iface}{'ether'}."\n";
  
        $Info->{$Iface}{'descr'}
                and $Res .= "\tdescr '".$Info->{$Iface}{'descr'}."'\n";
        
        return $Res;
        };

DESCRIPTION¶

This module provides a unified way to configure the network interfaces on FreeBSD, OpenBSD, Solaris, Linux, OS X, and WinNT (from Win2K) systems. Only "inet" (IPv4) and "ether" (MAC) addresses are supported at the moment On Unixes this module calls the system "ifconfig" command to perform the actions. On Windows the functions from IpHlpAPI.DLL are called. For all supported Unixes "Net::Ifconfig::Wrapper" expect "ifconfig" command to be "/sbin/ifconfig". Module was tested on FreeBSD 4.7,4.8,5.3 (Intel), RedHat 6.2,7.3,8.0 (Intel), Win2000 Pro (Intel), OpenBSD 3.1 (SPARC), Solaris 7 (SPARC), OS X 10.3 (aka Panther), OS X 10.4 (aka Tiger). In MSWin32 family only WinNT is supported. In WinNT family only Win2K or later is supported.

The Net::Ifconfig::Wrapper methods¶

"Ifconfig(Command, Interface, Address, Netmask);"

The first and the last method of the "Net::Ifconfig::Wrapper" module. Do all the job. The particular action is described by the $Command parameter.

 

$Command could be:

EXPORT¶

None by default.

AUTHOR¶

Daniel Podolsky, <tpaba@cpan.org>

SEE ALSO¶

ifconfig(8), Internet Protocol Helper in Platform SDK.