|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Victor Kakhnych 2:4623/178 09 Nov 2000 11:39:46
To : All
Subject : Проверить статус телнет соединения (если refused - повторить).
--------------------------------------------------------------------------------
Есть скрипт для телнет-соединения. Вот фрагмент.
--
use Net::Telnet ();
$cisco = new Net::Telnet (Telnetmode => 0);
$cisco->open(Host => $host, Port => $port_rt, Timeout => 10);
--
Это реверс телтет на киску. Для снятия статистики с модемов после коннекта.
Проблема в том, что в момент телнета на модеме может еще не быть
DTR, тоесть киска отобъет это соединение. Хотелось-бы что-бы при refused
телнет сессия повторилась через секунду, например, и так пару раз если надо.
При этом что-бы не было вечного цикла - секунд 6-7 попробовали, и если ничего не
вышло то отваливаемся. Как коректней всего это сделать? Идеально как-то
проверять статус $cisco->open...
Best regards, Victor aka kha0s
--- Msged/BSD TE 06 (pre)
* Origin: IF-Infocom ISP, e-mail: kha0s@if.net.ua, ICQ: 17675600 (2:4623/178)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
