Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Последние темы форума

Показать новые сообщения »

Почтовая рассылка

Подписчиков: 6484
Последний выпуск: 19.06.2015

скрипт снятия конфигов работает неправильно

10K
15 июля 2013 года
trinitro
48 / / 14.06.2010
Пишу скрипт который обходит свитчи и сливает текущий конфиг с них:


Код:
use Net::Telnet;
use Pg;

$DB = Pg::connectdb("host=10.0.0.4 dbname=info user=info_bckp password=ofra");

$qry = "SELECT ip FROM computers WHERE unit_id='76'";
#$qry = "SELECT ip FROM computers WHERE name='switch150'";
$res = $DB -> exec($qry);

while (@row = $res -> fetchrow)
{  
    $ip = $row[0]; #get ip switch

    $telnet = new Net::Telnet (Timeout=>25,Errmode=>'die',Prompt=>'/#/'); #make object net

    $telnet -> open(Host=>$ip); #connect to switch
    $telnet -> login('name', '1234'); #enter to switch
   
    $file_name = $number = substr($ip,7,10); #strip ip address
    $file_name =~ s/$number/switch$number.cfg/; #rename config file

    if (-e "/var/www/webhome/local.net/d-link/$file_name")
    {
        unlink ("var/www/webhome/local.net/d-link/$file_name");
    }

    else
    {
        system "touch      /var/www/webhome/local.net/d-link/$file_name";
        system "chmod 0666 /var/www/webhome/local.net/d-link/$file_name";
    }


$cmd="upload cfg_toTFTP 10.0.0.1 d-link/$file_name";
$telnet -> cmd(String=>$cmd);

@lines = $telnet -> cmd(String=>$cmd);
print "@lines\n";

$telnet -> print('$cmd');
$telnet -> waitfor('/#/');
$telnet -> print ('logout');

$telnet -> close;

open(IF, "< /var/www/webhome/local.net/d-link/$file_name") or die $!;
open(OF, "> /var/www/webhome/local.net/d-link/$file_name.tmp")or die $!;

while(<IF>)
    {
    chomp;
    s/create account admin name//g;
    s/1234//g;
    print OF $_;
    }


close (OF);
close (IF);

rename "/var/www/webhome/local.net/d-link/$file_name", "/var/www/webhome/local.net/d-link/$file_name.bkp";
rename "/var/www/webhome/local.net/d-link/$file_name.tmp", "/var/www/webhome/local.net/d-link/$file_name";
unlink "/var/www/webhome/local.net/d-link/$file_name.bkp";

$date = `date +%d-%m-%Y--%H-%M`;
open(IF, ">> /var/www/webhome/local.net/d-link/$file_name") or die $!;
print IF "\n#$date";
close (IF);

system "chmod 0666 /var/www/webhome/local.net/d-link/$file_name";

}
__END__
скрипт сливает конфиг с одного свитча, но когда приступает ко следующиму останавливается с таким сообщением:

Цитата:
timed-out waiting for login prompt at switch_conf_bkp.pl line 20

,

т.е. на строчке

$telnet -> login('name', '1234')

В чём может быть дело?

394
15 июля 2013 года
CassandraDied
763 / / 24.05.2012
Свич может не отвечать или делать это не так, как того хотелось бы Net::telnet.
Цитата:
The methods login() and cmd() use the prompt setting in the object to determine when a login or remote command is complete. Those methods will fail with a time-out if you don't set the prompt correctly.


Вообще, прочитай про параметр prompt в документации.

10K
16 июля 2013 года
trinitro
48 / / 14.06.2010
Хорошо, тогда почему первая итерация цикла проходит всегда?
394
16 июля 2013 года
CassandraDied
763 / / 24.05.2012
Потому что первый свич всегда выдаёт нормальный prompt?
10K
16 июля 2013 года
trinitro
48 / / 14.06.2010
Да все должны выдавать нормальный prompt. Cвитчи D-link DES-3526 и DES-3200.
Проверено на отдельных экземплярах - работает (и на 3526 и на 3200), в цикле - только с одним, первым, а потом указанное сообщение.

Знаете кого-то, кто может ответить? Поделитесь с ним ссылкой.

Ваш ответ

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог