From e1ec41ff829a4da97a287c2aaa2c4d40a96116fc Mon Sep 17 00:00:00 2001
From: Quanah Gibson-Mount <quanah@stanford.edu>
Date: Thu, 11 Dec 2003 23:59:47 +0000
Subject: [PATCH] rxdebug check for AFS

---
 check_rxdebug | 33 +++++++++++++++++++++++++++++++++
 1 file changed, 33 insertions(+)
 create mode 100755 check_rxdebug

diff --git a/check_rxdebug b/check_rxdebug
new file mode 100755
index 0000000..41dd88f
--- /dev/null
+++ b/check_rxdebug
@@ -0,0 +1,33 @@
+#!/usr/local/bin/perl
+# $Id$
+$rxdebug = '/usr/local/bin/rxdebug';
+@failures=();
+$hiWaterMark=8;
+
+foreach $server (@ARGV) {
+  # Get the output of rxdebug $server -allconn -rxstats
+  open(RXDEBUG, "$rxdebug $server -allconn -rxstats|")
+    || die("Can't open rxdebug\n");
+  $blocked{$server} = 0;
+  while (<RXDEBUG>) {
+      if ( /waiting_for_process/ ) {
+	  $blocked{$server}++;
+      }
+  }
+  close(RXDEBUG);
+}
+
+foreach $server (sort keys %blocked) {
+   $blocked=$blocked{$server};
+   if ($blocked >= $hiWaterMark) {
+     push (@failures, "$server blck: $blocked");
+   }
+}
+
+if (@failures == 0) {
+    print "rxdebug OK\n";
+    exit 0;
+}
+
+print "@failures\n";
+exit 2;
-- 
2.39.5