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 : 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
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