[JDEV] using Jabber::Connection in perl

[Nicholas Perez]

Todd, you need to contact the developer of your library. We do not 
provide this kind of support on this list.


Todd Kennedy wrote:

>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
>
>_______________________________________________
>jdev mailing list
>jdev at jabber.org
>http://mailman.jabber.org/listinfo/jdev
>
>  
>