подскажите как сделать чтобы бот отправил сообщение перед тем как начнется функция messageChatCB
#!/usr/bin/perl -w
use strict;
use Net::XMPP;
use Net::XMPP::Client;
use Data::Dumper;
use Text::Iconv;
my $hostname = 'jabber.ru';
my $username = 'user';
my $password = 'pass';
my $client = Net::XMPP::Client->new();
$client->SetCallBacks(onauth => \&onAuth,);
$client->SetMessageCallBacks(#normal =>\&messageNormalCB,
chat =>\&messageChatCB);
$client->Execute(hostname => $hostname,
username => $username,
password => $password,
resource => 'Psi');
sub onAuth {
$client->PresenceSend(show => 'online', priority => 10);
}
sub messageChatCB {
my ($sid, $mes) = @_;
my $sender = $mes->GetFrom();
my $body = $mes->GetBody();
my $thread = $mes->GetThread();
my $s_jid = $sender;
$s_jid =~ s|\/.*$||;
my $reply = '';
#обработка входящих сообщений
$reply and $client->MessageSend(to => $sender,
subject => '',
body => $reply,
type => 'chat',
thread => $thread);
}
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.
Похожие темы
- Форум [Perl][XMPP] Net-XMPP::Message (2010)
- Форум perl Jabber (2009)
- Форум php jabber client (2011)
- Форум Ещё один jabber-shell (2009)
- Форум xmpp (2008)
- Форум Проблемы с вводом OMV5 в домен (2021)
- Форум xmpp vk (2015)
- Форум Nagios + xmpp (2016)
- Форум xmpp библиотека (2012)
- Форум ЛОР->XMPP (2012)