diff options
Diffstat (limited to 'deps/rabbitmq_stomp/examples/perl/rabbitmq_stomp_send.pl')
-rwxr-xr-x | deps/rabbitmq_stomp/examples/perl/rabbitmq_stomp_send.pl | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/deps/rabbitmq_stomp/examples/perl/rabbitmq_stomp_send.pl b/deps/rabbitmq_stomp/examples/perl/rabbitmq_stomp_send.pl new file mode 100755 index 0000000000..4d26b7837e --- /dev/null +++ b/deps/rabbitmq_stomp/examples/perl/rabbitmq_stomp_send.pl @@ -0,0 +1,9 @@ +#!/usr/bin/perl -w +# send a message to the queue 'foo' +use Net::Stomp; +my $stomp = Net::Stomp->new({hostname=>'localhost', port=>'61613'}); +$stomp->connect({login=>'guest', passcode=>'guest'}); +$stomp->send({destination=>'/exchange/amq.fanout', + bytes_message=>1, + body=>($ARGV[0] or "test\0message")}); +$stomp->disconnect; |