File: rabbitmq_stomp_send.pl

package info (click to toggle)
rabbitmq-server 3.3.5-1.1
  • links: PTS
  • area: main
  • in suites: jessie-kfreebsd
  • size: 12,004 kB
  • sloc: erlang: 78,203; python: 3,187; xml: 2,843; makefile: 903; sh: 831; java: 660; perl: 64; ruby: 63
file content (9 lines) | stat: -rwxr-xr-x 336 bytes parent folder | download | duplicates (9) 
1
2
3
4
5
6
7
8
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;