Perl

Module Net::Telnet::Cisco : exit si ça ne répond pas

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Module Net::Telnet::Cisco : exit si ça ne répond pas

Tomate

Bonjour

je fais un script avec ce module qui vérifie certains choses
pour cela, j'ai une liste d'IP que je parcoure avec un foreach

le souci c'est que si l'équipement n'existe pas ou ne répond pas avant le timeout, le script s'arrête immédiatement !

comment faire pour que ça continue dans ma boucle ??

Merci

---------------
:: Light is Right ::

Publicité

anapajari

s/travail/glanding on hfr/gs;

sans un morceau du code ( ton foreach par exemple ) ça va être compliqué, mais je suppose que tu dois avoir un arrêt "volontaire" sur la non-réponse qu'il te suffit d'enlever.

---------------
Software and cathedrals are much the same - first we build them, then we pray.

Tomate

voila un bout :

Code :

my $matchop = '/(?mx:^% Unknown VPN
|CDP
|^%IP routing table VRF.* does not exist. Create first$
|^%No CEF interface information
|^%No matching route to delete$
|^%Not all config may be removed and may reappear after reactivating
)/';
foreach $ip (@ips) {
my $session = Net::Telnet::Cisco->new(Host => $ip) or die "problem connecting to host: $ip";
$session->login('plop', 'plop');
$session->warnings($matchop);
$session->ignore_warnings( 1 );
my @output = $session->cmd('show cdp nei');
if (grep(/CDP is not enabled/, @output)) {
print "$ip: CDP is NOT enabled\n";
}
else {
print "$ip: CDP IS enabled\n";
}
$session->close;
}

@ips est un tableau tout bête d'ip

Message édité par Tomate le 17-07-2008 à 17:07:04

---------------
:: Light is Right ::

couak

remplaces

Code :

my $session = Net::Telnet::Cisco->new(Host => $ip) or die "problem

par un

Code :

if ($session = Net::Telnet::Cisco->new(Host => $ip))
{
...
}

Tomate

ok merci je teste ça lundi :jap:
ceci dit avec ou sans die le résultat est le même

Message édité par Tomate le 18-07-2008 à 19:31:41

---------------
:: Light is Right ::

Tomate

je viens de tester avec une ip bidon, et le script s'arrête au bout du timeout

problem connecting to "XXXXXX", port 23: connect timed-out at cdp.pl line 68

---------------
:: Light is Right ::

gilou

Modérateur
Modzilla

C'est a cause du errmode de la session telnet qui est a die par défaut. Il faut le positionner à return.

Code :

if ($session = Net::Telnet::Cisco->new(Host => $ip, Errmode => 'return'))

A+,

Message édité par gilou le 22-07-2008 à 04:00:55

---------------
There's more than what can be linked! -- Iyashikei Anime Forever! -- AngularJS c'est un framework d'engulé! --

Tomate

haaaaan ça marche super merci :jap:

---------------
:: Light is Right ::

FORUM HardWare.fr

Programmation

Perl

Module Net::Telnet::Cisco : exit si ça ne répond pas

Sujets relatifs
Module python	[VB.NET] Fichier txt vers excel
[VB.NET]Problèmes styles richtextbox	Débutant need Help pour module VB Access
Partager un module avec plusieurs sites	[C#.NET] Surcharger l'operateur " ++ " pour une hashtable, comment ?
Un contrôle .NET dans la veine de la liste du QuickWatch ?	[ASP.NET] Accéder aux objets du Global.asax à partir d'un codefile ?
[C#.NET][pas si resolu] Colorer un ou plusieurs mots dans une textbox
Plus de sujets relatifs à : Module Net::Telnet::Cisco : exit si ça ne répond pas

Page générée en 0.051 secondes