Can anyone give me an example of how to receive a message from a queue using Tcl?
I'm trying to use the tStomp package from https://github.com/siemens/tstomp <http://github.com/siemens/tstomp> but it's woeful. I can send but when I subscribe the message gets removed but goes into the ether. How do I get the message body? This is not working: ('messagebody' is not getting updated. Sending is working and there are persistent messages in the queue.) package require tStomp #tStomp::setDebugCmd {} puts "Enqueuing" tStomp s stomp://admin:activemq@localhost:61613 s connect {set ::connected true} vwait connected puts "Dequeuing" s subscribe /queue/Test1 { array set M $messageNvList set ::messagebody $M(messagebody) } vwait messagebody puts $messagebody s unsubscribe /queue/Test1 -- View this message in context: http://activemq.2283324.n4.nabble.com/Tcl-STOMP-tp4679466.html Sent from the ActiveMQ - Dev mailing list archive at Nabble.com.
