Discussion :

[parisien91]

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 :

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
#!/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

[messinese]

Salut ,

Peu etre devrais-tu jeter un oeil a la doc de CPAN :

ici

See you .. ;-)

[parisien91]

Merci
Mais j'ai deja toutes les docs dessus mais quand j'applique a mon projet en modifiant marche pas!!!

UPPP

[Arioch]

Remarque peut etre très conne mais nulle part dans ton script on te voit faire appel à la fonction connexion( )

C'est normal ou bien ?

[parisien91]

Oui c'est normal j'ai pas mis tout le script!!
Il y a la fonction sub main avec l'appel de toutes mes fonctions!!!
VOila
Merci de vouloir m'aider!