support --force-recheck with single host arguments (no services)

2 files changed, 12 insertions, 0 deletions

diff --git a/Changelog b/Changelog
index 28bfe37..c6d20de 100644
--- a/Changelog
+++ b/Changelog
@@ -5,6 +5,8 @@ git HEAD
       (perl Build.PL --icli-xyz-file=..., see README)
     * Do not throw warnings when encountering empty contact groups
     * Do not require --recheck when using --force-recheck
+    * Support --force-recheck with a host-only argument to immediately recheck
+      all services on a host
 
 icli 0.46 - Sun Sep 29 2013
 
diff --git a/bin/icli b/bin/icli
index b25aa79..641893f 100755
--- a/bin/icli
+++ b/bin/icli
@@ -883,6 +883,13 @@ sub recheck_service {
 	say "Scheduled check of '$service' on '$host'";
 }
 
+sub force_recheck_host_all {
+	my ($host) = @_;
+
+	dispatch_command( 'SCHEDULE_FORCED_HOST_SVC_CHECKS', $host, time() );
+	say "Scheduled forced check of * on '$host'";
+}
+
 sub force_recheck_service {
 	my ( $host, $service ) = @_;
 
@@ -904,6 +911,9 @@ sub action_on_host {
 	if ($recheck) {
 		recheck_host_all($h);
 	}
+	elsif ($force_recheck) {
+		force_recheck_host_all($h);
+	}
 }
 
 sub action_on_service {