Discussion :

[Dra_Gun]

Bonjour,

J'utilise Net::SNMP et j'aimerais savoir en combien de temps me répond l'équipement que j'interroge. Je ne sais pas si c'est une donnée que l'on peut récupérer..
Mon but au final est d'adapter les timeout et retries au mieux quitte à refaire une requête si je n'ai pas de résultat une première fois.

J'implémente ma session de cette façon:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
($session, $error) = Net::SNMP->session( -hostname  => $host,
                                         -community => COMMUNITY,
                                         -version   => VERSION,
                                         -timeout   => 2,
                                         -retries   => 3,
                                         -translate => [-all => 0]
                                        );

et je fais un simple get_request

Merci d'avance,

[Philou67430]

Tu peux essayer de le mesurer dans ton script (en configurant un timeout très long au départ), mais je ne sais pas si le protocole SMTP permet de transmettre ce genre d'info, ni si cette info est disponible par ailleurs sur le serveur (et d'ailleurs, je me demande comment cette info pourrait exister).

[Dra_Gun]

Hello,

Je me dis que s'il existe un timeout à régler, c'est qu'il doit bien y avoir cette donnée qui est comparée aux paramètres...
Je ne trouve rien dans ma variable $session...

mais je me suis débrouiller autrement..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
use Time::HiRes qw(time);
 
 
    my $t = time;
    my $date = strftime "%Y%m%d %H:%M:%S", localtime $t;
    $date .= sprintf ".%03d", ($t-int($t))*1000; # without rounding
    print $date, "\n";
    $result = $session->get_request( -varbindlist => [OID_INGRESS_OUT_PROF.$service.".".$interface.".".$vlan,
                                                      OID_INGRESS_IN_PROF.$service.".".$interface.".".$vlan,
                                                      OID_EGRESS_IN_PROF.$service.".".$interface.".".$vlan,
                                                      OID_EGRESS_OUT_PROF.$service.".".$interface.".".$vlan,
                                                      OID_GENERIC] );
 
    $nb_rep_generic++ if (defined($result->{''.OID_GENERIC}));
    $nb_rep_proprio++ if (defined($result->{OID_INGRESS_IN_PROF.$service.".".$interface.".".$vlan}));
 
#    print Dumper($session);
#    print strftime("%s", localtime)."\n";
    $t = time;
    $date = strftime "%Y%m%d %H:%M:%S", localtime $t;
    $date .= sprintf ".%03d", ($t-int($t))*1000; # without rounding
    print $date, "\n";

[Philou67430]

Moi, je me dis que s'il y a une timeout à configurer, c'est pour permettre à ton programme de ne pas attendre indéfiniment une réponse du serveur lors d'une requête