sub input_hook { my ($kernel, $heap, $node) = @_[KERNEL, HEAP, ARG0]; my $name = $node->name; my $users = $heap->{'users'}; if ($name eq 'presence') { my $jid = Net::XMPP::JID->new($node->attr('from')); my $full = $jid->GetJID('full'); my $base = $jid->GetJID('base'); my $type = $node->attr('type') || 'available'; return if $full !~ /\@/; # do some stuff with tracking online/offline users etc } elsif ($name eq 'iq' and $node->attr('type') eq 'result') { my $kids = $node->get_children(); my $res = $kids->[0]; if ($res->attr('xmlns') eq 'jabber:iq:roster') { for my $kid (@{$res->get_sort_children()}) { my $jid = $kid->attr('jid'); $users->{$jid} = {} if !exists $users->{$jid}; } } } }