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

===== Подготовка =====

для начала установим необходимые утилиты
<code>apt-get install perl mc screen mysql-client</code> 

==== модули перл ====
<code>perl -MCPAN -e 'install Net::Telnet'</code>
<code>perl -MCPAN -e 'install DBI'</code>
<code>perl -MCPAN -e 'install DBD::mysql'</code>

==== perl скрипт сохранения ====
<code>cat ./bdcom_save.pl 
#!/usr/bin/perl

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

my $host='10.95.95.5';
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('write');
    $t->waitfor('/#:/i');
    $t->print('exit');
    $t->waitfor('/#:/i');
    $t->print('exit');
</code>

|host| ip устройства |

<note tip>Добавить скрипт в CRON</note>

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