| Subject: | send persistent messages |
Hi!
I really like that Net::Stomp thingy. Pretty neat to talk to our
activeMQ-Server.
One feature, I'd love to be added: sending persistent messages. Not a
big thing to do, but it took me some time to figure out, what key/value
pair is needed. I patched our Net::Stomp locally with the following code.
sub Net::Stomp::send_persistent {
my ($self, $conf) = @_;
# 1 = non-persistent, 2 = persistent
# see http://www.docjar.org/html/api/javax/jms/DeliveryMode.java.html
$conf->{JMSDeliveryMode} = 2;
$self->send($conf);
}
Best Regards
Jan "Egga" Hartung