# Copyright all contributors
# License: AGPL-3.0+
# dummy placeholder socket for internal lei commands.
# This receives what script/lei receives, but isn't connected
# to an interactive terminal so I'm not sure what to do with it...
package PublicInbox::LeiSelfSocket;
use v5.12;
use parent qw(PublicInbox::DS);
use Data::Dumper;
$Data::Dumper::Useqq = 1; # should've been the Perl default :P
use PublicInbox::Syscall qw(EPOLLIN);
use PublicInbox::IPC;
sub new {
my ($cls, $r) = @_;
my $self = bless {}, $cls;
$r->blocking(0);
$self->SUPER::new($r, EPOLLIN);
}
sub event_step {
my ($self) = @_;
my ($buf, @fds);
@fds = $PublicInbox::IPC::recv_cmd->($self->{sock}, $buf, 4096 * 33);
if (scalar(@fds) == 1 && !defined($fds[0])) {
return if $!{EAGAIN};
die "recvmsg: $!" unless $!{ECONNRESET};
} else { # just in case open so perl can auto-close them:
for (@fds) { open my $fh, '+<&=', $_ };
}
return $self->close if $buf eq '';
warn Dumper({ 'unexpected self msg' => $buf, fds => \@fds });
# TODO: figure out what to do with these messages...
}
1;