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»