/usr/share/doc/libsnmp-perl/examples/ipforward.pl is in libsnmp-perl 5.7.2~dfsg-8.1ubuntu3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 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";
|