Petit soucis avec le Net::SSH2
Bonjour à tous et, avec du retard, bonne année à tous :mouarf:
J'ai un petit soucis avec le module Net:SSH2 au moment de la connexion.
Mon bout de code est le suivant :
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
|
sub Connexion
{
require File::Basename;
require Net::SSH2;
$ssh2 = Net::SSH2->new();
$ssh2->connect($Serveur);
( $code, $error_name, $error_string ) = $ssh2->error();
if ( $code)
{
print "[WARNING] Impossible de se connecter au serveur : $Serveur\n\n";
return $code;
}
print "- Connexion sur le serveur : OK\n";
unless ( $ssh2->auth_password( $UserServ, $PassServ ) )
{
$ssh2->disconnect();
print "[WARNING] Connexion echoue : verifier user ou password\n\n";
$code = 1;
return $code;
}
print "- Ouverture de la session : OK\n";
} |
Il n'est peut-être pas le plus beau du monde, mais en temps normal il fonctionne ( surtout que le bout de code vient d'ici :lol: )
Toutes mes variables sont bien valorisées, pas de soucis. Par contre, au moment de la connexion, avant même de passer le user/passwd, il sort en erreur avec les codes suivants :
$code = -37
$error_name = LIBSSH2_ERROR_EAGAIN
$error_string = Unable to exchange encryption keys
et là, j'avoue que je sèche.
Si, en dehors du perl, je tape la commande
Code:
1
2
|
ssh user@serveur 'ls /tmp' |
je n'ai aucun soucis.
Alors si vous avez des pistes, je suis preneur ......
