Bug 15188: Do not remove unused auths if zebra is not reachable

Other conn errors should be checked (wrong user/pwd, etc.)

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
Signed-off-by: Brendan A Gallagher <brendan@bywatersolutions.com>

diff --git a/misc/migration_tools/remove_unused_authorities.pl b/misc/migration_tools/remove_unused_authorities.pl
index af8897a..eec2155 100755 (executable)
--- a/misc/migration_tools/remove_unused_authorities.pl
+++ b/misc/migration_tools/remove_unused_authorities.pl
@@ -45,8 +45,11 @@ if ($test) {
     print "testing only, authorities will not be deleted.\n";
 }
 
-if (C4::Context->Zconn("biblioserver",0)->errcode() == 10000) {
+my $errZebraConnection = C4::Context->Zconn("biblioserver",0)->errcode();
+if ( $errZebraConnection == 10000 ) {
     die "Zebra server seems not to be available. This script needs Zebra runs."
+} elsif ( $errZebraConnection ) {
+    die "Error from Zebra: $errZebraConnection";
 }
 
 my $dbh=C4::Context->dbh;