activemq-dev mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From donpwinston <satchwins...@yahoo.com>
Subject Tcl STOMP
Date Mon, 24 Mar 2014 12:45:56 GMT
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.

Mime
View raw message