авто сохранение конфигов 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 где можно увидеть что происходило.