listener: throttle errors for resource limits

We don't want to flood a system and run the log partition
out of space if we hit EMFILE/ENFILE/ENOMEM/ENOBUFS

diff --git a/lib/PublicInbox/Listener.pm b/lib/PublicInbox/Listener.pm
index 624756000a7a94a1eb896a80d1f1790c730e16a0..364301d0f2dc616800ff393a7c205a25deaa5fe5 100644 (file)
--- a/lib/PublicInbox/Listener.pm
+++ b/lib/PublicInbox/Listener.pm
@@ -5,6 +5,7 @@
 package PublicInbox::Listener;
 use v5.12;
 use parent 'PublicInbox::DS';
+use PublicInbox::DS qw(now);
 use Socket qw(SOL_SOCKET SO_KEEPALIVE IPPROTO_TCP TCP_NODELAY);
 use IO::Handle;
 use PublicInbox::Syscall qw(EPOLLIN EPOLLEXCLUSIVE);
@@ -40,7 +41,10 @@ sub event_step {
                        # ECONNABORTED is common with bad connections
                        return;
                } elsif (my $sym = $ERR_WARN{int($!)}) {
-                       return warn "W: accept(): $! ($sym)\n";
+                       my $now = now;
+                       return if $now < ($self->{next_warn} //= 0);
+                       $self->{next_warn} = $now + 30;
+                       return warn "W: accept(".fileno($sock)."): $! ($sym)\n";
                } else {
                        return warn "BUG?: accept(): $!\n";
                }