From: Quanah Gibson-Mount <quanah@stanford.edu>
Date: Fri, 12 Dec 2003 23:56:54 +0000 (+0000)
Subject: Add -H opt, strip out for loop
X-Git-Url: https://git.michaelhowe.org/gitweb/?a=commitdiff_plain;h=3f2eb355ca7998441c2638c18360d1d29cd8678c;p=packages%2Fa%2Fafs-monitor.git

Add -H opt, strip out for loop
---

diff --git a/check_rxdebug b/check_rxdebug
index 2907708..5ac6ad2 100755
--- a/check_rxdebug
+++ b/check_rxdebug
@@ -3,25 +3,23 @@
 
 use Getopt::Std;
 
-getopts ("t:");
-$Timeout= $opt_t || 60;
+getopts ("H:");
+$server = $opt_H;
 
 $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);
+# 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};