activemq-users mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From nmittal <nmit...@rblt.com>
Subject PERL/STOMP: MapMessages
Date Wed, 19 Aug 2009 17:25:01 GMT

Hi, Has anyone been able to write a Perl client that reads MapMessges off of
an ActiveMQ queue?

We have a C++ ActiveMQ client that is sending MapMessages to the broker.
However, the Perl client using Net::Stomp says that the body is undefined.
Below is the message as seen in the activemq admin web interface…

{msg=<table cellpadding=5 cellspacing=0><tr><td colspan=4 align=center>At
2009-08-19 08:21:41</td></tr><tr style="background-color:Blue; color:White;
font-weight:bold"><td style="font-weight: bold" align="right"></td><td>Avg
ticks/sec</td><td>Max ticks/sec</td><td>Total ticks</td></tr><tr><td
style="font-weight: bold" align="right">Last 15 minutes</td><td
align="right">30</td><td align="right">68</td><td
align="right">26661</td></tr><tr><td style="font-weight: bold"
align="right">Today</td><td align="right">6</td><td
align="right">177</td><td align="right">177790</td></tr></table>,
email=nmittal@rblt.com, subject=RSIGrid: FeedHandler Tick Update}

My perl code is …
#!/usr/bin/perl -w

use strict;
use Net::Stomp;


my $broker = defined($ARGV[0])? $ARGV[0] : "localhost";

my $stomp = Net::Stomp->new( { hostname => $broker, port => '61613' } );
$stomp->connect();
$stomp->subscribe(
      {   destination             => '/queue/Queue.Emails',
          'ack'                   => 'client',
          'activemq.prefetchSize' => 1
      }
  );

while (1) {
    my $frame = $stomp->receive_frame;
    print $frame->body;
#    $stomp->ack( { frame => $frame } );  
}
$stomp->disconnect;

The output of the above program is…
$ ./emailer.pl 
Use of uninitialized value in print at ./emailer.pl line 20, <GEN0> line 12.

Any help on this is appreciated.

-- 
View this message in context: http://www.nabble.com/PERL-STOMP%3A-MapMessages-tp25048522p25048522.html
Sent from the ActiveMQ - User mailing list archive at Nabble.com.


Mime
View raw message