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