ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Vadim Tzirulnicov                    2:5020/40.102  19 Nov 2003  00:53:18
 To : All
 Subject : Perl->Binkp
 -------------------------------------------------------------------------------- 
 

 Hужно написать средство для работы робота, размещённого у хостера и вызываемого 
 по крону, по протоколу (найденную информацию формировать в пакеты, которые
 отправлять IP-ноде по Binkp). Есть ли уже готовые модули для работы с Binkp на
 Perl ?Hастроил на фре Binkp. По telnet myhost.ru 24554 binkp нормально
 откликается.
 Запускаю на клиентской машине скрипт, подключающийся к серверу:
 
 send (SOCK, "\x80\x15SYS Vadim Tzirulnicov", 0);
 =head
 Первый бит - обозначение того, что посылка является командой. Следующие семь
 битов - номер команды ("M_NUL"). Следующие восемь битов (следующий байт) -
 размер блока данных ("SYS Vadim Tzirulnicov").
 Что в реалности должно следовать напротив "SYS" в моём случае (шлю пакет с
 робота на свой сервер, где Binkd настроен на адрес 2:5020/40.102) ?
 =cut
 @data=<SOCK>;
 print join("<br>",@data);# ничего не пишет :(
 send (SOCK, "\x80\x11ZYZ Vadim Tzirulnicov", 0);
 @data=<SOCK>;
 print join("<br>",@data);#Hет ответа
 send (SOCK, "\x80\x11LOC Vadim Tzirulnicov", 0);# Что означает "LOC" ?
 @data=<SOCK>;
 print join("<br>",@data);#Hет ответа
 send (SOCK, "\x80\x11VER Vadim Tzirulnicov", 0);# Формат значения "VER" ?
 @data=<SOCK>;
 print join("<br>",@data);#Hет ответа
 send (SOCK, "\x81\x152:5020/40.102@fidonet", 0);#M_ADR "2:5020/40.102@fidonet"
 @data=<SOCK>;
 print join("<br>",@data);#Hет ответа
 send (SOCK, "\x82\x06vl51xl", 0);#M_PWD "vl52xl"
 @data=<SOCK>;
 print join("<br>",@data);#Hет ответа
 
 Что неверно ?
 
 ... Пусть ваши желания сойдут с ума от ваших возможностей !
 --- Team: [Ru.Znakomstva] [Mo.Apartments] [Mo.Apartments.Talk]
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор