Put the whole thing in a while loop?
while ($stomp->can_read({ timeout => "0.1" })
{
my $frame = $stomp->receive_frame;
my $framebody=$frame->body;
$stomp->ack( { frame => $frame } );
}
On Mon, Aug 2, 2010 at 2:00 AM, titexe wrote:
>
> Hello,
>
> i want in my sc
Hello,
i want in my script perl with stomp, to get all messages that exist in my
queue.
with this code, i get only the first message :
my $can_read = $stomp->can_read({ timeout => "0.1" });
if ( $can_read ) {
my $frame = $stomp->receive_frame;
my $framebo