Discussion :

[ciols]

Bonjour,

Je dois finir un petit script d'exploitation qui permet de récupérer les configurations des machines. Je récupère leurs @IP et les stock dans un tableau.

Ensuite je boucle sur ce tableau et je me connecte en SSH sur chacune d'entre elles.

Exemple :
@IPA
@IPB
@IPC

Je me connecte d'abord sur A, tout va bien, je me déconnecte. Maintenant je veux me connecter sur B. Sauf que la connexion échoue et de ce fait, mon programme s'arrete et ne se lance pas sur la machine C.

Avez-vous une idée de comment faire pour que si la connexion échoue, le script continue quand même ?

J'utilise cette fonction de connexion :

Code :

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

1
2
3
4
5
6
sub connexionSSH {
  ($host) = @_;
  print "host = ".$host."\n";
  $ssh = Net::OpenSSH->new($host, user => $user, password => $password, master_stderr_discard => 1,master_opts => [-o => "StrictHostKeyChecking=no"]);
  $ssh->error and die "Erreur lors de la connexion : ".$ssh->error;
}

Merci d'avance

[Lolo78]

A tout hasard, en remplaçant :

Code :

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

1
2
 
$ssh->error and die "Erreur lors de la connexion : ".$ssh->error;

par:

Code :

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

1
2
 
$ssh->error and warn "Erreur lors de la connexion : ".$ssh->error;

ça donne quoi?

[dmganges]

Bonjour,

Sur la même idée de Lolo78, juste pour voir, fait un essai en supprimant $ssh->error

Ou contrôler la connexion avec qqc comme :

Code :

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

1
2
3
4
my $login = $ssh->login();
        if ($login !~ /Welcome/) {
            die "Login has failed. Login output was $login";
        }

et passer à la connexion suivante...

J'imagine que B est réellement indisponible, sinon une petite tempo entre les différentes connexions.

[ciols]

J'ai essayé le warn, sans succès.

Je vais essayer l'autre solution en supprimant le $ssh->error !

[djibril]

Bonjour,

Sans succès veut dire ?
Merci de donner plus d'informations, de nous donner les messages s'affichant.

[ciols]

Voici mes erreurs :

xx.xx.xx.1
xx.xx.xx.2
==> Connexion SSH en cours...
host = xx.xx.xx.1
Erreur lors de la connexion : unable to establish master SSH connection: login timeout at ./recuperation_conf_pcrf.pl line 252, <> line 79.
host = xx.xx.xx.1
Use of uninitialized value in scalar chomp at ./recuperation_conf_pcrf.pl line 307, <> line 79.
Use of uninitialized value in concatenation (.) or string at ./recuperation_conf_pcrf.pl line 310, <> line 79.
Use of uninitialized value in concatenation (.) or string at ./recuperation_conf_pcrf.pl line 310, <> line 79.
operation didn't complete sucessfullyunable to establish master SSH connection: login timeout at ./recuperation_conf_pcrf.pl line 351, <> line 79.
remote command failed : unable to establish master SSH connection: login timeout at ./recuperation_conf_pcrf.pl line 365, <> line 79.
remote command failed : unable to establish master SSH connection: login timeout at ./recuperation_conf_pcrf.pl line 379, <> line 79.
remonte command failed : unable to establish master SSH connection: login timeout at ./recuperation_conf_pcrf.pl line 395, <> line 79.
remote command failed : unable to establish master SSH connection: login timeout at ./recuperation_conf_pcrf.pl line 409, <> line 79.
remote command failed : unable to establish master SSH connection: login timeout at ./recuperation_conf_pcrf.pl line 420, <> line 79.
SSHAuthenticationError Login timed out. The input stream currently has the contents bellow: at /usr/lib/perl5/site_perl/5.8.8/Expect.pm line 828

Dans cet exemple, je n'arrive pas à me connecter à la .1, cependant, je ne passe tout de même pas à la .2. De plus, la plupart des erreurs qui suivent sont le fruit de l'échec de la connexion.

Et voici le fonctionnel :

Code :

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

1
2
3
4
5
6
7
8
GetOptions ("range=s" => \$range) or die("Error in command line arguments\n");
$mem = $range;
if (defined($range)) {
  recuperationIP($range);
  for (my $i = 0 ; $i < scalar(@tabIP) ; $i++) {
    recupConf($tabIP[$i]);
  }  
}

RecupConf est la fonction qui appellera la connexion SSH et les différentes commandes afin de récupérer la configuration de chaque équipement.
Il faudrait que lors d'un échec de connexion je puisse sortir de la fonction recupConf afin de continuer dans ma boucle for (my $i = 0 ; $i < scalar(@tabIP) ; $i++)