package KM::POE::JabberClient;

use Filter::Template;
const XNode POE::Filter::XML::Node

use strict;

[...]

sub send_message {
    my ($kernel, $heap, %attrs) = @_[KERNEL, HEAP, ARG0..$#_];

    my $node = XNode->new('message');
    my @types = qw(chat error groupchat headline normal);
    $attrs{'type'} = $types[0] if exists $attrs{'type'} and
                                  !grep { $attrs{'type'} eq $_ } @types;
    for my $i (qw(subject body thread)) {
        my $k = delete $attrs{$i};
        $node->insert_tag($i)->data($k) if $k;
    }
    $node->insert_attrs([%attrs]) if %attrs;
    $kernel->post($heap->{'session'}, 'output_handler', $node);
}

##</code><code>##

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};
            }
        }
    }
}