Add a possibly useful little wrapper to fetch lots of different SNMP values at the same time.

1 files changed, 23 insertions, 0 deletions

diff --git a/include/nms.pm b/include/nms.pm
index 047c243..13689a2 100644
--- a/include/nms.pm
+++ b/include/nms.pm
@@ -134,4 +134,27 @@ sub snmp_open_session {
 	return $session;
 }
 
+# Not currently in use; kept around for reference.
+sub fetch_multi_snmp {
+	my ($session, @oids) = @_;
+
+	my %results = ();
+
+	# Do bulk reads of 40 and 40; seems to be about the right size for 1500-byte packets.
+	for (my $i = 0; $i < scalar @oids; $i += 40) {
+		my $end = $i + 39;
+		$end = $#oids if ($end > $#oids);
+		my @oid_slice = @oids[$i..$end];
+
+		my $localresults = $session->get_request(-varbindlist => \@oid_slice);
+		return undef if (!defined($localresults));
+
+		while (my ($key, $value) = each %$localresults) {
+			$results{$key} = $value;
+		}
+	}
+
+	return \%results;
+}
+
 1;