File: rabbitmq_stomp_rpc_client.pl

package info (click to toggle)
rabbitmq-server 4.0.5-8
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 37,972 kB
  • sloc: erlang: 257,835; javascript: 22,466; sh: 3,037; makefile: 2,517; python: 1,966; xml: 646; cs: 335; java: 244; ruby: 212; php: 100; perl: 63; awk: 13
file content (14 lines) | stat: -rwxr-xr-x 444 bytes parent folder | download | duplicates (6) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
#!/usr/bin/perl -w

use Net::Stomp;
my $stomp = Net::Stomp->new({hostname=>'localhost', port=>'61613'});
$stomp->connect({login=>'guest', passcode=>'guest'});

my $private_q_name = "/temp-queue/test";

$stomp->send({destination => '/queue/rabbitmq_stomp_rpc_service',
              'reply-to' => $private_q_name,
              body => "request from $private_q_name"});
print "Reply: " . $stomp->receive_frame->body . "\n";

$stomp->disconnect;