Дорогие пользователи! У нас появился новый форум на платформе tp-link.community (Сообщество)

Форум доступен по ссылке https://community.tp-link.com/ru

Если при регистрации в Сообществе Вы укажете адрес электронный почты, который используете на данном форуме, то Ваши данные будут перенесены на форум Сообщества автоматически.
Также, если на форуме Сообщества Ваш никнейм будет занят, то Вам предложат сменить его или оставить, но с приставкой "_RU".

Подробнее Вы можете прочитать тут: https://community.tp-link.com/ru/home/f ... pic/501542

Убедительная просьба не дублировать темы на старом/новом форуме.

TL-SG5412F v1 copy startup-config tftp PERL

Управляемый коммутатор L2 с 24 портами 10/100 Мбит/с и 4 гигабитными портами
Ответить
64bitweb
Сообщения: 2
Зарегистрирован: 05 окт 2015, 14:34
Контактная информация:

TL-SG5412F v1 copy startup-config tftp PERL

Сообщение 64bitweb » 05 окт 2015, 14:58

Всем доброго дня. Набросал скрипт для бэкапа свичей на PERL. С другими изготовителями работает на ура. Ну вот на TL-SG5412F v1 - застрял. Вот собственно сам скрипт:

Код: Выделить всё

#!/usr/bin/perl

use Net::Telnet;
use strict;

my $tftp_server='10.12.59.74';                                                                                         
my $login='admin';
my $password='admin';
my $file = "/root/tftp-back-script/backup.log";
my $t = new Net::Telnet(Timeout => 1, Telnetmode => 0, Errmode => "return", Input_log => $file);

my @tplink = (
		'172.16.2.7'		
	);

for (my $i=0; $i <= $#tplink; $i++){ 
	$t->open(Host => $tplink[$i]);
        $t->waitfor('/User:/i');
        $t->print($login);
        $t->waitfor('/Password:/i');
        $t->print($password);
	$t->waitfor('/>#.*/i');
	$t->print('');
	$t->waitfor('/>/i');
  	$t->print('enable');
	$t->waitfor('/Password:/i');
	$t->print($password);
	$t->waitfor('/#/i');	
	$t->print("copy startup-config tftp ip-address $tftp_server filename $tplink[$i].cfg");
        $t->waitfor('/#/i');                                                                                             
        $t->print('exit');
	$t->waitfor('/>/i');
	$t->print('exit');
}


А лог вертает следующий результат

Код: Выделить всё

яьяыяыяэяыяэяыяы"яы
***************** User Access Login ********************

User:admin
Password:



TP-LINK>#2015-10-05 13:53:09,[User]/3/Login the CLI by admin on vty0 (192.168.0.100).



TP-LINK>enable

Password:



TP-LINK#copy startup-config tftp ip-address 10.12.59.74 filename 172.16.2[65D$opy startup-config tftp ip-address 10.12.59.74 filename 172.16.2.[66D$py startup-config tftp ip-address 10.12.59.74 filename 172.16.2.7[66D$y startup-config tftp ip-address 10.12.59.74 filename 172.16.2.7.[66D$ startup-config tftp ip-address 10.12.59.74 filename 172.16.2.7.c[66D$startup-config tftp ip-address 10.12.59.74 filename 172.16.2.7.cf[66D$tartup-config tftp ip-address 10.12.59.74 filename 172.16.2.7.cfg
 Start to backup user config file......
Имя бэкапа пробую задавать другое. Не помагает. Заранее спасибо за помощь

64bitweb
Сообщения: 2
Зарегистрирован: 05 окт 2015, 14:34
Контактная информация:

Re: TL-SG5412F v1 copy startup-config tftp PERL

Сообщение 64bitweb » 17 окт 2015, 09:58

Разобрался отрезав конец названия бэкапа:

Код: Выделить всё

 $t->print("copy startup-config tftp ip-address $tftp_server filename $tplink[$i]");

Ответить

Вернуться в «TL-SL5428E»