Показать страницуСсылки сюдаНаверх Эта страница только для чтения. Вы можете посмотреть её исходный текст, но не можете его изменить. Сообщите администратору, если считаете, что это неправильно. ====== авто сохранение конфигов 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 где можн оувидеть что происходило. billing/telnet_save-script.txt Последнее изменение: 10 лет назад — ld