Net::SSH2::Cisco changer message erreur

Version imprimable

Bonjour,

sous strawberry, j'ai enfin trouvé le module pour me connecter à un équipement CISCO en SSH (NET::SSH::PERL n'envoyait les ciphers, pourtant disponible dans la documentation via une option).

Ici j'ai volontairement utilisé une adresse IP non joignable pour choisir les messages d'erreurs et comportement en cas d'échecs.
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 27 28 use strict; use warnings; use feature 'say'; use Data::Dumper; no warnings 'uninitialized'; use Net::SSH2::Cisco; my $user = 'toto'; my $pass = 'titi'; my $SWITCH = '10.2.99.251'; sub SSH { my $ssh = Net::SSH2::Cisco->new(host => $SWITCH); $ssh->login("$user", "$pass"); if ( ! defined $ssh) { say "connexion impossible"; $ssh->close; } # Execute a command my @output = $ssh->cmd('show ip arp'); for (@output) { chomp; say $_ if $_ =~ /\.\d{1,2}\.237\s/ or /\.\d{1,2}\.238\s/ or /\.\d{1,2}\.254\s/; } $ssh->close; } &SSH;
résultat:
Net::SSH2 error - -1:LIBSSH2_ERROR_SOCKET_NONE = Unable to connect to remote host: Bad file descriptor
unable to connect to host - `10.2.99.251:22' at ssh.pl line 13

C'est un message d'erreur vu dans le code source ligne 943
Code:

1 2 3 ... return $self->error("Net::SSH2 error - $errcode:$errname = $errstr\nunable to connect to host - `$host:$port'") ...
Mon message say "connexion impossible"; n'est pas pris en compte.

Existe un moyen générique de ne pas tenir compte des alarmes de base et aussi pourquoi le mien ne s'affiche pas ?

Merci.

En fouinant j'ai trouvé l'utilisation de EVAL.
Je n'ai plus le message d'erreur du module quand la connexion échoue mais je n'arrive pas à afficher les messages désiré une fois que le module établie est sollicité.

J'ai mis plus say pour voir ou ca va ou pas

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
use strict;
use warnings;
use feature 'say';
use Data::Dumper;
no warnings 'uninitialized';
use Net::SSH2::Cisco;
 
my $user = 'toto';
my $pass = 'titi';
my $SWITCH = '10.2.99.251';
 
sub SSH {
	eval {
	say "connexion impossible0";
	my $FHRP;
	my @INTERFACE;
	my $ssh = Net::SSH2::Cisco->new(host => $SWITCH);
	say "connexion impossible1";
	$ssh->login("$user", "$pass");
	say "connexion impossible2";
	print Dumper $ssh;
	if (! defined $ssh) {
		say "connexion impossible3";
		$ssh->close;
		} else {	
		say "connexion impossible4";
		# Execute a command
		my @output = $ssh->cmd('show ip arp');
		for  (@output) {
			chomp;
			say $_ if $_ =~ /\.\d{1,2}\.237\s/ or /\.\d{1,2}\.238\s/ or /\.\d{1,2}\.254\s/;
			if ($_ =~ /\.\d{1,2}\.254\s/) {
				$FHRP = $_;
				}
			}
			my @SHOWMAC = split /\s+/, $FHRP;
			my $MAC = $SHOWMAC[3];
			my @SORTIE = $ssh->cmd("show mac address-table address $MAC");
			say;
			for (@SORTIE) {
				chomp;
				if ($_ =~ /$MAC/) {
					@INTERFACE = split /\s+/, $_;
					say "Le trafic sort par l\'interface $INTERFACE[4]";
					}
				}
			} 
		}
	}
 
&SSH;

Résultat:
connexion impossible0

12/09/2017, 17h35
Lolo78

Hum, ça n'a pas l'air d'être ce message d'erreur de la ligne 943, il y a des différences de libellé. C'en est probablement un autre.

Par ailleurs, il se peut que le programme meure avant la ligne de code où tu testes $ssh, du coup il n'imprime pas ton message personnalisé.
13/09/2017, 13h36
caramon _majere
Bonjour Lolo,

j'ai rajouté des die à deux endroits pour vérifier mais ce n'est pas pris en compte. J'ai l'impression qu'il ne voit pas $ssh (vide quand connexion en échec et remplis si connexion OK)
Code:

1 2 3 4 my $ssh = Net::SSH2::Cisco->new(host => $SWITCH); die "Session SSH KO\n" unless (defined $ssh); $ssh->login("$user", "$pass"); die "Session SSH KO\n" unless (defined $ssh);

Bon en attendant de comprend comme savoir si c'est la connexion à l'équipement ou le compte de connexion qui est en erreur, je peux afficher un message d'erreur pour un echecs (sans la cause) en utilisant EVAL.

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
use strict;
use warnings;
use feature 'say';
use Data::Dumper;
no warnings 'uninitialized';
use Net::SSH2::Cisco;
 
my $user = 'alexandre.lecorre';
my $pass = 'traianus77!';
my $SWITCH = '10.2.99.251';
 
sub SSH {
	eval {
	my $FHRP;
	my @INTERFACE;
	my $ssh = Net::SSH2::Cisco->new(host => $SWITCH);	
	$ssh->login("$user", "$pass");
	# Execute a command
	my @output = $ssh->cmd('show ip arp');
	for  (@output) {
		chomp;
		say $_ if $_ =~ /\.\d{1,2}\.237\s/ or /\.\d{1,2}\.238\s/ or /\.\d{1,2}\.254\s/;
		if ($_ =~ /\.\d{1,2}\.254\s/) {
			$FHRP = $_;
			}
		}
		my @SHOWMAC = split /\s+/, $FHRP;
		my $MAC = $SHOWMAC[3];
		my @SORTIE = $ssh->cmd("show mac address-table address $MAC");
		say;
		for (@SORTIE) {
			chomp;
			if ($_ =~ /$MAC/) {
				@INTERFACE = split /\s+/, $_;
				say "Le trafic sort par l\'interface $INTERFACE[4]";
				}
			}
		};
		if($@) {
		die "Cannot connect\n";
	} 		
}
 
&SSH;

Résultat:
Cannot connect

C'est bon j'ai trouvé, des EVAL multiples.

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
use strict;
use warnings;
use feature 'say';
use Data::Dumper;
no warnings 'uninitialized';
use Net::SSH2::Cisco;
 
my $user =’toto';
my $pass = 'titi';
my $SWITCH = '10.2.99.252';
 
sub SSH {
	my $FHRP;
	my @INTERFACE;
	eval {
	my $ssh = Net::SSH2::Cisco->new(host => $SWITCH);
	eval {
	$ssh->login("$user", "$pass");
	# Execute a command
	my @output = $ssh->cmd('show ip arp');
	for  (@output) {
		chomp;
		say $_ if $_ =~ /\.\d{1,2}\.237\s/ or /\.\d{1,2}\.238\s/ or /\.\d{1,2}\.254\s/;
		if ($_ =~ /\.\d{1,2}\.254\s/) {
			$FHRP = $_;
			}
		}
		my @SHOWMAC = split /\s+/, $FHRP;
		my $MAC = $SHOWMAC[3];
		my @SORTIE = $ssh->cmd("show mac address-table address $MAC");
		say;
		for (@SORTIE) {
			chomp;
			if ($_ =~ /$MAC/) {
				@INTERFACE = split /\s+/, $_;
				say "Le trafic sort par l\'interface $INTERFACE[4]";
				}
			}
		};
		if($@) {
			die "Cannot connect SSH\n";
			}
		};
		if ($@) {
			die "Cannot login SSH\n";
		}
	}
 
&SSH;