Форум АНТИЧАТ - jabber - проблема с пакетами

jabber - проблема с пакетами

18.02.2009, 22:39

eLWAux

Members of Antichat - Level 5

Регистрация: 15.06.2008

Сообщений: 941

Провел на форуме:
5111568

Репутация: 2399

Отправить сообщение для eLWAux с помощью ICQ

jabber - проблема с пакетами

появилось желание реализовать простой jabber клиент на perl'e.
использовать Net::XMPP и подобние я нехочу.., все делаю через IO::Socket; т.е. сам составляю пакети..

коннект (тут проблеми нету) :

Код:

my $sock = new IO::Socket::INET(
   PeerAddr => 'jabber.ru',
   PeerPort => 5222, #5223
   Timeout  => 1,
   Proto    => 'tcp') or
    die " [-] connect \n";
print "connected!\n";

дальше отправляю первий пакет:

Код:

 print $sock "<?xml version='1.0' encoding='UTF-8'?><stream:stream to='jabber.ru' xmlns='jabber:client' xmlns:stream='http://etherx.jabber.org/streams' xml:lang='ru' version='1.0'>";
 while ($input = <$sock>){debug($input);}
 print ($input);

и вот тут уже маленькая непонятность =\
если отправляю: ....n='1.0'> тогда нету ответа от сервера
если отправляю: ....n='1.0'/> тогда ответ примерно такой:

Код:

<?xml version='1.0'?>
<stream:stream xmlns='jabber:client'
xmlns:stream='http://etherx.jabber.org/streams'
id='1696998121'
from='jabber.ru'
version='1.0'
xml:lang='en'>
<stream:features>
<starttls xmlns='urn:ietf:params:xml:ns:xmpp-tls'/>
<compression xmlns='http://jabber.org/features/compress'><method>zlib</method>
</compression>
<mechanisms xmlns='urn:ietf:params:xml:ns:xmpp-sasl'>
<mechanism>DIGEST-MD5</mechanism><mechanism>PLAIN</mechanism>
</mechanisms>
<register xmlns='http://jabber.org/features/iq-register'/>
</stream:features>
</stream:stream>

окей.. дальше отправляю второй пакет:

Код:

 print $sock "<auth xmlns='urn:ietf:params:xml:ns:xmpp-sasl' mechanism='DIGEST-MD5'/>";
 read($sock,$input,999);
 print ($input);

и что я тут не менят, ответа от сервера нету =\
/>, \n, все что хочеш.., ответа нету =/

помогите пожалуйста, кто знает в чем моя проблемма)

p.s.: http://xmpp.org/ читал,
через wireshark перехватил пакети.
уже смотрел XML консоль в QIP'e.
http://forum.jrudevels.org/viewtopic.php?p=12853

p.p.s.:
вот что я перехватил с помощью wireshark (пакети QIP'а):
(зелений цвет - ответ сервера,
красний цвет - пакет qip'а)

первий пакет успешно отправляю (только конец пакета: "../>", а не "..>")
ответ после первого тоже получаю, такой что нужно.

второй пакет отправляю, а ответа нету =\