#!/usr/bin/perl


require Net::SNMP;
#use Data::Dump "pp";
$| = 1;

$howmany = $ARGV[0] or die;

$ipCidrRouteProto = "1.3.6.1.2.1.4.24.4.1.7";
$ipCidrRouteIfIndex = "1.3.6.1.2.1.4.24.4.1.5";
$ipCidrRouteType = "1.3.6.1.2.1.4.24.4.1.6";
$ipRouteMask = "1.3.6.1.2.1.4.21.1.11";
$ipRouteIfIndex = "1.3.6.1.2.1.4.21.1.2";
$ipRouteType = "1.3.6.1.2.1.4.21.1.8";
$ipRouteNextHop = "1.3.6.1.2.1.4.21.1.7";
$ipRouteProto = "1.3.6.1.2.1.4.21.1.9";

open IPFILE, "<allips.txt" or die;

for $i (1 .. $howmany) {
	my ($host, $commstr) = split / /, <IPFILE>;
	chomp $commstr;
	print "$host, $commstr ";
	last unless $commstr;
	&poll($host, $commstr);
	if ($i % 5 == 0) {
		my $memusage = (`ps -p $$ -o vsz `)[1];
		chomp $memusage;
		print " __${memusage}__";
	}
	print "\n";
}
print "\n";




sub poll {
	my ($devarg, $commstr) = @_ or die;
	my ($sessionO, $error) = Net::SNMP->session(
		-hostname => $devarg, -community => $commstr, -port => 161, -translate => 1, -version => SNMPv1, 
		-timeout => 30,	-retries => 2, -domain => "udp", -debug => 0x00 );
	if (!defined($sessionO)) {
		print STDERR "Error making object($devarg $commstr): ", $error, " \n";
		print "Error making object($devarg $commstr): ", $error, " \n";
		die;
	}
	$sessionO->translate([-timeticks => 0]);
	my $session = \$sessionO;

	my $result6;
	$result6 = $$session->get_entries(-columns => [$ipCidrRouteIfIndex, $ipCidrRouteProto, $ipCidrRouteType ]);
	$result6 = $$session->get_entries(-columns => [$ipRouteNextHop, $ipRouteIfIndex, $ipRouteMask, $ipRouteProto, $ipRouteType]) unless %$result6;
	if (!defined($result6)) {
		printf(" %s", $$session->error);
	}

	print "'", scalar %$result6, "' ", length join( "", %$result6);
#	print "\npre\n", pp($session), "\n", pp($sessionO), "\n";
	$$session->close;
#	print "\npost\n", pp($session), "\n", pp($sessionO), "\n";
}