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

Compare commits

base: foo:6fdf2d2427d9d4f3294e36603b17d64c887e7ba2
Branches Tags
foo:master
foo:v1.0
..
compare: foo:v1.0
Branches Tags
foo:master
foo:v1.0

2 Commits
6fdf2d2427 ... v1.0

Author SHA1 Message Date
Matthew Slowe
12e6122706 Fix indentation 2021-01-24 14:37:46 +00:00
Matthew Slowe
0fcf6745f1 allow disable rabbit 2021-01-24 14:32:31 +00:00
1 changed files with 24 additions and 20 deletions
Expand all files Collapse all files

44
bridge.pl
View File

@ -50,37 +50,40 @@ foreach (
## Connect to ActiveMQ
my $amq = Net::Stomp->new( { hostname => $ENV{AMQ_SERVER}, port => $ENV{AMQ_PORT} } ) or die "Failed to connect to amq://$ENV{AMQ_SERVER}:$ENV{AMQ_PORT}";
$amq->connect( {
login => $ENV{AMQ_USER},
passcode => $ENV{AMQ_PASSWORD},
# "client-id" => $conf->{feed}->{"client-id"}
} ) or die "Failed to authenticate to amq://$ENV{AMQ_SERVER}:$ENV{AMQ_PORT}";
login => $ENV{AMQ_USER},
passcode => $ENV{AMQ_PASSWORD},
# "client-id" => $conf->{feed}->{"client-id"}
} ) or die "Failed to authenticate to amq://$ENV{AMQ_SERVER}:$ENV{AMQ_PORT}";
## Connect to MQTT
_debug("Connecting to mqtt://$ENV{MQTT_SERVER}");
my $mqtt = Net::MQTT::Simple->new($ENV{MQTT_SERVER}) or die "Failed to connect to mqtt://$ENV{MQTT_SERVER}";
my $rabbit = Net::RabbitMQ->new();
_debug("Connecting to rabbitmq://$ENV{RABBITMQ_SERVER}");
$rabbit->connect($ENV{RABBITMQ_SERVER},
{
my $rabbit;
my %rabbit_queues;
unless ($ENV{DISABLE_RABBIT}) {
$rabbit = Net::RabbitMQ->new();
_debug("Connecting to rabbitmq://$ENV{RABBITMQ_SERVER}");
$rabbit->connect($ENV{RABBITMQ_SERVER},
{
user => $ENV{RABBITMQ_USER},
password => $ENV{RABBITMQ_PASSWORD},
vhost => $ENV{RABBITMQ_VHOST},
channel_max => 64,
});
_debug("Open rabbitmq channel");
$rabbit->channel_open(1);
my %rabbit_queues;
});
_debug("Open rabbitmq channel");
$rabbit->channel_open(1);
}
## Subscribe to ActiveMQ topics
foreach my $topic (split (/\s*,\s*/, $ENV{AMQ_TOPICS})) {
_debug("Subscribing to amq://$ENV{AMQ_SERVER}:$ENV{AMQ_PORT}/topic/$topic");
$amq->subscribe( {
destination => "/topic/$topic",
$amq->subscribe( {
destination => "/topic/$topic",
ack => 'client',
} ) or warn "Unable to subscribe to amq://$ENV{AMQ_SERVER}:$ENV{AMQ_PORT}/topic/$topic";
} ) or warn "Unable to subscribe to amq://$ENV{AMQ_SERVER}:$ENV{AMQ_PORT}/topic/$topic";
}
@ -99,15 +102,16 @@ while(1) {
_debug("MQTT <- " . $ENV{MQTT_PUBLISH_BASE} . "/" . $incoming_destination);
$mqtt->retain($ENV{MQTT_PUBLISH_BASE} . "/" . $incoming_destination, $incoming->body);
_debug("RABBIT <- " . $incoming->destination);
unless($rabbit_queues{$incoming_destination}) {
unless($ENV{DISABLE_RABBIT}) {
_debug("RABBIT <- " . $incoming->destination);
unless($rabbit_queues{$incoming_destination}) {
_debug("RABBIT Declaring queue $incoming_destination");
$rabbit->queue_declare(1, $incoming_destination, { durable => 1 });
$rabbit_queues{$incoming_destination}++;
}
$rabbit->publish(1, $incoming_destination, $incoming->body);
}
$rabbit->publish(1, $incoming_destination, $incoming->body);
$amq->ack({ frame => $incoming });
# $amq->ack({ frame => $incoming });
}