diff options
Diffstat (limited to 'perl/SNMP/examples/ipforward.pl')
-rw-r--r-- | perl/SNMP/examples/ipforward.pl | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/perl/SNMP/examples/ipforward.pl b/perl/SNMP/examples/ipforward.pl new file mode 100644 index 0000000..de61e40 --- /dev/null +++ b/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"; |