foo/active-rabbit-bridge
1
0
Fork 0
Code Issues Pull Requests Projects Releases 1 Wiki Activity

working?

Browse Source
This commit is contained in:
Matthew Slowe 2021-01-17 16:35:17 +00:00
parent 064e7cf716
commit 618bc5d76c
2 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
Dockerfile
View File

@ -1,5 +1,4 @@
FROM debian FROM perl
RUN apt-get update RUN yes | cpan install Net::MQTT::Simple Net::RabbitMQ Net::Stomp
RUN apt-get install -y make libnet-stomp-perl libanyevent-rabbitmq-perl build-essential COPY bridge.pl /bridge.pl
RUN yes | cpan install Net::MQTT::Simple ENTRYPOINT ["/bridge.pl"]
RUN yes | cpan install -f Net::RabbitMQ

2
bridge.pl
View File

@ -102,7 +102,7 @@ while(1) {
_debug("RABBIT <- " . $incoming->destination); _debug("RABBIT <- " . $incoming->destination);
unless($rabbit_queues{$incoming_destination}) { unless($rabbit_queues{$incoming_destination}) {
_debug("RABBIT Declaring queue $incoming_destination"); _debug("RABBIT Declaring queue $incoming_destination");
$rabbit->queue_declare(1, $incoming_destination); $rabbit->queue_declare(1, $incoming_destination, { durable => 1 });
$rabbit_queues{$incoming_destination}++; $rabbit_queues{$incoming_destination}++;
} }
$rabbit->publish(1, $incoming_destination, $incoming->body); $rabbit->publish(1, $incoming_destination, $incoming->body);