форумы  помощь  поиск  регистрация  майллист  ВХОД  слежка

Вариант для распечатки		Архивированная нить - только для чтения!  Пред. тема | След. тема
Форумы Программирование под UNIX (Public)
Изначальное сообщение		[Проследить за развитием треда]

"Net::Telnet побороть не могу - help, pl..."
Сообщение от Agressor on 11-Сен-03, 18:37  (MSK)
Hi All!  Подскажите - как телнетом при помощи скрипта (или еще как:-) зайти в систему и передать login и passwd а затем команду. Для чего надо? - есть xDSL модем, у которого иногда виснет интерфейс тот который в кабель (PPPoE), а eth0 к машине живой остается. Вот и надо его при отсутствии пинга ребутнуть без участия человека... Подсказали копать в сторону Perl  Net::Telnet. С Perl'ом никогда дела близко не имел, но все же наваял скриптик: Запускаю так: ./script login passwd #!/usr/bin/perl use Net::Telnet (); $t = new Net::Telnet (Timeout => 20); $t->open("192.168.0.10"); $t->login($login, $password); $t->cmd("reboot"); и проблемка в том что он по таймауту вываливается: timed-out waiting for password prompt at ./script line 5 создается впечатление, что "некому нажать enter" после ввода пароля. Что посоветуете? P.S.   Прошу прощения за ламерский вопрос...
	Рекомендовать в FAQ | Cообщить модератору | Наверх

Индекс форумов | Темы | Пред. тема | След. тема

Сообщения по теме

1. "Net::Telnet побороть не могу - help, pl..."
Сообщение от Alex on 12-Сен-03, 11:24  (MSK)
>#!/usr/bin/perl >use Net::Telnet (); #инициализировать переменные my $login = shift or die "Login name required"; my $password = shift or die "Password required"; >$t = new Net::Telnet (Timeout => 20); >$t->open("192.168.0.10"); >$t->login($login, $password); >$t->cmd("reboot");
	Рекомендовать в FAQ | Cообщить модератору | Наверх

	2. "Net::Telnet побороть не могу - help, pl..."
	Сообщение от Agressor on 12-Сен-03, 18:15  (MSK)
	> >#инициализировать переменные А толку? Это проблему не решает.... Он после ввода логина ентер как не давил - так и не давит
		Рекомендовать в FAQ | Cообщить модератору | Наверх

3. "Net::Telnet побороть не могу - help, pl..."
Сообщение от nekto on 13-Сен-03, 10:58  (MSK)
>Hi All!  Подскажите - как телнетом при помощи скрипта (или еще >как:-) зайти в систему и передать login и passwd а затем >команду. Для чего надо? - есть xDSL модем, у которого иногда >виснет интерфейс тот который в кабель (PPPoE), а eth0 к машине >живой остается. Вот и надо его при отсутствии пинга ребутнуть без >участия человека... >Подсказали копать в сторону Perl  Net::Telnet. >С Perl'ом никогда дела близко не имел, но все же наваял скриптик: > >Запускаю так: ./script login passwd > >#!/usr/bin/perl >use Net::Telnet (); >$t = new Net::Telnet (Timeout => 20); >$t->open("192.168.0.10"); >$t->login($login, $password); >$t->cmd("reboot"); > >и проблемка в том что он по таймауту вываливается: >timed-out waiting for password prompt at ./script line 5 >создается впечатление, что "некому нажать enter" после ввода пароля. >Что посоветуете? > >P.S.   Прошу прощения за ламерский вопрос... try to use expect instead of perl-net::telnet : expect... send ... примеры есть
	Рекомендовать в FAQ | Cообщить модератору | Наверх

Удалить

Индекс форумов | Темы | Пред. тема | След. тема

Пожалуйста, прежде чем написать сообщение, ознакомьтесь с данными рекомендациями.