From cf07941ce4d3f44228cbc776e0c1190b2af9dc92 Mon Sep 17 00:00:00 2001
From: Chip Black <bytex64@bytex64.net>
Date: Mon, 18 Aug 2008 02:23:13 -0500
Subject: [PATCH] Add check throttling in runcheckdir

---
 checks/internets/check |  1 +
 runcheckdir            | 21 ++++++++++++++++-----
 2 files changed, 17 insertions(+), 5 deletions(-)

diff --git a/checks/internets/check b/checks/internets/check
index 57bb313..d67d1aa 100644
--- a/checks/internets/check
+++ b/checks/internets/check
@@ -1,2 +1,3 @@
 check ping -c 1 208.113.178.19
+every 600
 on change mail chip
diff --git a/runcheckdir b/runcheckdir
index 7dbfa2f..6b5bcca 100755
--- a/runcheckdir
+++ b/runcheckdir
@@ -30,7 +30,7 @@ sub do_command {
 }
 
 
-my ($checkcommand, %on);
+my ($checkcommand, $every, %on);
 $on{success} = [];
 $on{failure} = [];
 $on{change} = [];
@@ -52,6 +52,8 @@ while (<CONFIG>) {
 		} else {
 			print "Unknown event in 'on', $dir/check line $.\n";
 		}
+	} elsif ($command eq 'every') {
+		$every = $words[0];
 	} else {
 		print "Unknown command '$command', $dir/check line $.\n";
 	}
@@ -68,23 +70,30 @@ unless (@{$on{failure}} || @{$on{success}} || @{$on{change}}) {
 
 open STATUS, "$dir/checkstatus";
 chomp(my $oldstatus = <STATUS>);
+my $oldtime = (stat(STATUS))[9];
 close STATUS;
 
+my $td = time() - $oldtime;
+if ($td < $every) {
+	# Not time to recheck yet
+	#print "Not rechecking; ", $every - $td, " seconds to go.\n";
+	exit $oldstatus;
+}
+
 open CHECK, '-|', $checkcommand;
 $status = <CHECK>;
 $details = join('', <CHECK>);
 close CHECK;
 my $exitstatus = $? >> 8;
 
-my $command;
 if ($exitstatus == 0 && $oldstatus != 0) {
-	do_command($command) foreach $command @{$on{success}};
+	do_command($_) foreach @{$on{success}};
 }
 if ($exitstatus != 0 && $oldstatus == 0) {
-	do_command($command) foreach $command @{$on{failure}};
+	do_command($_) foreach @{$on{failure}};
 }
 if ($exitstatus != $oldstatus) {
-	do_command($command) foreach $command @{$on{change}};
+	do_command($_) foreach @{$on{change}};
 }
 
 open STATUS, ">$dir/checkstatus";
@@ -92,3 +101,5 @@ print STATUS "$exitstatus\n";
 print STATUS "$status\n";
 print STATUS "$details\n";
 close STATUS;
+
+exit $exitstatus;
-- 
2.25.1