Discussion :

[caramon _majere]

Bonjour,

sous strawberry, j'ai enfin trouvé le module pour me connecter à un équipement CISCO en SSH (NET::SSH:ERL 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 :

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

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

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.

[caramon _majere]

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 :

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

[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é.

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

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

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

[caramon _majere]

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 :

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

[caramon _majere]

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

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