validate all proxies have been checked

check_haproxy_stats.pl

@@ -251,6 +251,7 @@ sub usage {
 my $exitcode = 0;
 my $msg;
 my $checked = 0;
+my %checked_proxies;
 my $perfdata = "";
 
 # Remove excluded proxies from the list if both -p and -P options are
@@ -267,6 +268,8 @@ sub usage {
     if (@proxies) { next unless grep {$data[$pxname] eq $_} @proxies; };
     if (@no_proxies) { next if grep {$data[$pxname] eq $_} @no_proxies; };
 
+    $checked_proxies{$data[$pxname]} = "found";
+
     # Is session limit enforced?
     if ($data[$slim]) {
         $perfdata .= sprintf "%s-%s=%u;%u;%u;0;%u;", $data[$pxname], $data[$svname], $data[$scur], $swarn * $data[$slim] / 100, $scrit * $data[$slim] / 100, $data[$slim];
@@ -311,6 +314,11 @@ sub usage {
     ++$checked;
 }
 
+if (@proxies && 0+@proxies > 0+keys %checked_proxies) {
+    $exitcode = 2;
+    $msg = "Not all proxies checked for @proxies.";
+}
+
 unless ($msg) {
     $msg = @proxies ? sprintf("checked proxies: %s", join ', ', sort @proxies) : "checked $checked proxies.";
 }