1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
| | # Copyright all contributors <meta@public-inbox.org>
# License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
# 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;
|