Add -H opt, strip out for loop

diff --git a/check_rxdebug b/check_rxdebug
index 2907708341f69c7932998fcfb973be484e16cef7..5ac6ad2d7ddd60ae3e623e567ef2d03c4449e145 100755 (executable)
--- 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};