diff options
author | Stephen Hemminger <stephen.hemminger@vyatta.com> | 2009-12-21 10:52:40 -0800 |
---|---|---|
committer | Stephen Hemminger <stephen.hemminger@vyatta.com> | 2009-12-21 10:52:40 -0800 |
commit | d234dbf62a065de2b799f9b57c1b476c07a6bc17 (patch) | |
tree | 276dcc9e0854cb549e1f42ae29b6ee518c823e48 /tests/isip.pl | |
parent | 7f58b680525bcf9a07f9f1e4c1a6fc4aa7815dae (diff) | |
download | vyatta-cfg-system-d234dbf62a065de2b799f9b57c1b476c07a6bc17.tar.gz vyatta-cfg-system-d234dbf62a065de2b799f9b57c1b476c07a6bc17.zip |
Move interface support from vyatta-cfg to vyatta-cfg-system
All the other interface types are in vyatta-cfg-system, only
loopback and ethernet were in vyatta-cfg
Diffstat (limited to 'tests/isip.pl')
-rw-r--r-- | tests/isip.pl | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/tests/isip.pl b/tests/isip.pl new file mode 100644 index 00000000..35a04b7a --- /dev/null +++ b/tests/isip.pl @@ -0,0 +1,23 @@ +#! /usr/bin/perl + +# Standalone test for Vyatta::Misc::isIPInterfaces + +use strict; +use warnings; +use Vyatta::Misc; +use Vyatta::Interface; + +my $vc; +my @interfaces = getInterfaces(); +print "Interfaces: ", join(' ',@interfaces),"\n"; + +foreach my $lip (@ARGV) { + print $lip, " is"; + if (Vyatta::Misc::isIPinInterfaces($vc, $lip, @interfaces)) { + print " in\n"; + } else { + print " not in\n"; + } +} + +exit 0; |