Problems implementing a new feature

3 views
Skip to first unread message

Yago Jesus

unread,
Mar 3, 2008, 1:36:42 PM3/3/08
to perl-net-...@googlegroups.com
Hi,

Im triying to implement a GetStatus() function to know the status of a JID.

I have this:

sub GetStatus {
   
    my $self = shift;
    my $obj_ID = $self->_get_obj_id() or return "Not an object\n"; #Failure
    my $jid = shift ;
   
    my $Roster = $jabber_client{$obj_ID}->Roster();
   
    my @resource = $Roster->resources($jid);
   
    my $show   = $Roster->resourceQuery($jid,$resource[0],"show");
   
   
    return($show) ;
   
}

Acording with: http://search.cpan.org/~hacker/Net-XMPP-1.02/lib/Net/XMPP/Roster.pm
this is the way but I can't get nothing


Any help, please ?
Reply all
Reply to author
Forward
0 new messages