From 73026e8580afbbbbb18970679ff7207676b51ba6 Mon Sep 17 00:00:00 2001
From: Stephen Hemminger <stephen.hemminger@vyatta.com>
Date: Wed, 7 Jan 2009 15:02:18 -0800
Subject: New Vyatta::Interface infrastructure

Provide generic module to map interface name to configuration
and other attributes.  This is first step to ripping the special
case code out of DHCP, QoS, ... that all have own rules for mapping
name to configuration and configuration to name.
---
 tests/interface.pl | 35 +++++++++++++++++++++++++++++++++++
 1 file changed, 35 insertions(+)
 create mode 100644 tests/interface.pl

(limited to 'tests')

diff --git a/tests/interface.pl b/tests/interface.pl
new file mode 100644
index 0000000..5fe4278
--- /dev/null
+++ b/tests/interface.pl
@@ -0,0 +1,35 @@
+#! /usr/bin/perl
+
+# Standalone test for Vyatta::Interface, not intended to be used
+# directly
+
+
+use strict;
+use warnings;
+use Vyatta::Interface;
+
+foreach my $arg (@ARGV) {
+    print "$arg : ";
+    my $intf = new Vyatta::Interface($arg);
+
+    if (! $intf) {
+	print "undefined\n";
+	next;
+    }
+    
+    my $vif = $intf->vif();
+    print "vif=$vif " if $vif;
+    printf "path = '%s' device=%s\n", $intf->path(), $intf->physicalDevice();
+
+    foreach my $attr (qw(exists configured disabled dhcp address up running)) {
+	my $val = $intf->$attr();
+
+	if ($val) {
+	    print "\t$attr = $val\n";
+	} else {
+	    print "\t$attr is not set\n";
+	}
+    }
+}
+
+exit 0;
-- 
cgit v1.2.3