[JDEV] using Jabber::Connection in perl

[Todd Kennedy]

Hi.

I'm trying to write a very simple Jabber registration script to add to
our admin tools when we make new accounts for workers, so I'm trying to
use the Jabber::Connection and Jabber::NodeFactory modules for perl.

What I'm confused about is that I can open a connection, send the
initial registration request asking the server what information I should
send in order to properly register a user, but I don't know where the
response goes.

I have logging turned on and I see:
SEND: <iq id='reg1' type='get'><query xmlns='jabber:iq:register'/></iq>
RECV: <iq id='reg1' type='result'><query
xmlns='jabber:iq:register'><password/>
        <instructions>Choose a username and password to register with
this server.</instructions>
        <name/>
        <email/>
      <username/></query></iq>

but I don't know where I can find the RECV: line in my code

(this output is generated by:
$c->ask($query); )

I have done a :
$c->register_handler('iq',\&handle_iq);
but what variable should I be looking into in the handle_iq subroutine
to find the servers answer.

Any help would be appreciated.
Thanks.

Todd Kennedy
Software Developer