#!/usr/local/bin/perl

if ($#ARGV != 0) {
	die "Need value '$0 <#>'\n";
}

use SNMP 1.8;

require "parameters.plib";

$newvalue = $ARGV[0];

$var = new SNMP::Varbind(['1.3.6.1.4.1.785.6.1.6', '0', $newvalue, INTEGER]);

$session = new SNMP::Session ( DestHost => $host,
                                Community => $community,
                                RemotePort => $port );

print "Could not open session"
                if !defined($session);

$resp = $session->set($var);

if (!defined($resp)) {
	die "SNMP-request error\n";
}

$value = $var->[$SNMP::Varbind::val_f];

if ($session->{ErrorInd} != 0) {
	printf "Return error status '%d' means '%s' at index '%d'\n", $session->{ErrorNum}, $session->{ErrorStr}, $session->{ErrorInd};
} else {
	print "The min spare servers is set to '$value'\n";
}
