Petit soucis avec le Net::SSH2

**baloo81** · 20/01/2010, 16h33

Bonjour à tous et, avec du retard, bonne année à tous

J'ai un petit soucis avec le module Net:SSH2 au moment de la connexion.

Mon bout de code est le suivant :

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

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

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