and added files

[bcm963xx.git] / userapps / opensource / net-snmp / perl / SNMP / examples / ipforward.pl

diff --git a/userapps/opensource/net-snmp/perl/SNMP/examples/ipforward.pl b/userapps/opensource/net-snmp/perl/SNMP/examples/ipforward.pl
new file mode 100644 (file)
index 0000000..de61e40
--- /dev/null
+++ b/userapps/opensource/net-snmp/perl/SNMP/examples/ipforward.pl
@@ -0,0 +1,30 @@
+use SNMP;
+$SNMP::use_enums = 1;
+
+my $host = shift;
+my $comm = shift;
+$sess = new SNMP::Session(DestHost => $host, Community => $comm);
+
+$vars = new SNMP::VarList( ['ipRouteIfIndex'], ['ipRouteType'],
+                           ['ipRouteProto'], ['ipRouteMask'],
+                           ['ipRouteNextHop'], ['ipRouteAge'],
+                          ['ipRouteMetric1']);
+
+format STDOUT_TOP =
+  Destination      Next Hop          Mask       Proto    Age    Metric
+--------------- --------------- -------------- ------- -------- ------
+.
+
+format STDOUT =
+@<<<<<<<<<<<<<< @<<<<<<<<<<<<<< @<<<<<<<<<<<<< @|||||| @||||||| @|||||
+$dest,          $nhop,          $mask,         $proto, $age,    $metric
+.
+
+for (($index,$type,$proto,$mask,$nhop,$age,$metric) = $sess->getnext($vars);
+     $$vars[0]->tag eq 'ipRouteIfIndex' and not $sess->{ErrorStr};
+     ($index,$type,$proto,$mask,$nhop,$age,$metric) = $sess->getnext($vars)) {
+    $dest = $$vars[0]->iid;
+    write;
+}
+
+print "$sess->{ErrorStr}\n";