MOyen simple de faire une requete SNMP

Voilà la méthode que j'utilise aujourd'hui pour faire une requete SNMP.
Cependant, il ne semble pas que cette méthode soit la mieux du monde. Qu
elqu'un à une autre idée ?

sub snmp_get
{
my($session, @oids) = @_;
my($response, $bindings, $binding, $value, $oid);

grep ($_ = $ugly_oids{$_}, @oids);

if ($session->get_request_response (@oids)) {
$response = $session->pdu_buffer;
($bindings) = $session->decode_get_response ($response);

while ($bindings ne '') {
($binding,$bindings) = decode_sequence ($bindings);
($oid,$value) = decode_by_template ($binding, "%O%@");
print $pretty_oids{$oid}," => ",
pretty_print ($value), "\n";
}
} else {
warn "SNMP problem: $SNMP_Session::errmsg\n";
}
}


=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Article poste via Voila News - http://www.news.voila.fr
Le : Thu Aug 28 09:25:44 2003 depuis l'IP : 212.104.143.46 [VIP 3500978]