X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=userapps%2Fopensource%2Fnet-snmp%2Fperl%2FSNMP%2Fexamples%2Fipforward.pl;fp=userapps%2Fopensource%2Fnet-snmp%2Fperl%2FSNMP%2Fexamples%2Fipforward.pl;h=de61e40201e552fd394b7e5724f2729962aec5fe;hb=9dffd9f7659a1b28265e0dc9497343eb3d108d02;hp=0000000000000000000000000000000000000000;hpb=e48c2529a5a7e7dbf1797bb6d1bf964bc03e78a7;p=bcm963xx.git

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
index 00000000..de61e402
--- /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";