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

trinitr0

Дата 15.7.2013, 12:40 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 102
Регистрация: 25.6.2013

Репутация: нет
Всего: нет

Пишу скрипт который обходит свитчи и сливает текущий конфиг с них:

Код


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')

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

Это сообщение отредактировал(а) trinitr0 - 16.7.2013, 08:42

arto

Дата 15.7.2013, 21:52 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1495
Регистрация: 31.10.2004

Репутация: 38
Всего: 40

prompt совпадает?

trinitr0

Дата 16.7.2013, 08:30 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 102
Регистрация: 25.6.2013

Репутация: нет
Всего: нет

Цитата(arto @ 15.7.2013, 21:52)

prompt совпадает?

Да коечно совпадает, все свитчи D-link DES-3526 и DES-3200.
Логин и пасс у всех свитчей одинаков.
Кроме того проверено на отдельных экземплярах - рабтает, в цикле - только с одним, первым. smile

Это сообщение отредактировал(а) trinitr0 - 16.7.2013, 08:46

arto

Дата 16.7.2013, 09:27 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1495
Регистрация: 31.10.2004

Репутация: 38
Всего: 40

включите опции Dump_log, Input_log, Option_log, Output_log, если случай более тяжёлый -- смотрите tcpdump'ом

trinitr0

Дата 7.4.2016, 14:03 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 102
Регистрация: 25.6.2013

Репутация: нет
Всего: нет

Не хватало строчки:

Код


$telnet -> cmd('dis cli');

После

Код


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

И скрипт не видел полного вывода

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »