Script avec module telnet
Bonjour,
je veux réaliser un script qui se connecte a mes switchs en telnet et qui backup les configs de chacuns sur mon serveur tftp.
J'aurais besoin de vous pour m'aider a utiliser le module net::telnet
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
| #!/usr/bin/perl
# strict demande de definir les variables
use strict;
# warnings permet d'avoir des messages d'erreurs
use warnings;
# Module pour la connection Telnet
use Net::Telnet qw(TELOPT_TTYPE); #qw(TELOPT_TTYPE) sert a quoi???
use IO::Handle; # a quoi sa sert sa??? je l'ai mis parceque j'ai un modele
sub connexion
{
my $switch_ip = X.X.X.X; # je met juste ca comme j'ai pas mis de MDP ni login
my $switch_port = 12; # je met le n° port sur lequel je suis brancher
my $telnet_session = new Net::Telnet (
'Host' => $switch_ip,
'Port' => $switch_port,
'Errmode' => 'return',
'Timeout' => 20,);
} |
Je pensais que cette fonction etait bonne mais non, rien ... meme pas un message d'erreur...
Merci de m'éclairer
