Script backup configuration

Version imprimable

Bonsoir,
Voila j'ai chercher sur le site pour pouvoir m'aider (d'ailleur j'ai avancé grace a un autre sujet) parce que j'ai un script à réaliser pour mon entreprise!
Ce script aura pour but de se connecter sur mes switchs en telnet (utilisation du module net::telnet), et de faire une copie de la configuration des switchs, le tout sera envoyé ver mon serveur TFTP! Pour les connections aux switchs j'ai un fichier .txt avec sur la meme ligne le :

Code:

nom ip login mdp

Donc le contenue je le remet dans un tableau pour pouvoir les réutiliser!
Donc j'ai encore quelques problèmes pour faire les séparations sinon sa marche!!

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
my $base;
    $base= "/script_backup/database_switch.txt";

open (BASE,"$base") or die "can't open file\n";
my $Ligne;
my @tab;

while ($Ligne=<BASE>)
{
    my ($nom, $ip, $login, $mdp);

#    print $Ligne."\n";                                                                                                      
# Condition en expression reguliere d'une ligne du fichier txt sous la forme                                                 
# nom ip login mdp                                                                                                           
    if($Ligne =~ /(.*)\s(.*)\s(.*)\s(.*)/)   # J'ai un PB ici je pense! ne diserne pas l'espace entre le nom et IP........
    {
        push @tab, $1, $2, $3, $4;

	$nom = $1; 
	$ip = $2;
	$login = $3;
	$mdp = $4;

	print ("nom=$nom\n"); # test
	print ("ip=$ip\n"); # test
	print ("login=$login\n"); # test
	print ("mdp=$mdp\n"); # test
#       print ("$nom $ip $login $mdp"); # test
    }
    else
    {
        print("Erreur lecture de ligne : $.\n");
    }
}
close (BASE);

Le probleme ici etant que je resors pas dans le bonne ordre le contenue du tableau
j'obtiens pour la 1er ligne:

Code:

1
2
3
4
5
 
nom=SWO1 10.42.78.1
ip=user1
login=mdp1
mdp=

Mais le gros problème c'est la connexion en telnet...donc j'aurais besoin de vous pour m'aider!!

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
#!/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
 
 
 
    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,);

Merci d'avance!

RE,

Pour resoudre le probleme avec le tableau j'ai édité le fichier texte,
Code:

1 2 # nom;ip;login;mdp; if($Ligne =~ /(.*);(.*);(.*);(.*);/)
j'espere quelqu'un pourra m'aider pour la suite:!

14/01/2009, 14h10
jean.2edi
Tu as peut-être plusieurs espaces (ou tabulations) entre tes paramètres ? L'expression "\s" signifie "un blanc" (càd espace ou tabulation ou retour à la ligne...).
- Soit tu essaies "\s+", càd "un ou plusieurs blancs).
- Soit tu utilises la fonction split, qui découpe en tableau ta ligne puisque le séparateur est le même partout :
  Code:
  
  1 2 ($nom, $ip, $login, $mdp) = split(/\s+/, $Ligne);
14/01/2009, 14h56
parisien91

bah au depart, mon fichier.txt etait sous le forme

Code:

nom ip login mdp

avec 1 seul espace entre chaques "colonne" ... donc je n'ai pas trop compris pourquoi le décalage...

Sinon tu peux m'aider avec le module telnet???
15/01/2009, 10h40
jean.2edi

Désolé, je ne connais pas ce module : quel est ton problème ?

salut!
Mon probleme ce situe dans la connexion telnet a un switch...
J'ai fais le test d'une connexion a une DEBIAN avec le meme script ca marche

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
    my $switch_ip = 'XXX.XX.XX.XX';                            
    print ("$switch_ip\n");                                                 
    my $user_login = 'login';                                      
    my $user_password = 'passwd';                              
    print "$user_login, $user_password\n";                                
    my $switch_port = 23;                         
   my $telnet_session; 
    $telnet_session= new Net::Telnet (                                                                                      
##                    'Host' =>$switch_ip,                                                                 
##                    'Port' => $switch_port,                                                               
                      'Errmode' => 'return',                                                                
                      'Timeout' => 30,                                                                      
                                      );                                                                                    
    $telnet_session->open('Timeout' => 5, 'Errmode' => 'return', 'Host' => $switch_ip, 'Port' => $switch_port) or die "Switch $switch_ipintrouvable\n";
    $telnet_session->login($user_login,$user_password) or die "connexion echoue\n"; 
    print $telnet_session->cmd('who');

Ce code la fonctionne pour me connecter a une VM DEBIAN

mais lorsque je veux l'utiliser pour mon switch rien.... Je remplace la derniere commande du code ci-dessus et met ca!J'enleve aussi pour les MDP et login, comme mon switch a pas encore de sécurité!

Code:

1
2
3
 
    $telnet_session->print("enable");
    $telnet_session->print("configure terminal");

mais la sa me fais rien, j'ai fais des "print "test"", ils apparaissent mais c'est tout...

bonjour,
J'ai encore un peu avancé mais je suis vraiment bloqué!!

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
  my $switch_ip = $ip;                                                                      
    my $user_login = $login;
    my $user_password = $mdp;
    my $switch_port = 23;
 
    my $telnet_session;
    $telnet_session= new Net::Telnet (                                       
                                      'Errmode' => 'return',
                                      'Timeout' => 30,
                                      );
    if (not defined $telnet_session)
    {
        &print_error("Connect Telnet Session - IP: $switch_ip PORT: $switch_port\n");
        return (1);
    }
 
                ## Fonction necessaire a net::telnet                                                                        
    $telnet_session->option_callback(\&opt_callback);
    $telnet_session->option_accept('Do' => TELOPT_TTYPE);
    $telnet_session->suboption_callback(\&subopt_callback);
 
 
    $telnet_session->open('Timeout' => 5, 'Errmode' => 'return', 'Host' => $switch_ip, 'Port' => $switch_port) or die "conn\
exion au switch $switch_ip echoue\n";
    sleep 1;
 
    my @lines = $telnet_session->print('show ru');
    print "show running = @lines\n";

Comme j'avais pas de messages d'erreurs pour la connexion, j'ai fais un test avec une commande show sur le switch sauf que je recois pas de messages d'erreur mais ca

Code:

show running = 1

donc comment faire?? d'ou cela peux venir???

Je ne connais pas ce module, mais d'après la doc, ça marche ! le retour = 1 signifie que tu n'as pas d'erreur :
Code:

1 2 3 4 5 6 7 8 print - write to object $ok = $obj->print(@list); This method writes @list followed by the output_record_separator to the open object and returns 1 if all data was successfully written. On time-out or other failures, the error mode action is performed. See errmode().
Relis la doc ?

19/01/2009, 09h51
parisien91

Exactement je me suis replonger dans la doc et je viens de trouver apres de nombreuses recherches que le 1 signifiait que tout s'etait bien passé...

C'est bon ce probleme est resolut merci de m'avoir aidé