Консольный клиент Jabber

[Андрей]

Приветствую.
Раз уж зашло обсуждение статьи , то по совету Алексея решил создать форум.
Что я не пробовал - авторизация не проходит.
установил порт /usr/ports/security/p5-IO-Socket-SSL/
Пытаюсь выполнить

Код: Выделить всё

# echo "Hello" | /usr/local/bin/sendxmpp -t -u test@10.10.254.128 -p test -s testmessage admin@10.10.254.128

выводится сообщение:

Код: Выделить всё

Can't use an undefined value as a HASH reference at /usr/local/lib/perl5/site_perl/5.8.8/XML/Stream.pm line 1165.

Погуглил нашел это.
Закоментировал строки при повторной попытке подключения опять выдается эта же ошибка.

С данным логином и паролем при помощи Miranda-IM я запросто могу авторизоваться. Из консоли не хочет.
Если выполнить скрипт, указанный в самой статье, никакого вывода не происходит, сообщение в клиента не присылается.

Заранее всем благодарен, кто поможет решить эту проблему.

ЗЫ. Jabber-сервер основан на WildFire, скрипт запускаю с этого же сервера.

[lehisnoe]

Специально сейчас сделал все то, что было описано в статье, на "нулёвой" машине. Действительно, до тех пор, пока есть зареганный JID на сервере, при попытке отослать что-то с этого же JID'a, выдавалась ошибка: not-authorized. Добывал ошибку так:

Код: Выделить всё

#!/usr/bin/perl
use Net::XMPP;
my $con=new Net::XMPP::Client(debuglevel=>1,debugfile=>"/var/log/xmpp.log",debugtime=>1);
$con->Connect(hostname=>'jabber.ru',port=>5222);
@res=$con->AuthSend(username=>'username',password=>'password',resource=>"BSDConsole");
if ($res[0] ne "error"){
           my $msg=new Net::XMPP::Message();
           $msg->SetMessage(to=>'jid@jabber.org',from=>'username@jabber.ru',body=>"My First Jabber Message From FreeBSD");
           $con->Send($msg);
}else{
           print "\n================\n[".$res[1]."]\n================\n";
}
$con->Disconnect();


Соотв, в файле /var/log/xmpp.log будет дебаг подключения.

Если username@jabber.ru находится в оффе, то все замечательно шлется.

[root]

1. покажи вывод:

Код: Выделить всё

pkg_info | grep p5-

2.

Comment the following lines out of /usr/share/perl5/Net/XMPP/Protocol.pm and you should be good to go:

# if($self->{STREAM}->GetStreamFeature($self->GetStreamID(),"xmpp-sasl"))
# {
# return $self->AuthSASL(%args);
# }

это строчки 1807, 1808, 1809, 1810

3. ты коментил в

Код: Выделить всё

/usr/share/perl5/Net/XMPP/Protocol.pm

или все же в

Код: Выделить всё

/usr/local/lib/perl5/site_perl/5.8.8/Net/XMPP/Protocol.pm

?

4. у тя перл 5.8.8, а на самом деле perl 5.8.9 уже давно есть

Код: Выделить всё

perl-5.8.9_2        Practical Extraction and Report Language

м.б. все же стоит обновить сам перл и перловые модули ?

[Андрей]

Код: Выделить всё

[b]# pkg_info | grep p5-[/b]
p5-Authen-SASL-2.12 Perl5 module for SASL authentication
p5-Config-IniFiles-2.47 Perl5 module for reading .ini-style configuration files
p5-Crypt-CBC-2.30   Perl5 interface to Cipher Block Chaining with DES and IDEA
p5-Crypt-DES-2.05   Perl5 interface to DES block cipher
p5-Digest-HMAC-1.01 Perl5 interface to HMAC Message-Digest Algorithms
p5-Digest-SHA1-2.11 Perl interface to the SHA-1 Algorithm
p5-ExtUtils-CBuilder-0.24 Compile and link C code for Perl modules
p5-ExtUtils-ParseXS-2.19 Converts Perl XS code into C code
p5-IO-Socket-SSL-1.23 Perl5 interface to SSL sockets
p5-MIME-Base64-3.07 Perl5 module for Base64 and Quoted-Printable encodings
p5-Module-Build-0.32 Build and install Perl modules
p5-Net-SNMP-5.2.0   A perl module for SNMP... Net::SNMP
p5-Net-SSLeay-1.35_1 Perl5 interface to SSL
p5-Net-XMPP-1.02    Net::XMPP provides Perl Developer access to the XMPP protoc
p5-Pod-Parser-1.38  Modules to work with POD (Plain Old Documentation)
p5-SNMP_Session-1.12 A perl5 module providing rudimentary access to SNMPv1 and v
p5-Unicode-String-2.09 These are experimental Perl5 modules to handle various Unic
p5-XML-Parser-2.36  Perl extension interface to James Clark's XML parser, expat
p5-XML-Stream-1.22  XML::Stream provides you with access to XML Stream
p5-YAML-0.68        YAML implementation in Perl
p5-gettext-1.05_1   Message handling functions
php5-5.2.5          PHP Scripting Language
php5-bz2-5.2.9      The bz2 shared extension for php
php5-ctype-5.2.9    The ctype shared extension for php
php5-gd-5.2.9       The gd shared extension for php
php5-mbstring-5.2.9 The mbstring shared extension for php
php5-mcrypt-5.2.9   The mcrypt shared extension for php
php5-mysql-5.2.9    The mysql shared extension for php
php5-openssl-5.2.9  The openssl shared extension for php
php5-pcre-5.2.9     The pcre shared extension for php
php5-session-5.2.9  The session shared extension for php
php5-simplexml-5.2.9 The simplexml shared extension for php
php5-sockets-5.2.9  The sockets shared extension for php
php5-spl-5.2.9      The spl shared extension for php
php5-xml-5.2.9      The xml shared extension for php
php5-zlib-5.2.9     The zlib shared extension for php


Коментил строки в:

Код: Выделить всё

/usr/local/lib/perl5/site_perl/5.8.8/Net/XMPP/Protocol.pm

т.к. в /usr/share/ lbhf perl5 не существует.

. у тя перл 5.8.8, а на самом деле perl 5.8.9 уже давно есть

Ну вроде скрипт писался и под более старую версию.


Как бы странно не звучало, но скрипт Алексея заработал.

А возможно ли этот скрипт для отправки сообщений, по мере появления записи в файле?
как например это возможно с sendxmpp:

Код: Выделить всё

tail -f /var/log/syslog | sendxmpp -i kto-to@jabber.ru

Это естественно будет работать если в ~/.sendxmpprc прописаны логин и пароль и установлен chmod 600.

Добавил позже:
Открыл ман (man sendxmpp), почитал. Выполнил такую комманду:

Код: Выделить всё

# sendxmpp -u yourserver -p shatrik -j 10.10.254.128:5222 -r home -s Hello -m Privet -d admin@10.10.254.128


Мне вывелся дебаг, в котором иностранным по черному было написано:

Код: Выделить всё

.....
XMPP::Conn: WaitForID: we got it!
XMPP::Conn: GetID: id(netjabber-1)
XMPP::Conn: ReceivedID: id(netjabber-1)
XMPP::Conn: CleanID: id(netjabber-1)
XMPP::Conn: AuthIQAuth: we authed!
sendxmpp: AuthSend: ok

Я конечно понимаю, что я авторизовался, но последующего вывода в клиента самого admin не последовало.

Попробовал раскоментировать 1807, 1808, 1809, 1810 строки в /usr/local/lib/perl/site_perl/5.8.8/Net/XMPP/Protocol.pm
Выполнил ту же команду и получил:

Код: Выделить всё

....
XML::Stream: Node: _handle_close: check( 0 )
XML::Stream: Node: _handle_close: check2( -1 )
XML::Stream: Process: block(0)
XMPP::Conn: AuthSASL: Authentication failed.
Error 'AuthSend': error: not-authorized[?]
XML::Stream: Send: (</stream:stream>)
XML::Stream: SetCallBacks: tag(node) func(CODE(0x8634864))
XMPP::Conn: Disconnect: bye bye
sendxmpp: Disconnect


если выполнить команду как:

Код: Выделить всё

# sendxmpp -u yourserver@10.10.254.128 -p shatrik -j 10.10.254.128:5222 -r home -s Hello -m Privet -d admin@10.10.254.128

то получу такой вывод:

Код: Выделить всё

....
XMPP::Conn: GotID: id(netjabber-1) xml(<iq id='netjabber-1' to='10.10.254.128/44c6cfe6' type='error'><error code='401' type='auth'><not-authorized xmlns='urn:ietf:params:xml:ns:xmpp-stanzas'/></error><query xmlns='jabber:iq:auth'><digest>c68446c1348bb2899ab50a5e0ef81bcce64a5a47</digest><resource>home</resource><username>yourserver@10.10.254.128:5222</username></query></iq>)
XML::Stream: Process: block(0)
XMPP::Conn: ReceivedID: id(netjabber-1)
XMPP::Conn: ReceivedID: id(netjabber-1)
XMPP::Conn: WaitForID: we got it!
XMPP::Conn: GetID: id(netjabber-1)
XMPP::Conn: ReceivedID: id(netjabber-1)
XMPP::Conn: CleanID: id(netjabber-1)
Error 'AuthSend': 401: [?]
XML::Stream: Send: (</stream:stream>)
XML::Stream: SetCallBacks: tag(node) func(CODE(0x862bfdc))
XMPP::Conn: Disconnect: bye bye
sendxmpp: Disconnect


в чем дело, я так и не понял.

[Андрей]

Немного покопавшись и по изменяв ряд настроек - отослал сообщение через sendxmpp:

Код: Выделить всё

# echo hello | sendxmpp -u test -p test -j 10.10.254.128:5222 -r home -v -d admin@10.10.254.128


Проблема теперь в том, что tail -h /путь/до/файла не хочет показывать. Что не очень хорошо.