From 578ff1f40c4eb4cfaa367972bf627e56bfcbb702 Mon Sep 17 00:00:00 2001
From: Martin Mares <mj@ucw.cz>
Date: Mon, 31 Oct 2011 11:42:46 +0100
Subject: [PATCH] Pings are optional

---
 TODO              | 3 +--
 brun              | 1 +
 lib/BEX/Config.pm | 3 +++
 3 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/TODO b/TODO
index b1b2a01..7b7081e 100644
--- a/TODO
+++ b/TODO
@@ -6,8 +6,7 @@
 - bprun --curses
 - Locking
 - rsync, rsync-only
-- Rename machine -> host
+- Terminology: machine vs. host
 - ssh options
 - Detector of orphans (unused queue dirs, jobs on non-existent machines, non-queued jobs)
 - job failed => give a more explanatory message
-- configurable ping
diff --git a/brun b/brun
index b22d5b6..449f8a1 100755
--- a/brun
+++ b/brun
@@ -44,6 +44,7 @@ sub update_status($$$$;$) {
 
 sub ping_machine($) {
 	my ($mach) = @_;
+	return 1 unless $BEX::Config::ping_hosts;
 	update_status($mach, '-', 'PING', undef);
 	my $host = BEX::Config::host_name($mach);
 	`ping -c1 -n $host >/dev/null 2>/dev/null`;
diff --git a/lib/BEX/Config.pm b/lib/BEX/Config.pm
index 90c5700..4526fae 100644
--- a/lib/BEX/Config.pm
+++ b/lib/BEX/Config.pm
@@ -25,6 +25,9 @@ our $job_epilog = 'epilog';
 # Keep history of successfully completed jobs
 our $keep_history = 1;
 
+# Before we try to connect to a host, ping it to check if it's alive
+our $ping_hosts = 1;
+
 # Various utility functions
 
 sub parse_machine_list(@);
-- 
2.39.2