# 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 strict;
use v5.10.1;
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::Spawn;
my $recv_cmd;
sub new {
my ($cls, $r) = @_;
my $self = bless { sock => $r }, $cls;
$r->blocking(0);
no warnings 'once';
$recv_cmd = $PublicInbox::LEI::recv_cmd;
$self->SUPER::new($r, EPOLLIN);
}
sub event_step {
my ($self) = @_;
my (@fds) = $recv_cmd->($self->{sock}, my $buf, 4096 * 33);
if (scalar(@fds) == 1 && !defined($fds[0])) {
return if $!{EAGAIN};
die "recvmsg: $!" unless $!{ECONNRESET};
$buf = '';
} 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;