Hmmmm I seem to be making progress but I do not understand why:)  Perhaps someone can explain what is going on.  In the IQ callback, I can get the first item in the roster by referencing it as follows with the Net::Jabber 1.0028 pm release.  my @query = $iq->GetQuery(); print ("name = ", $query[0]->GetItems->GetName(), "\n"); print ("JID = ", $query[0]->GetItems->GetJID(), "\n");  print ("Subscription = ", $query[0]->GetItems->GetSubscription(), "\n"); print ("Group = ", $query[0]->GetItems->GetGroup(), "\n"); How do I get the second item?  Using $query[1] does not do not as the array appears to have only one element although there are 10 items in the roster..  What does the GetItem object do?  It is typed as a Master but I am not sure I understand what that means.. Any help is greatly appreciated as I get (slowly) through this learning curve. Regards    rebbaj rebbaj <rebbaj2000@yahoo.co.uk> wrote: <BLOCKQUOTE style="PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #1010ff 2px solid"> Thanks Curtis, I have not seen any referenced to the RosterParse in Jabber::Net 1.0028.  It only seems to show up in the 1.0024 documentation.  Is there a way to do this using 1.0028?  Curtis Hawthorne <cghawthorne@yahoo.com> wrote: <BLOCKQUOTE style="PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #1010ff 2px solid">Rebbaj, I think what you want is the RosterParse method in Net::Jabber. It returns a hash with all the information you need. For instance: sub InIQ { my $sid = shift; my $iq = shift; my %rosterupdate = $iq->RosterParse($iq); foreach (keys %rosterupdate) { print "Name: ", $_->{name}, "\n"; print "Subscription: ", $_->{subscription}, "\n"; print "Ask: ", $_->{ask}, "\n"; print "Groups: ", $_->{groups}, "\n"; } } From there you could turn it into an array if you wanted, but I would think a hash would be easier to work with. Curtis H. --- rebbaj rebbaj <REBBAJ2000@YAHOO.CO.UK>wrote: > > After some more testing, I got the impression that the > following callback logic would work. Getting the <ITEM>s > does not seem to work. Has anybody ever made this work > before?? <BR!>> sub InIQ > { > my $sid = shift; > my $iq = shift; > my $id = $iq->GetID(); > print "id = $id\n"; # works > my $type = $iq->GetType(); > print "type = $type\n"; #works > my $xmlns = $iq->GetQueryXMLNS(); > print "xmlns = $xmlns\n"; #works > foreach my $query ($iq->GetQuery->GetItems) { > print ("JID = $query->GetItem()->GetJID\n"); # prints a > hash > print ("Name = $query->GetItem()->GetName\n"); # > prints a hash > print ("Subscription = > $query->GetItem()->GetSubscription\n"); # prints a hash > print ("Group = $query->GetItem()->GetGroup[0]\n"); # > prints a hash > } > } __________________________________________________ Do you Yahoo!? Yahoo! Mail Plus - Powerful. Affordable. Sign up now. http://mailplus.yahoo.com _______________________________________________ jdev mailing list<BR!>jdev@jabber.org http://mailman.jabber.org/listinfo/jdev</BLOCKQUOTE> <HR SIZE=1> <A href="http://uk.yahoo.com/mail/tagline_xtra/?http://uk.docs.yahoo.com/mail_storage.html">With Yahoo! Mail you can get a bigger mailbox -- choose a size that fits your needs</A> </BLOCKQUOTE> <hr size=1><a href="http://uk.yahoo.com/mail/tagline_xtra/?http://uk.docs.yahoo.com/mail_storage.html">With Yahoo! Mail you can get a bigger mailbox -- choose a size that fits your needs</a>