Hi,

I can't figure out how to set a presence with Net::XMPP...

I have rapsody running on a Raspberry Pi and would like to implement a bot that I can send messages from my phone.

I can indeed send messages but I cannot make my bot become visible in my android app...

This is what I try:

use strict;
use Net::XMPP;
use Data::Dumper;

my $con = new Net::XMPP::Client();

my $status = $con->Connect(
               hostname => 'mh.com',
               connectiontype => 'tcpip',
                      );

my @result = $con->AuthSend(
                hostname => 'mh.com',
                username => 'pi',
                password => 'pi'
                           );

$con->PresenceSend();

$con->SetCallBacks(
                   presence=>\&do_presence,
                   message=>\&do_message,
                  );


sub do_presence {
 my ($id, $presence) = @_;
 
 print "Presence\n";
 print "From: ", $presence->GetFrom(), "\n";
 print "Type: ", $presence->GetType(), "\n";
 print "Status: ", $presence->GetStatus(), "\n";
}

sub do_message {
 my($id, $msg)=@_;
 print "message: ",  $msg->GetBody;
}

while(defined($con->Process())) { }
[download]

The output (when no other client is connected) is:

Presence
From: pi@mh.com/9b568386-f5e3-46de-bb1d-22f2d861a94a
Type: 
Status:
[download]

Actually this is enough to send messages to the bot but the Pi is shown as offline in my Android app.

I assume the problem is the presence...

So when I change the SetPresence-call to this:

$con->PresenceSend( status => "doing nothing at all"  );
[download]

I get this:

Presence
From: pi@mh.com/c577d4e2-c4b3-44b5-b044-d2e7e67b0172
Type: 
Status: doing nothing at all
[download]

So yeah, I can set the status, but what I want to do is set the type, so I try:

$con->PresenceSend( type => "available" );
[download]

But now I get:

Presence
From: 
Type: error
Status:
[download]

So does anybody know how to set a presence of "available" with Net::XMPP?

Many thanks!