diff options
Diffstat (limited to 'tests')
-rw-r--r-- | tests/interface.pl | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/tests/interface.pl b/tests/interface.pl index 989d6c5..eaa295f 100644 --- a/tests/interface.pl +++ b/tests/interface.pl @@ -7,8 +7,12 @@ use strict; use warnings; use Vyatta::Interface; +use Vyatta::Misc qw(getInterfaces getInterfacesIPadresses); -foreach my $arg (@ARGV) { +my @ips = getInterfacesIPadresses('all'); +print "IP addresses = ",join(' ',@ips), "\n"; + +foreach my $arg (getInterfaces()) { print "$arg : "; my $intf = new Vyatta::Interface($arg); |