The OpenNET Project / Index page

[ новости /+++ | форум | wiki | теги | ]

форумы  помощь  поиск  регистрация  майллист  ВХОД  слежка  RSS
"Net::Telnet побороть не могу - help, pl..."
Вариант для распечатки Архивированная нить - только для чтения! 
Пред. тема | След. тема 
Форумы Программирование под UNIX (Public)
Изначальное сообщение [Проследить за развитием треда]

"Net::Telnet побороть не могу - help, pl..."
Сообщение от Agressor emailИскать по авторуВ закладки 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 emailИскать по авторуВ закладки 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ообщить модератору | Наверх


Удалить

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




Спонсоры:
Слёрм
Inferno Solutions
Hosting by Hoster.ru
Хостинг:

Закладки на сайте
Проследить за страницей
Created 1996-2020 by Maxim Chirkov
Добавить, Поддержать, Вебмастеру