From acca25eb701a59c958a0880391f3ff8a319ee566 Mon Sep 17 00:00:00 2001
From: Donald Buczek <buczek@molgen.mpg.de>
Date: Wed, 18 May 2016 15:50:51 +0200
Subject: [PATCH] ping mlx once a day

---
 clusterd | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/clusterd b/clusterd
index 9cf3dad..259a5d1 100755
--- a/clusterd
+++ b/clusterd
@@ -1225,6 +1225,13 @@ sub check_overload() {
 	}
 }
 
+sub ping_mlx {
+	Donald::Select::timeout_requeue(86400);
+	system 'ping','-c','1','mlx';
+	if ($?) {
+		warn "failed to ping mlx\n";
+	}
+}
 
 #####################################################
 
@@ -1459,7 +1466,7 @@ if (defined $options{'push'}) {
 	$my_hostname eq $STAT_TARGET and My::Cluster::Updown::init();
 	$my_hostname eq 'lol' and My::NetlogReceiver::init();
 	Donald::Select::timeout(600,\&check_overload);
-
+	Donald::Select::timeout(30,\&ping_mlx);
 
 	Donald::Select::run();	
 } elsif ($options{'lsof'}) {