From bcb89c2df7e804834a6c38971436666346a7712b Mon Sep 17 00:00:00 2001 From: erickson Date: Mon, 22 Dec 2008 20:27:27 +0000 Subject: [PATCH] handle the case where only one service is registered for a given router git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@1561 9efc2488-bf62-4759-914b-345cdb29e865 --- src/perl/lib/OpenSRF/Transport/SlimJabber/Inbound.pm | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/src/perl/lib/OpenSRF/Transport/SlimJabber/Inbound.pm b/src/perl/lib/OpenSRF/Transport/SlimJabber/Inbound.pm index 3f08653..e9eed2f 100644 --- a/src/perl/lib/OpenSRF/Transport/SlimJabber/Inbound.pm +++ b/src/perl/lib/OpenSRF/Transport/SlimJabber/Inbound.pm @@ -97,7 +97,11 @@ sub listen { for my $router (@$routers) { if(ref $router) { - if( !$router->{services} || grep { $_ eq $self->{app} } @{$router->{services}->{service}} ) { + if( !$router->{services} || + ( ref($router->{services}) eq 'ARRAY' and + grep { $_ eq $self->{app} } @{$router->{services}->{service}} ) || + $router->{services}->{service} eq $self->{app}) { + my $name = $router->{name}; my $domain = $router->{domain}; my $target = "$name\@$domain/router"; @@ -114,7 +118,8 @@ sub listen { } } catch Error with { - $logger->transport( $self->{app} . ": No routers defined" , WARN ); + my $err = shift; + $logger->error($self->{app} . ": No routers defined: $err"); # no routers defined }; -- 2.43.2