Problems implementing a new feature

[Yago Jesus]

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 ?