We don't want to get into a worker respawn loop if somebody
just decides to start the executable from a terminal.
use PublicInbox::Search qw(xap_terms);
use PublicInbox::CodeSearch;
use PublicInbox::IPC;
+use Socket qw(SOL_SOCKET SO_TYPE SOCK_SEQPACKET AF_UNIX);
use PublicInbox::DS qw(awaitpid);
use POSIX qw(:signal_h);
use Fcntl qw(LOCK_UN LOCK_EX);
sub start (@) {
my (@argv) = @_;
+ my $c = getsockopt(STDIN, SOL_SOCKET, SO_TYPE) or die "getsockopt: $!";
+ unpack('i', $c) == SOCK_SEQPACKET or die 'stdin is not SOCK_SEQPACKET';
+
local (%SRCH, %WORKERS);
local $alive = 1;
PublicInbox::Search::load_xapian();
int main(int argc, char *argv[])
{
int c;
+ socklen_t slen = (socklen_t)sizeof(c);
+
+ if (getsockopt(sock_fd, SOL_SOCKET, SO_TYPE, &c, &slen))
+ err(EXIT_FAILURE, "getsockopt");
+ if (c != SOCK_SEQPACKET)
+ errx(EXIT_FAILURE, "stdin is not SOCK_SEQPACKET");
mail_nrp_init();
code_nrp_init();