====== авто сохранение конфигов 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 сервра|
Добавить скрипт в CRONtip
в папке /opt будут писаться файлы log где можно увидеть что происходило.