# HG changeset patch
# User Heiko Schlittermann (JUMPER) <hs@schlittermann.de>
# Date 1390904496 -3600
# Node ID 55ace296247bd090f4946491c5c32ccaadeee1b1
# Parent  4f11b6ecea2c71eeb89d0ce42f6ad5df661269d4
added a warning if amanda is busy
It can happen that the amanda server is busy and can't answer
the client requests for checking. We will consider this an an event
being worth to warn about. It should go away after some more checks.

diff -r 4f11b6ecea2c -r 55ace296247b debian/control
--- a/debian/control	Sat Jan 25 23:50:20 2014 +0100
+++ b/debian/control	Tue Jan 28 11:21:36 2014 +0100
@@ -1,5 +1,6 @@
 Source: nagios-plugin-amanda-client
 Maintainer: Heiko Schlittermann <hs@schlittermann.de>
+Build-Depends: libtest-exception-perl
 
 Package: nagios-plugin-amanda-client
 Section: misc
diff -r 4f11b6ecea2c -r 55ace296247b plugins/check_amanda-client
--- a/plugins/check_amanda-client	Sat Jan 25 23:50:20 2014 +0100
+++ b/plugins/check_amanda-client	Tue Jan 28 11:21:36 2014 +0100
@@ -74,11 +74,8 @@
 
     eval { amchecks @confs } or CRITICAL $@;
 
-    my @dles = eval {
-        compare_lists
-          confs   => \@confs,
-          exclude => \@opt_exclude,
-    }
+    my @dles =
+      eval { compare_lists confs => \@confs, exclude => \@opt_exclude, }
       or CRITICAL $@;
     OK 'config: ' . join(', ', @confs), @dles;
 
@@ -183,13 +180,18 @@
 
     my $conf = shift;
     my $_    = qx(amdump_client --config '$conf' check 2>&1);
+
+    /^config:\s+
+      (BUSY Amanda is busy, retry later)/smx
+      and WARNING "$1\n";
+
     /^config:\s+$conf\n
 		 CHECKING\n
 		 .*\n
 		 Client.check:.1.host.checked.in.\d+\.\d+.seconds\.\s+0.problems.found\.\n
 		 .*\n
 		 The.check.is.finished$
-	/smx or die "unexpected output from check:\n$_";
+	/smx or UNKNOWN "unexpected output from check:\n$_";
 }
 
 sub amchecks {