File: headers-example-send.pl

package info (click to toggle)
rabbitmq-server 2.8.4-1
  • links: PTS
  • area: main
  • in suites: wheezy
  • size: 8,928 kB
  • sloc: erlang: 52,968; python: 2,846; xml: 1,987; sh: 816; makefile: 683; perl: 86; ruby: 63
file content (10 lines) | stat: -rwxr-xr-x 386 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
 
#!/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.headers',
              "X-header1" => ($ARGV[0] or "value1"),
	      bytes_message=>1,
	      body=> ("test message ".time())});
$stomp->disconnect;