summaryrefslogtreecommitdiff
path: root/cleopatre/application/spidnetsnmp/perl/SNMP/examples/ipforward.pl
diff options
context:
space:
mode:
Diffstat (limited to 'cleopatre/application/spidnetsnmp/perl/SNMP/examples/ipforward.pl')
-rw-r--r--cleopatre/application/spidnetsnmp/perl/SNMP/examples/ipforward.pl30
1 files changed, 0 insertions, 30 deletions
diff --git a/cleopatre/application/spidnetsnmp/perl/SNMP/examples/ipforward.pl b/cleopatre/application/spidnetsnmp/perl/SNMP/examples/ipforward.pl
deleted file mode 100644
index de61e40201..0000000000
--- a/cleopatre/application/spidnetsnmp/perl/SNMP/examples/ipforward.pl
+++ /dev/null
@@ -1,30 +0,0 @@
-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";