W/o Durability
#lang racket/base (require (planet tonyg/stomp)) (define s (stomp-connect "localhost" #:request-versions `("1.0"))) (stomp-subscribe s "/topic/SampleTopic" #f) (define m (stomp-next-message s #f)) (display (stomp-frame-body m)) (stomp-disconnect s)
W/ Durability
#lang racket/base (require (planet tonyg/stomp)) (define s (stomp-connect "localhost" #:headers `((client-id "SampleClient")) #:request-versions `("1.0"))) (stomp-subscribe s "/topic/SampleTopic" #f #:headers `((activemq.subscriptionName "SampleSubscription"))) (define m (stomp-next-message s #f)) (display (stomp-frame-body m)) (stomp-disconnect s)