perl read timed-out

Version imprimable

perl read timed-out

Salut !

Voila mon problème :

Je fais un telnet sur un equipement pour pouvoir lui passer des commandes.
Jusque la pas de soucis, ensuite mon but et de récupérer le résultat de ces commandes via getline... Hier ca fonctionnait et aujourd'hui, j'ai un read timed-out comme erreur.

Je vous mets le bout du code concerné, je vous passe toutes les declarations de variables et le debut sans interet :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
eval {
    $telnet = new Net::Telnet(  Timeout => $timeout,
                                Prompt => $prompt,
                                Port => $port,
                                Dump_Log => "/home/scripts/log/dump.txt"
                                );
    $telnet->open($ip_equip);
    $telnet->login($user, $passwd);
};
if($@) {
    print "Probleme connexion equipement\n";
    _log("error", "Probleme connexion Telnet");
    die;
}
else {
    print "Connexion OK\n";
    _log("debug", "Connexion OK");
 
    $telnet->print(" ");
 
    $telnet->print("getpop 0\n");
    while($response = $telnet->getline) {
        if($response =~ /(\d).*(GPLT)/ ) {
            print $response;
            push (@cards,"$1");
        }
    }
    sort @cards;
 
    print "Fin du script\n";
    $telnet->close;
    close_log();
}

Merci d'avance à ceux qui m'aideront.

Damien

29/07/2008, 17h36
Jedai

Citation:

Envoyé par damsdu77

Je fais un telnet sur un equipement pour pouvoir lui passer des commandes.
Jusque la pas de soucis, ensuite mon but et de récupérer le résultat de ces commandes via getline... Hier ca fonctionnait et aujourd'hui, j'ai un read timed-out comme erreur.

Si tu n'as rien changé au script et que ça ne marche plus, c'est que le changement provient de l'équipement, essaie de faire les commandes telnet à la main pour voir ce qui se passe par exemple.

--
Jedaï
29/07/2008, 17h52
damsdu77

Salut,

Sur l'equipement aucun probleme. Les commandes passent sans soucis...

Je me suis demandé si il y avait une option dans le Net::Telnet pour ignorer le message d'erreur et éviter qu'il "die" mon script mais j'ai pas trouvé.
En plus hier je voyais bien la tempo du timeout mais une fois le temps dépassé il continuait le script sans soucis.

Donc la j'avoue que je ne sais plus ou chercher....

:?

Damien