[TELNET]probleme script perl
Bonjour a tous, j'ai un petit probleme avec mon script perl, je me connecte en telnet sur une box via ce script et je tente de passer la commande load pour charger un module dessus...
La manip fonctionne très bien quand je la fais moi meme "a la main" mais lorsque je tente de le faire via mon script, il me dit que je suis en timeout et qu'il n'a pas pu executer ma commande load....
J'ai deja fait un script de ce type avec un fichier plus petit (quelques ko) et ca a marché mais avec un fichier de 5Mo, ca marche plus....
Voila mon script :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
#!/usr/bin/perl -w
#Variables de connexion
$LOGIN='adm';
$PASSWORD='mdp';
$BOX='192.168.1.254';
use Net::Telnet ();
$t = new Net::Telnet (Timeout => 10, Prompt => '/.*[\$%#>] $/');
$t->open($BOX);
$t->login($LOGIN, $PASSWORD);
@lines = $t->cmd("load -u tftp://192.168.1.10/MonFichierDe5Mo.img");
print @lines;
@lines = $t->cmd("load -u tftp://192.168.1.10/MonSecondFichierPlusPetit.img");
print @lines;
$t->cmd("reboot"); |
Lorsque je change le timeout du telnet, il met plus de temps a me renvoyer le message de timeout mais ca ne change rien au probleme le load ne se fait pas...
Quelqu'un peut il m'aider a m'expliquer le probleme ?
