bin/disorder-notify: Keep the log connection alive by sending bytes back.

This was, if it's not already clear, the main objective to the
`select'-based log loop.

diff --git a/bin/disorder-notify b/bin/disorder-notify
index b632ef461fca10c7255fcc12901dc214f6a80ac4..092d2558a774ced8a3ebf4d89091f22a7836117b 100755 (executable)
--- a/bin/disorder-notify
+++ b/bin/disorder-notify
@@ -220,18 +220,24 @@ sub watch_and_notify0 ($) {
     }
 
     if (!$sk_log) { $loss = "EOF from server"; last WATCH; }
     }
 
     if (!$sk_log) { $loss = "EOF from server"; last WATCH; }

-    select my $rdout = $rdin, undef, undef, undef;
-    READ: for (;;) {
-      my ($b, $n);
-      eval { $n = sysread $sk_log, $b, 4096; };
-      if ($@ && $@->errno == EAGAIN) { last READ; }
-      elsif ($@) { $loss = "error from read: " . $@->errno; last WATCH; }
-      elsif (!$n) { close $sk_log; $sk_log = undef; }
-      else { $buffer .= $b; }
-    }
+    my $nfd = select my $rdout = $rdin, undef, undef, 60;
+    if (!$nfd) {
+      eval { print $sk_log "."; flush $sk_log; };
+      if ($@) { $loss = "error from write: " . $@->errno; last WATCH; }
+      @lines = ();
+    } else {
+      READ: for (;;) {
+       my ($b, $n);
+       eval { $n = sysread $sk_log, $b, 4096; };
+       if ($@ && $@->errno == EAGAIN) { last READ; }
+       elsif ($@) { $loss = "error from read: " . $@->errno; last WATCH; }
+       elsif (!$n) { close $sk_log; $sk_log = undef; }
+       else { $buffer .= $b; }
+      }

 
 

-    @lines = split /\n/, $buffer, -1;
-    $buffer = pop @lines;
+      @lines = split /\n/, $buffer, -1;
+      $buffer = pop @lines;
+    }

   }
 
   notify "$TITLE state", "Lost connection: $loss";
   }
 
   notify "$TITLE state", "Lost connection: $loss";