Re: [jdev] XML::Stream question.....

[Nicholas Perez]

Have you considered using POE::Component::Jabber? 
http://www.jabberstudio.org/projects/pcj/project/view.php I know you are 
looking for simple, and you should just be able to get the cvs and go 
from there. Several projects make use of PoCo::Jabber including punjab, 
sluice, and others. There are examples included. If you have any 
questions on using this code, let me know and I will help out the best I 
can.

Nick

[EMAIL PROTECTED] wrote:

Hello everyone,

I am trying to build a rather simple perl script using the Ryan Eatmon's
XML::Stream library.  Unfortunately, I am having a hard time getting the
Send method to work.  The send method requires both a sid (stream id)
and a
XML string.  Below is the script that I am using.  Upto about line 18
everything works fine.  On line 18, I would like to send out the xml:
<iq
type="get"><query xmlns="jabber:iq:auth"/></iq>
I am assuming that the sid is the $stream hash?  Am I misunderstanding
this?
Thanks,

Mark
------------------------------------------------------------------------
----
-------
 use XML::Stream qw(Tree);
 use Data::Dumper;
 my $already_sent = 0;

 my $stream = new XML::Stream(debug=>"stdout", debuglevel=>3);

 $stream->SetCallBacks(node=>\&noder);

 $stream->Connect(hostname => "compaq",
                  port => 5222,
                  namespace => "jabber:client",
                  timeout => undef) || die $!;
 while(1) {
           $stream->Process(1);
           if (!$already_sent) {
                       # Call to Send below does not work.  What am I
doing
wrong??
                       $stream->Send($stream,'<iq type="get"><query
xmlns="jabber:iq:auth"/></iq>');
                       $already_sent = 1;
           }
 }
 sub noder
 {
   my $sid = shift;
   my $node = shift;
   # do something with $node

           print Dumper \$node
 }
_______________________________________________
jdev mailing list
[EMAIL PROTECTED]
https://jabberstudio.org/mailman/listinfo/jdev
 

_______________________________________________
jdev mailing list
[EMAIL PROTECTED]
https://jabberstudio.org/mailman/listinfo/jdev