10 lines
336 B
Perl
Executable File
10 lines
336 B
Perl
Executable File
#!/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;
|