LINUX.ORG.RU

Perl + XMPP


0

0

подскажите как сделать чтобы бот отправил сообщение перед тем как начнется функция 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);
}

anonymous
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.