#!/usr/bin/perl
use SNMP_util ;
($host,$index) = @ARGV ;
@response = snmpwalk("public\@$host","1.3.6.1.4.1.9.9.42.1.3.1.1.7.$index") ;
$, = "\n" ;
#print "response = " , @response, "\n" ;
$last = 0 ;
foreach $in (@response) {
	($if,$val) = split (/:/,$in) ;
	($index) = ($if =~ /^(\d+)\./) ;
	#print "index = $index\n" ;
	$out = $val if $index > $last ;		# prefer the newer
	$last = $index ;
}

$out *= 60 ;
print "$out\n$out\n" ;
	

