Hello All,
Народ, проблема:
есть железка к которой логинишься стандартным
телнетом. Для старта login'a нужно отправлять "S"
пока не получишь его обратно.
Потом появляется нормальный "login:" и "password:".
При работе "руками" все нормально. А с прогой беда.
Но все дело в том, что login не появляется.
Посмотрел tcpdump'ом в чем разница.
А разница между "ручным" методом и прогой в следующем:
"ручной" - посылается пакеты с 1 "S"
прога - посылает 1 пакет из "SSSSSS" и все.
Как в перле сделать, чтобы каждая "S" отправлялась своим пакетом ?
Кусок проги:
---------------
$t=new Net::Telnet (Timeout => 10,
Prompt => '/\$ $/',
Dump_Log=>$filename);
$t->open("md");
$t->print('S');
$nume = $t->print_length;
$t->print('S');
$nume = $t->print_length;
$t->print('S');
$t->get;
-----------------
Best regards,
Sergey A Nasedkin mailto:s.nasedkin@tz.ru
=============================================================================
"inet-admins" Internet access mailing list. Maintained by East Connection ISP.
Mail "unsubscribe inet-admins" to Majordomo@info.east.ru if you want to quit.
Archive is accessible on
