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

[troyer at xs4all.nl]

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
  }