[JDEV] Net::Jabber and envelopes

[Chris]

I'm trying to get my pager-transport to respond to the envelope "from"
vs. the message "from" to prevent loops caused by mod_filter, but

  my $message = new Net::Jabber::Message(@_);
  print "Recd: ",$message->GetXML(),"\n";
  #prints the message and shows the envelope

  my @tags = $message->GetX("jabber:x:envelope");
  my $tag;
  foreach $tag (@tagsub messageCB {
 {  
    print "$tag\n";
  }
# doesn't print anything

Where am I confused?

 
-- 
Hlade's Law:
    If you have a difficult task, give it to a lazy person --
    they will find an easier way to do it.