авто сохранение конфигов BDCOM на TFTP

для начала установим необходимые утилиты

apt-get install perl mc screen mysql-client

модули перл

perl -MCPAN -e 'install Net::Telnet'
perl -MCPAN -e 'install DBI'
perl -MCPAN -e 'install DBD::mysql'

perl скрипт сохранения

cat ./bdcom_save_tftp.pl 
#!/usr/bin/perl

use Net::Telnet;
use strict;
use locale;
use POSIX;
setlocale(LC_ALL, 'C');

my $host='10.95.95.5';
my $tftp_server='10.95.95.1';                                                                                         
my $login='login';
my $password='pass';
my $file = "/opt/$host.log";
my $t = new Net::Telnet(Timeout => 1, Telnetmode => 0, Errmode => "return", Input_log => $file);

    $t->open(Host => $host);
    $t->waitfor('/login:/i');
    $t->print($login);
    $t->waitfor('/password:/i');
    $t->print($password);
    $t->waitfor('/#:/i');
    $t->print('enable');
    $t->waitfor('/#:/i');
    $t->print("copy flash tftp $tftp_server");                                                                        
    $t->waitfor('/#:/i');                                                                                             
    $t->print('startup-config');                                                                                      
    $t->waitfor('/#:/i');                                                                                             
    $t->print('startup-config-DATE');                                                                                 
    $t->print('exit');
    $t->waitfor('/#:/i');
    $t->print('exit');
host ip устройства
tftp_server ip TFTP сервра
Добавить скрипт в CRON
tip

в папке /opt будут писаться файлы log где можно увидеть что происходило.

  • billing/telnet_save-script_tftp.txt
  • Последние изменения: 5 лет назад
  • — Алексей Ларюшкин